Crafter arkadaşlara verdiğim önemi yakın çevrem iyi bilir =)
Crafterlar için oyun içi Macro ;
Öncesinde bir platformda paylaşmıştım, bu platformada geri dönmem nedeniyle burada da paylaşmam icab etti.
Güzel bir script ile merhaba demek istedim ^^' Tekrardan merhabalar.
*coded: buxiun *-
*system: makro system *-
*date: 11.08.2009, sunday *-
*capacity in sphere: 3,64 KB *-
*platform: FOR uo-dev, spere-wiki, sphereserver *-
*using now @sivana uo shard, erador uo shard *-
*****************************************-
----------------------------------------------------------------
[FUNCTION macro]
//if (<src.isevent.e_ticaret>)
//src.sys_error Ticaret esnasında bunu yapamazsınız.
//return 1
//endif
TAG.AMOUNT=
sdialog d_macroinc
return 1
[DIALOG d_macroinc]
30,-80
nomove
resizepic 20 110 2620 448 310
resizepic 27 120 3000 437 290
resizepic 90 363 3000 60 30
button 58 365 4005 4007 1 0 98 // MAKE LAST
dhtmlgump 305 370 150 50 0 0 Tum malzeme ile yap.
button 270 367 0fa6 0fa7 1 0 99 // MAKE LAST ALL
dtextentry 97 367 40 16 1152 1 <eval(<VAR0.AMOUNT>)>
dhtmlgump 155 372 120 25 0 0 kere tekrarlansin.
dhtmlgump 195 135 220 25 0 0 Eşya Tekrarlama
dhtmlgump 50 170 300 25 1 0 Son Esya : <serv.itemdef.<src.ctag.lastitem>.name>
dhtmlgump 50 200 300 25 1 0 Skill : <serv.itemdef.<src.ctag.lastitem>.skillmake>
dhtmlgump 50 230 400 25 1 0 Gerekenler : <strarg <serv.itemdef.<src.ctag.lastitem>.resources.<eval <local._while>+1>>> tane <serv.itemdef.<streat <serv.itemdef.<src.ctag.lastitem>.resources.<eval <local._while>+1>>>.name>
dhtmlgump 50 260 400 25 1 0 - <strarg <serv.itemdef.<src.ctag.lastitem>.resources.<eval <local._while>+2>>> tane <serv.itemdef.<streat <serv.itemdef.<src.ctag.lastitem>.resources.<eval <local._while>+2>>>.name>
dhtmlgump 50 290 400 25 1 0 - <strarg <serv.itemdef.<src.ctag.lastitem>.resources.<eval <local._while>+3>>> tane <serv.itemdef.<streat <serv.itemdef.<src.ctag.lastitem>.resources.<eval <local._while>+3>>>.name>
dhtmlgump 50 320 400 25 1 0 - <strarg <serv.itemdef.<src.ctag.lastitem>.resources.<eval <local._while>+4>>> tane <serv.itemdef.<streat <serv.itemdef.<src.ctag.lastitem>.resources.<eval <local._while>+4>>>.name>
[DIALOG d_macroinc button]
ON=98
// Make Last
//if (<src.isevent.e_ticaret>)
//src.sys_error Ticaret esnasında bunu yapamazsınız.
//return 1
//endif
IF !(<ISNUM <ARGTXT[1]>>)
SYSMESSAGE @38,,1 Sadece rakam girebilirsiniz.
RETURN 1
ENDIF
IF (<RESTEST <serv.itemdef.<src.ctag.lastitem>.resources.1.val> <serv.itemdef.<src.ctag.lastitem>.resources.1.key>>)
tag.amount=<eval(<argtxt[1]>)>
make_baby
ELSE
sys_error Yeterli malzemeniz bulunmamaktadir.
ENDIF
ON=99
// Make All Last
//if (<src.isevent.e_ticaret>)
//src.sys_error Ticaret esnasında bunu yapamazsınız.
//return 1
//endif
IF (<RESTEST <serv.itemdef.<src.ctag.lastitem>.resources.1.val> <serv.itemdef.<src.ctag.lastitem>.resources.1.key>>)
tag.amount=<eval(<RESCOUNT <serv.itemdef.<src.ctag.lastitem>.resources.1.key>>/<serv.itemdef.<src.ctag.lastitem>.resources.1.val>)>
make_baby
ELSE
src.sysmessage @38,,1 Yeterli malzemeniz bulunmamaktadir.
return 1
ENDIF
[function f_islem]
//if (<src.isevent.e_ticaret>)
//src.sys_error Ticaret esnasında bunu yapamazsınız.
//return 1
//endif
if (<serv.itemdef.<src.ctag.lastitem>>)
src.sys_error En son ne yaptiginizi hatirlamiyorsunuz.
return 1
endif
if (<src.canmake <src.tag.lastitem>>)
src.makeitem <src.tag.lastitem>
src.sys_trk Son yaptiginiz esya yapiliyor.
else
src.sys_error Yeterli malzemeye sahip degilsiniz.
endif
return 1
[Function make_baby]
//if (<src.isevent.e_ticaret>)
//src.sys_error Ticaret esnasında bunu yapamazsınız.
//TAG.AMOUNT=
//return 1
//endif
IF <tag0.amount> > 0
IF (<RESTEST <serv.itemdef.<src.ctag.lastitem>.resources.1.val> <serv.itemdef.<src.ctag.lastitem>.resources.1.key>>)
f_baby
ELSE
sysmessage @38,,1 <serv.itemdef.<src.ctag.lastitem>.name> yapabilmek için gerekli malzemeniz bulunmamaktadır.
TAG.AMOUNT=
ENDIF
RETURN 1
ENDIF
sysmessage @38,,1 İşlem durduruldu.
TAG.AMOUNT=
[Function f_baby]
//if !<isdialogopen d_anti_macro> && (<eval <ctag0.fsh>> > 500)
//sys_error Güvenlik kodunu giriniz.
//timerf 5,make_baby
//return 1
//endif
sys_normal <dtag0.amount> tane daha <serv.itemdef.<src.ctag.lastitem>.name> yapılacak.
sys_error Durdurmak için yeniden .macro yazabilirsiniz.
makeitem <src.ctag.lastitem>
tag.amount -=1
if (strmatch('<src.tag.lastitem>','i_board')
timerf 10,make_baby
elif (strmatch('<src.tag.lastitem>','i_barrel_lid')
timerf 12,make_baby
else
timerf 5,make_baby
endif
