|
[function basharfbuyuk]
return <strtoupper <strsub 0 1 <args>>><strtolower <strsub 1 99 <args>>>
[function iscraft]
if ((<alchemy> == 100.0) || (<Carpentry> == 100.0) || (<tinkering> == 100.0) || (<tailoring> == 100.0) || (<fishing> == 100.0) || (<blacksmithing> == 100.0))
return 1
else
return 0
endif
[function tools]
serv.newitem i_mortar_pestle,1,<uid>,1
serv.newitem i_arrow_shaft,1,<uid>,1
serv.newitem i_saw,1,<uid>,1
serv.newitem i_map_blank,1,<uid>,1
serv.newitem i_flower_tools,1,<uid>,1
serv.newitem i_scroll_blank,1,<uid>,1
serv.newitem i_sewing_kit,1,<uid>,1
serv.newitem i_tinker_tools,1,<uid>,1
[DIALOG d_craft_menu]
<DEF.DIALOGSTARTPOSITION>
IF !(<CTAG0.Craft_Menu_Cat>)
CTAG.Craft_Menu_Cat = 1
ENDIF
IF !(<SRC.TAG0.CP>)
SRC.TAG0.CP 10
ENDIF
MAIN 770,0,250,140
if (strmatch('BS_IRON','<src.ctag0.craft_menu_skill>'))
MAIN 0,0,760,330,<basharfbuyuk <SRC.CTAG.Craft_Menu_Skill>>
elseif (strmatch(*BS*,<src.ctag0.craft_menu_skill>))
local.f <strsub 3 50 <SRC.CTAG.Craft_Menu_Skill>>
MAIN 0,0,760,230,<basharfbuyuk <local.f>>
else
MAIN 0,0,760,330,<basharfbuyuk <SRC.CTAG.Craft_Menu_Skill>>
endif
YAZI_K 790,40,Sanat Deneyim Puanın : <fval <dsrc.tag0.cp>>
YAZI_K 790,60,Üretilen eşya sayısı : <bolukayir <dsrc.tag0.makeitem_count>>
IF (<SRC.TAG0.LASTMAKE>)
YAZI_K 790,80,Son üretilen eşya : <BASHARFBUYUK <SERV.ITEMDEF.<SRC.TAG0.LASTMAKE>.NAME>>
IF (<SRC.IS2X>)
TILEPIC 950 80 <SERV.ITEMDEF.<SRC.TAG0.LASTMAKE>.ID>
ELSE
TILEPICHUE 950 80 <SERV.ITEMDEF.<SRC.TAG0.LASTMAKE>.ID> <SERV.ITEMDEF.<SRC.TAG0.LASTMAKE>.RESDISPDNHUE>
ENDIF
ENDIF
if (<src.iscraft>)
TBUTTON_<qval (<src.tag0.craft_mark> == 1)?K:B> 790,20,8888888888,Üretici imzasını <qval (<src.tag0.craft_mark> == 1)?kapat:aç>
endif
LOCAL.Y = 50
FOR cat 1 <DEF.<CTAG.Craft_Menu_Skill>_TOTAL_CATS>
TBUTTON_B 20,<dLOCAL.Y>,<EVAL (60000 + <LOCAL.CAT>)>,<DEF.<CTAG.Craft_Menu_Skill>_CAT_<dLOCAL.CAT>_NAME>
LOCAL.Y += 20
ENDFOR
LOCAL.Y = 50
FOR item_y 1 5
LOCAL.X = 140
FOR item_x 1 5
LOCAL.ITEM = <DEF.<CTAG.Craft_Menu_Skill>_CAT_<dCTAG0.Craft_Menu_Cat>_ITEM_<EVAL ((<LOCAL.item_y> - 1) * 5) + <LOCAL.item_x>) - 1)>>
IF (0<DEF.<LOCAL.ITEM>>)
SERV.NEWITEM <LOCAL.ITEM>
resizepic <LOCAL.X> <dLOCAL.Y> 3000 110 80
IF (<SRC.IS2X>)
TILEPIC <LOCAL.X> <EVAL <dLOCAL.Y>+5> <NEW.DISPIDDEC>
ELSE
tilepichue <LOCAL.X> <EVAL <dLOCAL.Y>+5> <NEW.DISPIDDEC> <DNEW.RESDISPDNHUE>
ENDIF
YAZI_<QVAL (<fval <new.value>> < <SRC.TAG0.CP>)?B:K> <EVAL <dLOCAL.X>+60>,<EVAL (<LOCAL.Y> - 1)>,<fval <new.value>>
TBUTTON_B <EVAL <dLOCAL.X>+5>,<EVAL (<LOCAL.Y> + 50)>,<EVAL ((<LOCAL.item_y> - 1) * 5) + <LOCAL.item_x>) - 1)>,<croptext 11 <NEW.NAME>>
NEW.REMOVE
ENDIF
LOCAL.X += 120
ENDFOR
LOCAL.Y += 90
ENDFOR
if (<src.iscraft>)
if (strmatch(*BS*,<src.ctag0.craft_menu_skill>))
TBUTTON_B 20,190,999999,Tamirat
endif
endif
[DIALOG d_craft_menu BUTTON]
ON=0
//CLEARCTAGS Craft_Menu
on=999999
IF !(<src.ISNEARTYPE t_forge 3>)
src.sys_kirmizi Etrafınızda forge yok.
return 1
endif
if !(<src.blacksmithing> >= 80.0)
src.sys_kirmizi Tamir yapabilmek için 80.0 Blacksmithing becerisine ihtiyacınız var.
return 1
endif
if !(<src.findlayer.22.baseid> == i_robe_craft)
src.sys_kirmizi Tamirat yapabilmek için üzerinizde Craft Robe olmalı.
RETURN 1
ENDIF
targetf f_tamirat
src.sys_beyaz Tamir etmek istediğiniz silah veya zırh'ı seçiniz.
return 1
on=8888888888
if !(<src.tag0.craft_mark> == 1)
src.tag0.craft_mark=1
src.sys_beyaz Yaptığınız kusursuz eşyalarda sizin adınız yazacak.
return 1
else
src.tag0.craft_mark=
src.sys_kirmizi Yaptığınız kusursuz eşyalarda sizin adınız yazmayacak.
return 1
endif
ON=1 60000
LOCAL.ITEM = <DEF.<CTAG.Craft_Menu_Skill>_CAT_<dCTAG0.Craft_Menu_Cat>_ITEM_<ARGN1>>
LOCAL.SKILL <SRC.CTAG.Craft_Menu_Skill>
if (<src.weight> >= <eval <src.maxweight>*2>)
src.sys_kirmizi Olabilecek en yüksek ağırlığınızın 2 katı ağır olduğunuz için malzemeye yapımınız durduruldu.
return 1
endif
IF !(<fval <SERV.ITEMDEF.<LOCAL.ITEM>.value>> <= <FVAL <SRC.TAG0.CP>>)
SRC.SYS_KIRMIZI Sanat Deneyim Puanınız yetersiz.
SRC.SYS_KIRMIZI Gereki Sanat Deneyim Puanı : <fval <SERV.ITEMDEF.<LOCAL.ITEM>.value>>
return 1
endif
IF !(<CANMAKE <LOCAL.ITEM>>)
SDIALOG d_craft_menu
src.sys_kirmizi Gerekli malzeme : <SERV.ITEMDEF.<LOCAL.ITEM>.RESMAKE>,
src.sys_kirmizi Gerekli beceri : <SERV.ITEMDEF.<LOCAL.ITEM>.SKILLMAKE>,
SRC.SYS_KIRMIZI Gereki Sanat Deneyim Puanı : <fval <SERV.ITEMDEF.<LOCAL.ITEM>.value>>
RETURN 1
ENDIF
if (strmatch(*t_scroll*,<serv.itemdef.<local.item>.type>))
if !(<iscancast <LOCAL.ITEM>>)
SDIALOG d_craft_menu
SRC.SYS_KIRMIZI Bu büyü, büyü kitabınızda yer almıyor veya bu büyüyü uygulayacak özelliğe sahip değilsin.
RETURN 1
ENDIF
ENDIF
SRC.ACTDIFF=0
SRC.CLEARCTAGS Craft_Menu
SRC.MAKEITEM <LOCAL.ITEM>
//SRC.ACTDIFF -=100
SRC.CTAG.CANERMAKE=<LOCAL.ITEM>
src.sys_beyaz Yapmaya çalıştığın eşya : <serv.itemdef.<LOCAL.ITEM>.name>
ON=60001 60050
CTAG.Craft_Menu_Cat = <EVAL (<ARGN1> - 60000)>
SDIALOG d_craft_menu
[function iscancast]
if !<isempty <args>>
if strmatch(i_scroll*,<args>)
if strmatch(<args>,i_scroll_paralyze_field)
local.spell=s_paralyzation_field
else
local.spell=s_<strsub 9 99 <args>>
endif
if !<cancast <local.spell>>
return 0
else
return 1
endif
endif
endif
|
|
| Konu | Kategori | Son cevap | Son yazan | Mesaj | Görüntüleme | |
|---|---|---|---|---|---|---|
|
|
Nebula Craft Char & İtem Arıyorum
Son cevap: 10-09 22:24 · Son yazan: Guantanamo · Mesaj: 1 · Görüntü: 2390
|
Alım / Satım | 10-09 22:24 | 1 | 2390 | |
|
|
Npc kesince puan vermesi
Son cevap: 27-01 07:32 · Son yazan: helpmee · Mesaj: 2 · Görüntü: 3241
|
FUNCTION & EVENTS Script Yardımı | 27-01 07:32 | 2 | 3241 | |
|
|
Craft Menü
Son cevap: 31-08 06:53 · Son yazan: Epihaltes · Mesaj: 1 · Görüntü: 4622
|
Derleme Scriptler | 31-08 06:53 | 1 | 4622 | |
|
|
Dark Father Puan Sistemi
Son cevap: 12-07 21:11 · Son yazan: gohest · Mesaj: 3 · Görüntü: 5509
|
RunUO Script Yardımı | 12-07 21:11 | 3 | 5509 | |
|
|
Nebula Warrior-mage-warlock-Craft-Necro Satiliktir...
Son cevap: 16-02 00:20 · Son yazan: jennifer · Mesaj: 1 · Görüntü: 4403
|
Alım / Satım | 16-02 00:20 | 1 | 4403 |