check sistemi

• Aldarson
• 2009-10-04 12:54
• 0 Yorumlar
• 2537 Görüntüleme

[function f_newgold]

if (<dargn1> >65000)

serv.newitem i_gold,65000,<src.findlayer(29)>

f_newgold <eval <dargn1>-<new.amount>>

else

serv.newitem i_gold,<dargn1>,<src.findlayer(29)>

endif



[dialog d_check]

50,50

nomove

resizepic 0 0 5120 250 180

resizepic 10 10 3000 230 160

resizepic 50 80 3000 150 30



dtextentry 60 82 500 16 0481 1



button 20 85 210 211 1 0 1



dhtmlgump 20 20 400 20 0 0 <def.bfont_blue><serv.name> Check Yapma Menüsü

dhtmlgump 20 50 200 20 0 0 <def.bfont_red>Check değerini yazınız.

dhtmlgump 20 150 400 20 0 0 <def.bfont_red>Bankanizdaki toplam para:<src.bankbalance>



[dialog d_check button]

on = 0

src.sys_ok Check yapmaktan vazgeçtiniz.



on = 1

for 0 <eval strlen(<argtxt[1]>) -1>

if !strmatch('[0-9]','<strsub <dlocal._for> 1 <argtxt[1]>>')

src.sys_ok Hatalı yazım.

return 1

endif

endfor



if strmatch('<argtxt[1]>','') || (strlen(<argtxt[1]>) >8) || (<src.bankbalance> < <argtxt[1]>)

src.sys_ok Hatali yazım veya bankanızda yeterli para yok.[Max 8 rakam]

return 1

endif



src.gold -=<dargtxt[1]>

serv.newitem i_check_deed

new.more1 = <src>

new.more2 = <dargtxt[1]>

new.cont = <src>



[itemdef i_check_deed]

id i_deed

name Check Deed



on=@create

color 0455

attr = attr_newbie



on=@click

msg_ok [Yazan:<uid.<more1>.name>]

msg_ok [Değeri:<dmore2> Gold]

return 1



on=@dclick

if <cont> != <src.findlayer(29)>

src.sys_ok Bankanızda kullanabilirsiniz.

else

src.f_newgold <dmore2>

src.sys_ok Bankanıza:<dmore2> gold altın aktarıldı.

remove

endif

Değerlendirmeler

Total votes: 0