Geliştirilmiş makro sistemi

• Buxiun
• 2009-08-18 19:46
• 0 Yorumlar
• 2209 Görüntüleme

[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]

Değerlendirmeler

Total votes: 0