Buxiun -  19-08-2009 16:47
Crafter arkadaşlara verdiğim önemi yakın çevrem iyi bilir =)
Crafterlar için oyun içi MacroMan ;


EDITED: make_baby ve f_islem fonksiyonları eklendi :blush sorry

http://img16.imageshack.us/img16/4639/keretekrarla.jpg


Kod:
*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]

YORUMLAR (0)

Henüz yorum yapılmamış.

BENZER SAYFALAR