[itemdef i_borc_dis]
name Disconnect
id i_memory
type t_eq_script
weight 0
on=@create
attr attr_invis | attr_decay
return 1
on=@equip
timer 1
src.sysmessage Baglandiniz Kesilcek.
return 1
on=@timer
attr attr_decay
cont.disconnect
remove
return 1
[itemdef i_borc_ceza]
name Cezalandirildi.
id i_memory
type t_eq_script
weight 0
on=@create
attr attr_invis | attr_decay
return 1
on=@equip
timer 60*60*24*5
src.sysmessage @0800 5 Gun Boyunca Cezalandirildiniz.
src.newitem i_borc_dis
src.act.equip
return 1
on=@timer
attr attr_decay
cont.go 2706,2163
remove
return 1
[DIALOG d_borc_ode1]
0,0
nomove
resizepic 10 10 3600 400 300
//////////////////////////////
dtext 115 15 0821 Borc Para Odeme Sistemi
dtext 50 50 0481 Suanda 100k Borcunuz Bulunmaktadir.
if <src.rescount(i_gold).amount>>99000)
dtext 70 90 0481 Tamam
else
dtext 70 90 0481 Yetersiz Para
endif
//////////////////////////////////////
if <src.rescount(i_gold).amount>>99000)
button 50 90 210 211 1 0 1
else
endif
////////////////////////////////////
[dialog d_borc_ode1 button]
onbutton=1
if !(<src.restest 100000 i_gold>)
src.syshata Suanda Yaninizda Borcunuzu Oducek Kadar Para Yok. [ 100k ]
else
src.consume 50000 i_gold
src.consume 50000 i_gold
src.findid.i_borc_para1.remove
src.tag.borcpara1 0
endif
return 1
[DIALOG d_borc_ode2]
0,0
nomove
resizepic 10 10 3600 400 300
//////////////////////////////
dtext 115 15 0821 Borc Para Odeme Sistemi
dtext 50 50 0481 Suanda 200k Borcunuz Bulunmaktadir.
if <src.rescount(i_gold).amount>>199000)
dtext 70 90 0481 Tamam
else
dtext 70 90 0481 Yetersiz Para
endif
//////////////////////////////////////
if <src.rescount(i_gold).amount>>199000)
button 50 90 210 211 1 0 1
else
endif
////////////////////////////////////
[dialog d_borc_ode2 button]
onbutton=1
if !(<src.restest 200000 i_gold>)
src.syshata Suanda Yaninizda Borcunuzu Oducek Kadar Para Yok. [ 200k ]
else
src.consume 50000 i_gold
src.consume 50000 i_gold
src.consume 50000 i_gold
src.consume 50000 i_gold
src.findid.i_borc_para2.remove
src.tag.borcpara2 0
endif
return 1
[DIALOG d_borc_ode3]
0,0
nomove
resizepic 10 10 3600 400 300
//////////////////////////////
dtext 115 15 0821 Borc Para Odeme Sistemi
dtext 50 50 0481 Suanda 300k Borcunuz Bulunmaktadir.
if <src.rescount(i_gold).amount>>299000)
dtext 70 90 0481 Tamam
else
dtext 70 90 0481 Yetersiz Para
endif
//////////////////////////////////////
if <src.rescount(i_gold).amount>>299000)
button 50 90 210 211 1 0 1
else
endif
////////////////////////////////////
[dialog d_borc_ode3 button]
onbutton=1
if !(<src.restest 300000 i_gold>)
src.syshata Suanda Yaninizda Borcunuzu Oducek Kadar Para Yok. [ 300k ]
else
src.consume 50000 i_gold
src.consume 50000 i_gold
src.consume 50000 i_gold
src.consume 50000 i_gold
src.consume 50000 i_gold
src.consume 50000 i_gold
src.findid.i_borc_para3.remove
src.tag.borcpara3 0
endif
return 1
[DIALOG d_borc_ode4]
0,0
nomove
resizepic 10 10 3600 400 300
//////////////////////////////
dtext 115 15 0821 Borc Para Odeme Sistemi
dtext 50 50 0481 Suanda 400k Borcunuz Bulunmaktadir.
if <src.rescount(i_gold).amount>>399000)
dtext 70 90 0481 Tamam
else
dtext 70 90 0481 Yetersiz Para
endif
//////////////////////////////////////
if <src.rescount(i_gold).amount>>399000)
button 50 90 210 211 1 0 1
else
endif
////////////////////////////////////
[dialog d_borc_ode4 button]
onbutton=1
if !(<src.restest 400000 i_gold>)
src.syshata Suanda Yaninizda Borcunuzu Oducek Kadar Para Yok. [ 400k ]
else
src.consume 50000 i_gold
src.consume 50000 i_gold
src.consume 50000 i_gold
src.consume 50000 i_gold
src.consume 50000 i_gold
src.consume 50000 i_gold
src.consume 50000 i_gold
src.consume 50000 i_gold
src.findid.i_borc_para4.remove
src.tag.borcpara4 0
endif
return 1
[DIALOG d_borc_ode5]
0,0
nomove
resizepic 10 10 3600 400 300
//////////////////////////////
dtext 115 15 0821 Borc Para Odeme Sistemi
dtext 50 50 0481 Suanda 500k Borcunuz Bulunmaktadir.
if <src.rescount(i_gold).amount>>499000)
dtext 70 90 0481 Tamam
else
dtext 70 90 0481 Yetersiz Para
endif
//////////////////////////////////////
if <src.rescount(i_gold).amount>>499000)
button 50 90 210 211 1 0 1
else
endif
////////////////////////////////////
[dialog d_borc_ode5 button]
onbutton=1
if !(<src.restest 500000 i_gold>)
src.syshata Suanda Yaninizda Borcunuzu Oducek Kadar Para Yok. [ 500k ]
else
src.consume 50000 i_gold
src.consume 50000 i_gold
src.consume 50000 i_gold
src.consume 50000 i_gold
src.consume 50000 i_gold
src.consume 50000 i_gold
src.consume 50000 i_gold
src.consume 50000 i_gold
src.consume 50000 i_gold
src.consume 50000 i_gold
src.findid.i_borc_para5.remove
src.tag.borcpara5 0
endif
return 1
[itemdef i_borc_para1]
name Borc Para1
id i_memory
type t_eq_script
weight 0
on=@create
attr attr_invis | attr_decay
return 1
on=@equip
timer 60*60*24*5
src.sysmessage @0800 Borcunuzu 5Gun Icersininde Odemeniz Lazim
return 1
on=@unequip
src.newitem i_borc_ceza
src.act.equip
return 1
on=@timer
attr attr_decay
cont.go jail
remove
return 1
[itemdef i_borc_para2]
name Borc Para2
id i_memory
type t_eq_script
weight 0
on=@create
attr attr_invis | attr_decay
return 1
on=@equip
timer 60*60*24*5
src.sysmessage @0800 Borcunuzu 5Gun Icersininde Odemeniz Lazim
return 1
on=@unequip
src.newitem i_borc_ceza
src.act.equip
return 1
on=@timer
attr attr_decay
cont.go jail
remove
src.newitem i_borc_ceza
src.act.equip
return 1
[itemdef i_borc_para3]
name Borc Para3
id i_memory
type t_eq_script
weight 0
on=@create
attr attr_invis | attr_decay
return 1
on=@equip
timer 60*60*24*5
src.sysmessage @0800 Borcunuzu 5Gun Icersininde Odemeniz Lazim
return 1
on=@unequip
src.newitem i_borc_ceza
src.act.equip
return 1
on=@timer
attr attr_decay
cont.go jail
remove
src.newitem i_borc_ceza
src.act.equip
return 1
[itemdef i_borc_para4]
name Borc Para4
id i_memory
type t_eq_script
weight 0
on=@create
attr attr_invis | attr_decay
return 1
on=@unequip
src.newitem i_borc_ceza
src.act.equip
return 1
on=@equip
timer 60*60*24*5
src.sysmessage @0800 Borcunuzu 5Gun Icersininde Odemeniz Lazim
return 1
on=@timer
attr attr_decay
cont.go jail
remove
src.newitem i_borc_ceza
src.act.equip
return 1
[itemdef i_borc_para5]
name Borc Para5
id i_memory
type t_eq_script
weight 0
on=@create
attr attr_invis | attr_decay
return 1
on=@unequip
src.newitem i_borc_ceza
src.act.equip
return 1
on=@equip
timer 60*60*24*5
src.sysmessage @0800 Borcunuzu 5Gun Icersininde Odemeniz Lazim
return 1
on=@timer
attr attr_decay
cont.go jail
remove
src.newitem i_borc_ceza
src.act.equip
return 1
[plevel 1]
borcal
[function borcal]
if (<src.tag0.borcpara1>)=1
src.sdialog d_borc_ode1
else
if (<src.tag0.borcpara2>)=1
src.sdialog d_borc_ode2
else
if (<src.tag0.borcpara3>)=1
src.sdialog d_borc_ode3
else
if (<src.tag0.borcpara4>)=1
src.sdialog d_borc_ode4
else
if (<src.tag0.borcpara5>)=1
src.sdialog d_borc_ode5
else
if <EVAL(<create> / 86400)><7
smg Borc Alabilmeniz Icin 7gun Aradan Gecmesi Lazim.
return 1
else
src.dialog d_borc
return 1
endif
[DIALOG d_borc]
0,0
nomove
resizepic 10 10 3600 400 300
//////////////////////////////
dtext 115 15 0821 Borc Para Sistemi
////////////////////////////////
dtext 25 55 0481 Adiniz :
dtext 25 75 0481 Soyadiniz :
dtext 25 95 0481 Borc Para :
dtext 25 115 0481 Odencek Gun : En Fazla 5gun Icerisinde Odenmeli -
dtext 115 135 0481 Aksi Taktirde - [ Jail ] Yiyeceksiniz...!!
dtext 55 155 0481 Borc Al
////////////////////////////////
dtext 130 95 0481 100k
dtext 180 95 0481 200k
dtext 230 95 0481 300k
dtext 280 95 0481 400k
dtext 330 95 0481 500k
//////////////////////////////
checkbox 110 95 210 211 0 0
checkbox 160 95 210 211 0 1
checkbox 210 95 210 211 0 2
checkbox 260 95 210 211 0 3
checkbox 310 95 210 211 0 4
/////////////////////////////
button 25 155 210 211 1 0 1
//////////////////////////////
[dialog d_borc button]
onbutton=1
if (<src.tag0.borcpara1>)=1
src.syshata Daha Onceden Para Almissiniz.
else
if (<src.tag0.borcpara2>)=1
src.syshata Daha Onceden Para Almissiniz.
else
if (<src.tag0.borcpara3>)=1
src.syshata Daha Onceden Para Almissiniz.
else
if (<src.tag0.borcpara4>)=1
src.syshata Daha Onceden Para Almissiniz.
else
if (<src.tag0.borcpara5>)=1
src.syshata Daha Onceden Para Almissiniz.
else
IF (<argchk>==1)
IF (<argchk[0]>==1)
src.newitem i_borc_para1
src.act.equip
src.newitem i_gold
src.act.amount 50000
src.act.bounce
src.act.dupe 1
src.tag.borcpara1 1
ENDIF
IF (<argchk[1]>==1)
src.newitem i_borc_para2
src.act.equip
src.newitem i_gold
src.act.amount 50000
src.act.bounce
src.act.dupe 3
src.tag.borcpara2 1
ENDIF
IF (<argchk[2]>==1)
src.newitem i_borc_para3
src.act.equip
src.newitem i_gold
src.act.amount 50000
src.act.bounce
src.act.dupe 5
src.tag.borcpara3 1
ENDIF
IF (<argchk[3]>==1)
src.newitem i_borc_para4
src.act.equip
src.newitem i_gold
src.act.amount 50000
src.act.bounce
src.act.dupe 7
src.tag.borcpara4 1
ENDIF
IF (<argchk[4]>==1)
src.newitem i_borc_para5
src.act.equip
src.newitem i_gold
src.act.amount 50000
src.act.bounce
src.act.dupe 9
src.tag.borcpara5 1
ENDIF
else
src.syshata Sadece 1 Tane Secebilirsin.
return 1
///////////////////////////////////////
Guzel Bir Borc Para Alma Sistemi..
Soyle Calısıor .borcal Diorsun - Acılan Ekrandan Para Secip Alıorsun
ve 5gun icinde odemezsen 5 gun boyunca oyuna giremiorsun
+7 Gunluk Olmayan Charlar Para Alamior...!!!!!
/////////////////////////////////////////////////////////
Bu Script'i Ekledikten Sonra.
Fix.Scp'sinde Ayar Yapılcak Olay Soyle;
[events fix]
on=@login
if (<src.findid.i_borc_ceza>)
src.syshata 5 Gunluk Cezaniz Bitene Kadar Oyuna Girmeniz Yasaklanmistir.
newitem i_borc_dis
act.equip
else
xxxxxxxxxxxx Gerisi Neyse
Yarına Kadar Girmm Sorunları Buraya Yazın Yarın Bakarım -- Sorunları Fixleriz...
