Hesabına erişemeyen eski üyeler Discord üzerinden yardım alabilir.
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, 15 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.