home *** CD-ROM | disk | FTP | other *** search
/ isnet Internet / Isnet Internet CD.iso / prog / chat / 12 / 12.exe / SYSTEM / EVENTS.MRC < prev    next >
Encoding:
Text File  |  2000-03-04  |  17.3 KB  |  468 lines
  1. ;%%%%%%%%%%%%%%%%%%%%%%%%
  2. ;script ircN
  3. ;version 7.20
  4. ;author Quietust
  5. ;email quietust@ircN.org
  6. ;url http://www.ircN.org
  7. ;%%%%%%%%%%%%%%%%%%%%%%%%
  8. on 1:SOCKLISTEN:identd {
  9.   set %i.identd 0
  10.   :start
  11.   inc %i.identd
  12.   set %j.identd identd. $+ %i.identd
  13.   if ($sock(%j.identd) == $null) sockaccept %j.identd
  14.   else goto start
  15.   if ($mflag(options,n0,4) == 1) echo $colour(Other) -si2 *** Identd request from $sock(%j.identd).ip
  16. }
  17. on 1:SOCKREAD:identd.* {
  18.   if ($sockerr > 0) return
  19.   sockread %tmp.identd
  20.   if ($sockbr == 0) return
  21.   sockwrite -n $sockname %tmp.identd : USERID : $readini $mircini ident system : $readini $mircini ident userid
  22.   if ($mflag(options,n0,4) == 1) echo $colour(Other) -si2 *** Identd replied: %tmp.identd : USERID : $readini $mircini ident system : $readini $mircini ident userid
  23.   sockclose $sockname
  24. }
  25. on 1:START {
  26.   var %x
  27.   if (%firstuse) set %x $false
  28.   else set %x $true
  29.   if (%x) iecho Disabling mIRC identd, enabling ircN identd...
  30.   .identd off
  31.   if ($portfree(113)) socklisten identd 113
  32.   set %dir $deltok($shortfn($mircdir),-1,92)
  33.   titlebar [[ Not Connected ]] [[ $strip(%ver) ]]
  34.   ddeset
  35.   inc %uses
  36.   if (%delogs == start) {
  37.     if (%x) iecho Deleting logfiles...
  38.     delog -q
  39.   }
  40.   verset
  41.   isunset
  42.   deltemp
  43.   var %a, %b, %y, %z
  44.   set %a 1
  45.   if (%x) {
  46.     iecho Scanning for possible viruses...
  47.     while (%script(%a)) {
  48.       set %z $ifmatch
  49.       titlebar [[ Not Connected ]] [[ $strip(%ver) ]] - Virus Check: File %a of $script(0)
  50.       if ($gettok(%z,-1,46) == ini) {
  51.         iecho Possible .INI trojan found... Unloading!
  52.         iecho All ircN-compatible script files should end in .mrc
  53.         unload -rs %z
  54.         set %b 1
  55.         while (1) {
  56.           set %y $root $+ $nopath(%z) $+ .b $+ $iif(%b == 1,ak,$cnum(%b))
  57.           if ($exists(%y)) inc %b
  58.           else break
  59.         }
  60.         .copy %z %y
  61.         .remove %z
  62.         iecho Moved %z to $root and renamed to $nopath(%y) to prevent possible reinfection.
  63.         dec %a
  64.       }
  65.       inc %a
  66.     }
  67.     iecho Trojan check completed!
  68.   }
  69.   if (%x) iecho Unloading unnecessary files...
  70.   set %ircii off
  71.   if ($alias(irc2.als)) .unload -a irc2.als
  72.   if ($script(irc2.mrc)) .unload -rs irc2.mrc
  73.   if ($script(irc2-2.mrc)) .unload -rs irc2-2.mrc
  74.   if ($script(ircii.mrc)) .unload -rs ircii.mrc
  75.   if ($script(help.mrc)) .unload -rs help.mrc
  76.   titlebar [[ Not Connected ]] [[ $strip(%ver) ]]
  77.   if (%x) {
  78.     iecho Loading necessary script files...
  79.     default.setup
  80.     iecho Welcome to ircN!
  81.   }
  82.   tsound welcome
  83. }
  84. on 1:CONNECT {
  85.   if ($mflag(options,n0,27) == 1) sockclose identd
  86.   titlebar [[ Connected: initializing ]] [[ $strip(%ver) ]]
  87.   mode $me %umode
  88.   if (%delogs == connect) delog -q
  89.   set %backtime $ctime
  90.   set %chandump off
  91.   set %jstats off
  92.   set %f11 on
  93.   set %f12 on
  94.   .timer 0 60 online
  95.   if (%titlebar == on) .timertb 0 3 tb
  96.   else titlebar
  97.   write -c $queue1
  98.   write -c $queue2
  99.   .timer 0 2 queuemsg
  100.   if ($sock(irc2.*,0)) {
  101.     set %i 0
  102.     :irc2
  103.     inc %i
  104.     if ($sock(irc2.*,%i)) {
  105.       .timer 0 40 i2.notify $sock(irc2.*,%i)
  106.       set %timer.i2notify. [ $+ [ $sock(irc2.*,%i) ] ] $ltimer
  107.       goto irc2
  108.     }
  109.   }
  110.   if (%lag != off) set %lag 0
  111.   if ($server($server).group) {
  112.     if ($server($server).group == dalnet) netset $server($server).group 10
  113.     elseif ($server($server).group == undernet) netset $server($server).group 4
  114.     elseif ($server($server).group == chatnet) netset $server($server).group 5
  115.     elseif (($server($server).group == austnet) || ($server($server).group == galaxynet) || ($server($server).group == othernet)) netset $server($server).group 6
  116.     else {
  117.       set %vercheck on
  118.       .quote version
  119.     }
  120.   }
  121.   elseif ($network) {
  122.     if ($network == dalnet) netset $network 10
  123.     elseif ($network == undernet) netset $network 4
  124.     elseif ($network == chatnet) netset $network 5
  125.     elseif (($network == austnet) || ($network == galaxynet) || ($network == othernet)) netset $network 6
  126.     else {
  127.       set %vercheck on
  128.       .quote version
  129.     }
  130.   }
  131.   elseif (*.dal.net iswm $server) netset DALnet 10
  132.   elseif (*.undernet.org iswm $server) netset Undernet 4
  133.   elseif (*.austnet.org iswm $server) netset AustNet 6
  134.   elseif (*.galaxynet.org iswm $server) netset GalaxyNet 6
  135.   elseif (*.chatnet.org iswm $server) netset ChatNet 5
  136.   elseif (*.othernet.org iswm $server) netset OtherNet 6
  137.   else {
  138.     set %vercheck on
  139.     .quote version
  140.   }
  141.   if (%firstuse) {
  142.     iecho Type $hc(/aj #ircN) now to add #ircN to autojoin...
  143.     unset %firstuse
  144.     set %firstjoin $true
  145.     .save -rv vars.mrc
  146.   }
  147.   if (%awaytime != $null) {
  148.     if (%stayaway == on) .quote away : $+ %awaymsg
  149.     else unset %awaytime %awaymsg
  150.   }
  151.   iunset
  152.   wcln
  153.   cclr
  154.   online
  155.   splash
  156.   tsound connect
  157. }
  158. on 1:DISCONNECT {
  159.   if ($portfree(113)) socklisten identd 113
  160.   if ($window(@Splash)) .timer 1 1 window -c @Splash
  161.   titlebar [[ Not Connected ]] [[ $strip(%ver) ]]
  162.   .timers off
  163.   tsound disconnect
  164.   if (%cookie) {
  165.     .timer 1 600 unset %cookie
  166.     set %cookie.timer $ltimer
  167.   }
  168. }
  169. on 1:INPUT:# {
  170.   if ((%inputcatch == on) || ($left($1,1) == $readini -n $mircini text commandchar) || ($0 == 0)) return
  171.   if ((%nc == on) && ($right($1,1) == %nch) && ($1 != %nch) && ($chr(44) !isin $getleft($1)) && ($chr(40) !isin $getleft($1)) && ($chr(41) !isin $getleft($1))) {
  172.     if ($nc($1,$chan)) say $ncomp($nc($1,$chan)) $2-
  173.     else say $1-
  174.     halt
  175.   }
  176.   else {
  177.     say $1-
  178.     halt
  179.   }
  180. }
  181. on 1:JOIN:# {
  182.   if ((%firstjoin) && ($nick == $me)) .timer 1 0 firstjoin
  183.   if (%bt.dont.trigger == on) {
  184.     inc %bt.dont.trigger.joins
  185.     timoff %bt.dont.timer bt.dont.timer
  186.     if (%bt.dont.trigger.joins > $sub(%numsplitnicks,%bt.maxjoins)) {
  187.       unset %bt.dont.trigger %bt.dont.trigger.joins
  188.       timoff %bt.dont.timer2 bt.dont.timer2
  189.     }
  190.     else {
  191.       .timer 1 10 unset %bt.dont.trigger.joins
  192.       set %bt.dont.timer $ltimer
  193.     }
  194.   }
  195.   if ($nick == $me) {
  196.     if ($findtok(%cyclechannels,$chan,1,44)) set %cyclechannels $remtok(%cyclechannels,$chan,1,44)
  197.     set %joinedchans $addtok(%joinedchans,$chan,44)
  198.     .who $chan
  199.   }
  200.   if (%colnick == on) colupdt $chan $nick
  201.   if ((%auto == on) && ($nick != $me)) {
  202.     if ($readini -n $td(onjoin.txt) $chan notice) qnotice $nick $readini -n $td(onjoin.txt) $chan notice
  203.     if ($readini -n $td(onjoin.txt) $chan msg) qmsg $nick $readini -n $td(onjoin.txt) $chan msg
  204.     if ($readini -n $td(onjoin.txt) $chan ctcp) qctcp $nick $readini -n $td(onjoin.txt) $chan ctcp
  205.   }
  206.   if (%info == on) {
  207.     if ($infoline($usr($nick),$chan)) msg $chan %lb $+ $nick $+ %rb $infoline($usr($nick),$chan)
  208.     elseif ($infoline($usr($nick))) msg $chan %lb $+ $nick $+ %rb $infoline($usr($nick))
  209.   }
  210.   if (($ulevel == 20) && ($sd($nick,$chan))) {
  211.     if ($me isop $chan) {
  212.       set %tmp $readini -n bans.ini $ulist($fulladdress,20,1) reason
  213.       .quote mode $chan +b $ulist($fulladdress,20,1) $+ $crlf $+ kick $chan $nick :banned: $deltok(%tmp,1,32)
  214.     }
  215.   }
  216.   if (($me isop $chan) && ($ulevel == 40)) {
  217.     if (($chkflag($usr($nick),$chan,o)) && ((($chkflag($usr($nick),$null,b)) && (%opbot == on)) || ($chkflag($usr($nick),$chan,a)))) mode $chan +o $nick
  218.     if ($chkflag($usr($nick),$chan,v)) mode $chan +v $nick
  219.     if ($chkflag($usr($nick),$chan,k)) kbc $chan $nick ...and don't come back.
  220.   }
  221. }
  222. on 1:QUIT {
  223.   if (%autocycle == on) .timer 1 0 doquitcheck
  224.   if (%netsplit == on) {
  225.     if (($3) || ($2 == $null) || ($1 == $2) || (รก isin $1-) || ($ isin $1-) || (. !isin $2) || (. !isin $1) || (ircII* iswm $1)) return
  226.     elseif (($1 == %split11) && ($2 == %split22)) {
  227.       ns.nick $nick [ $1 ] $+ & $+ [ $2 ]
  228.       inc %numsplitnicks
  229.       if (%numsplitnicks > %bt.maxjoins) {
  230.         set %bt.dont.trigger on
  231.         .timer 1 900 unset %bt.dont.trigger
  232.         timoff %bt.dont.timer2 bt.dont.timer2
  233.         set %bt.dont.timer2 $ltimer
  234.       }
  235.     }
  236.     elseif ((irc*.* iswm $1) || (irc*.* iswm $2) || (*.com iswm $1) || (*.com iswm $2) || (*.net iswm $1) || (*.net iswm $2) || (*.edu iswm $1) || (*.edu iswm $2) || (*.Org iswm $1) || (*.Org iswm $2)) {
  237.       set %split11 $1
  238.       set %split22 $2
  239.       set %split2 $replace($2,*,irc)
  240.       ns.serv $1 $2
  241.       ns.nick $nick [ $1 ] $+ & $+ [ $2 ]
  242.       if ($form(other,split)) {
  243.         iecho $readini %formats other split
  244.         if ($form(other,split2)) iecho $readini %formats other split2
  245.         if ($form(other,split3)) iecho $readini %formats other split3
  246.         if ($form(other,split4)) iecho $readini %formats other split4
  247.       }
  248.       else {
  249.         iecho Netsplit detected at $hc($atime) between $hc($1) and $hc($2)
  250.         iecho Press $hc(sF10) to see who split away.
  251.       }
  252.       set %f11cmd irc2 %split2 6667
  253.       if ($form(other,splitjoin)) {
  254.         iecho $readini %formats other splitjoin
  255.         if ($form(other,splitjoin2)) iecho $readini %formats other splitjoin2
  256.       }
  257.       else iecho To join split ( $+ $hc(%split2) $+ ) in an irc2 session, press $hc(F11) $+ .
  258.       .timer 1 240 wcln
  259.       tsound split
  260.     }
  261.     else return
  262.   }
  263. }
  264. on 1:CTCPREPLY:PING * {
  265.   if ($left($2,1) == $) {
  266.     iecho PING reply exploit detected from $hc($nick) $rbrk($address) $+ : $ac($2-)
  267.     halt
  268.   }
  269.   elseif (($calc($2) !isnum) && ($2 != $null)) {
  270.     iecho CTCP $hc(PING) $sc(reply) from  $+ $hc($nick) $+ : $2-
  271.     halt
  272.   }
  273.   elseif ($2 == $null) {
  274.     iecho CTCP $hc(PING) $sc(reply) from  $+ $hc($nick) $+ .
  275.     halt
  276.   }
  277.   elseif ($2 isnum) {
  278.     set %pt $abs($rrpt($sub($ticks,$2)))
  279.     if (%pt <= 0) {
  280.       if ($form(ctcpreplies,ping0)) iecho $readini %formats ctcpreplies ping0
  281.       else iecho CTCP $hc(PING) $sc(reply) from  $+ $hc($nick) $+ : 0 seconds
  282.     }
  283.     elseif ($form(ctcpreplies,ping)) iecho $readini %formats ctcpreplies ping
  284.     else iecho CTCP $hc(PING) $sc(reply) from  $+ $hc($nick) $+ : $iduration(%pt)
  285.     set %ctcprrec [ $+ $nick $+ ( $+ $address $+ )] $1 $+ : $iduration(%pt)
  286.     if ($nick != $me) && (%autoping == on) qnotice $nick Your ping reply was $iduration(%pt) $+ .
  287.     unset %pt
  288.   }
  289.   halt
  290. }
  291. on 1:CTCPREPLY:* {
  292.   if ($1- == $null) halt
  293.   if ($chr(36) isin $1-2) {
  294.     iecho Invalid CTCP reply detected from $hc($nick) $rbrk($address) $+ : $ac($1-)
  295.     halt
  296.   }
  297.   if (($1 == LAGSTAT) && ($nick == $me) && (%lag != off)) {
  298.     if ($2 isnum) {
  299.       set %pt $abs($rrpt($sub($ticks,$2)))
  300.       set %lag $iif(%pt < 0,0,%pt)
  301.       halt
  302.     }
  303.   }
  304.   set %ctcprrec [ $+ $nick $+ ( $+ $address $+ )] $1 $+ : $2-
  305.   if ($form(ctcpreplies,other)) iecho $readini %formats ctcpreplies other
  306.   else iecho CTCP $hc($1) $sc(reply) from $u($hc($nick)) $+ $cpms($2-)
  307.   halt
  308. }
  309. on 1:BAN:# {
  310.   if (($me isop $chan) && ($banmask iswm $ulist($banmask,40,1)) && ($chkflag($usrh($banmask),$chan,f)) && (($chkflag($usr($nick),$chan,m) == $false) || ($chkflag($usr($nick),$chan,b) == $false))) {
  311.     if (%protdeop == on) mode $chan -ob $nick $banmask
  312.     else mode $chan -b $banmask
  313.     qnotice $nick Sorry, that hostmask ( $+ $usrh($banmask) $+ ) is protected.
  314.   }
  315.   if (($me isop $chan) && (%f11 == on) && ($nick != $me)) {
  316.     if ($chan != $active) {
  317.       if ($form(other,chanban)) iecho $readini %formats other chanban
  318.       else iecho $hc(BAN) [ $+ $chan $+ ]: $rbrk($banmask) placed by $hc($nick) $+ .
  319.     }
  320.     if ($form(other,ban)) iecho $readini %formats other ban
  321.     else iecho To remove ban press $hc(F11) $+ .
  322.     set %f11 off
  323.     .timer 1 7 set %f11 on
  324.     set %f11cmd mode $chan -b $banmask
  325.   }
  326.   if ((%kickonban != on) || ($chkflag($usr($nick),$null,b))) return
  327.   set %tmp.kb 0
  328.   :start
  329.   inc %tmp.kb
  330.   set %tmpmask $ialchan($banmask,$chan,%tmp.kb)
  331.   if (%tmpmask) {
  332.     set %tmpnick $ialchan($banmask,$chan,%tmp.kb).nick
  333.     if ($me isop $chan) {
  334.       if ((%tmpnick == $me) && ($nick != $me)) .quote mode $chan -ob $nick $banmask $+ $crlf $+ kick $chan $nick : $+ %bankick
  335.       elseif (%tmpnick == $me) .quote mode $chan -b $banmask
  336.       elseif (%tmpnick == $nick) .quote mode $chan -ob $nick $banmask $+ $crlf $+ kick $chan $nick :insanity check -- user attempted to ban self
  337.       elseif ($chkflag($usr(%tmpnick),$chan,f)) goto start
  338.       elseif ($level(%tmpmask) != 20) {
  339.         iecho $hc(%tmpnick) has been banned from $brkt($chan) by $sc($nick) $+ , kicking...
  340.         .quote kick $chan %tmpnick :banned
  341.       }
  342.     }
  343.     goto start
  344.   }
  345. }
  346. on 1:UNBAN:# {
  347.   if (($me isop $chan) && (%f11 == on) && ($nick != $me)) {
  348.     if ($chan != $active) {
  349.       if ($form(other,chanbanrem)) iecho $readini %formats other chanbanrem
  350.       else iecho $hc(BAN) [ $+ $chan $+ ]: $rbrk($banmask) removed by $hc($nick) $+ .
  351.     }
  352.     if ($form(other,banrem)) iecho $readini %formats other banrem
  353.     else iecho To redo ban press $hc(F11) $+ .
  354.     set %f11 off
  355.     .timer 1 7 set %f11 on
  356.     set %f11cmd mode $chan +b $banmask
  357.   }
  358. }
  359. on 1:INVITE:* {
  360.   if (($chkflag($usrh($fulladdress),$null,b)) || ($chkflag($usrh($fulladdress),$null,m))) {
  361.     if ($form(other,inviteajoin)) iecho $readini %formats other inviteajoin
  362.     else iecho Autojoining $hc($chan) by the request of $hc($nick) $rbrk($address)
  363.     join $chan
  364.   }
  365.   else {
  366.     if (%f11 == on) {
  367.       set %f11 off
  368.       .timer 1 7 set %f11 on
  369.       set %f11cmd join $chan
  370.       set %f12cmd ckb $nick %ckb
  371.       if ($com.opchannels($nick)) {
  372.         if ($form(other,inviteopjoin)) {
  373.           iecho $readini %formats other inviteopjoin
  374.           if ($form(other,inviteopjoin2)) iecho $readini %formats other inviteopjoin2
  375.         }
  376.         else iecho To join $hc($chan) press $hc(F11) $+ , to kickban press $hc(F12) $+ .
  377.       }
  378.       else {
  379.         if ($form(other,invitejoin)) {
  380.           iecho $readini %formats other invitejoin
  381.           if ($form(other,invitejoin2)) iecho $readini %formats other invitejoin2
  382.         }
  383.         else iecho To join $hc($chan) press $hc(F11) $+ .
  384.       }
  385.     }
  386.   }
  387.   tsound invite
  388. }
  389. on 1:TEXT:*:# {
  390.   if ((%autoping == on) && ((ping me * iswm $1-) || (* ping me * iswm $1-) || (* ping me iswm $1-))) qctcp $nick PING $ticks
  391.   if (($away) && (%announce == on)) {
  392.     if (($me isin $1-) || ((%altnick1 isin $1-) && (%altnick1 != $null)) || ((%altnick2 isin $1-) && (%altnick2 != $null))) {
  393.       if ($findtok(%knowaway,$nick,1,44) == $null) {
  394.         set %knowaway $addtok(%knowaway,$nick,44)
  395.         if (%saytype == notice) .notice $nick I am away, $b(%awaymsg) [log: $+ $upper(%msglog) $+ ] [page: $+ $upper(%pager) $+ ] $e-mail($email) $uin(%uin) Gone for $b($gone)
  396.         elseif (%saytype == action) .describe $nick is away, $b(%awaymsg) [log: $+ $upper(%msglog) $+ ] [page: $+ $upper(%pager) $+ ] $e-mail($email) $uin(%uin) Gone for $b($gone)
  397.         elseif (%saytype == channel) describe $chan is away, $b(%awaymsg) [log: $+ $upper(%msglog) $+ ] [page: $+ $upper(%pager) $+ ] $e-mail($email) $uin(%uin) Gone for $b($gone)
  398.       }
  399.     }
  400.   }
  401.   if ((%decrypt == on) && ($1 == ]) && ($2 != $null)) {
  402.     crypt 1 %encryptpw $2-
  403.     echo -ti2 $chan < $+ $pst($nick,$chan) $+ : $+ $hc(crypt) $+ : $+ $sc(%encryptpw) $+ > $result
  404.   }
  405.   if ((%chandump == on) && ($isvalidchan(%dchans,$chan))) echo %duchan < $+ $hc($nick) $+ : $+ $sc($chan) $+ > $1-
  406.   if (($me isin $1-) || (%shortnick isin $1-)) {
  407.     set %lsnick $nick
  408.     if ($chan != $active) {
  409.       set %tmp $1-
  410.       if (%shownick == on) set %tmp $replace(%tmp,$me,$addtok($hc($me),,0))
  411.       if (%showword == on) set %tmp $replace(%tmp,%shortnick,$addtok($hc(%shortnick),,0))
  412.       if (%tmp == $1-) return
  413.       else iiecho < $+ $nick $+ : $+ $sc($chan) $+ > %tmp
  414.     }
  415.   }
  416. }
  417. on 1:ACTION:*:# {
  418.   if ((%chandump == on) && ($isvalidchan(%dchans,$chan))) echo %duchan * $hc($nick) $+ : $+ $sc($chan) $1-
  419.   if (($me isin $1-) || (%shortnick isin $1-)) {
  420.     set %lsnick $nick
  421.     if ($chan != $active) {
  422.       set %tmp $1-
  423.       if (%shownick == on) set %tmp $replace(%tmp,$me,$hc($me))
  424.       if (%showword == on) set %tmp $replace(%tmp,%shortnick,$hc(%shortnick))
  425.       if (%tmp == $1-) return
  426.       else iiecho * $nick $+ : $+ $sc($chan) %tmp
  427.     }
  428.   }
  429. }
  430. on 1:NOTICE:*:# {
  431.   if ((%chandump == on) && ($isvalidchan(%dchans,$chan))) echo %duchan - $+ $hc($nick) $+ : $+ $sc($chan) $+ - $1-
  432.   if (($me isin $1-) || (%shortnick isin $1-)) {
  433.     set %lsnick $nick
  434.     if ($chan != $active) {
  435.       set %tmp $1-
  436.       if (%shownick == on) set %tmp $replace(%tmp,$me,$hc($me))
  437.       if (%showword == on) set %tmp $replace(%tmp,%shortnick,$hc(%shortnick))
  438.       if (%tmp == $1-) return
  439.       else iiecho - $+ $nick $+ : $+ $sc($chan) $+ - %tmp
  440.     }
  441.   }
  442. }
  443. on 1:TOPIC:# {
  444.   if ($isvalidchan(%hchan,$chan)) {
  445.     if (($me !isop $chan) && (t isin $chan($chan).mode)) return
  446.     if ($nick != $me) {
  447.       topic $chan %holdtopic. [ $+ [ $chan ] ]
  448.       qnotice $nick Topic for $chan is HELD
  449.     }
  450.     else set %holdtopic. [ $+ [ $chan ] ] $chan($chan).topic
  451.   }
  452. }
  453. #notify on
  454. on 1:NOTIFY { .quote userhost $nick }
  455. on 1:UNOTIFY {
  456.   if ((%getnick == on) && (GetNick. isin $notify($nick).note)) {
  457.     .quote nick $nick
  458.     set %getnick off
  459.     iecho Regained nickname $hc($nick) $+ , GetNick disabled.
  460.     if ($notify($nick).note == GetNick.temp) .notify -r $nick
  461.     else .notify $nick $deltok($notify($nick).note,$gettok($notify($nick).note,0,32),32)
  462.   }
  463.   elseif ($form(notify,left)) iecho $readini %formats notify left
  464.   else iecho $hc($nick) has left IRC.
  465.   halt
  466. }
  467. #notify end
  468.