Adam Ölünce Çanataya Puan Düşücek

[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]

Arkadaşlar Adam Ölünce Karşı Tarafa puan Düşücek Bu puanda fameye Göre Olucak atıyorum 2000 famede 500 puan Vericek nasıl ayarlarız Yardımcı olurmsunuz

Hocam Olmuyor Bu Şekilde

Bu konu sagopa66 tarafından düzenlendi(2008-03-09 03:51, 16 yıl önce)

inş versiyonun 56b dir bu arada onu altına mı ekliyoz??

dalga geçme la benimki artık 56b

on=@kill
if (<src.fame> == 500)
Src.newitem i_Silver_piec
Src.xamount 500
src.act.bounce
endif 

böyle galiba :O_o