[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
name Binek
on=@click
if (<more2>
message @260,,1 [Dogal ismi : <serv.chardef.<tag0.binekid>.name>]
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
-----------------------------------------
[itemdef i_asansor_yukari] //Yukariya cikan modeli.
defname=i_asansor_up
id=i_rune_alchem_1
name=Asansor Yukari Cikar
on=@Create
Attr=00010 // Sabit
Color=0456
on=@DClick
if (<distance> > 0) // Uzerinde olmaya zorlar, 1 yaparsan yanindan kullanabilir.
src.sysmessage Asansor'u kullanmak icin uzerinde durmalisiniz.
return 1
else
IF (<SRC.HITS> < <SRC.STR>)
SRC.SYSMESSAGE Yaraliyken gecemezsiniz.
else
src.sayua 0481,4,2,eng *Asansor ile bir ust kata cikar*
src.nudgeup 20 //Bir kat yukari cikarmak icin, mesela iki kat cikaracaksan nudgeup 40 yazabilirsin.
endif
return 1
On=Step
IF (<SRC.HITS> < <SRC.STR>)
SRC.SYSMESSAGE Yaraliyken gecemezsiniz.
else
src.sayua 0481,4,2,eng *Asansor ile bir ust kata cikar*
src.nudgeup 20 //Bir kat yukari cikarmak icin, mesela iki kat cikaracaksan nudgeup 40 yazabilirsin.
src.binekolmasin
endif
return 1
[itemdef i_asansor_asagi] // Asagiya inen modeli.
defname=i_asansor_down
id=i_rune_alchem_1
name=Asansor Asagi Iner
on=@Create
Attr=00010 // Sabit
Color=0456
on=@DClick
if (<distance> > 0) // Uzerinde olmaya zorlar, 1 yaparsan yanindan kullanabilir.
src.sysmessage Asansor'u kullanmak icin uzerinde durmalisiniz.
return 1
else
IF (<SRC.HITS> < <SRC.STR>)
SRC.SYSMESSAGE Yaraliyken gecemezsiniz.
else
src.sayua 0481,4,2,eng *Asansor ile bir alt kata iner*
src.nudgedown 20 // Birkat indirmek icin gerekli olan deger, mesela iki kat indireceksen nudgedown 40 yazabilirsin.
endif
return 1
On=Step
IF (<SRC.HITS> < <SRC.STR>)
SRC.SYSMESSAGE Yaraliyken gecemezsiniz.
else
src.sayua 0481,4,2,eng *Asansor ile bir alt kata iner*
src.nudgeup 20 //Bir kat yukari cikarmak icin, mesela iki kat cikaracaksan nudgeup 40 yazabilirsin.
src.binekolmasin
endif
return 1