|
On=@Click
message @07a1,,1 [ HALKTAN ]
message @030 [Str: <str> / Dex: <dex>]
On=@Dclick
if !(<src.gold> > 500)
src.sysmessage @07a1 [ Halkin binegi ] :
src.sysmessage @054 500 gold coin karsiliginde ve sedece (Guard zone[GZ]) icerisinde size yardimci olabilirim..
return 1
else
src.gold.consume <eval <src.gold>-<eval 500>>
src.sysmessage @07a1 [ Halkin binegi ] :
src.sysmessage @054 <src.name> uzerimden indigin taktirde silinirim..
endif
On=@Mount
src.sysmessage @07a1 10 Dakika dolasabilirsiniz.
On=@DisMount
if (<argo.baseid> == c_halktan)
remove
endif
On=@SPELLEFFECT
message Halkin binegi savasmaz
RETURN 1Yani @DisMount altındaki remove yanlış olabilir ama trigger devreye girmiyorOn=@Mount
IF (<Argo.BaseID> == c_halktan)
Src.Sysmessage Bu binekle 10 dakika gzde dolasabilirsin
// bir event eklersin regiondan çıkmasını engellemek için
// buraya süre vermek için bir eşya eklersin ister bineğe ister oyuncuya
EndifSüre bitince -eventsle eventi alıp verdiğin eşyayı silersin src.dismount ya da src.findlayer.25.remove der silersin bu kadar yapacağın şey
[CHARDEF c_halktan]
DEFNAME=c_halktan
NAME=Halkin binegi
SOUND=snd_ANIMALS_HORSE1
ID=c_horse_gray
ICON=i_pet_horse_brown_dk
SUBSECTION=Horses
CATEGORY=Animals
DAM=3,4
ARMOR=13
//ALIGNMENT=NEUTRAL
CAN=MT_WALK|MT_RUN
FOODTYPE=64 t_grass
DESIRES=e_horses,c_man,c_woman
TEVENTS=e_horses
TSPEECH=spk_HORSE
ON=@Create
COLOR=0769
STR={120 140}
DEX={160 170}
INT={9 23}
invul 1
karma 5000
fame 5000
NPC=brain_animal
PARRYING={95.0 100.0}
MAGICRESISTANCE={95.0 100.0}
TACTICS={95.0 100.0}
WRESTLING=100.0
TAMING=110.0
ANIMALLORE=110.0
On=@Click
message @07a1,,1 [ HALKTAN ]
message @030 [Str: <str> / Dex: <dex>]
On=@Dclick
if !(<src.gold> > 500)
src.sysmessage @07a1 [ Halkin binegi ] :
src.sysmessage @054 500 gold coin karsiliginde ve sedece (Guard zone[GZ]) icerisinde size yardimci olabilirim..
return 1
else
src.gold.consume <eval <src.gold>-<eval 500>>
src.sysmessage @07a1 [ Halkin binegi ] :
src.sysmessage @054 <src.name> uzerimden indigin taktirde silinirim..
endif
On=@Mount
IF (<Argo.BaseID> == c_halktan)
Src.Sysmessage Bu binekle 10 dakika gzde dolasabilirsin
src.events +e_halktan
Endif
On=@Dismount
src.events -e_halktan
src.findlayer.25.remove
[events e_halktan]
On=@timer
src.findlayer.25.removeBöyle denedim mountta yazı çıkmadı[regiontype r_tarlalar]
On=@Enter
src.sysmessage @0790 Tarlaya Hosgeldiniz.
On=@Exit
IF (<SRC.FINDLAYER.layer_horse>)
src.sysmessage @0790 [ Halkin Binegi ] :
src.sysmessage @054 Ben GZ disina cikamam.
<>Buraya src.move 6,0,0 denedim gene olmadı
retuen 1
else
src.sysmessage @0790 Tarladan Cikis Yaptiniz..
endifBu arada bineğe binen invul mu olacak, kaldırayım mı ?
[CHARDEF c_halktan]
DEFNAME=c_halktan
NAME=Halkin binegi
SOUND=snd_ANIMALS_HORSE1
ID=c_horse_gray
ICON=i_pet_horse_brown_dk
SUBSECTION=Horses
CATEGORY=Animals
DAM=3,4
ARMOR=13
//ALIGNMENT=NEUTRAL
CAN=MT_WALK|MT_RUN
FOODTYPE=64 t_grass
DESIRES=e_horses,c_man,c_woman
TEVENTS=e_horses
TSPEECH=spk_HORSE
ON=@Create
COLOR=0769
STR={120 140}
DEX={160 170}
INT={9 23}
invul 1
karma 5000
fame 5000
NPC=brain_animal
PARRYING={95.0 100.0}
MAGICRESISTANCE={95.0 100.0}
TACTICS={95.0 100.0}
WRESTLING=100.0
TAMING=110.0
ANIMALLORE=110.0
On=@Click
message @07a1,,1 [ HALKTAN ]
message @030 [Str: <str> / Dex: <dex>] buraya scriptin devamını eklemiyorum çünkü gerek yok[Events Dene]
On=@Mount
IF (<Argo.BaseID> == c_halktan) && !(<Src.FindID.i_bineksure>)
Serv.Newitem i_bineksure,1,<Src>
New.Timer 600
Src.Events +BinekEvent
EndifÜçüncü aşama Bir binek eventi yazıyoruz binince alandan çıkılmaması için[Events BinekEvent]
On=@DisMount
IF (<Src.Findid.i_bineksure>)
Src.Findid.i_bineksure.remove
Endif
Src.Events -BinekEvent
Argo.Remove
On=@RegionEnter
IF !(<Argo.Region.Tag0.HalkBinegi>)
Src.Sysmessage @38,,1 Sadece size belirlenen alanlarda bulunabilirsiniz.
Return 1
EndifSon olarak timer scripti[Itemdef i_bineksure]
Name Binek Sure
ID=6172
Type=T_Eq_Script
Layer=Layer_Special
On=@Create
Attr=Attr_Decay|Attr_Newbie
On=@Timer
IF (<Cont.Findlayer.25.More1> == c_halktan) && (<Cont.Findlayer.25>)
Cont.Sysmessage @38,,1 Sure bittiği için binekten düştünüz.
Cont.Dismount
Endif
Remove
Return 1Not : İnvulu kaldırmana gerek yok
4s3d3 :Hocam bu şekilde örnek yazdım, 10 sn sonra dismount oluyor güzel çok sağol istediğim gibi
[Events BinekEvent]
On=@DisMount
IF (<Src.Findid.i_bineksure>)
Src.Findid.i_bineksure.remove
Endif
Src.Events -BinekEvent
Argo.RemoveIçinesrc.Events -e_halktanEklemeliyim ? çünkü eklemezssem o event playerda kalır.
mahsuni :Hocam emin misin ?
açlık seviyesini sıfır yaparsn unutur
FOODTYPE=64 t_grassIkenFOODTYPE=0Yaptım dediğiniz gibi..|
|
| Konu | Kategori | Son cevap | Son yazan | Mesaj | Görüntüleme | |
|---|---|---|---|---|---|---|
|
|
Stack sorunu
Son cevap: 17-06 01:00 · Son yazan: Athynas · Mesaj: 18 · Görüntü: 6336
|
Konsol Hataları | 17-06 01:00 | 18 | 6336 | |
|
|
Safe alanda lag sorunu
Son cevap: 07-12 00:26 · Son yazan: Eren19944 · Mesaj: 8 · Görüntü: 3347
|
Konsol Hataları | 07-12 00:26 | 8 | 3347 | |
|
|
Binek çanta açma sorunu
Son cevap: 16-10 11:40 · Son yazan: Skandal · Mesaj: 4 · Görüntü: 2780
|
NPC Script Yardımı | 16-10 11:40 | 4 | 2780 | |
|
|
Ev duvarları ve deed sorunu
Son cevap: 12-08 20:07 · Son yazan: Eren19944 · Mesaj: 5 · Görüntü: 2771
|
Script Yardımı | 12-08 20:07 | 5 | 2771 | |
|
|
Client ekranı büyütme sorunu
Son cevap: 29-09 20:21 · Son yazan: worldofsosaria · Mesaj: 8 · Görüntü: 5593
|
Client ve Account Sistemleri | 29-09 20:21 | 8 | 5593 |