///////////////////////////////////////////////////////////////////////
// *Scripter Name : -
// *Shard Name : The Rosario Game
// *Shard Address : www.rosario.gen.tr
// *Personal Address : www.raskolserna.com
// *Messenger and E-Mail : raskolserna@msn.com
// *Sphere Version : Specially 0.56b and maybe other releases
//
// *Bu kodlar TheRaskol tarafından yazılmış veya editlenmiştir.
// *The codes are written or were edited by TheRaskol (Raskol Serna).
///////////////////////////////////////////////////////////////////////

[itemdef i_slot_machine]
name slot machine
id i_grave_stone
type t_normal
weight 3000

On=@Create
attr 010
color 0846

on=@dclick

if (<src.hits> < 1 )
src.sysmessage @0845,1,1 Slot Machine'ini ölü iken kullanamazsınız!
return 1
        endif

if (<distance> > 2)
src.sysmessage @0845,1,1 Slot Machine'den uzaktasınız!
return 1
        endif

src.dialog d_slot_dialog
return 1

[DIALOG d_slot_dialog] // Main
160,80 // Position
nomove
noclose
resizepic 0 0 5100 275 200 // Curved Grey background
resizepic 10 10 3500 255 180 // Curved White background
dtext 65 30 1000 Slot Machine
dtext 55 55 900 Oynamak için tıklayınız.
dtext 54 75 950 ( Bir oyun: 7500 gp )
button 100 105 5571 5572 1 0 1 // basla
button 242 18 3 4 1 0 0

[DIALOG d_slot_dialog BUTTON]
ONBUTTON=0
ONBUTTON=1
slot_oyna

[function slot_oyna]
if (<findid.i_slot_timer>)
src.sysmessage @0845,1,1 Lütfen bekleyiniz!
return 1
endif
if (<SRC.RESTEST 7500 i_gold>)
CONSUME 7500 i_gold
update
elseif (<gp> >= 5000)
gpconsume 7500
update
else
src.sysmessage @0845,1,1 Bu oyun için 7500 gp gereklidir!
return 1
endif
newitem i_slot_timer
new.equip
return 1

[itemdef i_slot_timer]
name slot timer
id i_memory
type t_eq_script
weight 0

on=@create
attr attr_invis | attr_decay

on=@equip
timer 3
src.sfx 556
src.sysmessage @666,1,1 Yarışmaya başladınız.

on=@unequip
cont.slotmachine

on=@timer
attr attr_decay
remove

[function slotmachine]
dorand 7
var.birincislot 5545
var.birincislot 5557
var.birincislot 5557
var.birincislot 5563
var.birincislot 5569
var.birincislot 5573
var.birincislot 5587
enddo
dorand 7
var.ikincislot 5545
var.ikincislot 5557
var.ikincislot 5557
var.ikincislot 5563
var.ikincislot 5569
var.ikincislot 5573
var.ikincislot 5587
enddo
dorand 7
var.ucuncuslot 5545
var.ucuncuslot 5557
var.ucuncuslot 5557
var.ucuncuslot 5563
var.ucuncuslot 5569
var.ucuncuslot 5573
var.ucuncuslot 5587
enddo

if (<var.birincislot>=5545) && (<var.ikincislot>=5545) && (<var.ucuncuslot>=5545)
5545kazan
return 1
elseif ((<var.birincislot>=5545)&&(<var.ikincislot>=5545)) || ((<var.birincislot>=5545)&&(<var.ucuncuslot>=5545)) || ((<var.ikincislot>=5545)&&(<var.ucuncuslot>=5545))
5545ikili
return 1
endif

if (<var.birincislot>=5557) && (<var.ikincislot>=5557) && (<var.ucuncuslot>=5557)
5557kazan
return 1
elseif ((<var.birincislot>=5557)&&(<var.ikincislot>=5557)) || ((<var.birincislot>=5557)&&(<var.ucuncuslot>=5557)) || ((<var.ikincislot>=5557)&&(<var.ucuncuslot>=5557))
5557ikili
return 1
endif

if (<var.birincislot>=5563) && (<var.ikincislot>=5563) && (<var.ucuncuslot>=5563)
5563kazan
return 1
elseif ((<var.birincislot>=5563)&&(<var.ikincislot>=5563)) || ((<var.birincislot>=5563)&&(<var.ucuncuslot>=5563)) || ((<var.ikincislot>=5563)&&(<var.ucuncuslot>=5563))
5563ikili
return 1
endif

if (<var.birincislot>=5569) && (<var.ikincislot>=5569) && (<var.ucuncuslot>=5569)
5569kazan
return 1
elseif ((<var.birincislot>=5569)&&(<var.ikincislot>=5569)) || ((<var.birincislot>=5569)&&(<var.ucuncuslot>=5569)) || ((<var.ikincislot>=5569)&&(<var.ucuncuslot>=5569))
5569ikili
return 1
endif

if (<var.birincislot>=5573) && (<var.ikincislot>=5573) && (<var.ucuncuslot>=5573)
5573kazan
return 1
elseif ((<var.birincislot>=5573)&&(<var.ikincislot>=5573)) || ((<var.birincislot>=5573)&&(<var.ucuncuslot>=5573)) || ((<var.ikincislot>=5573)&&(<var.ucuncuslot>=5573))
5573ikili
return 1
endif

if (<var.birincislot>=5587) && (<var.ikincislot>=5587) && (<var.ucuncuslot>=5587)
5587kazan
return 1
elseif ((<var.birincislot>=5587)&&(<var.ikincislot>=5587)) || ((<var.birincislot>=5587)&&(<var.ucuncuslot>=5587)) || ((<var.ikincislot>=5587)&&(<var.ucuncuslot>=5587))
5587ikili
return 1
endif

var.slottxt Yarışmayı kaybettiniz!
src.sysmessage @0845,1,1 Yarışmayı kaybettiniz!
DIALOG d_slot_machine
return 1

[function 5545kazan]
var.slottxt Yarışmayı kazandınız.
dialog d_slot_machine
biletver 10000

[function 5545ikili]
var.slottxt Yarışmayı kazandınız.
dialog d_slot_machine
biletver 2000

[function 5557kazan]
var.slottxt Yarışmayı kazandınız.
dialog d_slot_machine
biletver 3000

[function 5557ikili]
var.slottxt Yarışmayı kazandınız.
dialog d_slot_machine
biletver 700

[function 5563kazan]
var.slottxt Yarışmayı kazandınız.
dialog d_slot_machine
biletver 5500

[function 5563ikili]
var.slottxt Yarışmayı kazandınız.
dialog d_slot_machine
biletver 1100

[function 5569kazan]
var.slottxt Yarışmayı kazandınız.
dialog d_slot_machine
biletver 6000

[function 5569ikili]
var.slottxt Yarışmayı kazandınız.
dialog d_slot_machine
biletver 1200

[function 5573kazan]
var.slottxt Yarışmayı kazandınız.
dialog d_slot_machine
biletver 6500

[function 5573ikili]
var.slottxt Yarışmayı kazandınız.
dialog d_slot_machine
biletver 1300

[function 5587kazan]
var.slottxt Yarışmayı kazandınız.
dialog d_slot_machine
biletver 7000

[function 5587ikili]
var.slottxt Yarışmayı kazandınız.
dialog d_slot_machine
biletver 1400

[DIALOG d_slot_machine]
130,80
nomove
noclose
resizepic 0 0 5100 340 235
resizepic 10 10 3500 320 215
gumppic 50 45 <eval <var.birincislot>>
gumppic 140 45 <eval <var.ikincislot>>
gumppic 230 45 <eval <var.ucuncuslot>>
dtext 85 120 0 <var.slottxt>
button 100 150 2714 2715 1 0 1
dtext 125 150 0 tekrar dene
button 100 175 2714 2715 1 0 0
dtext 125 175 0 bitir

[DIALOG d_slot_machine TEXT]

[DIALOG d_slot_machine BUTTON]
ONBUTTON=0
ONBUTTON=1
slot_oyna

[function biletver]
sfx 489
sysmessage @90,1,1 Tebrikler <argn> kadar bilet kazandınız.
effect 3,0376a,1,30,1
newitem i_reward_coin
new.amount <argn>
new.bounce

[eof]