on=@kill
if <guild> && <act.guild> && <argo.fame> >= 7000
SERV.ALLCLIENTS SMSGc <src.name> Guildine Puan Kazandirdi.
on=@death
if <guild> && <act.guild> && <src.fame> >= 7000
ref1 <act.guild>
ref1.tag0.guildpoints ++
if (<act.isplayer>) && (<src.fame> > 2000)
serv.b @044,,1 <name>, <src.act.name> tarafından <region.name> civarlarında öldürülmüştür.
endif
src.target
src.sysmessage @0790,,1 .res yazarak Reslenebilirsiniz..
on=@kill
if <guild> && <act.guild> && <argo.fame> >= 7000
if !(strmatch("<act.uid>","<src.tag.sonuid>")
SERV.ALLCLIENTS SMSGc <src.name> Guildine Puan Kazandirdi.
src.tag.sonuid=<act.uid>
timerf 240,tag.sonuid=0
return 1
endif
endif
[plevel 1]
sac
[FUNCTION sac]
SRC.NEWITEM=i_sacri_corpse
SRC.ACT.MOREX={1 1 2 1 3 1 4 1 5 1 6 1 7 1 8 1 9 1 10 1 11 1 12 1 13 1 14 1 15 1}
SRC.ACT.EQUIP
SRC.ACT.USE
SRC.SYSMESSAGE Select what corpse ye wishes to sacrifice to the Gods.
[ITEMDEF i_sacri_corpse]
DEFNAME=i_sacri_corpse
ID=i_handr_1
NAME=Sacrificial Corpse Timer
TYPE=t_EQ_script
LAYER=30
ON=@CREATE
ATTR=attr_decay
ON=@DCLICK
TARGET
RETURN 1
ON=@EQUIP
TIMER=10
ON=@TARGON_ITEM
IF !(<SRC.TARG.LINK>=04fffffff)
CONT.SYSMESSAGE You cannot sacrifice a human corpse.
RETURN 1
ELSE
IF !(<SRC.TARG.BASEID>=i_corpse)
CONT.SYSMESSAGE That is not a corpse, thine Gods are angered.
RETURN 1
ELSE
SRC.TARG.REMOVE
CONT.SYSMESSAGE Thine Gods are happy for the sacrifice, you are being rewarded.
SRC.NEWITEM=i_gold
SRC.ACT.AMOUNT={1 10}
SRC.ACT.CONT=<CONT.UID>
VAR.X=RAND(35)
IF X=0
CONT.SYSMESSAGE That was a virtued corpse, you are being rewarded quest points.
CONT.TAG.QUESTPOINTS=<EVAL <CONT.TAG.QUESTPOINTS>> + <MOREX>
CONT.SOUND 0102
REMOVE
RETURN 1
ELSE
REMOVE
RETURN 1
ON=@TIMER
REMOVE
RETURN 1