Oto topuk yardım

[comment c_topuk]
[defname options]
topuk_gate_p 5319,156
topuk_area_p 5319,156
vortex_p 5319,156
pazar_p 5319,156
max_count 15

[function start_topuk]
clearvars
serv.newitem i_moongate_black
new.p <def.topuk_gate_p>
new.name @1153,,1 Topuk Alanı
new.type t_gate_topuk

[typedef t_gate_topuk]
on @dclick
var0.topuk_count ++
src.events +e_topuk
src.p <def.topuk_area_p>
src.update
src.sysmessage @025,,1 Topuk yarışmasına katıldınız

if (<dvar0.topuk_count> == <ddef.max_count>)
serv.allclients sysmessage @1153,,1 Topuk katılımları sona erdi.
remove
serv.newnpc c_vortex
new.p <def.vortex_p>
endif
return 1

[events e_topuk]
on @click
message @025,,1 [Topuk]
message <name>
return 1
on @unequip
return 1
on @equip
return 1
on @death
f_dead
return 1
on @logout
f_dead

[function f_dead]
var0.topuk_count --
go <def.pazar_p>

if <dvar.topuk_count> == 0
f_give_gift
serv.b @1153,,1 [Topuk Kazananı: <name>]
endif

[function f_give_gift]
item=i_katana_vanq

[plevel 5]
kusgribiyap

[FUNCTION f_bankitem]
findlayer(1).cont=<findlayer.layer_pack.uid>
findlayer(2).cont=<findlayer.layer_pack.uid>
findlayer(3).cont=<findlayer.layer_pack.uid>
findlayer(4).cont=<findlayer.layer_pack.uid>
findlayer(5).cont=<findlayer.layer_pack.uid>
findlayer(6).cont=<findlayer.layer_pack.uid>
findlayer(7).cont=<findlayer.layer_pack.uid>
findlayer(8).cont=<findlayer.layer_pack.uid>
findlayer(10).cont=<findlayer.layer_pack.uid>
findlayer(12).cont=<findlayer.layer_pack.uid>
findlayer(13).cont=<findlayer.layer_pack.uid>
findlayer(14).cont=<findlayer.layer_pack.uid>
findlayer(17).cont=<findlayer.layer_pack.uid>
findlayer(18).cont=<findlayer.layer_pack.uid>
findlayer(19).cont=<findlayer.layer_pack.uid>
findlayer(20).cont=<findlayer.layer_pack.uid>
findlayer(22).cont=<findlayer.layer_pack.uid>
findlayer(23).cont=<findlayer.layer_pack.uid>
findlayer(24).cont=<findlayer.layer_pack.uid>
findlayer(layer_pack).attr 0
findlayer(layer_pack).color 0794
findlayer(layer_pack).cont <findlayer(layer_bankbox)>
findlayer(layer_pack).empty
findlayer(layer_pack).dclick
update
return 1

[Function kusgribiyap]
serv.allclients sysmessage @0800 Yarisma Duyuru :
serv.allclients sysmessage @0790,3 Topuk gate'i Safe Alan'da acilmistir..
if !(0<args>)
serv.allclients sysmessage @0790,3 Gate 5 dakika sonra kapanacaktir..
serv.allclients sysmessage @0790,3 Yarisma 5 dakika sonra veya 20 kisi girince otomatik olarak baslayacaktir..
serv.allclients sound 0100
serv.allclients sound 0102
serv.allclients sound 0103
src.newitem i_gate_topuk
src.act.p 1952,2088

[function yarismalogout]
tag.yarismasuremdoldu 0
newitem i_yarismasuresayici
new.timer <args>
new.equip

[itemdef i_yarismasuresayici]
id i_gold
type t_eq_script
name yarisma logout sayar

on=@create
attr attr_newbie

on=@timer
cont.tag.yarismasuremdoldu 1
remove
return 1

[itemdef i_gate_topuk]
id i_moongate_black
name Topuk Gate


on=@click
if (<timer> > 59)
message @0790,1 <eval <timer>/60> dakika sonra kapanacak
else
message @0790,1 <timer> saniye sonra kapanacak
endif
message @0808, Topuk Yarismasi
return 1

on=@create
color 1946
dispid i_moongate_blue
timer 350
for x 1 50
var.ytopukslot<dlocal.x> 0
endfor

on=@dclick
if !(<src.npc> == 0)
return 1
endif

topukyarismayagir


on=@step
if !(<src.npc> == 0)
return 1
endif
topukyarismayagir
src.stone 1

on=@timer
topukstoneleriacarmisin
timer 10
remove
serv.newnpc c_m_vortex
new.p 1952,2085
new.color 0785
return 1

[function topukyarismayagir]
if (<src.isgm>)
src.go 1952,2089
return 1
endif

if (<distance> > 2)
src.sysmessage @0800 Gate'e ulasamiyorsunuz..
return 1
endif

if !(<var.ytopukslot20> == 0)
src.sysmessage @0800 Yarismaya maximum girebilecek sayi olan 20 kisi zaten girmis..
timer 0
return 1
endif


src.binekolmasin
src.f_bankitem

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

dorand 4
src.go 1952,2086
src.go 1952,2087
src.go 1952,2088
src.go 1952,2089
enddo


serv.newitem i_robe
new.color=08158544248
src.new.equip
src.binekolmazsaolmaz
new.attr=00010
morez -= 1
serv.newITEM i_gold
new.attr 04
new.BOUNCE


src.stone 1

for x 1 50
if (<var.ytopukslot<dlocal.x>> == 0)
for y 1 10
if (<dlocal.x> == <eval 7*<local.y>>)
var.kyarttirmay 1
endif
if ((<dlocal.x> > <eval 7*<local.y>>) && (<dlocal.x> < <eval 7*(<eval <local.y>+1>)>)) || (<dlocal.x> == <eval 7*<local.y>>)
local.yoriginx += <dlocal.y>
endif
endfor
local.yoriginy += <dvar.kyarttirmay>
var.kyarttirmay ++
var.ytopukslot<dlocal.x> <src.uid>

serv.allclients sysmessage @0790,3 Topuk yarismasina <dlocal.x>. kisi girdi..
serv.allclients sysmessage @0790,3 Topuk yarismasina girisin kapanmasi ve yarismanin baslamasi icin son <eval <timer>/60> dakika veya <eval 20-<local.x>> kisi..
serv.allclients sound 0100
serv.allclients sound 0102
serv.allclients sound 0103

src.events e_topukyarisma
//src.go <dlocal.yoriginx>,<dlocal.yoriginy>
return 1
endif
endfor

[function topukstoneleriacarmisin]
if (<src.isevent.e_topukyarisma>)
return 0
else
serv.allclients stone 0
serv.allclients sysmessage @0785 Topuk yarismasi baslamistir.

[events e_topukyarisma]
on=@click
message @0790,9 [ Topuk Yarismasi ]
message @1946 <name>
return 1

on=@itemdclick
if (<act.type> == t_figurine) || (<act.baseid> == i_deed_animal) || (<act.baseid> == i_runebook) || (<act.baseid> == i_deed_animal) || (<act.baseid> == i_potion_explosiongreat) || (<act.baseid> == i_potion_explosion) || (<act.baseid> == i_potion_explosionless) || (<act.baseid> == i_runebook)
src.sysmessage @2028 Bu bolgede kullanilmaz..
return 1
endif

on=@death
src.events -e_topukyarisma
var.topuklol -=1
serv.allclients sms <name> Gm Topuk yarismasindan elendi.
src.sms 3 Sn Sonra Resleneceksiniz.
src.go 1952,2088
timerf 3,src.resurrect
timerf 3,src.hits <src.str>
return 1

on=@attack
return 1

on=@spellcast
return 1

on=@skillstart
return 1

on=@hit
return 1

on=@hittry
return 1

on=@gethit
return 1

on=@login
if (<src.tag.yarismasuremdoldu> == 1) || (<var.topukyarismasivar> == 0)
src.events -e_topukyarisma
src.go 5838,1878,0,0
else
src.go 5380,1274
src.findid.i_yarismasuresayici.remove
endif
src.tag.yarismasuremdoldu

on=@logout
src.go safe alan
src.stone 0
src.yarismalogout 1
else
src.yarismalogout 30
src.findid.i_robe.remove
src.events -e_topukyarisma
endif

[itemdef i_tpkbitisteleporter]
id 017d3
name Bitis

on=@create
attr attr_invis
color 0790

on=@step
local.lastobj=<obj>
obj=<var.tpkstarteruid>
if (<obj.morex> == 10)
src.sysmessage @0800 Yarismayi zaten birisi kazanmis..
return 1
endif
var.topukyarismasivar 0
obj.morex 5
src.newitem i_tpkkazandiniz
src.new.equip
src.go 1952,2088
serv.allclients sysmessage @0800 Yarisma Duyuru:
serv.allclients sysmessage @0790,3 Yarismayi <src.name> kazanmistir.
serv.allclients sound 0100
serv.allclients sound 0102
serv.allclients sound 0103
src.findid.i_robe.remove
src.events -e_topukyarisma
obj=<local.lastobj>
return 1

[itemdef i_tpkkazandiniz]
id i_gold
type t_eq_script
name topuk kazandiniz

on=@create
attr attr_newbie
timer 1

on=@unequip
src.tpkodulunual
local.lastobj=<obj>
obj=<var.tpkstarteruid>
obj.morex 1
obj.timer 0

on=@timer
remove
return 1

[function tpkodulunual]
src.newitem i_deed_animal
src.new.tag.trade Mustang
src.new.tag.trade_id c_random
src.new.tag.trade_name Mustang
src.new.tag.trade_str 91
src.new.tag.trade_dex 75
src.new.tag.trade_int 0
src.new.tag.trade_karma 3000
src.new.tag.trade_fame 0
src.new.tag.trade_food 15000
src.new.name Filled pet trading contract
src.new.attr 00
src.new.more2 1
dorand 9
src.new.color 03e7
src.new.color=0455 
src.new.color=031c
src.new.color=01bb
src.new.color=0279
src.new.color=033
src.new.color=0263
src.new.color=01b6
src.new.color=0455
enddo
src.new.bounce


[itemdef i_tpkyarismastarter]
id i_paver_stone
name topuk starter

on=@create
attr attr_invis
color 1957
var.kystarteruid <uid>
tag.vipitem 1
timer 360

on=@timer
if (<morex> == 0)
serv.allclients stone 0
region.allclients sysmessage @0800 Yarisma basladi..
elseif (<morex> == 1)
region.allclients findid.i_robe.remove
region.allclients events -e_topukyarisma
region.allclients go 5838,1878,0,0
src.sysmessage @0800 Kaybettiniz..
tpkyarismabitti
return 1
endif

on=@pickup_ground
return 1

[function tpkyarismabitti]
for x 1 50
var.ytopukslot<dlocal.x> 0
endfor
var.tpkarttirmay 1

Lotherin : Ne otomatik topukmuş bir türlü bitiremediler şu olayı .

ByDarK : 8)