Check system

• Aldarson
• 2009-07-19 11:03
• 0 Yorumlar
• 2038 Görüntüleme

[defname param]

para1 50000

para2 100000

para3 250000



[dialog d_check]

50,50

nomove

resizepic 60 20 5120 300 150

dtext 100 25 0481 Toplam altininiz : <src.gold> gp



local.b 75

for 1 3

button 120 <dlocal.b> 2714 2715 1 0 <dlocal._for>

local.b +=25

endfor



dtext 140 75 0481 50000 Gp

dtext 140 100 0481 100000 Gp

dtext 140 125 0481 250000 Gp



tilepic 250 60 <serv.itemdef.i_pet_man.id>



[dialog d_check button]

on 0

src.sysmessage @038a,0,1 Iptal edildi

return 1



on 1 3

if (<src.gold> < <def.para<argn>>)

src.sysmessage @038a,0,1 Yeterli altininiz yok.[eksik para:<eval <def.para<argn>> - <src.gold>> Gp]

return 1

else

src.gold -=<def.para<argn>>

serv.newitem i_check_deed

new.more2 <src>

new.more1 <def.para<argn>>

new.bounce

endif



[itemdef i_check_deed]

id i_deed

name Check

type t_deed



On=@Create

color 096d

attr attr_newbie



On=@Click

message @038a,0,1 [Check Degeri:<dmore1> Gp]

message @038a,0,1 [Check Yapan:<src.uid.<more2>.name>]

return 1



On=@DClick

if (<more1> = 50000)

src.f_paraver 50000

remove

return 1

src.sysmessage @038a,0,1 Bankaniza aktarilan para : <dmore1> gp

elseif (<more1> = 100000)

src.f_paraver 50000

src.f_paraver 50000

remove

return 1

src.sysmessage @038a,0,1 Bankaniza aktarilan para : <dmore1> gp

elseif (<more1> = 250000)

for 1 5

src.f_paraver 50000 <dlocal._for>

endfor

remove

return 1

src.sysmessage @038a,0,1 Bankaniza aktarilan para : <dmore1> gp

endif



[function f_paraver]

serv.newitem i_gold

new.amount <argn>

new.cont <src.findlayer.29.uid>

Değerlendirmeler

Total votes: 0