[sea]Crafter arkadaşlara verdiğim önemi yakın çevrem iyi bilir =)
Crafterlar için oyun içi MacroMan ;[/sea]
EDITED: make_baby ve f_islem fonksiyonları eklendi :blush sorry
http://img16.imageshack.us/img16/4639/keretekrarla.jpg
*coded: buxiun *-
*system: makro system *-
*date: 11.08.2009, sunday *-
*capacity in sphere: 3,64 KB *-
*platform: FOR uo-dev, spere-wiki, sphereserver *-
**********************************************-
-----------------------------------------------
[PLEVEL 1]
macro
[FUNCTION macro]
sdialog d_macroinc
return 1
[DIALOG d_macroinc]
100, 50
nomove
resizepic 20 110 5120 448 400
resizepic 30 120 3000 430 380
resizepic 90 363 2620 60 30
button 58 365 0fa6 0fa7 1 0 98 // MAKE LAST
dhtmlgump 305 370 150 50 0 0 <def.bfont_red> 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 145 372 120 25 0 0 <def.bfont_blue> kere tekrarlansin.
dhtmlgump 140 120 220 25 1 0 <def.bfont_dred> Inclusive Ultima Online Tekrarlama Panosu
dhtmlgump 50 170 300 25 1 0 <def.bfont_red> Son Esya : <def.bfont_black><serv.itemdef.<ctag.inclus.tekraryap>.name>
dhtmlgump 50 200 300 25 1 0 <def.bfont_red> Skill : <def.bfont_black><serv.itemdef.<ctag.inclus.tekraryap>.skillmake>
dhtmlgump 50 230 400 25 1 0 <def.bfont_red> Gerekenler : <def.bfont_black><strarg <serv.itemdef.<ctag.inclus.tekraryap>.resources.<eval <local._while>+1>>> tane <serv.itemdef.<streat <serv.itemdef.<ctag.inclus.tekraryap>.resources.<eval <local._while>+1>>>.name>
dhtmlgump 50 260 400 25 1 0 <def.bfont_red> <def.bfont_black><strarg <serv.itemdef.<ctag.inclus.tekraryap>.resources.<eval <local._while>+2>>> tane <serv.itemdef.<streat <serv.itemdef.<ctag.inclus.tekraryap>.resources.<eval <local._while>+2>>>.name>
dhtmlgump 50 290 400 25 1 0 <def.bfont_red> <def.bfont_black><strarg <serv.itemdef.<ctag.inclus.tekraryap>.resources.<eval <local._while>+3>>> tane <serv.itemdef.<streat <serv.itemdef.<ctag.inclus.tekraryap>.resources.<eval <local._while>+3>>>.name>
dhtmlgump 50 320 400 25 1 0 <def.bfont_red> <def.bfont_black><strarg <serv.itemdef.<ctag.inclus.tekraryap>.resources.<eval <local._while>+4>>> tane <serv.itemdef.<streat <serv.itemdef.<ctag.inclus.tekraryap>.resources.<eval <local._while>+4>>>.name>
dhtmlgump 40 420 410 70 1 0 <def.bfont_blue>Uyarı : <def.bfont_black>Bu sistem en son yaptiginiz esyayi tekrarlar. Yukarida son yaptiginiz esyayı gorebilirsiniz. Kutucuk icerisine kac adet yazarsaniz o kadar tekrarlama yapilir. <def.bfont_blue>Detayli bilgi forumlardadir.
[DIALOG d_macroinc button]
ON=98
// Make Last
IF !(<ISNUM <ARGTXT[1]>>)
SYSMESSAGE @38,,1 Sadece rakam girebilirsiniz.
RETURN 1
ENDIF
IF (<RESTEST <serv.itemdef.<ctag.inclus.tekraryap>.resources.1.val> <serv.itemdef.<ctag.inclus.tekraryap>.resources.1.key>>)
tag.amount=<eval(<argtxt[1]>)>
make_baby
ELSE
sms Yeterli malzemeniz bulunmamaktadir.
ENDIF
ON=99
// Make All Last
IF (<RESTEST <serv.itemdef.<ctag.inclus.tekraryap>.resources.1.val> <serv.itemdef.<ctag.inclus.tekraryap>.resources.1.key>>)
tag.amount=<eval(<RESCOUNT <serv.itemdef.<ctag.inclus.tekraryap>.resources.1.key>>/<serv.itemdef.<ctag.inclus.tekraryap>.resources.1.val>)>
make_baby
ELSE
src.sysmessage @38,,1 Yeterli malzemeniz bulunmamaktadir.
return 1
ENDIF
[function tekraryap]
src.f_islem
[function makelast]
src.f_islem
[function f_islem]
if !(<src.ctag0.inclus.tekraryap>)
src.smsx En son ne yaptiginizi hatirlamiyorsunuz.
return 1
endif
if (<src.canmake <ctag.inclus.tekraryap>>)
src.makeitem <ctag.inclus.tekraryap>
src.sys_trk Son yaptiginiz esya yapiliyor.
else
src.smsx Yeterli malzemeye sahip degilsiniz.
endif
return 1
[Function make_baby]
IF <tag0.amount> > 0
IF (<RESTEST <serv.itemdef.<ctag.inclus.tekraryap>.resources.1.val> <serv.itemdef.<ctag.inclus.tekraryap>.resources.1.key>>)
f_baby
ELSE
sysmessage @38,,1 <serv.itemdef.<ctag.inclus.tekraryap>.name> yapabilmek için gerekli malzemeniz bulunmamaktadır.
TAG.AMOUNT=
ENDIF
RETURN 1
ENDIF
sysmessage @38,,1 İşlem durduruldu.
TAG.AMOUNT=
[Function f_baby]
makeitem <ctag.inclus.tekraryap>
tag.amount -=1
timerf 5,make_baby
[EOF]
0
Total votes: 0
Yorumlar (0)