on=@TargOn_Item // the corpse to be carved
IF (<ARGO.TYPE> == T_CORPSE) && STRMATCH(*WEAPON*,<TYPE>) // if this is a corpse and is being carved using a sharped weapon
If (<SRC.ISNEARTYPE <argo.type> 2>)
if (<argo.timestamp>)
argo.timestamp=0
f_test
return 1
elseif (<argo.timestamp>==0)
return 0
endif
else
SRC.SYSMESSAGE You must be near the corpse to carve it.
endif
RETURN 1
ENDIF
[FUNCTION f_test]
LOCAL.TARGET = <argo.p>
LOCAL.BLOOD = { i_blood_2 1 i_blood_smear 1 }
SRC.ANIM 11
SERV.NEWITEM <LOCAL.BLOOD>
NEW.ATTR 02
NEW.P <LOCAL.TARGET>
NEW.TIMER 60
NEW.FIX
SERV.NEWITEM i_blood_pool_large
NEW.ATTR 02
NEW.P <LOCAL.TARGET>
NEW.TIMER 60*3
NEW.FIX