Oyunda .add i_Cek_5000 yazdığımda nasıl 0 olmadan gele bilir çantama
Kod:
[FUNCTION BANKA_HESAP]
IF (<TAG0.GOLD> < 0)
TAG0.GOLD=0
SYS_KIRMIZI Hatalı GP miktarı tespit edildi.
LOGLA HATALI GP MIKTARI SAPTANDI.
ENDIF
F
MAIN 370,0,300,180
DENTRY 420,60,100,3
YAZI_B 520,63,GP
TBUTTON_B 420,100,1002,Hesaba GP aktar
PAGE 5
MAIN 370,0,330,200
YAZI_B 420,53,Miktar :
DENTRY 490,50,100,4
YAZI_B 590,53,GP
YAZI_B 420,90,Hesap Nu. :
DENTRY 510,90,100,5
TBUTTON_B 420,120,1003,Aktar
[DIALOG D_BANKA_HESAP BUTTON]
on=9999
IF !(<SRC.ACCOUNT.TAG0.KULLANILAN_HESAP>)
SRC.ACCOUNT.TAG0.KULLANILAN_HESAP=1
SRC.SYS_BEYAZ Alışveriş tutarlarınız artık banka hesaplarınızdan alınacak.
ELSE
SRC.ACCOUNT.TAG0.KULLANILAN_HESAP=
SRC.SYS_KIRMIZI Alışveriş tutarlarınız artık nakit olarak alınacak.
ENDIF
SRC.BANKA_HESAP
//// ÇEK YAZ
on=1000
LOC
SRC.F_DIALOG D_BANKA_HESAP,3
RETURN 1
ELSEIF (<SRC.TAG0.GOLD> < <argtxt[2]>)
SRC.SYS_KIRMIZI Hesabınızda bu kadar GP bulunmuyor.
SRC.F_DIALOG D_BANKA_HESAP,3
RETURN 1
ENDIF
SRC.GOLD +=<argtxt[2]>
SRC.TAG0.GOLD -=<argtxt[2]>
SRC.SYS_BEYAZ Banka hesabınızdan <bolukayir <argtxt[2]>> nakit GP çektiniz.
SRC.F_DIALOG D_BANKA_HESAP,3
//// BANKADAN HESABA
on=1002
LOCAL.MIKTAR <argtxt[3]>
IF !(STRREGEX(^[0-9]+$,<argtxt[3]>))
src.sys_kirmizi Yanlızca rakam yazabilirsiniz.
SRC.F_DIALOG D_BANKA_HESAP,4
RETURN 1
ELSEIF (<strsub 0 1 <argtxt[3]>> == 0)
src.sys_kirmizi İlk rakamı sıfır yazamazsınız.
SRC.F_DIALOG D_BANKA_HESAP,4
RETURN 1
ELSEIF (strlen(<argtxt[3]>) > 8)
src.sys_kirmizi Bir seferde en fazla 8 haneli miktar yazabilirsiniz.
SRC.F_DIALOG D_BANKA_HESAP,4
RETURN 1
IF (<SRC.GOLD> < <DLOCAL.MIKTAR>)
SRC.TAG0.GOLD -=<DLOCAL.MIKTAR>
ELSE
SRC.GOLD -=<DLOCAL.MIKTAR>
ENDIF
REF1.TAG0.GOLD +=<LOCAL.MIKTAR>
REF1.NOTICE <SRC.NAME> isimli oyuncu size <BOLUKAYIR <DLOCAL.MIKTAR>> GP gönderdi.
SRC.SYS_BEYAZ <REF1.NAME> isimli oyuncuya <BOLUKAYIR <DLOCAL.MIKTAR>> GP gönderdin.
SRC.F_DIALOG D_BANKA_HESAP,5
/// SABIT ÇEK
ON=900 998
LOCAL.MIKTAR <F_ARRAY <DEF.CEK_MIKTARLARI>,<EVAL <ARGN>-900>>
IF ((<SRC.GOLD> < <LOCAL.MIKTAR>) && (<SRC.TAG0.GOLD> < <LOCAL.MIKTAR>))
SRC.SYS_KIRMIZI Bankanızda veya hesabınızda <BOLUKAYIR <DLOCAL.MIKTAR>> GP bulunmuyor.
src.f_dialog d_banka_hesap 2
RETURN 1
ENDIF
IF (<SRC.GOLD> < <DLOCAL.MIKTAR>)
SRC.TAG0.GOLD -=<DLOCAL.MIKTAR>
ELSE
src.sys_beyaz <BOLUKAYIR <DLOCAL.MIKTAR>> GP değerinde çek yazdınız.
src.f_dialog d_banka_hesap 2
[DEFNAME DEF_CEK_MIKTARLARI_CONF]
CEK_MIKTARLARI 500000,1000000,2500000,5000000
[EOF]