[comment check_sys]

yazan: kuihla

version: 056b

güncelleme: 25.02.2010



[Plevel 1]

cek

[Function cek]

dialogclose d_cekdefteriyaz

dialog d_cekdefteriyaz

[dialog d_cekdefteriyaz]

150,150

resizepic 100 100 83 384 200

resizepic 240 192 2620 120 35

dtext 230 130 172 Cek imzalama

dtext 160 160 1152 Bankanizda <src.bankbalance> altin bulunuyor.

dtext 160 200 1152 Cek degeri:

dtext 295 248 0 -->

dtext 250 200 1152 .

tilepic 325 245 <eval 014ef>

tilepic 253 250 3826

tilepic 240 245 3823

tilepic 250 245 3819

tilepic 255 255 3825

tilepic 225 250 3820

tilepic 235 255 3823

tilepic 245 255 3820

textentry 250 200 100 25 1152 0 4

button 370 198 2720 2721 1 0 1

[dialog d_cekdefteriyaz button]

On=1

if !(<isnum <argtxt[0]>>)

src.sysmessage Hatali karakter kullanimi.

src.dialog d_cekdefteriyaz

return 1

endif

if (<eval <argtxt[0]>>=0)

src.sysmessage Hatali bir miktar girdiniz.

src.dialog d_cekdefteriyaz

return 1

endif

if (<eval <argtxt[0]>><250000)

src.sysmessage 250000gp dan kucuk olan mebla cek olamaz.

src.dialog d_cekdefteriyaz

return 1

endif

if (<eval <argtxt[0]>>>10000000)

src.sysmessage 10m den buyuk olan mebla cek olamaz.

src.dialog d_cekdefteriyaz

return 1

endif

if (<src.gp> >= <eval <argtxt[0]>>)

src.gpconsume <eval <argtxt[0]>>

newitem i_check_arms

act.more1 <eval <argtxt[0]>>

act.more2 <uid>

act.bounce

else

src.sysmessage Bankanizin en ust kisminda <eval <argtxt[0]>> gp altininiz bulunmuyor.

endif

[itemdef i_check_arms]

id i_deed

type t_script

weight 0.1

name cek

On=@Create

color 0524

attr 04

On=@Click

message @07a1,1,1 Cek karsiligi: <eval <more1>>gp

message @07ad,3 [<src.uid.<more2>.name>]

return 1

On=@DClick

src.check_deposits <more1>

src.sysmessage Cekin tamamini bozdurdunuz.

remove

return 1

On=@TargOn_Item

return 1

[function check_deposits]

var.check <eval (<argn> - 65000)>

newitem i_gold

act.amount 65000

act.cont <findlayer(29).uid>

if (<eval <var.check>> >= 65000)

check_deposits <eval <var.check>>

elseif (<eval <var.check>> > 0)

newitem i_gold

act.amount <eval <var.check>>

act.cont <findlayer(29).uid>

var.check

else

var.check

endif

[EOF]

Değerlendirmeler

0

Total votes: 0