[itemdef i_binek]
id i_deed
name binek deed
on=@dclick
if (<src.findlayer.25>)
src.sysmessage @0 Ustunde binek varken olmaz.
else
serv.newnpc c_zivirti
src.new.hits 10
src.new.mount
remove
endif
[chardef c_zivirti]
id c_horse_brown_dk
on=@create
color 01
[events e_zivirti]
on=@mount
if (<aRgo.id> == c_zivirti)
src.newitem i_reng
src.new.equip
endif
on=@dismount
if (<argo.id> == c_zivirti)
src.findid.i_reng.remove
src.newitem i_binek
src.new.color <argo.color>
src.new.bounce
argo.remove
return 1
endif
[itemdef i_reng]
ID=i_memory
TYPE=t_eq_script
NAME=healing mem
On=@Create
attr attr_decay|attr_newbie
On=@Equip
timer 1
On=@Timer
if (<cont.findlayer.25>)
dorand 9
cont.findlayer.25.color 07a1
cont.findlayer.25.color 07e5
cont.findlayer.25.color 07c5
cont.findlayer.25.color 0bb7
cont.findlayer.25.color 09a6
cont.findlayer.25.color 080a
cont.findlayer.25.color 0fb7
cont.findlayer.25.color 01
cont.findlayer.25.color 07ac
enddo
timer 1
endif
return 1
[ITEMDEF i_ring_of_color_animal]
ID=4234
NAME=Ring Of Color Animal
TYPE=t_eq_script
ON=@Create
ATTR attr_decay
ON=@Click
message @0823,4 Ring Of Color Animal
message <name>
return 1
ON=@DClick
EQUIP
RETURN 1
ON=@Equip
flash flashlink
TIMER 1
ON=@UnEquip
flash flashend
TIMER -1
ON=@Timer
IF !(0<TOPOBJ.ISCHAR>) || (0<TOPOBJ.NPC>)
RETURN 0
ENDIF
TAG.COLOR <EVAL &褳0775 0834}>
flash flashlayer
TIMER <EVAL {9 11}>
RETURN 1
[FUNCTION flash]
TRYP 0 <ARGS> layer_horse
[FUNCTION flashlink]
IF (<SRC.FINDLAYER.<ARGS>>)
TRYP 0 TAG.<ARGS> <SRC.FINDLAYER.<ARGS>.UID>
TRYP 0 TAG.<ARGS>.COLOR <SRC.FINDLAYER.<ARGS>.COLOR>
ENDIF
[FUNCTION flashlayer]
IF (<CONT.UID.<TAG.<ARGS>>.ISITEM>)
TRYP 0 CONT.UID.<TAG.<ARGS>>.COLOR <TAG.COLOR>
ENDIF
[FUNCTION flashend]
IF (<CONT.UID.<TAG.<ARGS>>.ISITEM>)
TRYP 0 CONT.UID.<TAG.<ARGS>>.COLOR <TAG.<ARGS>.COLOR>
TRYP 0 TAG.<ARGS>
TRYP 0 TAG.<ARGS>.COLOR
ENDIF
[PLEVEL 1]
flashlayer
flashend
flashlink
flash
[itemdef i_renk_ati]
name YkP Horse
id i_mt_horse_brown_lt
type t_eq_horse
layer 25
tdata3 c_ykp_eteral
on=Dclick
timer 1
return 0
[chardef c_ykp_eteral]
defname c_ykp_eteral
name ethereal mount
On=@Create
str 100
dex 100
on=@timer
DORAND 6
color 080a
color 0810
color 0819
color 07c9
color 0825
color 0455
ENDDO
return 1
endif