Macro programları artık kaçınılmaz.. Playerlara yardım edin

[function macro]
sdialog d_macro

[dialog d_macro]
5,8

resizepic 0 0 3500 160 290
dhtmlgump 37 15 100 20 0 0 macro programı
dhtmlgump 45 40 100 20 0 0 alchemy
dhtmlgump 45 60 100 20 0 0 blacksmith
dhtmlgump 45 80 100 20 0 0 bowcraft
dhtmlgump 45 100 100 20 0 0 carpentry
dhtmlgump 45 120 100 20 0 0 cartography
dhtmlgump 45 140 100 20 0 0 inscription
dhtmlgump 45 160 100 20 0 0 tailor
dhtmlgump 45 180 100 20 0 0 tinker
radio 20 40 56 55 <qval (0<src.tag.macro_skillno> = 1) ? 1 : 0> 1
radio 20 60 56 55 <qval (0<src.tag.macro_skillno> = 2) ? 1 : 0> 2
radio 20 80 56 55 <qval (0<src.tag.macro_skillno> = 3) ? 1 : 0> 3
radio 20 100 56 55 <qval (0<src.tag.macro_skillno> = 4) ? 1 : 0> 4
radio 20 120 56 55 <qval (0<src.tag.macro_skillno> = 5) ? 1 : 0> 5
radio 20 140 56 55 <qval (0<src.tag.macro_skillno> = 6) ? 1 : 0> 6
radio 20 160 56 55 <qval (0<src.tag.macro_skillno> = 6) ? 1 : 0> 7
radio 20 180 56 55 <qval (0<src.tag.macro_skillno> = 7) ? 1 : 0> 8
resizepic 20 220 3000 45 20
dtextentry 25 220 30 80 0 2 <tag.macro_skilldelay>
dhtmlgump 65 220 100 20 0 0 saniye aralıkla
button 20 245 4005 4006 1 0 1
dhtmlgump 60 245 100 20 0 0 <qval (0<src.tag.macro_skill> = 1) ? bitir : başlat>

[dialog d_macro text]

[dialog d_macro button]
on=1
if (0<src.tag.macro_skill> = 0)
if !(<isnum <argtxt[2]>>)
src.sysmessage @55 Sadece rakam yazmalisiniz.
else
if (<argchk[1]>)
src.tag.macro_skillno 1
src.newitem i_macroskill
src.act.more1 1
src.act.more2 <argtxt[2]>
src.act.equip
src.tag.macro_skill 1
elseif (<argchk[2]>)
src.tag.macro_skillno 2
src.newitem i_macroskill
src.act.more1 2
src.act.more2 <argtxt[2]>
src.act.equip
src.tag.macro_skill 1
elseif (<argchk[3]>)
src.tag.macro_skillno 3
src.newitem i_macroskill
src.act.more1 3
src.act.more2 <argtxt[2]>
src.act.equip
src.tag.macro_skill 1
elseif (<argchk[4]>)
src.tag.macro_skillno 4
src.newitem i_macroskill
src.act.more1 4
src.act.more2 <argtxt[2]>
src.act.equip
src.tag.macro_skill 1
elseif (<argchk[5]>)
src.tag.macro_skillno 5
src.newitem i_macroskill
src.act.more1 5
src.act.more2 <argtxt[2]>
src.act.equip
src.tag.macro_skill 1
elseif (<argchk[6]>)
src.tag.macro_skillno 6
src.newitem i_macroskill
src.act.more1 6
src.act.more2 <argtxt[2]>
src.act.equip
src.tag.macro_skill 1
elseif (<argchk[7]>)
src.tag.macro_skillno 7
src.newitem i_macroskill
src.act.more1 7
src.act.more2 <argtxt[2]>
src.act.equip
src.tag.macro_skill 1
elseif (<argchk[8]>)
src.tag.macro_skillno 8
src.newitem i_macroskill
src.act.more1 8
src.act.more2 <argtxt[2]>
src.act.equip
src.tag.macro_skill 1
else
src.sysmessage @55 Macro yapacagin bir skill secmelisin.
endif
src.tag.macro_skilldelay <argtxt[2]>
endif
src.dialog d_macro
elseif (0<src.tag.macro_skill> = 1)
src.findid.i_macroskill.remove
endif

[itemdef i_macroskill]
name macrocu
id i_deed
type t_eq_script
defname i_macroskill

on=@create
color 0798

on=@equip
cont.events +e_macroskill
timer <more2>

on=@unequip
cont.events -e_macroskill
cont.tag.macro_skill
cont.tag.macro_skillno
cont.tag.macro_skilldelay

on=@timer //cont.tag'lar sizin playerlara verdiğiniz taglardır..
if (<more1> = 1)
cont.makeitem <cont.tag.alchemy>
elseif (<more1> = 2)
cont.makeitem <cont.tag.bs>
elseif (<more1> = 3)
cont.makeitem <cont.tag.bowcraft>
elseif (<more1> = 4)
cont.makeitem <cont.tag.carpentry>
elseif (<more1> = 5)
cont.drawmap <cont.tag.cartog>
elseif (<more1> = 6)
cont.makeitem <cont.tag.inscription>
elseif (<more1> = 7)
cont.makeitem <cont.tag.tailor>
elseif (<more1> = 8)
cont.makeitem <cont.tag.tinkering>
endif
timer <more2>
return 1

[events e_macroskill]
on=@Death
src.findid.i_macroskill.remove

on=@Logout
src.findid.i_macroskill.remove

on=@Hit
src.findid.i_macroskill.remove

on=@GetHit
src.findid.i_macroskill.remove