void QMB_InfernoFlame (vec3_t org)
{
   float   frametime = fabs(cl.ctime - cl.oldtime);

   if (frametime)
   {
      if (gl_flametype.value < 1)
      {
         AddParticle (p_torch_flame, org, 1, 5, 0.5, NULL, zerodir);
      }
      else
      {
         AddParticle (p_inferno_flame, org, 1, 30, 13.125 * frametime, NULL, zerodir);
         AddParticle (p_inferno_trail, org, 2, 1.75, 45.0 * frametime, NULL, zerodir);
         AddParticle (p_inferno_trail, org, 2, 1.0, 52.5 * frametime, NULL, zerodir);
      }
   }
}

.float flametime;
void() flame_touch =
{
   if (other.classname == "Torch") return;//no fire-vs-fire

   if ((other == self.owner) && ( (self.nextthink - time) > 0.6 ) ) return;

   if (other.classname=="player")
   {
      other.deathtype = "torch";
      T_Damage (other, self, self.owner, 10);
   }

   sound (self, CHAN_WEAPON, "hknight/hit.wav", 1, ATTN_NORM);
   BecomeExplosion();
};

void ()

flame_think =
{
   local entity t1;

   if (pointcontents(self.origin) == CONTENT_WATER)
   {
      remove (self);
      return;
   }

   if (pointcontents(self.origin) == CONTENT_SLIME)
   {
      remove (self);
      return;
   }

   // flame has died remove ent.
   if (self.frame >= 5)
   {
      remove(self);
      return;
   }

   //create more fire!
   //just for looks
   t1           = spawn();
   t1.classname = "Torch";
   t1.owner     = self;
   t1.solid     = SOLID_NOT;
   t1.movetype  = self.movetype;

   setorigin (t1, self.origin);
   setmodel  (t1, "progs/s_explod.spr");

   t1.velocity  = (self.velocity * 0.5);
   t1.frame     = self.frame;
   t1.think     = SUB_Remove;
   t1.nextthink = time + 0.2;

   if ((self.flametime - time) < 0.6)
   {
      self.frame = self.frame + 0.5;
   }

   self.think     = flame_think;
   self.nextthink = time + (sys_ticrate);
};

void() W_FireFlame =
{
   local entity  flame;

   if (self.health<1) return;

   //spit out bubbles if underwater
   if (self.waterlevel > 1)
   {
      flame           = spawn();
      flame.solid     = SOLID_BBOX;
      flame.movetype  = MOVETYPE_FLY;
      makevectors       (self.v_angle);
      flame.velocity  = self.velocity;
      flame.velocity  = aim(self, 10000);
      flame.velocity  = flame.velocity * 100;
      flame.angles    = vectoangles(flame.velocity);
      flame.flags     = FL_ITEM;
      flame.frame     = 0;
      flame.touch     = SUB_Null;
      flame.think     = SUB_Remove;
      flame.nextthink = time + 1;

      setmodel (flame, "progs/s_bubble.spr");
      sound    (self, CHAN_WEAPON, "fish/death.wav", 1, ATTN_NORM);
      setsize  (flame, '0 0 0', '0 0 0');
      setorigin(flame, self.origin + (v_forward*16) + '0 0 16');
      self.attack_finished = time + 0.8;
      return;
   }

   flame           = spawn();
   flame.classname = "Torch";
   flame.owner     = self;
   flame.solid     = SOLID_BBOX;
   flame.movetype  = MOVETYPE_FLY;
   flame.effects   = EF_DIMLIGHT;
   flame.frame     = 0;
   makevectors       (self.v_angle);
   flame.velocity  = self.velocity;
   flame.velocity  = aim(self, 10000);
   flame.velocity  = (self.velocity * 0.6) + (flame.velocity * 300);
   flame.angles    = vectoangles(flame.velocity);
   flame.flags     = FL_ITEM;
   flame.touch     = flame_touch;
   flame.think     = flame_think;
   flame.nextthink = time + (sys_ticrate);
   flame.flametime = time + (sys_ticrate + 0.05);

   sound    (self, CHAN_WEAPON, "weapons/ax1.wav", 0.4, ATTN_NORM);
   setmodel (flame, "progs/s_explod.spr");
   setsize  (flame, '0 0 0', '0 0 0');
   setorigin(flame, self.origin + (v_forward*16) + '0 0 16');
};

void QMB_ParticleExplosion (vec3_t org)
{
   if (ISUNDERWATER(TruePointContents(org)))
   {
      AddParticle (p_fire, org, 12, 14, 0.8, NULL, zerodir);
      AddParticle (p_bubble, org, 6, 3.0, 2.5, NULL, zerodir);
      AddParticle (p_bubble, org, 4, 2.35, 2.5, NULL, zerodir);
      if (r_explosiontype.value != 2)
      {
         AddParticle (p_spark, org, 50, 100, 0.75, NULL, zerodir);
         AddParticle (p_spark, org, 25, 60, 0.75, NULL, zerodir);
      }
   }
   else
   {
      if (gl_flametype.value < 1)
      {
         AddParticle (p_fire2, org, 32, 18, 1, NULL, zerodir);         
      }
      else
      {
         AddParticle (p_fire, org, 16, 18, 1, NULL, zerodir);
      }
            
      if (r_explosiontype.value != 2)
      {
         AddParticle (p_spark, org, 50, 250, 0.925f, NULL, zerodir);
         AddParticle (p_spark, org, 25, 150, 0.925f, NULL, zerodir);
      }
   }
}