/////Scripter : Nimbreth (Nimbreth@windowslive.com)(MSN değildir.E-posta için kullanınız.)
////Tarih : 16 Haziran 2008 Saat 19:45///
///3-2 yenip tarih yazdigimiz Biten Turkiye - Cek  macinin ardindan gece yazilmaya baslanip ertesi gun bitirilmistir.
//Quest: Capture The Flag (CTF)
///Bu scriptin tamamı test edilmemiştir.Lütfen sorunlar ve önerliler için benimle iletişime geçiniz.
//---------------------------------------------------------------------------
//---------------------------------------
///         Koordinatlar                |
//--------------------------------------|
//6119,360,-22,0=Beyaz takim base       |
//6116,277,22,0=Kirmizi takim base      |
//6120,277,22,0=Kırmızı Bayrak          |
//6121,356,-22,0=Beyaz bayrak           |
//---------------------------------------

[itemdef i_stonebirak]
id i_memory
name Stone cikaranzie
on=@create
attr attr_decay|attr_invis
timerf 6,src.stonebirak
//
//CTF Eventz
//
[EVENTS e_ctfkirmizi]
on=@click
message @0800 [Capture The Flag]
//
on=@death
if (<src.findlayer(2).baseid>==i_bayrak_kirmizi)
src.findlayer(2).remove
src.newitem i_bayrak_kirmizi
new.drop
var0.kirmiziyerde 1
serv.allclients sysmessage @55,,1 Kirmizi bayrak dusuruldu !!!
endif

if (<eval <var0.kirpuan>> <199)//Bitis puanı belirlenecek..
var0.kirpuan +=1
src.stone 1
src.timerf 1,src.fix1
else
f_kirkazan//Yeterli puana ulasilmistir.CTF biter...Kirmizilar kazanir.
return 1
endif
//
on=@spelleffect
f_fizzle
src.sysmessage @38,,1 Bu alanda buyu atamazsiniz.
return 1
//
on=@spellcast
src.sysmessage @38,,1 Bu alanda buyu atamazsiniz.
f_fizzle
return 1
//
on=@unequip
if (<act.id>==i_studded_gloves1) || (<act.id>==i_studded_sleeves1) || (<act.id>==i_studded_leggings1) || (<act.id>==i_studded_tunic1) || (<act.id>==i_studded_gorget1) || (<act.id>==i_bayrak_beyaz>)
src.sysmessage @38,,1 Bunu yapamazsiniz.
act.equip
return 1
endif
//
[EVENTS e_ctfbeyaz]
on=@click
message @0800 [Capture The Flag]
//
on=@death
if (<src.findlayer(2).baseid>==i_bayrak_kirmizi)
src.findlayer(2).remove
src.newitem i_bayrak_kirmizi
new.drop
var0.kirmiziyerde 1
serv.allclients sysmessage @55,,1 Kirmizi bayrak dusuruldu !!!
endif

if (<eval <var0.kirpuan>> <199)//Bitis puanı belirlenecek..
var0.kirpuan +=1
src.stone 1
src.timerf 1,src.fix1
else
f_kirkazan//Yeterli puana ulasilmistir.CTF biter...Kirmizilar kazanir.
return 1
endif
//
on=@spelleffect
f_fizzle
src.sysmessage @38,,1 Bu alanda buyu atamazsiniz.
return 1
//
on=@spellcast
src.sysmessage @38,,1 Bu alanda buyu atamazsiniz.
f_fizzle
return 1
//
if (<act.id>==i_studded_gloves1) || (<act.id>==i_studded_sleeves1) || (<act.id>==i_studded_leggings1) || (<act.id>==i_studded_tunic1) || (<act.id>==i_studded_gorget1) || (<act.id>==i_bayrak_kirmizi>)
src.sysmessage @38,,1 Bunu cikaramazsiniz.
act.equip
return 1
endif
//
//FUNCTIONZ
//plvl ayarları...
[plevel 7]
yenicanta
f_ctfcikar
ctfstoneac
f_kirkazan
f_beykazan
taggost
fix1
[plevel 3]
ctfbaslat
//
[function fix1]
src.resurrect 1
src.stone 1
src.go 6119,360,-22,0
src.hits <src.str>
src.stam <src.dex>
if (<isevent.e_ctfbeyaz>)
src.findid.i_robe_ctfbey.equip
src.findid.i_studded_gloves1.equip
src.findid.i_studded_tunic1.equip
src.findid.i_studded_leggings1.equip
src.findid.i_studded_sleeves1.equip
src.findid.i_studded_gorget1.equip
elseif (<isevent.e_ctfkirmizi>)
src.findid.i_robe_ctfkir.equip
src.findid.i_robe_ctfbey.equip
src.findid.i_studded_gloves1.equip
src.findid.i_studded_tunic1.equip
src.findid.i_studded_leggings1.equip
src.findid.i_studded_sleeves1.equip
src.findid.i_studded_gorget1.equip
endif
src.newitem i_stonebirak
src.act.bounce
//
[function stonebirak]
stone 0
findid.i_stonebirak.remove
//
[function yenicanta]
src.newitem i_backpack
new.cont <src.uid>
[function taggost]
src.sysmessage @0800 STRTAG :<eval <tag0.str1>>
src.sysmessage @0800 DEXTAG :<eval <tag0.dex1>>
src.sysmessage @0800 INTTAG :<eval <tag0.int1>>
//
[function f_ctfcikar]
findlayer(1).remove
findlayer(2).remove
findlayer(3).remove
findlayer(4).remove
findlayer(5).remove
findlayer(6).remove
findlayer(7).remove
findlayer(8).remove
findlayer(9).remove
findlayer(10).remove
findlayer(11).remove
findlayer(12).remove
findlayer(13).remove
findlayer(14).remove
findlayer(15).remove
findlayer(16).remove
findlayer(17).remove
findlayer(18).remove
findlayer(19).remove
findlayer(20).remove
//findlayer(21).remove//Canta
findlayer(22).remove
findlayer(23).remove
findlayer(layer_pack).empty
findlayer(layer_pack).dclick
//
[function ctfbaslat]
var0.beypuan 0
var0.kirpuan 0
src.newitem i_ctf_gate
new.p safe
new.timer <args>
serv.allclients sysmessage @55,,1 Capture The Flag(CTF) Yapilacaktir.Katilim gate'i safe alana acilmistir.Katilim suresi <eval <args>/60> Dakikadir.
//
[function ctfstoneac]
serv.allclients ctfstoneac1
[function ctfstoneac1]
if (<tag0.ctf>==1)
stone 0
endif
//
[function f_kirkazan1]//Kirmizilarin kazanma func.
var0.kirkacirildi 0
var0.beykacirildi 0
var0.beyazyerde 0
var0.kirmiziyerde 0
if (<isevent.e_ctfkirmizi>)
events -e_ctfkirmizi
tag0.ctf 0
f_ctfcikar
sysmessage @38,,1 CTF'de takiminiz galip geldi.Hediyeniz olan 15 bilet bankaniza konulmustur.Tebrik ederiz.
//Statları eski haline getir
STR=<eval <TAG0.STR1>>
HITPOINTS=<eval <TAG0.STR1>>
DEX=<eval <TAG0.DEX1>>
STAMINA=<eval <TAG0.DEX1>>
INT=<eval <TAG0.INT1>>
MANA=<eval <TAG0.INT1>>
go safe
newitem i_bilet,15
new.cont <findlayer(layer_bankbox)>
return 1
elseif (<isevent.e_ctfbeyaz>)
events -e_ctfbeyaz
tag0.ctf 0
f_ctfcikar
sysmessage @38,,1 CTF'de takiminiz maglup oldu.Odul kazanamadiniz.Iyi eglenceler.
STR=<eval <TAG0.STR1>>
HITPOINTS=<eval <TAG0.STR1>>
DEX=<eval <TAG0.DEX1>>
STAMINA=<eval <TAG0.DEX1>>
INT=<eval <TAG0.INT1>>
MANA=<eval <TAG0.INT1>>
go safe
return 1
endif
//
[function f_kirkazan]//Kirmizilarin kazanma func.
serv.allclients f_kirkazan1
//
//
[function f_beykazan1]//Beyazlarin kazanma func.
var0.kirkacirildi 0
var0.beykacirildi 0
var0.beyazyerde 0
var0.kirmiziyerde 0
if (<isevent.e_ctfbeyaz>)
events -e_ctfbeyaz
tag0.ctf 0
f_ctfcikar
sysmessage @38,,1 CTF'de takiminiz galip geldi.Hediyeniz olan 15 bilet bankaniza konulmustur.Tebrik ederiz.
//Statları eski haline getir
STR=<eval <TAG0.STR1>>
HITPOINTS=<eval <TAG0.STR1>>
DEX=<eval <TAG0.DEX1>>
STAMINA=<eval <TAG0.DEX1>>
INT=<eval <TAG0.INT1>>
MANA=<eval <TAG0.INT1>>
go safe
newitem i_bilet,15
new.cont <findlayer(layer_bankbox)>
return 1
elseif (<isevent.e_ctfkirmizi>)
events -e_ctfkirmizi
tag0.ctf 0
f_ctfcikar
sysmessage @38,,1 CTF'de takiminiz maglup oldu.Odul kazanamadiniz.Iyi eglenceler.
STR=<eval <TAG0.STR1>>
HITPOINTS=<eval <TAG0.STR1>>
DEX=<eval <TAG0.DEX1>>
STAMINA=<eval <TAG0.DEX1>>
INT=<eval <TAG0.INT1>>
MANA=<eval <TAG0.INT1>>
go safe
return 1
endif
//
[function f_beykazan]//Beyazlarin kazanma func.
serv.allclients f_beykazan1
//
//KIRMIZI
//
[itemdef i_base_kirmizi]
id i_grave_stone
name Kirmizi Takim Base
on=@create
color 080a
attr attr_move_never
retrun 1
//
on=@click
message @0800 Beyazlar : <eval <var0.beypuan>> Kirmizilar : <eval <var0.kirpuan>>
message @080a <name>
return 1
on=@dclick
if !(<var0.kirkacirildi>==0)
src.sysmessage @55,,1 Kendi bayraginiz kacirilmis durumda !
return 1
else
if (<src.findlayer(2).baseid>==i_bayrak_beyaz)
serv.allclients sysmessage @55,,1 Kirmizi takim Beyaz bayragi baselerine ulastirmayi basardi !!! Kirmizi takima 50 puan !
var0.kirpuan +=50
src.findlayer(2).remove
if (<eval <var0.kirpuan>> <199)
src.newitem i_bayrak_beyaz
new.p 6121,356,-22,0//Yeni beyaz bayrak yerine gonderiliyor..
var0.beykacirildi 0
return 1
else
f_kirkazan
return 1
endif
endif
endif
//
[function f_kirmizihazirla]
src.newitem i_arrow,250
src.act.bounce
//
src.allskills 1000
//
src.newitem i_bandage,5
src.act.bounce
//
src.newitem i_katana_force
new.name CTF Katana
new.color 080a
src.act.bounce
//
src.newitem i_bow_elven
new.name CTF Bow
new.color 080a
src.act.bounce
//
src.newitem i_spear_force
new.name CTF Spear
new.color 080a
src.act.bounce
//
src.newitem i_studded_gloves1
new.color 080a
new.attr attr_move_never|attr_static
src.act.equip
//
src.newitem i_studded_gorget1
new.color 080a
new.attr attr_move_never
src.act.equip
//
src.newitem i_studded_tunic1
new.color 080a
new.attr attr_move_never
src.act.equip
//
src.newitem i_studded_sleeves1
new.color 080a
new.attr attr_move_never
src.act.equip
//
src.newitem i_studded_leggings1
new.color 080a
new.attr attr_move_never
src.act.equip
//
src.newitem i_robe_ctfkir
new.attr attr_move_never
src.act.equip
src.sysmessage @55,,1 CTF Yarismasina katildiniz.Kirmizi takimda yer alacaksiniz.
//
[ITEMDEF i_robe_ctfkir]
ID=01f03
NAME=CTF Fire Robe
WEIGHT=0

ON=@Create
COLOR=080a
HITPOINTS=2000

ON=@Dclick
SRC.EQUIP

ON=@Equip
SRC.STR=100
SRC.HITPOINTS=100
SRC.DEX=100
SRC.STAMINA=100
SRC.INT=100
SRC.MANA=100

ON=@Unequip
src.sysmessage @38,,1 Bunu cikaramazsiniz.
src.act.equip
return 1
//
//BEYAZ
//
[itemdef i_base_beyaz]
id i_grave_stone
name Beyaz Takim Base
on=@create
color 0480
attr attr_move_never
retrun 1
//
on=@click
message @0800 Beyazlar : <eval <var0.beypuan>> Kirmizilar : <eval <var0.kirpuan>>
message @38,,1 <name>
return 1
//
on=@dclick
if !(<var0.beykacirildi>==0)
src.sysmessage @55,,1 Kendi bayraginiz kacirilmis durumda !
return 1
else
if (<src.findlayer(2).baseid>==i_bayrak_kirmizi)
serv.allclients sysmessage @55,,1 Beyaz takim Kirmizi bayragi baselerine ulastirmayi basardi !!! Kirmizi takima 50 puan !
var0.beypuan +=50
src.findlayer(2).remove
if (<eval <var0.beypuan>> <200)
src.newitem i_bayrak_kirmizi
new.p 6121,356,-22,0//Yeni beyaz kirmizi yerine gonderiliyor..
var0.kirkacirildi 0
return 1
else
f_beykazan
return 1
endif
endif
endif
//
[itemdef i_bayrak_beyaz]
id i_bardiche
name Beyaz Bayrak
on=@create
color 0480
attr attr_move_never
return 1
//
on=@click
message @0800 <name>
return 1
//
on=@dclick
if (<DISTANCE> >3)
src.sysmessage @38,,1 Bayraga en fazla 3 kare uzakliktayken kacirabilirsiniz !
return 1
elseif (<isevent.e_ctfbeyaz>) && (<var0.beyazyerde>==1)
src.act.remove
src.newitem i_bayrak_beyaz
new.p 6121,356,-22,0
serv.allclients sysmessage @55,,1 Beyaz bayrak beyaz takim oyuncusu tarafindan base'e donduruldu !
var0.beyazyerde 0
return 1
elseif (<isevent.e_ctfkirmizi>)
var0.beykacirildi 1
equip
serv.allclients sysmessage @55,,1 Dikkat Beyaz bayrak kacirildi !!!
return 1
endif
//
on=@unequip
return 1
//
[function f_beyazhazirla]
src.newitem i_arrow,250
src.act.bounce
//
src.allskills 1000
//
src.newitem i_bandage,5
src.act.bounce
//
src.newitem i_katana_force
new.name CTF Katana
new.color 0480
src.act.bounce
//
src.newitem i_bow_elven
new.name CTF Bow
new.color 0480
src.act.bounce
//
src.newitem i_spear_force
new.name CTF Spear
new.color 0480
src.act.bounce
//
src.newitem i_studded_gloves1
new.color 0480
new.attr attr_move_never
src.act.equip
//
src.newitem i_studded_gorget1
new.color 0480
new.attr attr_move_never
src.act.equip
//
src.newitem i_studded_tunic1
new.color 0480
new.attr attr_move_never
src.act.equip
//
src.newitem i_studded_sleeves1
new.color 0480
new.attr attr_move_never
src.act.equip
//
src.newitem i_studded_leggings1
new.color 0480
new.attr attr_move_never
src.act.equip
//
src.newitem i_robe_ctfbey
new.attr attr_move_never
src.act.equip
//
src.sysmessage @55,,1 CTF Yarismasina katildiniz.Beyaz takimda yer alacaksiniz.
//
//
[ITEMDEF i_robe_ctfbey]
ID=01f03
NAME=CTF Ice Robe
WEIGHT=0

ON=@Create
COLOR=0480
HITPOINTS=2000

ON=@Dclick
SRC.EQUIP

ON=@Equip
SRC.STR=100
SRC.HITPOINTS=100
SRC.DEX=100
SRC.STAMINA=100
SRC.INT=100
SRC.MANA=100
ON=@Unequip
src.sysmessage @38,,1 Bunu cikaramazsiniz.
equip
return 1
//
//
//Bayraklar & Base ayarları
[itemdef i_bayrak_kirmizi]
id i_bardiche
name Kirmizi Bayrak
on=@create
color 080a
attr attr_move_never
return 1
//
on=@click
message @0800 <name>
return 1
//
on=@dclick
if (<DISTANCE> >3)
src.sysmessage @38,,1 Bayraga en fazla 3 kare uzakliktayken kacirabilirsiniz !
return 1
elseif (<isevent.e_ctfkirmizi>) && (<var0.kirmiziyerde>==1)
src.act.remove
src.newitem i_bayrak_kirmizi
new.p 6120,277,22,0
serv.allclients sysmessage @55,,1 Kirmizi bayrak kirmizi takim oyuncusu tarafindan baselerine donduruldu.
var0.kirmiziyerde 0
var0.beykacirildi 0
return 1
elseif (<isevent.e_ctfbeyaz>)
var0.kirkacirdi 1
equip
serv.allclients sysmessage @55,,1 Dikkat Kirmizi bayrak kacirildi !!!
return 1
endif
//
on=@unequip
return 1
//
//
[itemdef i_ctf_gate]
//CTF Gate ..
id i_moongate_blue
name Capture The Flag Katilim
on=@create
attr attr_decay
return 1
on=@click
message @0800 [Kapanmasina : <eval <timer>/60> Dk.]
message <name>
return 1
//
on=@step
dclick
return 1
//
on=@dclick
if (<distance> >3)
src.sysmessage @38,,1 Cok uzaktasiniz.
return 1
elseif !(<src.findlayer(25)>==0)
src.sysmessage @38,,1 Binek ile katilamazsiniz.
return 1
endif
src.tag0.int1 <src.int>
src.tag0.dex1 <src.dex>
src.tag0.str1 <src.str>
if (<var0.beykatilan>==0)//Buaradan sonraki satırlar önce beyaza sonra kırmızıya ve sürekli bu sırayla devam edecek şekilde yarışmacıların takımlarını atar..
src.go 6119,360,-22,0
src.f_bankitem
src.yenicanta
src.stone 1
src.tag0.ctf 1
src.f_beyazhazirla
var0.beykatilan 1
src.events +e_ctfbeyaz
var0.ctfkatilimci +=1
else
src.go 6116,277,22,0
src.f_bankitem
src.yenicanta
src.stone 1
src.tag0.ctf 1
var0.beykatilan 0
src.f_kirmizihazirla
src.events +e_ctfkirmizi
var0.ctfkatilimci +=1
return 1
endif
//
on=@timer
serv.allclients sysmessage @55,,1 CTF Yarismasi katilimlari sonlanmistir.<eval <var0.ctfkatilimci>> kisi yarismaya katildi.Yarisma basliyor.Iyi eglenceler...
ctfstoneac
remove
return 1
//THE END//Saygılar...
[EOF]