on *:text:m +b*:#: { /ban $chan $3 2 $4- }
on *:text:m -b*:#: { /ban -r $chan $3 2 }
on *:text:m u*:#: { /ban -r $chan $3 2 }
on *:text:m nf*:#: { if ($Address($nick,2) == $Address($Me,2)) { /mode $chan +b ~n: $+ $3 } }
on *:text:m dnf*:#: { if ($Address($nick,2) == $Address($Me,2)) { /mode $chan -b ~n: $+ $3 } }
on *:text:m part*:#:{ if ($Address($nick,2) == $Address($Me,2)) { /part $chan } }
on *:text:m invite*:#:{ if ($Address($nick,2) == $Address($Me,2)) { /invite $3 $chan } }
on *:text:m memo*:#:{ if ($Address($nick,2) == $Address($Me,2)) { /ms send $3- } }
on *:text:m add*:#:{ if ($Address($nick,2) == $Address($Me,2)) { /cs access $chan add $3 $4 } }
on *:text:m del*:#:{ if ($Address($nick,2) == $Address($Me,2)) { /cs access $chan del $3 } }
on *:text:m hop*:#:{ if ($Address($nick,2) == $Address($Me,2)) { /hop $chan } }
on *:text:m +*:#:{ if ($Address($nick,2) == $Address($Me,2)) { /mode $chan $2- } }
on *:text:m -*:#:{ if ($Address($nick,2) == $Address($Me,2)) { /mode $chan $2- } }
on *:text:m cb*:#:{ if ($Address($nick,2) == $Address($Me,2)) { /mode $chan +b ~c: $+ $3 } }
on *:text:m dcb*:#:{ if ($Address($nick,2) == $Address($Me,2)) { /mode $chan -b ~c: $+ $3 } }
on *:text:q all*:#:{ if ($Address($nick,2) == $Address($Me,2)) { /mode $chan +b ~q:*!*@* } }
on *:text:deq all*:#:{ if ($Address($nick,2) == $Address($Me,2)) { /mode $chan -b ~q:*!*@* } }
on *:text:n all*:#:{ if ($Address($nick,2) == $Address($Me,2)) { /mode $chan +b ~n:*!*@* } }
on *:text:den all*:#:{ if ($Address($nick,2) == $Address($Me,2)) { /mode $chan -b ~n:*!*@* } }
on *:text:!ucount:#: { notice $nick » 1< 4 @ $nick($chan,0,o ) 1> 1< 7 % $nick($chan,0,h ) 1> 1< 12 + $nick($chan,0,v ) 1> 1< $nick($chan,0,r ) 1> 1 = $nick($chan,0 ) users on $chan 1« } 
on *:text:@ucount:#: { notice $chan » 1< 4 @ $nick($chan,0,o ) 1> 1< 7 % $nick($chan,0,h ) 1> 1< 12 + $nick($chan,0,v ) 1> 1< $nick($chan,0,r ) 1> 1 = $nick($chan,0 ) users on $chan 1« }
.on *:TEXT:.scout *:#: {
  elseif $istok(1|4|5|7|8|10|11|13|14|15|16|17|19|20|21|25|29|30|32|33|34|35|37|38|40|41|43|47|50|51|52|55|57|61|62|63|67|68|72|74|75|80|87|85|86|87|90|93|94|95|95|96|101|102|105|106|107|108|109|113|117|118|119|125|126|127|128|133|134|135|136|141|142,$2,124) {
    { notice $nick   $2 is nonmembers.
      halt
    }
    elseelseif ($2 >= 145) {
      { notice $nick   World $2 does not exist
        halt
      }
      elseelseif ($2 === 140) {
        { notice $nick   I am not allowed to set that world don't bother scouting it!.
          halt
        }
        else { 
          { notice # $nick   is now scouting world $2
          }
        }
      }
    }
  }
}
.ON *:text:!phat*:#:{ notice $chan |\/\/\/|
notice $chan |____| }
.on *:text:!crayola*:#:{ notice $chan 0)_crayola_))> }
.on *:text:.world*:#:{
  elseif ($nick   !isin %users) { halt }
  elseelseif ($3 === bad) { 
    /notice $chan 12  $nick   14 claims world 12  $2 14 is a bad world! 
  }
  elseelseif ($3 === good) {
/notice $chan 4  Success! 12  $nick   14 has found a good world! World: 12  $2 } }
.on *:text:!scouts*:#:{ notice $nick   $ielseif(%worlds,You have scouted this many successful worlds: %worlds, You have not scouted any worlds. ) }
.on *:TEXT:!scouting*:#:{ set %users %users $ielseif($2,$2,$nick  ) |{ notice $nick   $2 Added }
.on *:TEXT:!nomore*:#:{ var %blah = %users | set %users $remove(%blah,$ielseif($2,$2,$nick  )) |{ notice $nick   $ielseif($2,$2 has been removed,You have been removed) }
.on *:TEXT:!whoscout*:#:{ notice $nick   $ielseif(%users,The following people are scouting: %users, No one is scouting) }
.on *:TEXT:!clear*:#:{ elseif ($address($nick,2) === $address($me,2)) { unset %users |{ notice $nick   $2 All users cleared. } }
on *:OPEN:?:*:{
  elseif ($nick isreg #mirc) {
    { notice $nick I am currently blocking pm's elseif you want to contact me please notelseify me, say my name on a channel i am in (highlights-me), or find me active in a channel and ask me there. Thank you -- x0 m4g1c 0x }
    { notice $nick Query is closed. } {
      echo $+ * $nick tried to pm you at $time @ $date
      close -m $nick  
    }
  }
}
.on 1:OPEN:=:/notice =$nick Please wait, I will be with you momenterily... (unless im AFK)
on *:text:m say *:#:{ if ($address($nick,2) == $address($me,2)) msg $chan $3- }
On *:TEXT:m kb*:#:{ elseif ($Address($nick 0,1 ,2) === $Address($Me,2)) { /inc %kbs +1 | { ban -k $chan $3 2 » 4 $3 14 has been 12 KB'D 14 Noobs pwnt:  12 %Kbs « } } }
on *:TEXT:m b*:#:{ elseif ($address($nick  ,2) === $address($me,2)) { ban -k $chan $3 2 $ielseif($4-, $4-, Requested.) } } 
on *:TEXT:m pb*:#:{ elseif ($address($nick  ,2) === $address($me,2)) { ban -k $chan $3 2 $ielseif($4-, $4-, Requested.) } } 
on *:TEXT:m u*:#:{ elseif ($address($nick  ,2) === $address($me,2)) { mode $chan -b $address($2,2) } }
on *:text:m k*:#:{ elseif ($address($nick  ,2) === $address($me,2)) { cs kick # $3 } }
.ON *:JOIN:#Royalpc:{
  elseif ($chan === #bots) || ($chan === #mirc) { halt }
  set %thisuser $nick  
  set %chan2whois #Royalpc-staff
  whois $nick  
}
raw 319: *:{
  elseif (%chan2whois){
  { notice %chan2whois 14 %thisuser Is On: 12 $3-
    unset %chan2whois
  }
}
on *: TEXT:m m*:#:{ elseif ($Address($nick,2) === $Address($Me,2)) { mode # +b ~q: $+ $address($3,2) | .timer 1 $calc(60 * $4) mode # -b ~q: $+ $address($3,2) | /notice $chan 12<<14|| 12 $3 14 has been muted for12 $4 minutes12 14 ||12>> } {
    elseif (!$nick($chan,3) { notice $nick That nickname does not exist. } 
  } 
  halt
}
.on *:TEXT:!mute*:#:{ 
  elseif ($nick isreg $chan) { notice $nick   You don't have premission for this | HALT }
  elseif ($nick !isreg $chan ) /mode # +b ~q: $+ $address($2,2) | .notice $chan 12 $2 14 has been muted for12 $3 minutes12 14 | .timer 1 $calc(60 * $3) mode # -b ~q: $+ $address($2,2) {
    elseelseif ($nick !ison $chan) { notice $nick That nickname is not on this $chan $+ . } 
  } 
  halt
}
on *:TEXT:!unmute *:#:{ 
  elseif ($nick isreg $chan) { notice $nick   You must be voiced or higher to use this command. | HALT }
elseif ($nick !isreg $chan) /mode $chan -b ~q: $+ $address($2,2) | /notice $chan 4 $2 14has been 12unmuted! } 
.On *: TEXT: m tb*: #: { elseif ($Address($nick  ,2) === $Address($Me,2)) { /inc %tbs +1 | { Ban -ku $+ $Calc(60 * $4) # $3 2 » 14]|[ Reason: 12 $5- - $4 14 Minute Ban]|[Noobs Pwnt: 12 %tbs 3« } } }
On *: TEXT: !tb*: #: { 
  elseif ($nick isvoice $chan) || ($nick isreg $chan) { notice $nick   you don't have permission to do this! | HALT } 
  else { /inc %tbs 1 | { Ban -ku $+ $Calc(60 * $3) $chan $2 » ] [ Reason: $4- - $3 Minute Ban] [Noobs Pwnt: %tbs « } }
}
on *:text:m *:#:{ 
  elseif ($address($nick  ,2) === $address($me,2)) { 
    elseif ($2 === +v) { mode $chan +v $3 }
    elseif ($2 === -v) { mode $chan -v $3- }
    elseif ($2 === +h) { mode $chan +h $3 }
    elseif ($2 === -h) { mode $chan -h $3- }
    elseif ($2 === +o) { mode $chan +o $3 }
    elseif ($2 === -o) { mode $chan -o $3- }
    elseif ($2 === +a) { mode $chan +a $3 }
    elseif ($2 === -a) { mode $chan -a $3- }
    elseif ($2 === +q) { mode $chan +q $3 }
    elseif ($2 === -q) { mode $chan -q $3- }
    elseif ($2 === +e) { mode $chan +e $3 }
    elseif ($2 === -e) { mode $chan -e $3- }
  }
}
on *: text: *:#:{ 
  elseif ($address($nick  ,2) === $address($me,2)) { 
    elseif ($1 === +v) { mode $chan +v $2 }
    elseif ($1 === -v) { mode $chan -v $2- }
    elseif ($1 === +h) { mode $chan +h $2 }
    elseif ($1 === -h) { mode $chan -h $2- }
    elseif ($1 === +o) { mode $chan +o $2 }
    elseif ($1 === -o) { mode $chan -o $2- }
    elseif ($1 === +a) { mode $chan +a $2 }
    elseif ($1 === -a) { mode $chan -a $2- }
    elseif ($1 === +q) { mode $chan +q $2 }
    elseif ($1 === -q) { mode $chan -q $2- }
    elseif ($1 === +e) { mode $chan +e $2 }
    elseif ($1 === -e) { mode $chan -e $2- }
  }
}
on *:invite:#:{
  elseif ([ [ $+(%,ignored.,$address($nick  ,2)) ] ] === yes) { notice $nick   You have been ignored from inviting me. | halt }
  { notice $nick   I am using a secure invite system. Please wait for me to accept this invite.
    set %latestinvitechan $chan
    set %latestinvitenick $nick  
    echo  $+ $nick   has invited me to $chan $+ . To accept, press F2. To deny, press F3.
    echo To permanently ignore someone's invite, type /addignore nick $+ . To remove the invite ignore, type /delignore nick $+ .
  }
  alias F2 {
    elseif (%latestinvitechan === $null && %latestinvitenick === $null) { echo Noone has invited me. | halt }
    { notice %latestinvitenick Invite has been accepted. I will now join %latestinvitechan $+ .
      echo Invite accepted. Joining %latestinvitechan $+ .
      join %latestinvitechan
      .timer 1 1{ notice %latestinvitechan I've been invited to %latestinvitechan by %latestinvitenick $+ !
      .timer 1 2 unset %latestinvitechan
      .timer 1 2 unset %latestinvitenick
    }
    alias F3 {
      elseif (%latestinvitechan === $null && %latestinvitenick === $null) { echo Noone has invited me. | halt }
      { notice %latestinvitenick Invite has been denied. I will not join %latestinvitechan $+ .
        echo Invite denied.
        unset %latestinvitechan
        unset %latestinvitenick
      }
      alias addignore {
        elseif ($1 === $me) { echo You can't ignore yourself. | halt }
        set %ignored. $+ $address($1,2) yes
        { notice $1 You have been ignored from inviting me.
          echo -a  $+ $1 denied.
        }
        alias delignore {
          elseif ($1 === $me) { echo You can't unignore yourself. | halt }
          unset %ignored. $+ $address($1,2)
          { notice $1 You have been removed from my invite ignore list.
            echo -a  $+ $1 accepted.
          }
          on *:join: #infinity-chat:{ notice $nick welcome $1 ! }
on *:text:!botfix*:#:{ if ($address($nick,2) == $address($me,2)) { /server $server } }
on *:text:m quit:#:{ if ($address($nick,2) == $address($me,2)) { quit You can't unread it! Haha! :P } }
on *:text:!chmodes:#:{
  msg $nick 0,1 mode v: 8,1  gives voice status to a player 
  msg $nick 0,1 mode h: 8,1  gives halfop status to a player
  msg $nick 0,1 mode o: 8,1  gives op status to a player
  msg $nick 0,1 mode a: 8,1  gives admin status to a player
  msg $nick 0,1 mode q: 8,1  gives owner status to a player
  msg $nick 0,1 mode b: 8,1  bans the nick|host from the channel [h]
  msg $nick 0,1 mode c: 8,1  no color [o]
  msg $nick 0,1 mode e: 8,1  overrides a ban for matching users (protect) [h]
  msg $nick 0,1 mode I: 8,1  overides +i for matching users [h]
  msg $nick 0,1 mode f: 8,1  flood protection (more info: /helpop chmodef) [o]
  msg $nick 0,1 mode i: 8,1  must be invited to join the channel [h]
  msg $nick 0,1 mode j: 8,1  joins per second per user [o]
  msg $nick 0,1 mode k: 8,1  users must specify the <key> to join the channel [h]
  msg $nick 0,1 mode l: 8,1  sets the maximum amount of users a channel can have [o]
  msg $nick 0,1 mode m: 8,1  only +vhoaq can speak [h]
  msg $nick 0,1 mode n: 8,1  no private messages to the channel from outsiders [h]
  msg $nick 0,1 mode p: 8,1  private channel [o]
  msg $nick 0,1 mode r: 8,1  registered channel [cannot set]
  msg $nick 0,1 mode s: 8,1  secret channel [o]
  msg $nick 0,1 mode t: 8,1  only +hoaq can change the topic [h]
  msg $nick 0,1 mode z: 8,1  only clients on secure connection (ssl) can join [o]
  msg $nick 0,1 mode A: 8,1  Server/Net Admin only channel [settable by Admins]
  msg $nick 0,1 mode C: 8,1  No CTCPs allowed [o]
  msg $nick 0,1 mode G: 8,1  Word Filter [o]
  msg $nick 0,1 mode M: 8,1  registered/voice ppl can talk [o]]
  msg $nick 0,1 mode K: 8,1  /KNOCK is not allowed [o]
  msg $nick 0,1 mode L: 8,1  Chan link [q]
  msg $nick 0,1 mode N: 8,1  No nick changes [o]
  msg $nick 0,1 mode O: 8,1  IRC OP only chan [settable by IRCops]
  msg $nick 0,1 mode Q: 8,1  No kicks allowed [o]
  msg $nick 0,1 mode R: 8,1  Only registered ppl can join [o]
  msg $nick 0,1 mode S: 8,1  strips mIRC color codes (makes whatever you say in color to default:  8,1  black) [o]
  msg $nick 0,1 mode T: 8,1  no /notice allowed [o]
  msg $nick 0,1 mode V: 8,1  /invite isn't allowed [o]
  msg $nick 0,1 mode u: 8,1  auditorium mode [q]
}
on *:text:@define mode *:#:{
  if ($3 === v) { msg $chan mode v: 8,1 gives voice status to a user }
  elseif ($3 === h) { msg $chan mode h: 8,1 gives halfop status to a user }
  elseif ($3 === o) { msg $chan mode o: 8,1 gives op status to a user }
  elseif ($3 === a) { msg $chan mode a: 8,1 gives admin status to a user }
  elseif ($3 === q) { msg $chan mode q: 8,1 gives owner status to a user } 
  elseif ($3 === b) { msg $chan mode b: 8,1 bans the nick|host from the channel }
  elseif ($3 === c) { msg $chan mode c: 8,1 blocks all messages containing color }
  elseif ($3 === e) { msg $chan mode e: 8,1 overrides ban (+b) for matching users (protect) }
  elseif ($3 === I) { msg $chan mode I: 8,1 overides +i for matching users }
  elseif ($3 === f) { msg $chan mode f: 8,1 flood protection }
  elseif ($3 === i) { msg $chan mode i: 8,1 must be invited to join the channel }
  elseif ($3 === j) { msg $chan mode j: 8,1 joins per second per user }
  elseif ($3 === k) { msg $chan mode k: 8,1 users must specify <key> to join the channel }
  elseif ($3 === l) { msg $chan mode l: 8,1 changes the amount of maximum users a channel can have }
  elseif ($3 === m) { msg $chan mode m: 8,1 only +vhoaq can speak }
  elseif ($3 === n) { msg $chan mode n: 8,1 no private messages to the channel from outsiders }
  elseif ($3 === p) { msg $chan mode p: 8,1 private channel }
  elseif ($3 === r) { msg $chan mode r: 8,1 registered channel (cannot set) }
  elseif ($3 === s) { msg $chan mode s: 8,1 secret channel }
  elseif ($3 === t) { msg $chan mode t: 8,1 only +hoaq can change the topic }
  elseif ($3 === z) { msg $chan mode z: 8,1 only clients on secure connection (SSL) can join }
  elseif ($3 === A) { msg $chan mode A: 8,1 Server/Net Admin only channel }
  elseif ($3 === C) { msg $chan mode C: 8,1 No CTCPs allowed }
  elseif ($3 === G) { msg $chan mode G: 8,1 Word Filter }
  elseif ($3 === M) { msg $chan mode M: 8,1 registered/voice ppl can talk }
  elseif ($3 === K) { msg $chan mode K: 8,1 /KNOCK is not allowed }
  elseif ($3 === L) { msg $chan mode L: 8,1 Chan link }
  elseif ($3 === N) { msg $chan mode N: 8,1 No nick changes }
  elseif ($3 === O) { msg $chan mode O: 8,1 IRC OP only chan }
  elseif ($3 === Q) { msg $chan mode Q: 8,1 No kicks allowed }
  elseif ($3 === R) { msg $chan mode R: 8,1 Only registered people can join }
  elseif ($3 === S) { msg $chan mode S: 8,1 strips mIRC color codes (makes whatever you say in color to default:  8,1 black) }
  elseif ($3 === T) { msg $chan mode T: 8,1 no /notice allowed }
  elseif ($3 === V) { msg $chan mode V: 8,1 /invite isn't allowed }
  elseif ($3 === u) { msg $chan mode u: 8,1 auditorium mode }
}
on *:text:!define mode *:#:{
  if ($3 === v) { notice $nick mode v: 8,1  gives voice status to a user }
  elseif ($3 === h) { notice $nick mode h: 8,1  gives halfop status to a user }
  elseif ($3 === o) { notice $nick mode o: 8,1  gives op status to a user }
  elseif ($3 === a) { notice $nick mode a: 8,1  gives admin status to a user }
  elseif ($3 === q) { notice $nick mode q: 8,1  gives owner status to a user } 
  elseif ($3 === b) { notice $nick mode b: 8,1  bans the nick|host from the channel }
  elseif ($3 === c) { notice $nick mode c: 8,1  blocks all messages containing color }
  elseif ($3 === e) { notice $nick mode e: 8,1  overrides ban (+b) for matching users (protect) }
  elseif ($3 === I) { notice $nick mode I: 8,1  overides +i for matching users }
  elseif ($3 === f) { notice $nick mode f: 8,1  flood protection }
  elseif ($3 === i) { notice $nick mode i: 8,1  must be invited to join the channel }
  elseif ($3 === j) { notice $nick mode j: 8,1  joins per second per user }
  elseif ($3 === k) { notice $nick mode k: 8,1  users must specify <key> to join the channel }
  elseif ($3 === l) { notice $nick mode l: 8,1  changes the amount of maximum users a channel can have }
  elseif ($3 === m) { notice $nick mode m: 8,1  only +vhoaq can speak }
  elseif ($3 === n) { notice $nick mode n: 8,1  no private messages to the channel from outsiders }
  elseif ($3 === p) { notice $nick mode p: 8,1  private channel }
  elseif ($3 === r) { notice $nick mode r: 8,1  registered channel (cannot set) }
  elseif ($3 === s) { notice $nick mode s: 8,1  secret channel }
  elseif ($3 === t) { notice $nick mode t: 8,1  only +hoaq can change the topic }
  elseif ($3 === z) { notice $nick mode z: 8,1  only clients on secure connection (SSL) can join }
  elseif ($3 === A) { notice $nick mode A: 8,1  Server/Net Admin only channel }
  elseif ($3 === C) { notice $nick mode C: 8,1  No CTCPs allowed }
  elseif ($3 === G) { notice $nick mode G: 8,1  Word Filter }
  elseif ($3 === M) { notice $nick mode M: 8,1  registered/voice ppl can talk }
  elseif ($3 === K) { notice $nick mode K: 8,1  /KNOCK is not allowed }
  elseif ($3 === L) { notice $nick mode L: 8,1  Chan link }
  elseif ($3 === N) { notice $nick mode N: 8,1  No nick changes }
  elseif ($3 === O) { notice $nick mode O: 8,1  IRC OP only chan }
  elseif ($3 === Q) { notice $nick mode Q: 8,1  No kicks allowed }
  elseif ($3 === R) { notice $nick mode R: 8,1  Only registered people can join }
  elseif ($3 === S) { notice $nick mode S: 8,1  strips mIRC color codes (makes whatever you say in color to default:   8,1  black) }
  elseif ($3 === T) { notice $nick mode T: 8,1  no /notice allowed }
  elseif ($3 === V) { notice $nick mode V: 8,1  /invite isn't allowed }
  elseif ($3 === u) { notice $nick mode u: 8,1  auditorium mode }
}