|
[plevel 01]
kumar
[function kumar]
if <src.findid.i_kumaroynuyorum>
src.findid.i_kumaroynuyorum.remove
src.sysmessage @45,,1 Kumar oynamayi biraktiniz.
elif !(strmatch('<region.name>', 'Kumar Odasi')) && !(strmatch('<region.name>', 'Kumar Alani'))
src.sysmessage @38,6,1 Bu komutu sadece Kumar Odasinda kullanabilirsiniz..
else
src.sysmessage @0790,,1 Kumar oynamaya basladiniz.
serv.newitem i_kumaroynuyorum
new.equip
endif
[itemdef i_kumaroynuyorum]
id i_memory
name hedehodozebezubo
type t_eq_script
layer layer_special
on=@Create
timer 5
on=@Timer
if !(<cont.RESTEST 300 i_sp>)
cont.sysmessage @50,,1 Bu oyun icin 300 sp gerekiyor.
elif !(<cont.isevent.e_kumaralani>)
cont.sysmessage @38,,1 Kumar alaninda bulunmamaktasiniz.
else
cont.sysmessage @0790,,1 Kumar oynamaya basladiniz.
cont.CONSUME 300 i_sp
if (rand(3))
if <cont.findid.i_vipyimkanka>
serv.newitem i_sp,{1700 2900}
cont.bounce <new>
cont.sys_trk Kazandiniz. [VIP BONUS]
else
serv.newitem i_sp,{600 1000}
cont.bounce <new>
cont.sysmessage @0790,,1 Kazandiniz.
endif
else
cont.sysmessage @0790,,1 Kaybettiniz.
endif
endif
timer 5
return 1
[function kumar]
if <tag0.kumar>
tag0.kumar 0
sysmessage @20,,1 parti bitti kızlar şimdi eve.
timerf clear
else
tag0.kumar 1
sysmessage @,,1 kumar başladı, bol şans
timerf 5, f_kumar
endif
[function f_kumar]
if <gold> > 300
local.oran <r1,5>
if <dlocal.oran> == 1
local.kayip <r1,1000>
sysmessage @020,,1 kayebettiğiniz miktar: <dlocal.kayip>
else
gold -=<dlocal.kayip>
local.kazanc <r1,1000>
gold +=<dlocal.kazanc>
sysmessage @,,1 kazandığınız miktar: <dlocal.kazanc>
endif
timerf 5, f_kumar
else
sysmessage @020,,1 300 gp paran yok, defol
endif
|
|
| Konu | Kategori | Son cevap | Son yazan | Mesaj | Görüntüleme | |
|---|---|---|---|---|---|---|
|
|
Random Spawn sistemi yardım
Son cevap: 02-09 16:44 · Son yazan: Stark35 · Mesaj: 12 · Görüntü: 6133
|
Derleme Scriptler | 02-09 16:44 | 12 | 6133 | |
|
|
Server Açma Konusunda Yardım
Son cevap: 20-02 18:37 · Son yazan: Daedhelon · Mesaj: 14 · Görüntü: 7484
|
UO Yardım Alanı | 20-02 18:37 | 14 | 7484 | |
|
|
Debug hata yardım.
Son cevap: 28-09 18:30 · Son yazan: Gokku · Mesaj: 3 · Görüntü: 2404
|
Konsol Hataları | 28-09 18:30 | 3 | 2404 | |
|
|
Duello Hata Girmiyor Yardım
Son cevap: 01-05 21:18 · Son yazan: Eren19944 · Mesaj: 5 · Görüntü: 2438
|
Script Yardımı | 01-05 21:18 | 5 | 2438 | |
|
|
Connectör yardım pls
Son cevap: 07-05 15:39 · Son yazan: klotho · Mesaj: 2 · Görüntü: 2610
|
Ultima Online Genel | 07-05 15:39 | 2 | 2610 |