Código:
[CHARDEF c_Gazer_Fuego]
DEFNAME=c_Gazer_Fuego
ID=c_gazer
NAME=Gazer de Fuego
CAN=MT_WALK|MT_RUN|MT_Equip|MT_Usehands
BLOODCOLOR=0793
ARMOR=32
DAM=2,10
DESIRES=t_tree
AVERSIONS=t_TRAP
RANGE=6
moverate=2
TEVENTS +e_Habilidad_Lanzallamas
TEVENTS +e_Gazer_Fuego
ON=@Create
TAG.NAME.HUE=0793
COLOR=0793
STR={150 250}
DEX={300 400}
INT={100 500}
MAXHITS=2000
KARMA=-8000
FAME=2000
BRAIN=brain_human
Wrestling={95.0 115.0}
TACTICS={95.0 118.0}
ON=@NPCRESTOCK
ITEM=i_gold
AMOUNT={1500 2000}
[EVENTS e_Habilidad_Lanzallamas]
ON=@HITTRY
IF RAND(6)==0
SOUND snd_spell_fireball
ENDIF
//SERV.NEWNPC=c_man_invisible
//NEW.FLAGS=0d
//NEW.TAG.UID=<UID>
//NEW.TAG.LANZALLAMAS=1
//NEW.P=<SRC.P>
VAR.Y1=<EVAL <P.Y>>
VAR.X1=<EVAL <P.X>>
VAR.Z1=<EVAL <P.Z>+10>
var.flame_args=i_fire,1,020,0,0,0,0
//var.new=<new.uid>
SRC.HABILIDAD_LANZALLAMAS
//obj=<var.new>
//obj.remove
//var.new=
var.flame_args=
VAR.Y1=
VAR.X1=
VAR.Z1=
//NEW.REMOVE
RETURN 1
[FUNCTION HABILIDAD_LANZALLAMAS]
FLAMETHROWER_THROW 1,-1,-1,10
FLAMETHROWER_THROW 1,-1,1,10
FLAMETHROWER_THROW 1,-1,0,10
FLAMETHROWER_THROW 4,0,0,10
FLAMETHROWER_THROW 4,0,1,10
FLAMETHROWER_THROW 4,0,-1,10
FLAMETHROWER_THROW 7,1,0,10
FLAMETHROWER_THROW 7,1,-1,10
FLAMETHROWER_THROW 7,1,1,10
FORCHARS 3
IF !<ISGM>
IF ((<BRAIN>==0) || (<FLAGS>=<FLAGS>|08000000) || (<FLAGS>=<FLAGS>|04000000))
DAMAGE 4 0001 <var.uid>
IF <FLAGS>=<FLAGS>|04000000
DAMAGE 30 0001 <var.uid>
ENDIF
IF <FLAGS>=<FLAGS>|08000000
DAMAGE 30 0001 <var.uid>
ENDIF
IF !<RESTEST i_efecto_lanzallamas>
VAR.ACT=<ACT.UID>
NEWITEM=i_efecto_lanzallamas
act.more=10
act.tag.npc=<VAR.UID>
EQUIP <ACT.UID>
ACT=<VAR.ACT>
VAR.ACT=
ENDIF
ENDIF
ENDIF
ENDFOR
[FUNCTION lanzar_lanzallamas]
HABILIDAD_LANZALLAMAS_efecto <var.flame_args>,<ARGV[0]>,<EVAL <P.Y>+<ARGV[1]>>,<EVAL <P.X>+<ARGV[2]>>,<EVAL <P.Z>+<ARGV[3]>>
[ITEMDEF i_efecto_lanzallamas]
ID=i_memory
TYPE=t_eq_script
NAME=Efecto Incineracion
ON=@EQUIP
MORE=10
SRC.SAYU *Ardes!*
SRC.SOUND snd_spell_flamestrike
TIMER=1
return 1
ON=@TIMER
IF <MORE><=0
CONT.SAYU *Dejas de Arder*
REMOVE
RETURN 1
ELSE
CONT.DAMAGE 2 0001 <TAG.NPC>
MORE=<MORE>+-1
CONT.SAYU *Ardes!*
CONT.EFFECT 3,i_fx_field_fire,30,36,0
TIMER=1
ENDIF
RETURN 1
[FUNCTION HABILIDAD_LANZALLAMAS_efecto]
forclients 8
sendpacket 0c0 00 D<argv[5]> D<argv[3]> W<argv[0]> W<EVAL <VAR.X1>> W<eval <VAR.Y1>> B<EVAL <VAR.Z1>> W<EVAL <ARGV[9]>> W<EVAL <ARGV[8]>> B<EVAL <ARGV[10]>> B<argv[7]> B<argv[2]> 00 00 00 B<qval 0<argv[6]>?<argv[6]>:0> D<hval <argv[1]> - 1> D<argv[4]>
endfor