[itemdef i_silver_piece]
defname i_silver_piece
id i_gem_emerald
weight 0

on=@create
color 07a1
attr 00

on=@click
message @09b3 <amount>  Puan

[FUNCTION swim]
newitem=i_swim
ACT.EQUIP
ACT.DCLICK

[ITEMDEF i_swim]
ID=i_memory
TYPE=t_eq_script
NAME=swim
LAYER=LAYER_SPECIAL

ON=@Create
ATTR=attr_decay

ON=@DCLICK
TARGETG Where would you like to swim?
RETURN 1

on=@targon_ground
POINT_INFO <SRC.TARGP>
IF !(<VAR.TI_Distance><4)
SRC.MESSAGE Too far away to swim!
VAR.TI_SUCCES=
VAR.TI_DISTANCE=
REMOVE
ELSEIF !(<SRC.TARGP.TYPE>==T_WATER)
//src.p=<src.targp>
src.message You must swim in water.
REMOVE
ELSEIF (<SRC.STAMINA> > 0 )
SRC.p=<src.targp>
SRC.Z=<SRC.Z>+-6
SRC.STAMINA = <eval(<SRC.STAMINA> - {1 10})>
SRC.UPDATE
SRC.ANIM 32
SRC.FINDID(i_swim).DCLICK
IF !(<SRC.FINDID(i_swim_timer)>)
SRC.NEWITEM i_swim_timer
NEW.EQUIP
endif
RETURN 1
ELSE
SRC.SYSMESSAGE You are too fatigued to swim.
SRC.CONSUME=I_SWIM
RETURN 1
ENDIF
ENDIF

ON=@TARGON_CANCEL
REMOVE

[ITEMDEF i_swim_timer]
NAME=Swim(timer)
ID=i_memory
TYPE=T_EQ_SCRIPT

ON=@CREATE
ATTR=attr_decay

ON=@EQUIP
TIMER=10


ON=@TIMER
IF (<CONT.HITS> < 1)
REMOVE
IF (<CONT.P.TYPE>==T_WATER)
IF (<CONT.STAM> < 5)
CONT.HITS=<CONT.HITS>+-{5 15}
CONT.SYSMESSAGE You are drowning. You must get to dry land, quickly!
TIMER=10
RETURN 1
ELSE
CONT.STAM=<CONT.STAM>+-{1 5}
TIMER=10
RETURN 1
endif
ELSE
CONT.SYSMESSAGE You are safetly on the shore
REMOVE
RETURN 1
endif
endif

[FUNCTION POINT_INFO]
IF !<ARGS>
VAR.TI=0 // Failed
RETURN 0
ENDIF
SRC.NEWNPC=c_man
SRC.ACT.FLAGS 04
SRC.ACT.P=<ARGS>
SRC.ACT.FIX
VAR.TI=1 // Success
VAR.TI_DISTANCE=<SRC.ACT.DISTANCE>
SRC.ACT.REMOVE
VAR.TI_TEMP=
RETURN 0



[EOF]

On=@kill
if (<argo.isplayer>)
if (<argo.fame>>5000)
serv.newitem i_silver_piece,&褳<eval <argo.fame>/10>}
new.cont <uid.<attacker.max>>
serv.b @1153 <argo.name> <argo.region.name> civarlarinda oldurulmustur <uid.<attacker.max>.name> en cok damage verdigi icin odul ona verilmistir.

On=@kill
if (<argo.isplayer>)
if (<argo.fame>>5000)
src.newitem i_silver_piece
src.act.amount <eval <argo.fame>/10>
src.act.bounce
new.cont <uid.<attacker.max>>
serv.servallclients sysmessage @1153 <argo.name> <argo.region.name> civarlarinda oldurulmustur <uid.<attacker.max>.name> en cok damage verdigi icin odul ona verilmistir.