#name: orignick.irc
#author: phos
#date: 11/31/04 (original)
#used to regain your nickname if a bot has taken it.
#beware: you might get packeted for the nick
#/load orignick.irc
#/orignick <nick>
# shoutout alyssa era tane bc ice
#feedback >> danfare@jircii.info
#keep an eye out for the full package of these scripts
#called deep within the next year :)
echo("/orignick: loaded script! type /orignick \bNICK\b to regain your nick");
alias orignick {
   if (($1 eq "-stop") || ($1 eq "-STOP")) { echo("/orignick: failing to regain nick"); call("/st"); return; }
   if (!-istrue $1) { echo("/orignick: no nickname to regain /orignick \bNICK\b"); return; }
   if ($1 eq "$me") { echo("/orignick: you cannot regain the nickname you already have!"); return; }
   $network = getServerNetwork();
   $onick = "$1";

   $orignick = addTimer(&checknick, 2000, 999999999999, $onick);
   echo("/orignick: now attempting to regain nick: $onick");
   echo("/orignick: to fail orignick type /orignick \b-STOP\b");
}
sub checknick { sendRaw("nick $1"); return; }
alias st { stopTimer($orignick); }
on nick {
   if (($parms eq "$me") && ($parms eq "$onick")) { echo("/orignick: regaining nick: $onick"); $onick = ""; call("/st"); }
   #foreach $temp (keys(%localData)) { $value = %localData[$temp]; echo("$[20]temp = $value"); }
}
on repl_433 { if ($1 eq $onick) { halt; } }