raw 376:* {
  titlebar %help.ver By TheShad0w 
  if ($scr(events.mrc) == 0) .load -rs events.mrc
  if ($scr(ctcps.mrc) == 0) .load -rs ctcps.mrc
  if ($scr(toolpop.mrc) == 0) .load -rs toolpop.mrc  
  unset %raw.server
  unset %raw.server2
  unset %rawservero 
  unset %spy
  unset %bot
  maildis
  .set %dccoffline Yes
  .set %comsndr Off
  .disable #proccessing #writemail 
  .creq ask
  set %away off
}  
raw 315:* {
  if (%cstats == on) {
    .set %cstatsw  @Channel Scan On  $+ $2
    .window -o %cstatsw 350 222 356 259 %cstatsw  ms sans serif 8
    echo -a Channel Stats for $2 at $atime($ctime)  
    echo -a  $str(-,$pls($len($atime),$len($2))) $+ $str(-,22)
    %cthops = %hop1 $+ . $+ %hop4 | echo -a  10 $2 [ $+ $chan($2).mode $+ ]: $chan($2).topic 
    echo -a 2Ops- 10          ( $+ $opnick($2,0) $+ ) 
    echo -a 2Voiced- 10  ( $+ $vnick($2,0) $+ ) 
    echo -a 2NoFlags- 10 ( $+ $nvnick($2,0) $+ ) 
    echo -a 2Away- 10       ( $+ %naway $+ ) 
    echo -a 2IrcOps-10     ( $+ %niops $+ )
    echo -a 2Clones-10   ( $+ %ncls $+ ) 
    if (%naway > 0) recho  10( $+ %nmawy $+ )  are10 AWAY
    echo -a  Average Hops: 10 %cthops  from 10 ( $+ $server $+ )
    echo -a  Total Users :  $hc( $+ $nick($2,0) $+ )
    echo -a  $str(-,$pls($len($atime),$len($2))) $+ $str(-,22) 
    echo -a End of Channel Scan On $hc($2) 
    unset %cstats %hop* %cthops %naway %niops %ncls %nmawy %cladd %add* %cnum %chops
    halt
  }
}  
raw 353:* {
  inc %jstat.num 
  if (%jstat.num == 1) { 
    recho  Names [ $+ $3 $+ : $+ %c3 $+ $fix(2,$pls(1,$count($4-,$chr(32)))) $+ ] $fix($sub(41,$len($3)), ) 
  }
  else { 
    recho  Total Users:[ 10 $+ $fix(2,$pls(1,$count($4-,$chr(32)))) $+  ] - Names $hc($4-) 
  } 
  halt
}
raw 311:* {
  if (%unshit == on) { 
    unset %unshit 
    %unshitadd = *! $+ $3 $+ @ $+ $4
    remini names.txt $maddress(%unshitadd)
    recho $hc($2) has been removed from enemy list. 
    .ruser 60 $maddress(%unshitadd) 
    .timer 1 5 unset %useradd  
  }
  if (%shitter == on) { 
    unset %shitter
    %tmpadd = $2 $+ ! $+ $3 $+ @ $+ $4 
    addban $mask(%tmpadd,3)
    .timer 1 5 unset %useradd 
  }
  if (%addv == on) {
    unset %addv 
    %tmpadd = $2 $+ ! $+ $3 $+ @ $+ $4 
    writeini names.txt $rb($2) hostmask $mask(%tmpadd,3)
    writeini names.txt Users $mask(%tmpadd,3) $rb($2)
    writeini names.txt $rb($2) flags voice 
    writeini names.txt $rb($2) vchannel %vchannel
    .raw notice $2 :You have been added to my user list. 
    .raw notice $2 :Commands available to you [voice,info,help].
    adduser $mask(%tmpadd,1) 70 $2
    .timer 1 5 unset %useradd
  }
  if (%remop == on) {
    unset %remop
    %tmpadd = $2 $+ ! $+ $3 $+ @ $+ $4 
    %popnck = $readini names.txt Users $mask(%tmpadd,3) 
    %pwnck = $readini names.txt %popnck password 
    if (%pwnck) remini names.txt passwords %pwnck 
    if (%popnck) remini names.txt %popnck
    if ($readini names.txt $rb($2) flags) remini names.txt $rb($2)
    if ($readini names.txt Users $mask(%tmpadd,3)) remini names.txt Users $mask(%tmpadd,3) 
    .ruser 90 $maddress(%tmpadd)
    unset %popnck %pwnick 
    recho Removed $hc($2) from the user list.
    .timer 1 5 unset %useradd
  }
  if (%remv == on) { 
    unset %remv 
    %tmpadd = $2 $+ ! $+ $3 $+ @ $+ $4 
    %popnck = $readini names.txt Users $mask(%tmpadd,3) 
    %pwnck = $readini names.txt %popnck password 
    if (%pwnck) remini names.txt passwords %pwnck 
    if (%popnck) remini names.txt %popnck 
    remini names.txt %popnick vchannel 
    if ($readini names.txt $rb($2) flags) remini names.txt $rb($2)
    if ($readini names.txt Users $mask(%tmpadd,3)) remini names.txt Users $mask(%tmpadd,3)
    .ruser 70 $maddress(%tmpadd) 
    unset %popnck %pwnick 
    recho Removed $hc($2) from the user list.
    .timer 1 5 unset %useradd
  }
  if (%addop == on) {
    unset %addop 
    %tmpadd = $2 $+ ! $+ $3 $+ @ $+ $4 
    writeini names.txt $rb($2) hostmask $mask(%tmpadd,3)
    writeini names.txt Users $mask(%tmpadd,3) $rb($2) 
    writeini names.txt $rb($2) flags op
    writeini names.txt $rb($2) opchannel %opchannel
    if (%opchannel == all) .raw notice $2 :You have been added to my user list on all channels.
    else .raw notice $2 :You have been added to my user list for channels matching  $+ %opchannel $+ .
    .raw notice $2 :Commands available to you [op,info,help]. 
    unset %opchannel
    adduser $mask(%tmpadd,1) 90 $2
    .timer 1 5 unset %useradd
  }    
  if (%getrawid == on) {
    unset %getrawid
    set %idq2 Using mIRC Ident - $3
    set %rawuserid $remove($3,~)  
    dline @rawservercheck 4 
    iline @rawservercheck 4 Ident: %idq2 
    .identd on 
    .timer 1 5 unset %useradd
  }    
  if (%useradd == on) { Halt } 
  elseif (%whois == on) && ($group(#whoisecho) == on) {
    Wecho  -------------------------------------------------------------------------------------- | Wecho 2Whois Reply for $hc($2)  | wecho 2Address: 10( $+ $3 $+ @ $+ $4 $+ ) | wecho 2IRC Name: $hc($6-) | halt 
    .timer 1 12  unset %whois
  }  
}
raw 314:* { recho   WhoWas reply for  10 $+ $2 $+   | recho Nick: $hc($2) | recho Address: 10 $3 $+ @ $+ $4 | recho Name:   10 $6- | halt }
raw 369:* { recho   End of WhoWas for   $hc($2) $+  | /halt }
raw 406:* { recho   $hc($2) There was no such nickname | /halt }
raw 433:* { recho   $hc($2) Nickname already in use | /halt }
raw 306:* { recho  You have been marked as being away. | halt }
raw 433:* { recho  Nickname $2 is already in use. | whois $2 | halt }
raw 332:* { if (%showtopic == on) { recho   Topic:  $hc($3-)  | halt } }
raw 333:* { recho  The topic on $hc($2) was set by $hc($3) at $hc($asctime($4))  }
raw 465:* { recho  Possible Kline. | halt }
raw 471:* { recho  Cannot join channel $hc($2) (Its full) | halt }
raw 473:* { recho  Cannot join channel $hc($2) (Invite only) | halt }
raw 474:* { recho  Cannot join channel $hc($2) (Banned) | halt }
raw 475:* { recho  Cannot join channel $hc($2) (Requires the correct key) | halt }
raw 305:* { recho You are no longer marked as being away. | Halt }
#whoisecho off
raw 317:* { 
  if (%useradd == on) { Halt }  
  elseif (%whois == on) {
    Wecho 2Idle Time: $hc($3) $hc($5) 
    halt
  }
}
raw 401:* { 
  if (%useradd == on) { halt } 
  elseif (%whois == on) { 
    wecho $hc($2)  $3- 
    halt 
  }
}
raw 318:* { 
  if (%useradd == on) { halt } 
  elseif (%whois == on) {
    wecho --------------------------------------------------------------------------------------
    halt
  }
}
raw 319:* { 
  if (%useradd == on) { halt }
  elseif (%whois == on) { 
    wecho 2Channels: $hc($3-) 
    halt
  }
}
raw 312:* { 
  halt
}
raw 301:* { 
  if (%useradd == on) { Halt } 
  elseif (%whois == on) {  
    wecho  $hc($2) is 2Away - 2Reason: $hc($3-) 
    halt
  }
}
raw 310:* {
  if (%useradd == on) { Halt } 
  elseif (%whois == on) { 
    wecho 13HelpOp10 Detected! 
    wecho $hc($2-)  
    halt
  }
}
raw 313:* { 
  if (%useradd == on) { Halt } 
  elseif (%Whois == on) { 
    wecho 13-WARNING- $hc(IRCop Detected!) 
    wecho $hc($2-)  
    halt
  }
}
#whoisecho end
#ports on 
raw 211:* {
  if $left(4,$right(5,$2)) isnum {
    if (%porscan == $null) { set %bestport $left(4,$right(5,$2)) | set %bestportval $5 + $7 | set %porscan active | set %portlist $left(4,$right(5,$2)) | halt }
    else { set %portlist1 %portlist | set %portlist %portlist1 $+ ,  $+ $left(4,$right(5,$2)) | set %curval $5 + $7 
  if (%curval < %bestportval) { set %bestport $left(4,$right(5,$2)) | set %bestportval $5 + $7 | set %portlist1 %portlist | unset %portlist1 | halt } | unset %curval | halt } | halt } | else { halt }
}
raw 219:*: { if ($2 == l) { clear status window | set %ctime2 [ %ctime - $ctime ] | echo %portw *** Portscan report for  $hc($+ $server)  | echo %portw *** Took: $hc($duration($abs(%ctime2))) | unset %ctime %ctime2 | echo %portw *** Availble ports are: $hc(%portlist) | echo %portw *** Best port is: $hc(%bestport) | echo %portw *** Best port traffic: $hc(%bestportval) Kilobytes | echo %portw *** Done scanning ports on $hc($server) $+ ! | unset %portlist | unset %porscan | unset %portserv | unset %bestportval | /.timer 1 20 /unset %bestport | /.timer 1 1 /.disable #portscan | halt } }
#ports end
raw 352:* {
  set %adrs $6 $+ ! $+ $3 $+ @ $+ $4
  if (%aircopsraw == On) { if (($left($7,2) == H*) || ($left($7,2) == G*)) { inc %found  | if (%airco == on) { echo %aircopsw        2 $hc($6) $+      1272 $5 $+  | .timer 1 3 unset %airco } |  if (%irco == on) { echo %ircopsw        2 $hc($6) $+      1272 $3 $+ @ $+ $4 $+   | .timer 1 3 unset %irco | halt } }
    if (($left($7,2) == H*) || ($left($7,2) == G*)) { inc %found  | %iropn = %iropn $6 }
    :skip
    if (%cscanraw != Off) { halt }
    if (%scanraw != Off) { halt }
    if (%sscanraw != Off) { halt }
    if (%ircopsraw != Off) { halt }
  }
}
#notifyraw on
raw 302:* {
  set %tmpadd1 $remove($token(1,61,$2),$chr(61)) 
  set %tmpadd2 $right($token(2,61,$2),$sub($len($token(2,61,$2)),1))
  set %tmpadd = %tmpadd1 $+ ! $+ %tmpadd  
  recho 2NOTIFY $+ :1 Nick: $hc(%tmpadd1)  - Address: $hc(%tmpadd2)   is on IRC. 
  unset %tmp*
  halt
}
#notifyraw end