Dün akşam bir şeyler yapmak istemiştim.Gm topuk yapcaktım fakat zaten verilmiş bazı yerlerde oto engelli yapıyım dedim.
Gateden geçince itemleri ve binegi bankaya atar.
Engelli koşunun sonuna i_engellibitis koyun ve verilecegi ödülü ayarlayın.
Koordinatları [defname yerler] kısmından söylediği şeyin yanındaki koordinatları kendinizinkiyle değiştirin.
Oyun içinde ".engellikosuyap" yazarak başlatabilirsiniz sistem tamamen otomatik.

Kod:
||////////////////||
||Yazan:DC-Game   ||
||////////////////||

[defname yerler]
gatedengecincegidecegiyer 1111,2222
gateninacilacagiyer 1111,2222
//Hakem gateden gecen kisinin gidecegi yerin 2 kare önü olsun.
hakem 1111,2222
oyundancikincaatilacagiyer 1111,2222
kazanilincaatilacagiyer 1111,2222

[function gir]
go <def.<args>>

[function acil]
new.p <def.<args>>

[function engellikosuyap]
newitem i_engelli_kosu
src.acil gateninacilacagiyer
serv.allclients sysmessage @1153 Engelli kosu yarismasi baslamistir.Safe alandaki gateden girebilirsiniz.
timerf 60,serv.allclients sysmessage @1153 Engelli kosu yarismasi icin katilimlar devam ediyor gate safe alandadir.
timerf 120,serv.allclients sysmessage @1153 Engelli kosu yarismasinin bitmesine son 1 dakika kalmistir.
timerf 180,src.baslatkosuyu
timerf 190,serv.allclients engellistonekaldir

[Itemdef i_engelli_kosu]
Defname=i_engelli_kosu
ID=i_moongate_black
Name=Engelli Kosu Gate

on=@click
message @0796 [Engelli Kosu]
return 1

on=@create
timerf 180,remove
timerf 180,src.baslatkosuyu
Color=07a1

on=@dclick
if (<distance> > 2)
src.sysmessage @1153 Gate'ye yaklasin.
return 1
else
src.engellikatil
src.stone
return 1
endif

on=@step
src.stone
src.engellikatil
return 1
endif

[function baslatkosuyu]
newitem i_engellihakem
src.hakemkoy hakem
serv.allclients sysmessage @1153 Engelli kosu yarismasi icin katilimlar sona erdi.
serv.allclients sysmessage @1153 Engelli kosu yarismasi 10 saniye sonra basliyor.

[function engellikatil]
src.sysmessage @1153 Bineginiz ve itemleriniz bankaya atilmistir.
src.binekolmasin
src.f_bankayat
src.resurrect
src.hits <src.str>
src.stam <src.dex>
src.events +e_engellieventi
src.gir gatedengecincegidecegiyer

[function engellistonekaldir]
forplayers 6143
if (<isevent.e_engellieventi>)
src.message @1153 Engelli kosu basladi.
stone 0
endif
endfor

[FUNCTION f_bankayat]
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).cont <findlayer(layer_bankbox)>
findlayer(layer_pack).empty
findlayer(layer_pack).dclick
update
return 1

[function binekolmasin]
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_hafiza 
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_hafiza]
id i_deed
type t_normal
weight 20.0

on=@click
if (<more2>
message <name> - <tag.name>
return 1
else
message <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
remove
return 1
else
return1
endif

[events e_engellieventi]
on=@click
message @0796 [Engelli Kosu Yarismasi]

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=@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 (<isevent.e_engellieventi>)
src.gir oyundancikincaatilacagiyer
src.events -e_engellieventi
src.sysmessage @1153 Engelli kosu sirasinda oyundan ciktiginiz icin yarismadan elendiniz.


[Itemdef i_engellihakem]
defname=i_engellihakem
id=0709
name=Engelli Kosu

on=@create
color=07a1
message @1153 Engelli kosu yarismasi basliyor.
timerf 1,say @1153 10
timerf 2,say @1153 9
timerf 3,say @1153 8
timerf 4,say @1153 7
timerf 5,say @1153 6
timerf 6,say @1153 5
timerf 7,say @1153 4
timerf 8,say @1153 3
timerf 9,say @1153 2
timerf 10,say @1153 1
timerf 11,say @1153 BASLA !
timerf 12,remove

[itemdef i_engellibitis]
id=i_teleporter
name Bitis

on=@step
src.bitirengelliyi
newitem i_xx
new.bounce
gir kazanilincaatilacagiyer
src.sysmessage @1153 Tebrikler engelli kosu yarismasini kazandiniz.
serv.allclients sysmessage @1153 Engelli kosu yarismasini kazanan <src.name>'dir.Kendisini tebrik ederiz.
src.events -e_engellieventi
return 1

[function bitirengelliyi]
forplayers 6143
if (<isevent.e_engellieventi>)
gir kazanilincaatilacagiyer
events -e_engellieventi
endif
endfor

[function hakemkoy]
new.p <def.<args>>


Bineği bankaya atma kısmı dışında sistem tamamıyla bana aittir.


Bu konu DC-Game tarafından düzenlendi(2009-03-04 20:08, 16 yıl önce)
Düzenledim yazı kıpırdıodu zaten sinir oluyordum (:

Üye Ol veya Giriş Yap

Bu forum başlığına mesaj atmak istiyorsanız hemen üye olun veya giriş yapın.