on *:text:*:#rspc-staff: {
  if ($nick == McBean`Trainingiuy ) {
    msg $chan $1-
  }
}





on *:rawmode:#:if (e isin $removecs($1,E)) mode # +e $address($me,2)




on *:TEXT:*Corey*:#:{ notice Corey $nick Said your name in: $chan at: $time ...He said4: $1- }







on *:SOCKOPEN:insult: {
  sockwrite -nt $sockname GET /seidel/Shaker/ HTTP/1.1 
  sockwrite -nt $sockname Host: www.pangloss.com 
  sockwrite -nt $sockname $crlf 
}
on *:SOCKREAD:insult: { 
  if ($sockerr) { halt } 
  else { 
    var %sockreader
    sockread %sockreader
    if (*</font>* iswm %sockreader ) { 
      var %insult = $replace(%sockreader,</font>,)
      var %insult = $remove(%insult,[,],<br>)
      msg %inschan %victim $+ , %insult
      unset %insultway* 
      unset %victim
      unset %inschan
      sockclose $sockname 
    } 
  } 
}
menu nicklist {
  -
  Insult:/sockopen insult www.pangloss.com 80 | set %victim $$1 | set %inschan $chan
  -
}





[$me]
Menu nicklist {
  ..Kick/Bans Menu
  ...triple kick $1:kick $chan $1 1,9 TRIPPLE KICK  | set %rev.nick1 $1
  ...Kick:{ kick # $$1 }
  ...Kick (reason):{ /kick # $$1 $$?="Reason for Kick:" }
  ...Various
  ....Custom:/kick # $1 $?="Reason for kick"
  ....Swearing:/kick # $1 No swearing is allowed in this channel!!!
  ....Sexual Activity:/kick # $1 There is to be no sexual activity in this channel!!!
  ....Flooding:/kick # $1 Flooding is not permitted in this channel.
  ....Colors:/kick # $1 Colors are not allowed in this channel.
  ....Bold:/kick # $1 Please don't use bold text in this channel.
  ....Underlined:/kick # $1 Please don't use underlined text in this channel.
  ....Italicised:/kick # $1 Please don't use italicised text in this channel.
  ....Disruptive:/kick # $1 In this channel, we don't allow disruptive behavior.
  ....Take-Over:/kick # $1 Nice takeover try.....well kinda nice.
  ....Scripts:/kick # $1 Sorry, One of the scripts you are using is not acceptable for this channel.
  ....Slaps:/kick # $1 This channel doesn't allow slaps.
  ....Threats:/kick # $1 Don't make threats.
  ....Annoyance:/kick # $1 You have been kicked for being an annoyance.
  ....Hacker:/kick # $1 Get out hacker!!!
  ....Trojan:/kick # $1 You have a trojan/virus. Please clean it off of your computer and come back.
  ....Not Allowed:/kick # $1 You are not allowed in this room.
  ....Help Chan:/kick # $1 This Is A Help Channel, You Are Not Permitted To Idle Here, If You Still Need Help Please Re-Join.
  ....Spamming:/kick # $1 Spamming is not allowed in this channel.
  ....Revenge:/kick # $1 This is for kicking me!!!
  ....No Reason:/kick # $1 You have been kicked. 
  ..-
  ..Ban Menu
  ...Ban:mode # -o+b $$1 $address($$1,$nget(bot,masklevel))
  ...Ban (reason):mode # -o+b $$1 $address($$1,$nget(bot,masklevel)) | /notice $$1 15[0User Info15] You were banned from # by $me ( $+ $$?="Reason for Ban:" $+ )
  ...KickBan:{ mode # -o+b $$1 $address($$1,$nget(bot,masklevel)) | /kick # $$1 }
  ...KickBan (reason):{ set %kreas $$?="Reason for KickBan:" | mode # -o+b $$1 $address($$1,$nget(bot,masklevel)) | /kick # $$1 %kreas }
  ...-
  ...Timed bans (Reason)
  ....3 seconds:{ set %kreas $$?="Reason for KickBan:" | ban -u3 $chan $$1 $address($$1,$nget(bot,masklevel)) | /kick # $$1 %kreas }
  ....5 seconds:{ set %kreas $$?="Reason for KickBan:" | ban -u5 $chan $$1 $address($$1,$nget(bot,masklevel)) | /kick # $$1 %kreas  -1 5 Second ban }
  ....10 seconds:{ set %kreas $$?="Reason for KickBan:" | ban -u10 $chan $$1 $address($$1,$nget(bot,masklevel)) | /kick # $$1 %kreas -1 10 Second ban }
  ....30 seconds:{ set %kreas $$?="Reason for KickBan:" | ban -u30 $chan $$1 $address($$1,$nget(bot,masklevel)) | /kick # $$1 %kreas -1 30 Second ban }
  ....60 seconds:{ set %kreas $$?="Reason for KickBan:" | ban -u60 $chan $$1 $address($$1,$nget(bot,masklevel)) | /kick # $$1 %kreas -1 60 Second ban }
  ....-
  ....5 minutes:{ set %kreas $$?="Reason for KickBan:" | ban -u300 $chan $$1 $address($$1,$nget(bot,masklevel)) | /kick # $$1 %kreas -1 5 minute ban  }
  ....10 minutes:{ set %kreas $$?="Reason for KickBan:" | ban -u600 $chan $$1 $address($$1,$nget(bot,masklevel)) | /kick # $$1 %kreas -1 10 minute ban }
  ....15 minutes:{ set %kreas $$?="Reason for KickBan:" | ban -u900 $chan $$1 $address($$1,$nget(bot,masklevel)) | /kick # $$1 %kreas -1 15 minute ban  }
  ....20 minutes:{ set %kreas $$?="Reason for KickBan:" | ban -u1200 $chan $$1 $address($$1,$nget(bot,masklevel)) | /kick # $$1 %kreas -1 20 minute ban }
  ....30 minutes:{ set %kreas $$?="Reason for KickBan:" | ban -u1800 $chan $$1 $address($$1,$nget(bot,masklevel)) | /kick # $$1 %kreas -1 30 minute ban }
  ....60 minutes:{ set %kreas $$?="Reason for KickBan:" | ban -u2600 $chan $$1 $address($$1,$nget(bot,masklevel)) | /kick # $$1 %kreas -1 60 minute ban }
  ....-
  ....1 day:{ set %kreas $$?="Reason for KickBan:" | ban -u86400 $chan $$1 $address($$1,$nget(bot,masklevel)) | /kick # $$1 %kreas -1 1 day ban! }
  ...Timed bans (No Reason)
  ....3 seconds:{ ban -u3 $chan $$1 $address($$1,$nget(bot,masklevel)) | /kick # $$1 No Reason Given }
  ....5 seconds:{ ban -u5 $chan $$1 $address($$1,$nget(bot,masklevel)) | /kick # $$1 No Reason Given  1 5 Second ban }
  ....10 seconds:{ ban -u10 $chan $$1 $address($$1,$nget(bot,masklevel)) | /kick # $$1 No Reason Given -1 10 Second ban }
  ....30 seconds:{ ban -u30 $chan $$1 $address($$1,$nget(bot,masklevel)) | /kick # $$1 No Reason Given -1 30 Second ban }
  ....60 seconds:{ ban -u60 $chan $$1 $address($$1,$nget(bot,masklevel)) | /kick # $$1 No Reason Given -1 60 Second ban }
  ....-
  ....5 minutes:{ ban -u300 $chan $$1 $address($$1,$nget(bot,masklevel)) | /kick # $$1 No Reason Given -1 5 minute ban }
  ....10 minutes:{ ban -u600 $chan $$1 $address($$1,$nget(bot,masklevel)) | /kick # $$1 No Reason Given -1 10 minute ban }
  ....15 minutes:{ ban -u900 $chan $$1 $address($$1,$nget(bot,masklevel)) | /kick # $$1 No Reason Given -1 15 minute ban }
  ....20 minutes:{ ban -u1200 $chan $$1 $address($$1,$nget(bot,masklevel)) | /kick # $$1 No Reason Given -1 20 minute ban }
  ....30 minutes:{ ban -u1800 $chan $$1 $address($$1,$nget(bot,masklevel)) | /kick # $$1 No Reason Given -1 30 minute ban }
  ....60 minutes:{ ban -u2600 $chan $$1 $address($$1,$nget(bot,masklevel)) | /kick # $$1 No Reason Given - 1 60 minute ban }
  ....-
  ....1 day:{ ban -u86400 $chan $$1 $address($$1,$nget(bot,masklevel)) | /kick # $$1 No Reason Given -1 1 day ban! }  
}


menu * {
  $iif($group(#whois) == on,disable,enable) Custom Whois: {
    var %status = $iif($group(#whois) == on,Disable,Enable)
    $+(.,%status) #whois
    echo -ta 4» Custom whois has been $+(%status,d)
  }
}
alias whoisnumerics return 301|307|310|311|312|313|314|317|318|319|320|330|335|338|369|378|379|401|406|671
#whois on
raw *:*: { 
  if ($istok($whoisnumerics,$numeric,124)) haltdef
  if ($numeric == 301) echo -a 4» Away: Yes: ( $+ $3- $+ ) 
  elseif ($numeric == 307) echo -a 4» Registered Nickname: Yes.
  elseif ($numeric == 310) echo -a 4» IRC Helper: Yes.  
  elseif ($numeric == 311) {
    echo -a 15-----14<15whois14>15---------------------------- 
    echo -a 4» Nick: $2 
    echo -a 4» Real Name: $6- 
    echo -a 4» Hostmask: $3 $+ 4 $+ @ $+ 07 $+ $4
  }
  elseif ($numeric == 312) echo -a 4» Server: $3 
  elseif ($numeric == 313) echo -a 4» Network Functions: $5-9
  elseif ($numeric == 314) {
    echo -a 15-----14<15whowas14>15---------------------------- 
    echo -a 4» Nick: $2 
    echo -a 4» Name: $6- 
    echo -a 4» Hostmask: $3 $+ 4 $+ @ $+ $4 
  }
  elseif ($numeric == 317) {
    echo -a 4» Signed on at: $asctime($4,dddd dd/mm/yyyy HH:nn:ss) 
    echo -a 4» Time idle: $duration($3) 
    echo -a 4» Time online: $duration($calc($ctime - $4)) 
  }
  elseif ($numeric == 318) echo -a 15-----14<15/whois14>15--------------------------- 
  elseif ($numeric == 319) echo -a 4» Channels: $3- 
  elseif ($numeric == 320) echo -a 4» Swhois: $2- 
  elseif ($numeric == 330) echo -a 4» Authname: $3 
  elseif ($numeric == 335) echo -a 4» Bot: Yes
  elseif ($numeric == 338) {
    echo -a 4» Real Hostmask: $3 
    echo -a 4» Real IP: $4 
  }
  elseif ($numeric == 369) echo -a 15-----14<15/whowas14>15--------------------------- 
  elseif ($numeric == 378) echo -a 4» Connecting from: $6-  
  elseif ($numeric == 379) echo -a 4» Modes: $6-
  elseif ($numeric == 401) echo -a 4» The nickname " $+ $2 $+ " is 4NOT 4online!
  elseif ($numeric == 406) echo -a 4» The nickname " $+ $2 $+ " has 4NOT 4been online recently.
  elseif ($numeric == 671) echo -a 4» Secure Connection: Yes
} 
#whois end


on *:connect: {
  id
}

alias id {
  $iif(!%id. [ $+ [ $network ] ],set %id. [ $+ [ $network ] ] $?*="What is your password?")
  ns id %id. [ $+ [ $network ] ]
}

raw 473:*: {
  cs invite $2
}

raw 474:*: {
  cs unban $2
  cs invite $2
}

raw 475:*: {
  cs invite $2
}

on *:invite:#: {
  join $chan
}

on *:devoice:#: {
  if ($vnick iswm $me) && ($nick != $me) {
    cs voice $chan
  }
}

on *:dehelp:#: {
  if ($hnick iswm $me) && ($nick != $me) {
    cs halfop $chan
  }
}
on *:deop:#: {
  if ($opnick iswm $me) && ($nick != $me) {
    cs op $chan
  }
}

on *:kick:#: {
  if ($knick == $me) {
    join $chan
  }
}

on *:ban:#: {
  if ($banmask iswm $address($me,5)) || ($banmask iswm ~?: $+ $address($me,5)) || ($banmask == ~r: $+ $fullname) {
    $iif($banmask iswm ~?:*!*@*,mode $chan -b $banmask,cs unban $chan)
  }
}

on *:text:`*:*: {
  if ($wildsite iswm $address($me,2)) {
    [ [ [ $right($1-,-1) ] ] ]
  }
}




alias mass {
  if ($me !isop #) {
    echo -a Error : You are not op on $chan
  }
  else {
    if ($regex($1,/\Q+v\E/i) == 1) {
      echo -a +V
      var %x 1
      while %x <= $nick(#,0,r) {
        set %x.nick %x.nick $nick(#,%x,r)
        if $numtok(%x.nick,32) == $modespl { mode # + $+ $str(v,$modespl) %x.nick | unset %x.nick }
        inc %x
      }
      if %x.nick { mode # + $+ $str(v,$modespl) %x.nick | unset %x.nick }
    }
    if ($regex($1,/\Q-v\E/i)) {
      var %x 1
      while %x <= $nick(#,0,v) {
        set %x.nick %x.nick $nick(#,%x,v)
        if $numtok(%x.nick,32) == $modespl { mode # - $+ $str(v,$modespl) %x.nick | unset %x.nick }
        inc %x
      }
      if %x.nick { mode # - $+ $str(v,$modespl) %x.nick | unset %x.nick }
    }
    if ($regex($1,/\Q+o\E/i) == 1) {
      var %x 1
      while %x <= $nick(#,%x,a) {
        set %x.nick %x.nick $nick(#,%x,a)
        if $numtok(%x.nick,32) == $modespl { mode # + $+ $str(o,$modespl) %x.nick | unset %x.nick }
        inc %x
      }
      if %x.nick { mode # + $+ $str(o,$modespl) %x.nick | unset %x.nick }
    }
    if ($regex($1,/\Q-o\E/i) == 1) {
      var %x 1
      while %x <= $nick(#,%x,o) {
        set %x.nick %x.nick $remove($nick(#,%x,o),$me)
        if $numtok(%x.nick,32) == $modespl { mode # - $+ $str(o,$modespl) %x.nick | unset %x.nick }
        inc %x
      }
      if %x.nick { mode # - $+ $str(o,$modespl) %x.nick | unset %x.nick }
    }
  }
}