//////////////////////////////ULTİMA ONLİNE BARBUT ZAR//////////////////////////////
///////////////////////////TASARIM YILMAZ CAN (-MAHSUNİ-)///////////////////////////////////////
///////////////////////TARİH : 3.07.2021 /////////////////////////////////////////
[PLEVEL 1]
BARBUT
[FUNCTION BARBUT]
SRC.F_DIALOG D_KUMARCI
[DIALOG d_Kumarci]
0,100
nomove
resizepic 170 170 3000 320 270
dtext 265 190 38 Kredi Barbut Sistemi
dtext 210 210 68 Kurallar 2 ile 12 Arasi Bir Zar Seçilir
dtext 210 230 68 Sistem Hesaptaki Kredi ile Oynanır
dtext 210 250 68 Kredi Bahis'inizi SeÇersiniz
dtext 210 270 68 Kazanan Seçtigi Bahisin 5 Katı Kredi Alır
dtext 210 290 68 Kaybeden Bahis Kadar Kredi Kaybeder
dtext 240 408 250 Tasarım : Zedikus Zuu Zorender
if !(<src.dtag0.bahis>)
resizepic 310 320 9350 140 25
dtextentry 315 322 958 958 0455 1 Toplam Zar Seç?
dtext 210 322 38 2 ile 12 Arası
Else
resizepic 310 320 9350 140 25
dtextentry 315 322 958 958 0455 1 <src.dtag0.bahis>
dtext 210 322 38 2 ile 12 Arası
Endif
if !(<src.dtag0.bahisfiyat>)
resizepic 310 350 9350 140 25
dtextentry 315 352 958 958 0460 2 Kredi Bahsi Seç?
dtext 210 352 38 Yatiracagin
Else
resizepic 310 350 9350 140 25
dtextentry 315 352 958 958 0460 2 <src.dtag0.bahisfiyat>
dtext 210 352 38 Yatiracagin
Endif
button 240 380 11280 11284 1 0 1
dtext 265 380 68 Oynamaya BaşLa!!
[DIALOG d_Kumarci button]
on=0
on=1
if !((<isnum <argtxt[1]>>))
src.sysmessage @07a1,1,1 Toplam Zar Sadece Rakam Seçebilirsiniz.
return 1
endif
if !((<isnum <argtxt[2]>>))
src.sysmessage @07a1,1,1 Kredi Bahis Sadece Rakam Seçebilirsiniz.
return 1
endif
if (<argtxt[1]> <2)
src.sysmessage @07a1,1,1 2 ile 12 Arası Bir Zar Seçebilirsiniz.
return 1
endif
if (<argtxt[1]> >12)
src.sysmessage @07a1,1,1 2 ile 12 Arası Bir Zar Seçebilirsiniz.
return 1
endif
if (<src.dtag0.puan> < <argtxt[2]>)
src.sysmessage @07a1,1,1 Hesabınızda <argtxt[2]> Kredi Bulunmuyor.
return 1
endif
if (<src.findid.i_kumar_Suresi>)
src.sysmessage @38,1,1 Tekrar Zar Atabilmek için <eval <src.findid.i_kumar_suresi.timer>> Saniye Daha Beklemelisiniz.
src.f_dialog d_kumarci
return 1
endif
src.tag0.bahis=<argtxt[1]>
src.tag0.bahisfiyat=<argtxt[2]>
src.sysmessage @38,1,1 Oynamaya Başladınız.
src.f_dialog d_Baba
src.f_dialog D_kumarci
serv.newitem i_kumar_suresi
new.equip
new.timer=5
[DIALOG d_Baba]
350,100
nomove
resizepic 170 170 3000 179 80
resizepic 185 185 3000 49 49
resizepic 285 185 3000 49 49
Dorand 6
var0.Zar=11280
var0.Zar=11281
var0.Zar=11282
var0.Zar=11283
var0.Zar=11284
var0.Zar=11285
enddo
Dorand 6
var0.Zar1=11280
var0.Zar1=11281
var0.Zar1=11282
var0.Zar1=11283
var0.Zar1=11284
var0.Zar1=11285
enddo
gumppic 200 200 <dvar0.zar>
gumppic 300 200 <dvar0.zar1>
if (<dvar0.zar>==11280)
src.tag0.zar=1
Endif
if (<dvar0.zar>==11281)
src.tag0.zar=2
Endif
if (<dvar0.zar>==11282)
src.tag0.zar=3
Endif
if (<dvar0.zar>==11283)
src.tag0.zar=4
Endif
if (<dvar0.zar>==11284)
src.tag0.zar=5
Endif
if (<dvar0.zar>==11285)
src.tag0.zar=6
Endif
if (<dvar0.zar1>==11280)
src.tag0.zar1=1
Endif
if (<dvar0.zar1>==11281)
src.tag0.zar1=2
Endif
if (<dvar0.zar1>==11282)
src.tag0.zar1=3
Endif
if (<dvar0.zar1>==11283)
src.tag0.zar1=4
Endif
if (<dvar0.zar1>==11284)
src.tag0.zar1=5
Endif
if (<dvar0.zar1>==11285)
src.tag0.zar1=6
Endif
Local.Zar1=<src.dtag0.zar>
Local.Zar2=<src.dtag0.zar1>
Local.Toplam=<src.dtag0.zar>+<src.dtag0.zar1>
src.emote Toplam : <Dlocal.toplam>
Src.emote <dLocal.Zar1> * <dLocal.Zar2>
src.tag0.zartopla=<dlocal.toplam>
Local.kaybet=<src.dtag0.bahisfiyat>
Local.Kazan=<Eval (<src.dtag0.bahisfiyat>*100)/20>
if (<src.dtag0.bahis>==<src.dtag0.zartopla>)
SRC.TAG0.PUAN +=<dlocal.kazan>//<src.dtag0.bahisfiyat>
src.emote Tebrikler <dlocal.kazan> Kredi Kazandınız
src.effect=3,i_fx_heal_effect,6,35,1
Endif
if !(<src.dtag0.bahis>==<src.dtag0.zartopla>)
SRC.TAG0.PUAN -=<dlocal.kaybet>
src.emote <dlocal.kaybet> Kredi Kaybettiniz
Src.sysmessage @07a1,1,1 Malesef Kumarda Bastıgınız Bahisi Kaybettiniz.
src.effect=3,i_fx_heal_effect,6,35,1
Endif
[FUNCTION F_DIALOG]
DIALOGCLOSE <args>
DIALOG <args>
[itemdef I_Kumar_suresi]
name Kumar Bekle
id 0186h
type t_eq_script
weight 0
layer layer_special
on=@equip
timer=10
on=@create
timer=10
on=@timer
remove
return 1
