|
İçerde : 1 misafir, 0 üye : ---
|
[ITEMDEF i_binek_isim]
Value=750000
Name=Binek İsim Deed
ID=i_deed
type=t_script
weight=0
On=@create
color=07a1
attr=04
[dialog d_sifre]
0,0
nomove
resizepic 70 120 9300 250 180
resizepic 80 130 9300 230 160
resizepic 90 180 3000 200 20
dtext 130 150 044 Yeni Şifreniz ?
dtext 135 230 1153 Değiştir
dtext 240 230 025 Vazgeç
button 100 230 4005 4006 1 0 1
button 205 230 4017 4018 1 0 2
dtextentry 105 180 160 16 1152 1 ?
[dialog d_sifre Button]
on=1
if (strmatch('<argtxt[1]>','')
src.hata Bir şifre belirleyiniz.
return 1
endif
if (strmatch('<argtxt[1]>','?')
src.hata Bir şifre belirleyiniz.
return 1
endif
if ((strlen(<argtxt[1]>)) > 14))
src.hata Şifreniz 14 karakterden büyük olamaz.
return 1
endif
if ((strlen(<argtxt[1]>)) < 3))
src.hata Şifreniz 3 karakterden küçük olamaz.
return 1
endif
src.password <argtxt[1]>
src.smy Şifreniz <argtxt[1]> olarak değiştirildi.
return 1
on=2
src.hata Şifrenizi değiştirmediniz. Eski şifreniz geçerlidir.
return 0
on=@Rename
if (( <argo.Brain> == brain_Animal ) && !( <src.Restest 1 i_binek_isim> ))
src.Sysmessage @38,,1 Üzerinizde binek isim deed yok.
return 1
else
src.Consume 1 i_binek_isim
src.Sysmessage @0481,,1 Yeni isim: <args>
endif
[events e_Rename]
on=@Rename
if (( <argo.Brain> == brain_Animal ) && !( <src.Restest 1 i_binek_isim> ))
src.Sysmessage @38,,1 Üzerinizde binek isim deed yok.
return 1
else
src.Consume 1 i_binek_isim
src.Sysmessage @0481,,1 Yeni isim: <args>
endif
ON=@Create
NPC=brain_Animal
[events e_Rename]
on=@Rename
if (( <argo.Brain> != brain_Animal )
src.Sysmessage @38,,1 Sadece bineklerin ismi değiştirilebilir.
elif !( <src.Restest 1 i_binek_isim> )
src.Sysmessage @38,,1 Üzerinizde binek isim deed yok.
elif ( <eval STRLEN(<args>)> > 12 )
src.Sysmessage @38,,1 En fazla 12 karakter olabilir.
else
src.Consume 1 i_binek_isim
src.Sysmessage @0481,,1 Yeni isim: <args>
endif
[CHARDEF cinaslov_steed]
DEFNAME=cinaslov_steed
NAME=Cinaslov
ID=c_horse_brown_lt
TEVENTS=e_horses
SOUND=snd_ANIMALS_HORSE1
ICON=i_pet_horse_brown_lt
DAM=9,7
ARMOR=30
RESOURCES=25 i_ribs_raw,10 i_hide
//ALIGNMENT=EVIL
CAN=MT_WALK|MT_RUN
FOODTYPE=50 t_meat_raw
//SHELTER=r_caves,r_dungeon
DESIRES=i_gold
AVERSIONS=r_civilization,r_water
on=@dclick
src.sysmessage @38,,1 [ Bineğinizin ]
src.sysmessage @0793,,1 HP'Sİ=> <hits>
On=@Click
if !(strmatch('<name>','Cinaslov'))
name Cinaslov
endif
if (<findid.i_binekfix.timer> =-1)
endif
if (<memoryfindtype.memory_ipet>)
message @0930,1 [Sahibi: <memoryfindtype.memory_ipet.link.name>]
message @0484,1 [etkinlik]
MESSAGE @38,1,1 <name>
return 1
else
message @38,1,1 <name>
return 1
endif
ON=@Create
FOOD=50
NPC=brain_animal
COLOR=07a1
STR={1000 1000}
DEX={250 250}
INT={5}
FAME=1000
KARMA=500
PARRYING={70.0 70.0}
MAGICRESISTANCE={80.0 80.0}
TACTICS={70.0 70.0}
WRESTLING={70.0 70.0}
TAMING=100.0
ITEM=loot_nightmare
CATEGORY=Monsters
SUBSECTION=Miscellaneous
DESCRIPTION=Cinaslov
itemnewbie=i_binekfix
On=@Hit
if !(<src.findid.i_bleeding>) && !(<src.findid.i_bleeding2>)
if !(<findlayer(1)> || <findlayer(2)>)
src.damage {10 10}
src.hits (<src.hits> - 8)
src.skill fail
var.act <src.act.uid>
src.newitem i_bleeding
src.act.equip
src.newitem i_bleeding2
src.act.equip
src.act <var.act>
src.sayua 38,6,6,0 * Yara Alir *
return 1
endif
endif
on=@death
serv.allclients sysmessage @038,,1 [Binek Ölüm]
serv.allclients sysmessage @0790,,1 <name> , <region.name> Civarlarında <act.name> Tarafından Öldürülmüştür.
on=@deathcorpse
argo.type t_cinaslov
argo.timer 280
on=@gethit
if !(<R3>==1)
return 1
endif
if !(strmatch('<name>','Cinaslov'))
name Cinaslov
endif
On=@Click
if (<memoryfindtype.memory_ipet>)
message @0930,1 [Sahibi: <memoryfindtype.memory_ipet.link.name>]
else
message @0930,1 [Sahibi: yok]
endif
message @0484,1 [etkinlik]
MESSAGE @38,1,1 <name>
return 1
|