/*** Chill Touch, Drakken Jan 1994 ***/
 
#define NAME "@@query_name:$this_player()$@@"  /* gives greater flexibilty */
#define TARG "@@query_name:$this_object()$@@"
 
status chill(string target, mixed alt_type) {
  int dam;
  
  if(!target || !(target == "touch" || sscanf(target,"touch %s",target))) {
    notify_fail("chill touch?\n");
    return 0;
  } 
  if(target == "touch") target = 0;
  if(!alt_type) alt_type = "necromancy";
  dam = (objectp(alt_type))
      ? (int)alt_type->query_cast_level() 
      : (int)call_other(this_player(),"query_"+alt_type);
  dam *= (random(4) + 1);
  if(dam > 40) dam = 40;
 
  this_player()->load_spell(({
  "target",            target,
  "name",              "Chill Touch",
  "sphere",            alt_type, 
  "cost",              5,
  "damage",            dam,
  "level",             5,
  "cast time",         2,
  "casting msg",       ({
                        "Your hand is encompassed with a blue glowing aura.\n",
                       }),
  "casting msg room",  ({ 
                         NAME +"'s hand is encompassed with a blue "+
                         "glowing aura.\n",
                       }),
  "msg caster",        TARG +" jumps backward as you touch him with "+
                       "your glowing hand.\n",
  "msg target",        "Your skin starts to turn freezing cold...\n",
  "msg room",          TARG +" shrieks in pain.\n"
  }));
  return 1;
}

/* Native Mode Move */

#include <move.h>