Futbol Sistem sorun

.futbolyap

//************************************************************
// Sunucu : xx
// Sunucu Site : xx
// Scripted/By : 
// Last Editör : Robellious 
// Sunucu Version : 0.56b-Nightly
// 
// Izinsiz kullanılması Yasaktır. Teşekkürler.
//************************************************************
// DOSYA SON GUNCELLEME: Salı, Nisan 28, 2009
//************************************************************

[plevel 1]
sut

[plevel 6]
santra

[function santra]
foritems 200
if (<baseid> == i_top)
remove
endif
endif
endfor
newitem i_top
act.drop
act.p 5935 ,1949
fix


[itemdef i_topcikarici]
id i_deed
name Top cikarici - ELLEMEYIN! /Robellious

on=@create
attr attr_invis
var.topcikarici <uid>
color 07a1

on=@timer
timer -1
SERV.NEWITEM i_top
new.p 5935,1949
//serv.allclients sysmessage @033,1,1 Top santrada!
region.allclients scrpozisyonal_
SERV.ALLCLIENTS SOUND 247

[function topsilw]
foritems 0
if (<baseid> == i_top)
remove
try uid.<var.topcikarici>.timer 5

fix
var.beyazgol +=1
serv.allclients sysmessage @07a1,1,1 Futbol Duyuru : Beyazlar gol attı! (Kırmızı: <eval <var.kirmizigol>> - Beyaz : <eval <var.beyazgol>>)
serv.allclients sysmessage @033,1,1 Top 5 saniye içinde santraya gidecek.
SERV.NEWITEM i_duyurucuu
new.p 5936,1952

tag.sahipuid 0
SERV.ALLCLIENTS SOUND 247
tag.sahipuid 0
endif
endfor
[function topsile]
foritems 0
if (<baseid> == i_top)
remove
try uid.<var.topcikarici>.timer 5
fix
var.kirmizigol +=1
serv.allclients sysmessage @07e5,1,1 Futbol Duyuru : Kırmızılar gol attı! (Kırmizi: <eval <var.kirmizigol>> - Beyaz : <eval <var.beyazgol>>)
serv.allclients sysmessage @033,1,1 Top 5 saniye içinde santraya gidecek.
SERV.NEWITEM i_duyurucuu
new.p 5936,1952

tag.sahipuid 0
SERV.ALLCLIENTS SOUND 247
tag.sahipuid 0
endif
endfor


[itemdef i_topsile]
name=Top Silici
id=i_rune_alchem_1
type=t_script
//COLOR=08b0
tag.gmsilemezdemisyucegcx 1

ON=@create
attr=attr_move_never|attr_invis
color=08b0
timer=1

ON=@timer
topsile
timer=1
return 1

ON=@dclick
return 1

on=@click
message @044,1,1 Bunlar top siliciler, lufen silmeyin!
return 1

on=@step
if (<src.dir> == 0)
src.move 0 1
elseif (<src.dir> == 1)
src.move -1 1
elseif (<src.dir> == 2)
src.move -1 0
elseif (<src.dir> == 3)
src.move -1 -1
elseif (<src.dir> == 4)
src.move 0 -1
elseif (<src.dir> == 5)
src.move 1 -1
elseif (<src.dir> == 6)
src.move 1 0
elseif (<src.dir> == 7)
src.move 1 1
endif
return 1


[itemdef i_topsilw]
name=Top Silici
id=i_rune_alchem_1
type=t_script
//COLOR=08b0
tag.gmsilemezdemisyucegcx 1

ON=@create
attr=attr_move_never|attr_invis
color=08b0
timer=1

ON=@timer
topsilw
timer=1
return 1

ON=@dclick
return 1

on=@click
message @07a1,1,1 Silen Otomatik olarak banlanır.
message @044,1,1 Bunlar top siliciler, lüfen silmeyin!
return 1

on=@step
if (<src.dir> == 0)
src.move 0 1
elseif (<src.dir> == 1)
src.move -1 1
elseif (<src.dir> == 2)
src.move -1 0
elseif (<src.dir> == 3)
src.move -1 -1
elseif (<src.dir> == 4)
src.move 0 -1
elseif (<src.dir> == 5)
src.move 1 -1
elseif (<src.dir> == 6)
src.move 1 0
elseif (<src.dir> == 7)
src.move 1 1
endif
return 1


[function topsilny]
foritems 3
if (<attr>&08010)
if (<type> == t_soccer_ball)
move n 1
endif
endif
endfor

[function futbolyap]
var.kirmizigol 0
var.beyazgol 0
var.scrfutbolyarismasivar 1
src.scrbitisscore 1

newitem i_gate_soccer
new.p 1965,2084

serv.allclients sysmessage @07a1,1,1 Futbol gate'i Safe Alan'da açılmıştır
if !(0<args>)
serv.allclients sysmessage @07a1,1,1 Giriş ücretsizdir..
else
serv.allclients sysmessage @07a1,1,1 Giriş ücreti <args> gold'dur..
endif
serv.allclients sysmessage @07a1,1,1 Gate 5 dakika sonra kapanacaktir..
serv.allclients sysmessage @07a1,1,1 Yarışma 5 dakika sonra veya 18 kişi girince otomatik olarak başlayacaktır..
serv.allclients sysmessage @07e5,1,1 Mod :[ Otomatik ]
serv.allclients sound 0100
serv.allclients sound 0102
serv.allclients sound 0103
var0.topuk_count 0
return 1





[itemdef i_gate_soccer]
id i_moongate_black
name Soccer

on=@create
Timer 120
color 1953
dispid i_moongate_blue
for x 1 50
tag.giren<dlocal.x> 0
endfor

on=@click
if (<timer> > 59)
message @07e5,1,1 <eval <timer>/60> dakika sonra kapanacak
else
message @07e5,1,1 <timer> Saniye sonra kapanacak
endif
message @07a1,1,1 Futbol Yarışması
return 1

on=@dclick
scrgiris__
inlor

on=@step
src.sysmessage @07a1,1,1 Gate'ye 2 kere tıkla <src.name>.
return 1
endif

on=@timer
serv.allclients sysmessage @07a1,1,1 Futbol maçı 10 saniye sonra başlıyor.
serv.allclients sound 256
try uid.<var.scrstarteruid>.morex 0
try uid.<var.scrstarteruid>.timer 10
remove
serv.newitem i_skorduyuruplss
new.p 5932,1961
return 1

[function scrgiris__]
if (<src.isgm>)
src.go green acres 3
return 1
endif

if (<distance> > 2)
src.sysmessage @07a1,1,1 Gate'e ulaşamıyorsunuz.
return 1
endif

if !(0<tag.girenuid18> == 0)
src.sysmessage @07a1,1,1 Yarışmaya maximum kişi olan 18 kişi zaten girmiş.
timer 1
return 1
endif


src.flags <src.flags>|statf_freeze

src.dialogclose d_helpstuck

src.binekolmasin
src.bankayolla
//src.blesslerisil
//src.memorylerisil

src.hits <src.str>
src.stam <src.dex>

dorand 2
src.__scryarismagiris2 0790
src.__scryarismagiris2 1948
enddo

for x 1 50
if (<tag.girenuid<eval <local.x>>> == 0)
serv.allclients sysmessage @07a1,1,1 <dlocal.x>. Kişi futbol yarışmasına girdi.
serv.allclients sysmessage @07a1,1,1 Futbol yarışmasının girişin kapanmasına ve yarışmanın başlamasına son <eval <timer>/60> dakika veya <eval 18-<local.x>> kişi.
tag.girenuid<eval <local.x>> <src.uid>
return 1
endif
endfor


[function __scryarismagiris2]
if (strmatch('<args>','0790'))
src.events e_scryarismabeyaz
src._scrgo__ beyaz
else
src.events e_scryarismakirmizi
src._scrgo__ kirmizi
endif

src.newitem i_scrforma
src.new.color <args>
src.new.equip

src.newitem i_scrshort
src.new.color <args>
src.new.equip

src.newitem i_scrkrampon
src.new.color <args>
src.new.equip

src.newitem i_scrbandana
src.new.color <args>
src.new.equip

src.newitem i_scrkatana
src.new.color <args>
src.new.bounce

src.newitem i_scrspear
src.new.color <args>
src.new.bounce

[function _scrgo__]
if strmatch('<args>','beyaz')

dorand 5
go 5961,1946
go 5961,1948
go 5961,1950
go 5959,1950
go 5959,1947
enddo

elseif strmatch('<args>','kirmizi')

dorand 5
go 5910,1945
go 5910,1948
go 5910,1950
go 5912,1951
go 5912,1949
enddo

endif

[function scrpozisyonal_]
if (<account.plevel> == 1)
go sorgu odasi
if (<isevent.e_scryarismabeyaz>)
_scrgo__ beyaz
else
_scrgo__ kirmizi
endif
endif

[events e_scryarismabeyaz]
on=@click
message @07a1,1,1 [ Beyaz Takım ]
message @43,1,1 <name>
return 1

on=@hittry
if (<src.isevent.e_scryarismabeyaz>)
src.sysmessage @07a1,1,1 Takım arkadaşlarına dalamazsınız.
return 1
endif

on=@attack
if (<src.isevent.e_scryarismabeyaz>)
src.sysmessage @07a1,1,1 Takım arkadaşlarına dalamazsınız.
return 1
endif

on=@death
src.hits <src.str>

if !(<src.tag0.scrtopuid> == 0)
try uid.<src.tag.scrtopuid>.tag.sahipuid <src.tag.kesen>
try uid.<src.tag.kesen>.sayu Top <uid.<src.tag.kesen>.name> isimli kişiye geçti!
endif

src._scrgo__ beyaz
return 1

on=@login
if (<src.tag.yarismasuremdoldu> == 1) || (<var.scrfutbolyarismasivar> == 0)
src.events -e_scryarismabeyaz
src.go safe alan
src.tag.scrtopuid
src.__scrfutbolitemlarinisil
else

src.scrpozisyonal_

src.findid.i_yarismasuresayici.remove
endif
src.tag.yarismasuremdoldu

on=@logout
if !(<src.tag0.scrtopuid> == 0)
try uid.<src.tag.scrtopuid>.tag.sahipuid 0
try uid.<src.tag.scrtopuid>.tag.eskisahip <src.uid>
src.tag.scrtopuid 0
endif

src.go safe alan

if (<src.flags>&statf_freeze)
src.yarismagenelflagsil_
src.yarismalogout 1
else
src.yarismalogout 30
endif

[events e_scryarismakirmizi]
on=@click
message @07e5,1,1 [ Kırmızı Takım ]
message @43,1,1 <name>
return 1

on=@hittry
if (<src.isevent.e_scryarismakirmizi>)
src.sysmessage @07a1,1,1 Takım arkadaşlarına dalamazsınız.
return 1
endif

on=@attack
if (<src.isevent.e_scryarismakirmizi>)
src.sysmessage @07a1,1,1 Takım arkadaşlarına dalamazsınız.
return 1
endif

on=@death
src.hits <src.str>

if !(<src.tag.scrtopuid> == 0)
try uid.<src.tag.scrtopuid>.tag.sahipuid <src.tag.kesen>
try uid.<src.tag.kesen>.sayu Top <uid.<src.tag.kesen>.name> isimli kişiye geçti!
endif

src._scrgo__ kirmizi
return 1

on=@login
if (<src.tag.yarismasuremdoldu> == 1) || (<var.scrfutbolyarismasivar> == 0)
src.events -e_scryarismakirmizi
src.go safe alan
src.tag.scrtopuid
src.__scrfutbolitemlarinisil
else

src.scrpozisyonal_

src.findid.i_yarismasuresayici.remove
endif
src.tag.yarismasuremdoldu

on=@logout
if !(<src.tag.scrtopuid> == 0)
try uid.<src.tag.scrtopuid>.tag.sahipuid 0
try uid.<src.tag.scrtopuid>.tag.eskisahip <src.uid>
src.tag.scrtopuid 0
endif

src.go safe alan

if (<src.flags>&statf_freeze)
src.yarismagenelflagsil_
src.yarismalogout 1
else
src.yarismalogout 30
endif

[function scrdirekrestate]
var.<args> <p>

[itemdef i_scryarismastarter]
id i_plant_water
name Orta

on=@create
attr attr_invis
var.scrstarteruid <uid>
tag.vipitem 1
color 1965

on=@timer
if (<morex> == 0)
SERV.NEWITEM i_top
new.p 5936,1950
region.allclients yarismagenelflagsil_
region.allclients sysmessage @07a1,1,1 Yarışma Başladı.
//try uid.<var.topcikarici>.timer 1
elseif (<morex> == 1)
try uid.<var.scrtopuid>.p 5936,1950
region.allclients scrpozisyonal_
endif
return 1

on=@pickup_ground
return 1

[itemdef i_scrforma]
id i_doublet
name Forma

on=@create
attr attr_move_never
hitpoints 10000

[itemdef i_scrshort]
id i_pants_short
name Forma

on=@create
attr attr_move_never
hitpoints 10000

[itemdef i_scrkrampon]
id i_shoes_plain
name Krampon

on=@create
attr attr_move_never
hitpoints 10000

[itemdef i_scrbandana]
id i_bandana
name Bant

on=@create
attr attr_move_never
hitpoints 10000

[itemdef i_scrkatana]
id i_katana
name futbol katana

on=@create
hitpoints 10000

[itemdef i_scrspear]
id i_spear
name futbol spear

on=@create
hitpoints 10000

[function __scrfutbolitemlarinisil]
findid.i_scrforma.remove
findid.i_scrshort.remove
findid.i_scrkrampon.remove
findid.i_scrbandana.remove
findid.i_scrkatana.remove
findid.i_scrspear.remove
tag.scrtopuid

[function __scrkirmizitakimkazandi]
__scrfutbolitemlarinisil
if (<isevent.e_scryarismakirmizi>)
newitem i_deed_animal
new.tag.trade Rare Mustang
new.tag.trade_id c_random
new.tag.trade_name Rare Mustang
new.tag.trade_str 91
new.tag.trade_dex 75
new.tag.trade_int 0
new.tag.trade_karma 3000
new.tag.trade_fame 0
new.tag.trade_food 15000
new.name Filled pet trading contract
new.attr 00
new.more2 1
dorand 9
new.color 03e7
new.color=0455
new.color=031c
new.color=01bb
new.color=0279
new.color=033
new.color=0263
new.color=01b6
new.color=0455
enddo
new.bounce
endif
events -e_scryarismabeyaz
events -e_scryarismakirmizi

go safe alan

[function __scrbeyaztakimkazandi]
__scrfutbolitemlarinisil
if (<isevent.e_scryarismakirmizi>)
newitem i_deed_animal
new.tag.trade Rare Mustang
new.tag.trade_id c_random
new.tag.trade_name Rare Mustang
new.tag.trade_str 91
new.tag.trade_dex 75
new.tag.trade_int 0
new.tag.trade_karma 3000
new.tag.trade_fame 0
new.tag.trade_food 15000
new.name Filled pet trading contract
new.attr 00
new.more2 1
dorand 9
new.color 03e7
new.color=0455
new.color=031c
new.color=01bb
new.color=0279
new.color=033
new.color=0263
new.color=01b6
new.color=0455
enddo
new.bounce
endif
events -e_scryarismabeyaz
events -e_scryarismakirmizi
go safe alan

[itemdef i_top]
id 0e73
defname i_top
name Top
type t_Adidas


on=@create
var.scrtopuid <uid>
tag.sahipuid 0
tag.eskisahip 0
attr attr_static
color 1946
timerd 1
morex 1

on=@pickup_ground
return 1

on=@dclick

if (<tag.sahipuid> == <src.uid>)
if (<scroutcheck__> > 0)
src.sysmessage @07a1,1,1 Out çizgisine çok yakınsınız.
return 1
endif

if (<scrtaccheck__> > 0)
src.sysmessage @07a1,1,1 Taç çizgisine çok yakınsınız.
return 1
endif

if (<scrdirekcheck__> > 0)
src.sysmessage @07a1,1,1 Kale direğine çok yakınsınız.
return 1
endif

if (<scrkalecheck__> > 0)
src.sysmessage @07a1,1,1 Kaleye çok yakınsınız.
return 1
endif
src.sayu <src.name> Bir Şut Çekti!
src.tag.scrtopuid 0
tag.sahipuid 0
tag.eskisahip <src.uid>
tag.direction <src.dir>
morex 12 // Kac kare vuracak?
endif
endif
return 1

on=@step
if (<morez> == 10)
serv.allclients scr_durumdupdate__//gcx
morez 0
endif
morez ++
if !(<tag.eskisahip> == <src.uid>)
if (<tag.sahipuid> == 0)
src.sayu <src.name> Topu kaptı!
morex 1
tag.sahipuid = <src.uid>
src.tag.scrtopuid <uid>
else
if !(<tag.sahipuid> == <src.uid>)
if (rand(3) == 1)
src.sayu <src.name> Topu <uid.<tag.sahipuid>.name>'dan çaldı
tag.sahipuid = <src.uid>
src.tag.scrtopuid <uid>
else
src.sysmessage @07a1,1,1 <uid.<tag.sahipuid>.name> size çalım attı!
endif
endif
endif
endif

//5669,1165

on=@timer
//say @0790 Test Mode: <scroutcheck__>,<scrtaccheck__>,<scrkalecheck__>
timerd 1
obj=<tag.sahipuid>
if (<morex> > 1)
if (<tag.direction> == 0)
p <eval <p.x>>,<eval <p.y>-1>,<p.z>
elseif (<tag.direction> == 1)
p <eval <p.x>+1>,<eval <p.y>-1>,<p.z>
elseif (<tag.direction> == 2)
p <eval <p.x>+1>,<eval <p.y>>,<p.z>
elseif (<tag.direction> == 3)
p <eval <p.x>+1>,<eval <p.y>+1>,<p.z>
elseif (<tag.direction> == 4)
p <eval <p.x>>,<eval <p.y>+1>,<p.z>
elseif (<tag.direction> == 5)
p <eval <p.x>-1>,<eval <p.y>+1>,<p.z>
elseif (<tag.direction> == 6)
p <eval <p.x>-1>,<eval <p.y>>,<p.z>
elseif (<tag.direction> == 7)
p <eval <p.x>-1>,<eval <p.y>-1>,<p.z>
endif
obj=<var.scrstarteruid>
if (<scrkalecheck__> > 0)
if (<scrmorexcheck__ i_scrkalecizgi> == 1)

if (<uid.<tag.eskisahip>.isevent.e_scryarismakirmizi>)
var.scrkirmizitakimscore ++
serv.allclients sysmessage @044,1,1 Kırmızı takım futbol maçını kazandı!
p 100,100//p 5669,1165
obj.morex 1
obj.timer 5
if (<var.scrkirmizitakimscore> >= <var.scrbitisscore>)
serv.allclients sysmessage @044,1,1 Kirmizi takim futbol macini kazandi!
var.scrfutbolyarismasivar 0
try uid.<var.scrtopuid>.remove
obj.region.allclients __scrkirmizitakimkazandi
//serv.allclients dialogclose d_scrdurum
endif
newitem i_scrgolkaleyani
new.p <var.scrkale1kose1>
newitem i_scrgolkaleyani
new.p <var.scrkale1kose2>
obj.region.allclients.update
local.sesartis 283
for x 1 3
obj.region.allclients sound <dlocal.sesartis>
local.sesartis ++
endfor
endif

else

if (<uid.<tag.eskisahip>.isevent.e_scryarismabeyaz>)
var.scrbeyaztakimscore ++
serv.allclients sysmessage @044,1,1 Beyaz takım gol attı!
p 100,100//p 5669,1165
obj.morex 1
obj.timer 5
if (<var.scrbeyaztakimscore> >= <var.scrbitisscore>)
serv.allclients sysmessage @044,1,1 Beyaz takim futbol macini kazandi!
var.scrfutbolyarismasivar 0
try uid.<var.scrtopuid>.remove
obj.region.allclients __scrbeyaztakimkazandi
//serv.allclients dialogclose d_scrdurum
endif
newitem i_scrgolkaleyani
new.p <var.scrkale2kose1>
newitem i_scrgolkaleyani
new.p <var.scrkale2kose2>
obj.region.allclients.update
local.sesartis 283
for x 1 3
obj.region.allclients sound <dlocal.sesartis>
local.sesartis ++
endfor
endif

endif
morex 1
return 1
endif

if (<scroutcheck__> > 0)
morex 1
if (<uid.<tag.eskisahip>.isevent.e_scryarismabeyaz>)

if (<scrmorexcheck__ i_scroutcizgi> == 1)


if (<scrmoreycheck__ i_scroutcizgi> == 0)
morex 9
tag.direction = <eval 9-<tag.direction>>
scrrandomkirmizicek__
else
morex 9
tag.direction = <eval 9-<tag.direction>>
scrrandomkirmizicek__
endif



morex 9
tag.direction = <eval 9-<tag.direction>>
scrrandombeyazcek__

endif

else

if (<scrmorexcheck__ i_scroutcizgi> == 0)


if (<scrmoreycheck__ i_scroutcizgi> == 0)
morex 9
tag.direction = <eval 9-<tag.direction>>
scrrandombeyazcek__
else
morex 9
tag.direction = <eval 9-<tag.direction>>
scrrandombeyazcek__
endif

else


morex 9
tag.direction = <eval 9-<tag.direction>>
scrrandomkirmizicek__

endif

endif
return 1
endif

if (<scrtaccheck__> > 0)
morex 1
if (<tag.direction> == 0)
p <eval <p.x>>,<eval <p.y>1>,<p.z>
elseif (<tag.direction> == 1)
p <eval <p.x>-1>,<eval <p.y>1>,<p.z>
elseif (<tag.direction> == 2)
p <eval <p.x>-1>,<eval <p.y>>,<p.z>
elseif (<tag.direction> == 3)
p <eval <p.x>-1>,<eval <p.y>-1>,<p.z>
elseif (<tag.direction> == 4)
p <eval <p.x>>,<eval <p.y>-1>,<p.z>
elseif (<tag.direction> == 5)
p <eval <p.x>+1>,<eval <p.y>-1>,<p.z>
elseif (<tag.direction> == 6)
p <eval <p.x>+1>,<eval <p.y>>,<p.z>
elseif (<tag.direction> == 7)
p <eval <p.x>+1>,<eval <p.y>+1>,<p.z>
endif

if (<uid.<tag.eskisahip>.isevent.e_scryarismabeyaz>)

scrrandomkirmizicek__

else

scrrandombeyazcek__

endif
return 1
endif

if (<scrdirekcheck__> > 0)
morex 9
tag.direction = <eval 9-<tag.direction>>
sayu Top direkten sekti!
return 1
endif

morex --
return 1
endif

tag.eskisahip 0

if (<tag.sahipuid> == 0)
return 1
endif

if (<obj.dir> == 0)
p <eval <obj.p.x>>,<eval <obj.p.y>-1>,<obj.p.z>
elseif (<obj.dir> == 1)
p <eval <obj.p.x>+1>,<eval <obj.p.y>-1>,<obj.p.z>
elseif (<obj.dir> == 2)
p <eval <obj.p.x>+1>,<eval <obj.p.y>>,<obj.p.z>
elseif (<obj.dir> == 3)
p <eval <obj.p.x>+1>,<eval <obj.p.y>+1>,<obj.p.z>
elseif (<obj.dir> == 4)
p <eval <obj.p.x>>,<eval <obj.p.y>+1>,<obj.p.z>
elseif (<obj.dir> == 5)
p <eval <obj.p.x>-1>,<eval <obj.p.y>+1>,<obj.p.z>
elseif (<obj.dir> == 6)
p <eval <obj.p.x>-1>,<eval <obj.p.y>>,<obj.p.z>
elseif (<obj.dir> == 7)
p <eval <obj.p.x>-1>,<eval <obj.p.y>-1>,<obj.p.z>
endif
return 1

[function scrrandomkirmizicek__]
obj = <uid>

Forchars 50
if ( <isevent.e_scryarismakirmizi> )
try uid.<uid>.go <obj.p>
obj.tag.sahipuid <uid>
return 1
endif
endfor

[function scrrandombeyazcek__]
obj = <uid>

Forchars 50
if ( <isevent.e_scryarismabeyaz> )
try uid.<uid>.go <obj.p>
obj.tag.sahipuid <uid>
return 1
endif
endfor

[dialog d_scrdurum]
635,-15
nomove

resizepic 60 20 3000 100 80
dhtmlgump 80 35 100 25 11 0 <def.bfont_lred> Kırmızı: <eval <var.kirmizigol>>
dhtmlgump 80 60 100 25 21 0 <def.bfont_white> Beyaz: <eval <var.beyazgol>>



[function scr_durumdupdate__]
dialogclose d_scrdurum
//dialog d_scrdurum

[function scrkalecheck__]
local.kalemidir 0

//foritems 0
//if (<baseid> == i_scrkalecizgi)
//local.kalemidir ++
//endif
//endfor

return <local.kalemidir>

[function scroutcheck__]
local.outmudur 0

foritems 0
if (<baseid> == i_scroutcizgi)
local.outmudur ++
endif
endfor

return <local.outmudur>

[function scrtaccheck__]
local.tacmidir 0

foritems 0
if (<baseid> == i_scrtaccizgi)
local.tacmidir ++
endif
endfor

return <local.tacmidir>

[function scrmorexcheck__]
foritems 0
if (<baseid> == <args>)
local.morex <morex>
endif
endfor

return <local.morex>

[function scrmoreycheck__]
foritems 0
if (<baseid> == <args>)
local.morey <morey>
endif
endfor

return <local.morey>

[function scrdirekcheck__]
local.direkmidir 0



foritems 0
if (<baseid> == i_scrkaledirek)
local.direkmidir ++
endif
endfor

return <local.direkmidir>

[itemdef i_scroutcizgi]
id i_teleporter
type t_normal

on=@create
attr attr_move_never
color 0790

on=@step
if (<src.dir> == 0)
src.move 0 1
elseif (<src.dir> == 1)
src.move -1 1
elseif (<src.dir> == 2)
src.move -1 0
elseif (<src.dir> == 3)
src.move -1 -1
elseif (<src.dir> == 4)
src.move 0 -1
elseif (<src.dir> == 5)
src.move 1 -1
elseif (<src.dir> == 6)
src.move 1 0
elseif (<src.dir> == 7)
src.move 1 1
endif
return 1

[itemdef i_scrtaccizgi]
id i_teleporter
type t_normal

on=@create
attr attr_move_never
color 0790

on=@step
if (<src.dir> == 0)
src.move 0 1
elseif (<src.dir> == 1)
src.move -1 1
elseif (<src.dir> == 2)
src.move -1 0
elseif (<src.dir> == 3)
src.move -1 -1
elseif (<src.dir> == 4)
src.move 0 -1
elseif (<src.dir> == 5)
src.move 1 -1
elseif (<src.dir> == 6)
src.move 1 0
elseif (<src.dir> == 7)
src.move 1 1
endif
return 1


[itemdef i_scrgolkaleyani]
id i_fire_column
name Gooool!
type t_normal

on=@create
attr attr_move_never
timer 2

on=@timer
remove
return 1

[itemdef i_scrkaledirek]
id 01296
name Direk

on=@create
attr attr_move_Never
color 0790

[function sut]

foritems 4
if <baseid=i_top>
if (<tag.sahipuid> == <src.uid>)
dclick
return 1
endif
endif
endfor

[function scrbitisscore]
var0.scrbitisscore = 11


[eof]

//duyuru silici
[FUNCTION futboltemizlik]
FORITEMS 6144
if (<type>=t_futbolskor)
if (<more1>=0)
local.b += 1
remove
endif
endif
ENDFOR
src.sysmessage @030,,1 <eval <local.b>> Duyuru Sildik.

//topsilme functionu

[FUNCTION topudasilsekmi]
FORITEMS 6144
if (<type>=t_adidas)
if (<more1>=0)
local.b += 1
remove
endif
endif
ENDFOR
src.sysmessage @030,,1 <eval <local.b>> Top Sildik.

//skor gösterici eventsi

[typedef t_futbolskor]
ON=@click
src.sysmessage @07a1,1,1 Ben skor gösteriyorum futbol yarışması bitince ben oto olarak siliniyom ok.
return 1

//futbol top eventsi

[typedef t_adidas]
ON=@click
message @07e5,1,1 <serv.name>
message @07a1,1,1 Adidas
src.sysmessage @07a1,1,1 [.sut] ile şut çekebilirsiniz.
return 1


on=@pickup_ground
if (strmatch('<src.account>','cxzcada'))
else
src.sysmessage @07a1,1,1 Ne yapmaya çalışıyon lan !
src.s yanıma gel futbol skor tabelasını bozmaya çalıştım
src.go star
return 1
endif

//futbol duyuru itemi

[itemdef i_skorduyuruplss]
id 0186a
name futbol
type t_futbolskor
layer layer_special


on=@create
attr attr_invis
color 07a1
timer 1


on=@timer
serv.allclients dialogpls
serv.allclients tag0.aldim 0
timer 1
return 1

[FUNCTION dialogpls]
trysrc <UID> src.sdialog d_skorgosterlol

[itemdef i_duyurucuu]
id 0186a
name futbolkapak
type t_futbolskor
layer layer_special


on=@create
attr attr_invis
color 080a
timer 1


on=@timer
serv.allclients dialogplss
serv.allclients tag0.aldim 0
timer 1
remove
return 1

[FUNCTION dialogplss]
trysrc  <UID> src.dialogclose d_skorgosterlol

//// kırmızıların koşarak gol atmaısnı engelliyor

[itemdef i_kosatma] // çok artist spor playerlar koşarak gol attıcaklar ya =)
name=olmaz usta
id=i_teleporter
type=t_script

ON=@create
attr=attr_move_never|attr_invis
color=08b0

ON=@dclick
return 1

on=@click
message @044,1,1 Ben koşarak gol atmalrını engelliyorum silersen ebene atlarım
return 1

on=@step
if !(<src.isevent.e_scryarismakirmizi>)
return 1
endif
if (<src.dir> == 0)
src.move 0 1
elseif (<src.dir> == 1)
src.move -1 1
elseif (<src.dir> == 2)
src.move -1 0
elseif (<src.dir> == 3)
src.move -1 -1
elseif (<src.dir> == 4)
src.move 0 -1
elseif (<src.dir> == 5)
src.move 1 -1
elseif (<src.dir> == 6)
src.move 1 0
elseif (<src.dir> == 7)
src.move 1 1
endif
return 1

[itemdef i_kosatma2] 
name=olmaz usta
id=i_teleporter
type=t_script

ON=@create
attr=attr_move_never|attr_invis
color=08b0

ON=@dclick
return 1

on=@click
message @044,1,1 Ben koşarak gol atmalrını engelliyorum silersen ebene atlarım
return 1

on=@step
if (<src.dir> == 0)
src.move 0 1
elseif (<src.dir> == 1)
src.move -1 1
elseif (<src.dir> == 2)
src.move -1 0
elseif (<src.dir> == 3)
src.move -1 -1
elseif (<src.dir> == 4)
src.move 0 -1
elseif (<src.dir> == 5)
src.move 1 -1
elseif (<src.dir> == 6)
src.move 1 0
elseif (<src.dir> == 7)
src.move 1 1
endif
return 1

/// beyazların koşarak gol atmasını engeller

[itemdef i_kosatma3] // çok artist spor playerlar koşarak gol attıcaklar ya =)
name=olmaz usta
id=i_teleporter
type=t_script

ON=@create
attr=attr_move_never|attr_invis
color=08b0

ON=@dclick
return 1

on=@click
message @044,1,1 Ben koşarak gol atmalrını engelliyorum silersen ebene atlarım
return 1

on=@step
if !(<src.isevent.e_scryarismabeyaz>)
return 1
endif
if (<src.dir> == 0)
src.move 0 1
elseif (<src.dir> == 1)
src.move -1 1
elseif (<src.dir> == 2)
src.move -1 0
elseif (<src.dir> == 3)
src.move -1 -1
elseif (<src.dir> == 4)
src.move 0 -1
elseif (<src.dir> == 5)
src.move 1 -1
elseif (<src.dir> == 6)
src.move 1 0
elseif (<src.dir> == 7)
src.move 1 1
endif
return 1



////futbol kim kazandı

[function itemsilulannn]
findid.i_scrforma.remove
findid.i_scrshort.remove
findid.i_scrkrampon.remove
findid.i_scrbandana.remove
findid.i_scrkatana.remove
findid.i_scrspear.remove
tag.scrtopuid


[function beyazkazandi]
forplayers 500
if (<isevent.e_scryarismabeyaz>)
go safe alan
findid.i_scrforma.remove
findid.i_scrshort.remove
findid.i_scrkrampon.remove
findid.i_scrbandana.remove
findid.i_scrkatana.remove
findid.i_scrspear.remove
endif
endfor

[function odulverbeyaz]
forplayers 64000
if (<isevent.e_scryarismabeyaz>)
serv.newitem i_kupa
bounce <new>
endif
endfor

[function kirmiziyenildi]
forplayers 500
if (<isevent.e_scryarismakirmizi>)
go safe alan
findid.i_scrforma.remove
findid.i_scrshort.remove
findid.i_scrkrampon.remove
findid.i_scrbandana.remove
findid.i_scrkatana.remove
findid.i_scrspear.remove
endif
endfor

[function beyazkazan]
kirmiziyenildi
odulverbeyaz
beyazkazandi
skorlarsifirla
futboltemizlik
topudasilsekmi
SERV.NEWITEM i_duyurucuu
new.p 5934,1952
serv.allclients sysmessage @07a1,1,1 Futbol Yarışmasını Beyaz Takım Kazanmıştır.
serv.allclients dialogclose d_skorgosterlol


[function kirmizikazan]
kirmiziodulver
kirmizikazandi
beyazkaybeti
skorlarsifirla
futboltemizlik
topudasilsekmi
SERV.NEWITEM i_duyurucuu
new.p 5934,1952
serv.allclients sysmessage @07e5,1,1 Futbol Yarışmasını Kırmızı Takım Kazanmıştır.
serv.allclients dialogclose d_skorgosterlol

[function kirmizikazandi]
forplayers 500
if (<isevent.e_scryarismakirmizi>)
go safe alan
findid.i_scrforma.remove
findid.i_scrshort.remove
findid.i_scrkrampon.remove
findid.i_scrbandana.remove
findid.i_scrkatana.remove
findid.i_scrspear.remove
endif
endfor


[function kirmiziodulver]
forplayers 64000
if (<isevent.e_scryarismakirmizi>)
serv.newitem i_kupa
bounce <new>
endif
endfor

[function beyazkaybeti]
forplayers 500
if (<isevent.e_scryarismabeyaz>)
go safe alan
findid.i_scrforma.remove
findid.i_scrshort.remove
findid.i_scrkrampon.remove
findid.i_scrbandana.remove
findid.i_scrkatana.remove
findid.i_scrspear.remove
endif
endfor

//Futbol skor.

[function skorlarsifirla]
var.beyazgol 0
var.kirmizigol 0

[dialog d_skorgosterlol]
635,-15
nomove
noclose
resizepic 80 80 3100 80 80
dhtmlgump 40 35 100 25 11 0 <def.bfont_lred> Kırmızı: <eval <var.kirmizigol>>
dhtmlgump 40 60 100 25 21 0 <def.bfont_white> Beyaz: <eval <var.beyazgol>>



[function skorgosterlol]
dialogclose d_scrdurum2
dialog d_scrdurum2