%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%Scp adı:zar_yarismasi_sistemi.scp                     %
%Yazar:Dryas                                           %
%İçerik:Zar yarışması event, gate, özellik ve çıkarıcı %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

//-> Vee Turnuva bitsin artık bizahmet. O kadar eziyet:)

[plevel 4]
zarbitir

[function zarbitir]
if (<src.tag.zar> == 0)
src.sysmessage @07a1,,1 Yapmadiginiz bir turnuvayi iptal edemezsiniz:).
return 1
else
src.tag.zar 0
serv.allclients sysmessage @07a1,,1 [Turnuva Anons]: Zar Turnuvasina katilan tum playerlara tesekkur ederiz.
src.findid.i_zar_turnuvasi_kazanan.remove
src.findid.i_zar_turnuvasi_at.remove
src.findid.i_zar_turnuvasi_kaybeden.remove
endif
return 1

//-> Zar turnuvası düzenleme fonksiyonu

[Plevel 4]
zaryap

[function zaryap]
if (<src.tag.zar> == 1)
src.sysmessage @07a1,,1 Ayni anda birden fazla yarisma yapamazsiniz.
else
src.tag.zar 1
src.newitem i_zar_turnuvasi_yapacagim
src.act.bounce
serv.allclients sysmessage @07a1,,1 [Turnuva Anons]: Zar Turnuvasi yapilacaktir.
serv.allclients sysmessage @07a1,,1 [Turnuva Anons]: 2.dk icinde safe alana gate acilacaktir.
return 1


//-> Zar turnuvası deedi

[itemdef i_zar_turnuvasi_yapacagim]
id i_deed
defname i_zar_turnuvasi_yapacagim
name Zar Turnuvasi Duzenleme Deedi

on=@create
color 0485
attr 010

on=@click
message @48,1,1,1 <serv.name> Turnuva Sistemi
message @98,,1 <name>
return 1

on=@dclick
src.dialog d_zaryarismasi
src.sysmessage @07a1,,1 Herkese basarilar ...
remove
return 1

//-> Turnuvanın Random Ödülü. Not:(Turnuvalar Ücretsiz Yapılacaktır.)

[itemdef i_zar_turnuvasi_odul]
defname i_zar_turnuvasi_odul
id i_deed
name Zar Turnuvasi Odulu

on=@create
color 09c9
attr attr_newbie

on=@click
message @48,1,1,1 <serv.name> Turnuva Sistemi
message @867,,1 <name>
return 1

on=@dclick
src.tag.kazanan 0
src.sysmessage @07a1,,1 Hediyeniz random olarak cantaniza dusmustur.
src.sysmessage @0799 Bu konu hakkinda atacaganiz pageler yanitsiz kalacaktir.
src.newitem {i_odul_1 1 i_odul_2 1 i_odul_3 1 i_odul_4 1}
src.act.bounce
remove
return 1

//-> Kazanan kişinin hediye alacağı taş.

[itemdef i_zar_turnuvasi_odul_tasi]
id i_grave_stone
defname i_zar_turnuvasi_odul_tasi
name Zar Turnuvasi Odul Tasi

on=@create
color 07b1
attr 010

on=@click
message @48,1,1,1 <serv.name> Turnuva Sistemi
message @867,,1 <name>
return 1

on=@dclick
if (<src.tag.kazanan> == 0)
src.sysmessage @07a1,,1 Sadece turnuvayi kazanan buradan odul alabilir.
else
src.newitem i_zar_turnuvasi_odul
src.act.bounce
serv.allclients sysmessage @07a1,,1 [Turnuva Anons]: Zar turnuvasini <src.name> kazanmistir. Kendisini tebrik ediyoruz.
src.tag.kazanan 0
src.go 5458,1230,3
endif
return 1

//-> Turnuvayı kazanan oyuncuyu bununla çıkaracagız.

[itemdef i_zar_turnuvasi_kazanan]
defname i_zar_turnuvasi_kazanan
id i_deed
name Turnuvada Kazanan Playeri Gonder

on=@create
color 0793
attr attr_newbie

on=@click
message @48,1,1,1 <serv.name> Turnuva Sistemi
message @0793 <name>
return 1

on=@dclick
target @07a1,,1 Turnuvayi kazanan kisiyi secin.
return 1

on=@targon_char
if (<link.tag.kazandi> == 1)
src.sysmessage @07a1,,1 Bir turnuvayi ayni anda iki kez kazanmis olamaz heralde :).
else
link <src.targ.uid>
link.go 5890,1941,1
link.events -zar_turnuvasi
link.tag.kazanan 1
endif
return 1

//-> Turnuvada kaybeden oyuncuyu göndermeyi saglayan cıkarıcı

[itemdef i_zar_turnuvasi_kaybeden]
defname i_zar_turnuvasi_kaybeden
id i_deed
name Turnuvada Kaybeden Playeri Gonder

on=@create
color 0798
attr attr_newbie

on=@click
message @48,1,1,1 <serv.name> Turnuva Sistemi
message @0798 <name>
return 1

on=@dclick
target @07a1,,1 Turnuvayi kaybeden kisiyi secin.
return 1

on=@targon_char
link <src.targ.uid>
link.go 5458,1230,3
link.events -zar_turnuvasi
//link.events +safe_alan
link.sysmessage @07a1,,1 Turnuvayi kaybettiniz.
return 1

//-> Turnuvadan atmak icin kullanılacak olan çıkarıcı

[itemdef i_zar_turnuvasi_at]
defname i_zar_turnuvasi_at
id i_deed
name Turnuvadan Player At

on=@create
color 0799
attr attr_newbie

on=@click
message @48,1,1,1 <serv.name> Turnuva Sistemi
message @500,,1 <name>
return 1

on=@dclick
target @07a1,,1 Turnuvadan defetmek istediginiz kisiyi secin.
return 1

on=@targon_char
link <src.targ.uid>
link.go 5458,1230,3
link.events -zar_turnuvasi
//link.events +safe_alan
link.sysmessage @07a1,,1 Turnuvadan atildiniz.
return 1

//-> Turnuvanın ana etapları.. Önce Anons, Komut ve gate

[function zarturnuvasiyapilacak]
if (<account.plevel> > 2)
src.newitem i_zar_turnuvasi_at
src.act.bounce
src.newitem i_zar_turnuvasi_kaybeden
src.act.bounce
src.newitem i_zar_turnuvasi_kazanan
src.act.bounce
src.invis
src.go 5919,1943,3
serv.allclients sysmessage @07a1,,1 [Turnuva Anons]: Zar turnuvasi katilimlari baslamistir.
serv.allclients sysmessage @07a1,,1 [Turnuva Anons]: Safe Alan'a gate acilmistir.
endif
return 1

[function zarturnuvasi]
src.newitem i_zar_turnuvasi_gate
src.act.p 5451,1230,1
return 1

[itemdef i_zar_turnuvasi_gate]
defname i_zar_turnuvasi_gate
id i_moongate_blue
name Zar Turnuvasi Gate

on=@create
timer 180
color 09c8

on=@click
message @48,1,1,1 <serv.name> Turnuva Sistemi
message @07a1,,1 <name>
message @0799 (Gate : <timer> saniye sonra kapanacak)
return 1

on=@timer
remove
serv.allclients sysmessage @07a1,,1 [Turnuva Anons]: Zar Turnuvasina katilimlar sona ermistir.

on=@dclick
src.sysmessage @07a1,,1 Lutfen uzerinden geciniz.
return 1

on=@step
src.stone
src.go 5915,1942,3
src.newitem i_stone_suresi_zar
src.act.equip
tag0.giris +=1
src.binekle_girenler_zar
src.events +zar_turnuvasi
//src.events -safe_alan

//-> Turnuvanın eventi

[events zar_turnuvasi]
on=@click
message @07a1,,1 [Zar Turnuvasi]
message <name>
return 1

on=@atack
src.sysmessage @07a1,,1 Bu alanda bunu yapamazsiniz.
return 1

on=@hittry
src.sysmessage @07a1,,1 Bu alanda bunu yapamazsiniz.
return 1

on=@skillstart
src.sysmessage @07a1,,1 Bu alanda bunu yapamazsiniz.
return 1

on=@skillabort
src.sysmessage @07a1,,1 Bu alanda bunu yapamazsiniz.
return 1

on=@spellcast
src.sysmessage @07a1,,1 Bu alanda bunu yapamazsiniz.
return 1

on=@logout
src.go 5918,1950
return 1

on=@itempickup_ground
src.sysmessage @07a1,,1 Bu alanda bunu yapamazsiniz.
return 1

on=@itempickup_pack
src.sysmessage @07a1,,1 Bu alanda bunu yapamazsiniz.
return 1

on=@userwarmode
src.sysmessage @07a1,,1 Bu alanda bunu yapamazsiniz.
return 1

//-> Sadece 3 dk stone kalacaksınız:) yarısma sırasında düşüp tekrar girenler hariç.

[ITEMDEF i_stone_suresi_zar]
ID=i_memory
TYPE=t_eq_script
NAME=Stone Suresi

on=@create
ATTR=attr_invis

on=@equip
TIMER=180

on=@timer
cont.stone 0
cont.sysmessage @07a1,,1 Stoneniz acilmistir.
remove

//-> Binek Olmasın.

[function binekle_girenler_zar]
if (<findlayer.25>)
tag.binekid <findlayer.25.more1>
tag.binekkarma <uid.<findlayer.25.more2>.karma>
tag.binekfame <uid.<findlayer.25.more2>.fame>
tag.binekfood <uid.<findlayer.25.more2>.food>
tag.binekcolor <uid.<findlayer.25.more2>.color>
tag.binekname <findlayer.25.name>

serv.newitem i_binek_zeka
new.tag.name <tag.binekname>
new.tag.fame <tag.binekfame>
new.tag.karma <tag.binekkarma>
new.tag.food <tag.binekfood>
new.tag.binekid <tag.binekid>
new.color <tag.binekcolor>
new.cont <findlayer(29).uid>
new.more2 1
findlayer.25.remove
else
return 1
endif

[itemdef i_binek_zeka]
id i_deed
type t_normal
weight 20.0
name Bineginiz

on=@click
if (<more2>
message  @07a1,,1 <tag.name>
return 1
else
message @0481,1 <name>
return 1
endif

on=@dclick
if (<more2>)
try src.newnpc <tag.binekid>
link <src.act.uid>
link.name <tag.name>
link.karma <tag.karma> 
link.fame <tag.fame>
link.food <tag.food>
link.color <color>

link.memorydel <src.uid>
link.newitem i_memory
link.act.attr 04
link.act.more1 04
link.act.more2 <serv.time>
link.act.morep <link.p>
link.act.color memory_ipet
link.act.timer -1
link.act.link <src.uid>
link.act.cont <link.uid>
link.flags <link.flags>&statf_pet
link.update
link.anim 5
link.bark 3
link.message @1156 Iyi oyunlar..
remove
endif

//-> Genel turnuva kuralları ve zar yarışması kuralları... etap-2

[dialog d_zarkurallar]
130,170
nomove
resizepic 0 0 3000 540 280
resizepic 5 5 9300 530 270

button 10 250 55 56 1 0 1

text 140 10 38 0
text 155 25 2000 1
text 10 45 2937 2
text 10 65 2937 3
text 10 85 2937 4
text 10 105 2937 5
text 10 125 2937 6
text 10 145 2937 7
text 10 165 2937 8
text 10 185 2937 9
text 10 205 2937 10
text 10 225 2000 11
text 25 249 38 12

[dialog d_zarkurallar text]
<serv.name> Pvp Turnuva Sistemi
Zar Turnuvasi Kurallari
-Staff asla gereksiz sekilde playerla muhatab olamaz.
-Sistem neredeyse otomatik.
-Elemek istediginiz playeri direk olarak gondermeyin. Cikarici kullanin.
-Player gateden gectiginde yarismaya hazir vaziyette olacaktir (stoneli)
-Unutmaki burada amac playerlari eglendirmek once onlar eglenecek.
-Kesinlikle serveri ayaklar altina alacak rezillikler cikarma.
-Hata kabullenilebilir ama bilincli rezillik asla.
-Ve ben bunu direk olarak okudugunu varsaymayacagim. :) onlem onlemdir.
-Iyi ve cekismeli bir turnuva olmasi dilegiyle. Kolay gelsin herkese:)
Imza Reynald Outlias Pvp Shard Scripter&Owner...
Okudum. Kurallara sadik kalacagim.

[dialog d_zarkurallar button]
onbutton=1
src.tag.kural 1
src.sysmessage @07a1,,1 Artik turnuvayi baslatabilirsiniz sayin <src.name> ! Basarilar.
src.dialog d_zaryarismasi
return 1

//-> Turnuvayı başlatmak için etap-1 Ana Menu.

[dialog d_zaryarismasi]
260,190
nomove
noclose
resizepic 0 0 3000 265 170
resizepic 5 5 9300 255 160
tilepic 200 125 4007
tilepic 200 105 4007 
tilepic 200 85 4007 
tilepic 180 85 4007 
tilepic 160 85 4007 
tilepic 140 85 4007 
tilepic 120 85 4007 
tilepic 100 85 4007 
tilepic 80 85 4007   
tilepic 60 85 4007   
tilepic 40 85 4007   
tilepic 20 85 4007   
tilepic 20 105 4007
tilepic 20 125 4007
tilepic 40 125 4007
tilepic 60 125 4007
tilepic 80 125 4007
tilepic 100 125 4007
tilepic 120 125 4007
tilepic 140 125 4007
tilepic 160 125 4007
tilepic 180 125 4007

button 45 65 55 56 1 0 1
button 50 105 55 56 2 0 2

text 25 10 38 0
text 27 36 2000 1
text 60 64 38 2
text 65 104 1153 3

[dialog d_zaryarismasi text]
<serv.name> Pvp Turnuva Sistemi
Turnuva Adi: Zar Turnuvasi
Turnuva'nin Kurallari
Turnuva'yi Baslat!!!

[dialog d_zaryarismasi button]
onbutton=1
if (<src.tag.kural> == 1)
src.sysmessage @07a1,,1 Bir kere okumaniz yeterlidir.
src.dialog d_zaryarismasi

else
src.dialog d_zarkurallar
src.sysmessage @07a1,,1 Kurallara uymaniz dilegiyle.
endif
return 1

onbutton=2
if (<src.tag.kural> == 0)
src.sysmessage @07a1,,1 Turnuvanin kurallarini okumadan turnuva baslatamazsiniz.
src.dialog d_zaryarismasi

else
src.tag.kural 0
src.zarturnuvasiyapilacak
src.zarturnuvasi
endif
return 1

//-> Deed her turnuva scp si icin icine ayrıca yazılacak. /Reynald

[itemdef i_odul_1] //-> 120 k para
id i_deed
defname i_odul_1
name Zar Turnuvasi Odulu (Random)

on=@create
color 080a
attr attr_newbie

on=@click
message @48,1,1,1 <serv.name> Turnuva Sistemi
message @867,,1 <name>
return 1

on=@dclick
src.newitem i_gold
new.amount 60000
src.act.bounce
src.paraversinadama
remove
return 1

[function paraversinadama]
src.newitem i_gold
new.amount 60000
src.act.bounce
return 1

[itemdef i_odul_2] -> 180 k para
id i_deed
defname i_odul_2
name Zar Turnuvasi Odulu (Random)

on=@create
color 080a
attr attr_newbie

on=@click
message @48,1,1,1 <serv.name> Turnuva Sistemi
message @867,,1 <name>
return 1

on=@dclick
src.paraversinadama
src.paraversinadama
src.paraversinadama
remove
return 1

[itemdef i_odul_3] -> 240 k para
id i_deed
defname i_odul_3
name Zar Turnuvasi Odulu (Random)

on=@create
color 080a
attr attr_newbie

on=@click
message @48,1,1,1 <serv.name> Turnuva Sistemi
message @867,,1 <name>
return 1

on=@dclick
src.paraversinadama
src.paraversinadama
src.paraversinadama
src.paraversinadama
remove
return 1

[itemdef i_odul_4] -> power katana
id i_deed
defname i_odul_4
name Zar Turnuvasi Odulu (Random)

on=@create
color 080a
attr attr_newbie

on=@click
message @48,1,1,1 <serv.name> Turnuva Sistemi
message @867,,1 <name>
return 1

on=@dclick
src.newitem i_katana_power
src.act.bounce
remove
return 1

[EOF]