Üye ol    Giriş
  1. UO Scriptleri
  2. Sphere Scripts
  3. Function
  4. Borc Para Sistemi
melih_aganiz

Borc Para Sistemi

[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

///////////////////////////////////////

Değerlendirmeler

0 0

Total votes: 0

Üye Ol veya Giriş Yap

Bu içeriğe yorum atmak istiyorsanız hemen üye olun veya giriş yapın.

Discord ile Bağlan
Twitch ile Bağlan
Steam ile Bağlan
Google ile Bağlan

Yorumlar (0)

Henüz yorum yapılmamış
Sadece kayıtlı kullanıcılar yeni yorum yapabilir.


Ultima-Strike Discord
Benzer Sayfalar