Havale

[dialog d_havalegerceklestir]
more2 2
target @69,1,1 Havale yapacaginiz kisiyi secin.
src.dialog d_havale

[dialog d_havale]
100, 20
PAGE 0
resizepic 2 2 5054 190 90
resizepic 25 25 2620 110 35
dtextentry 32 32 90 20 990 1 Miktar?
button 140 30 4005 4006 1 0 1

[dialog d_havale button]
on=1
if (<strsub 0 1 <argtxt[1]>> == 0)
src.sysmessage @38,1,1 Ilk rakama 0 yazamazsiniz.
elseif !(<isnum <argtxt[1]>>)
src.sysmessage @38,1,1 Sadece rakam kullanabilirsiniz.
elseif (<argtxt[1]> < 1)
src.sysmessage @38,1,1 Hatali bir rakam girdiniz.
elseif (<argtxt[1]> > <eval <uid.<var.Cuzdan>.tag.gp>>)
src.sysmessage @38,1,1 Cuzdannizda <argtxt[1]> gp bulunmuyor.
else
src.sysmessage @69,1,1 <argtxt[1]> gp <name> isimli kisiye aktarildi.
sysmessage @69,1,1 <src.name> isimli kisi size <argtxt[1]> gp aktardi. Para bankanizda...
try uid.<var.Cuzdan>.tag.gp <eval <uid.<var.Cuzdan>.tag.gp> - <argtxt[1]>>
f_give_money <argtxt[1]>
endif

[function f_give_money]
var.gp <argn1>
if (<eval <var0.gp>> >= 65000)
serv.newitem i_gold
new.amount 65000
new.cont <findlayer(layer_bankbox).uid>
var.gp -= 65000
f_give_money <eval <var0.gp>>
elseif (<eval <var0.gp>> != 0)
serv.newitem i_gold
new.amount <eval <var0.gp>>
new.cont <findlayer(layer_bankbox).uid>
var.gp 0
endif

[EOF]

[plevel 1]
hesapno
havaleyap

[function hesapno]
src.sysmessage @1153 Hesap Nonuz: <src.uid>
return 1

[function havaleyap]
dialogclose d_havale
dialog d_havale


[dialog d_havale]
120,301
PAGE 0
noclose
nomove
resizepic 0 0 3000 520 180
resizepic 93 66 9300 120 25
resizepic 357 66 9300 120 25

dtextentry 97 70 105 105 1153 1
dtextentry 361 70 105 105 1153 2

dtext 10 10 0493 <serv.servname> Uo Havale Sistemi
dtext 10 30 0493 Lutfen havale bilgilerini giriniz
dtext 17 68 0493 Hesap no:
dtext 237 68 0493 Havale miktari:
dtext 145 120 0493 Havale et
dtext 339 120 0493 Iptal et

button 305 119 4017 4019 1 0 0
button 110 120 4020 4022 1 0 1


[dialog d_havale button]
on=0
src.sysmessage @026 Havale yapmaktan vazgectiniz...

on=1
if (strmatch('<argtxt[1]>',''))
src.sysmessage @33,1,1 Lütfen parayı yollayacağınız kişinin hesap nosunu yazınız.
return 1
elseif (strmatch('<argtxt[2]>',''))
src.sysmessage @0481,1,1 Lütfen bir havale miktarı giriniz.
return 1
elseif ((strlen(<argtxt[1]>)) > 12) || ((strlen(<argtxt[1]>)) < 4)
src.sysmessage @33,1,1 Hesap nosu en fazla 12, en az 4  karakter olabilir.
src.sysmessage @0481,1,1 Noyu ".hesapno" yazarak öğrenebilirsiniz.
return 1
elseif ((strlen(<argtxt[2]>)) > 6)  || ((strlen(<argtxt[2]>)) < 5)
src.sysmessage @33,1,1 Havale miktarı en fazla 6, en az 5 haneli olabilir.
return 1
elseif (<IsNum <ARGTXT[2]>>==0)
src.sysmessage @33,1,1 Havale miktarına sadece rakam girebilirsiniz.
return 1
elseif (<uid.<ARGTXT[1]>> == 00) || !(<uid.<ARGTXT[1]>.isplayer>)
src.sysmessage @33,1,1 Böyle bir hesap no bulunmamaktadır.
return 1
elseif (<ARGTXT[1]> == <src.uid>)
src.sysmessage @33,1,1 Kendi kendinize havale yapamazsınız
src.sysmessage @0481 
return 1
endif
src.ctag.hesapnosu <argtxt[1]>
src.ctag.havalemiktar <eval <argtxt[2]>>
src.dialogclose d_havaleyi_sor
src.dialog d_havaleyi_sor
return 1

[dialog d_havaleyi_sor]
200,180
page 0
noclose
nomove
resizepic 0 0 5120 310 170
resizepic 12 10 3000 290 150

dtext 20 20 1153 <uid.<src.ctag.hesapnosu>.name> isimli kisiye,
dtext 20 40 1153 <eval <src.ctag.havalemiktar>> gp gondermek istiyormusunuz?
dtext 20 130 025 Havale ucreti 5k dir.

dtext 55 91 048 Evet
dtext 155 91 025 Hayir

button 20 89 4020 4022 1 0 1
button 120 89 4017 4019 1 0 0

[dialog d_havaleyi_sor button]
on=0
src.sysmessage @0481,1,1 Havale işlemleri iptal edilmistir.

on=1
if (<src.toplampara> < <eval (<src.ctag.havalemiktar>+5000)>)
src.sysmessage @1153 <eval (<src.ctag.havalemiktar>+5000)> gpniz yok.(5 k havale parasidir)
return 1
endif
src.parayikes <eval <src.ctag.havalemiktar>+5000>
src.sysmessage @1153 <eval <src.ctag.havalemiktar>> gp, <uid.<src.ctag.hesapnosu>.name> isimli kisiye gonderilmistir.
try uid.<src.ctag.hesapnosu>.parayiyolla <eval <src.ctag.havalemiktar>>
try uid.<src.ctag.hesapnosu>.sysmessage @1153 <src.name> isimli kisi size <eval <src.ctag.havalemiktar>> gp havale etmistir.Paraniz bankanizdadir.
return 1



[FUNCTION parayikes]
IF (<toplampara> < <ARGN1>)
RETURN 1
ENDIF
LOCAL.AMOUNT=<ARGN1>
WHILE (<LOCAL.AMOUNT>)
IF (0<FINDLAYER.21.FINDID.i_gold>)
LOCAL.GOLD=<FINDLAYER.21.FINDID.i_gold.amount>
IF (<EVAL <LOCAL.AMOUNT>-<LOCAL.GOLD>> < 0)
FINDLAYER.21.FINDID.i_gold.AMOUNT -= <LOCAL.AMOUNT>
LOCAL.AMOUNT=0
ELSE
FINDLAYER.21.FINDID.i_gold.remove
LOCAL.AMOUNT -= <LOCAL.GOLD>
ENDIF
ELIF (0<FINDLAYER.29.FINDID.i_gold>)
LOCAL.GOLD=<FINDLAYER.29.FINDID.i_gold.amount>
IF (<EVAL <LOCAL.AMOUNT>-<LOCAL.GOLD>> < 0)
FINDLAYER.29.FINDID.i_gold.AMOUNT -= <LOCAL.AMOUNT>
LOCAL.AMOUNT=0
ELSE
FINDLAYER.29.FINDID.i_gold.remove
LOCAL.AMOUNT -= <LOCAL.GOLD>
ENDIF
ENDIF
ENDWHILE
UPDATE

[function toplampara]
RETURN <eval <rescount <def.cmoney>>+<findlayer.29.rescount <def.cmoney>>>



[FUNCTION parayiyolla]
IF (<ARGS> > 0)
   serv.newitem i_gold
     IF (<ARGS> > 65000)
      new.amount=65000
      new.cont <uid.<src.ctag.hesapnosu>.findlayer.29.uid>
      parayiyolla <eval <ARGS>-<NEW.AMOUNT>>
     ELSE
      new.amount=<ARGS>
      new.cont <uid.<src.ctag.hesapnosu>.findlayer.29.uid>
    ENDIF
ENDIF