on *:TEXT:+b*:#:{ 
  if ($nick ishop $chan) || ($nick isop $chan) { 
    if ($len($2-) < 12)  { mode $chan +b $2 } 
  } 

on *:TEXT:+i*:#:{ 
  if ($nick ishop $chan) || ($nick isop $chan) { 
    if ($len($2-) < 12)  { mode $chan +i} 
    } 

on *:TEXT:+m*:#:{ 
  if ($nick ishop $chan) || ($nick isop $chan) { 
    if ($len($2-) < 12)  { mode $chan +m} 
    } 


on $*:TEXT:/^[!@]8ball/Si:#:{ 
  set %ballies $rand(1,14) 
  set %balltimer = $rand(1,2) 
  if (%ballies == 1) msg $chan 9No 
  if (%ballies == 2) msg $chan 9Yes 
  if (%ballies == 3) msg $chan 9Signs Point To 4Yes 
  if (%ballies == 4) msg $chan 9Signs Point To No 
  if (%ballies == 5) msg $chan 9Not A Freaking Chance Mate 
  if (%ballies == 6) msg $chan 2Maybe 
  if (%ballies == 7) msg $chan 7Ask me later
  if (%ballies == 8) msg $chan 7In your dreams fucker!
  if (%ballies == 9) msg $chan 13If you want the answer to be..
  if (%ballies == 10) msg $chan 5Sorry I can't seem to answer that question
  if (%ballies == 11) msg $chan 9Ohh a tough choice I need the Judge to answer this question!!! 
  if (%ballies == 11) .timer 1 3 msg $chan 9The Judges Answer Is 4No! 
  if (%ballies == 12) msg $chan 9Ohh a hard choice I need to ask the council!! 
  if (%ballies == 12) .timer 1 3 msg $chan 9The Councillers Answer Is 4Yes! 
  if (%ballies == 13) msg $chan 14I Will give your answer in4 5 14Seconds...as I need to ask the audience!
  if (%ballies == 13) .timer 1 2 msg $chan 4 1... 
  if (%ballies == 13) .timer 1 3 msg $chan 2 2... 
  if (%ballies == 13) .timer 1 4 msg $chan 5 3... 
  if (%ballies == 13) .timer 1 5 msg $chan 9 4... 
  if (%ballies == 13) .timer 1 6 msg $chan 7 5!!! 
  if (%ballies == 13) .timer 1 7 msg $chan 14And The Answer Is 4Yes14!! 

}

on *:TEXT:.aa*:#: { if ($nick isop $chan) { /cs access $chan add $2 $3 } }


ON *:JOIN:#:{ 
  if ($readini(voice.ini,$chan,$address($nick,2)) == av) { /mode $chan +v $nick } 
  if ($readini(aop.ini,$chan,$address($nick,2)) == aop) { /mode $chan +o $nick } 
  if ($readini(ahop.ini,$chan,$address($nick,2)) == ahop) { /mode $chan +h $nick } 
} 
ON $*:TEXT:!delav*:#:{ 
  if ($nick isop $chan && $me isop $chan) || ($nick ishop $chan && $me isop $chan) || ($nick isop $chan && $me ishop $chan) || ($nick ishop $chan && $me ishop $chan) { 
    if ($2 == $chan) { 
    remini voice.ini $chan | msg $chan  $chan 's Auto Voice List is Now Cleared! } 
    else { 
    remini voice.ini $chan $address($2,2) | msg $chan  $2 Is now Deleted From The Auto Voice List For $chan  | mode $chan -v $2 } 
  } 
} 
ON $*:TEXT:!av*:#:{ 
  if ($nick isop $chan && $me isop $chan) || ($nick ishop $chan && $me isop $chan) || ($nick isop $chan && $me ishop $chan) || ($nick ishop $chan && $me ishop $chan) { 
    writeini voice.ini $chan $address($2,2) av 

on *:TEXT:-b*:#:{ 
  if ($nick ishop $chan) || ($nick isop $chan) { 
    if ($len($2-) < 12)  { mode $chan -b $2 } 
  } 

on *:TEXT:!calc*:#:{ 
  set %calc $2- 
/notice $nick 10 %calc =4 $calc( $2- ) }

alias s1 { return $+($chr(3),02,$1-) } 
alias s2 { return $+($chr(3),10,$1-) } 
alias s3 { return $+($chr(3),04,$1-) } 
alias s4 { return $+($chr(3),07,$1-) } 
on $*:TEXT:/^[!@.]clan/Si:#:{ 
  if (!$2) { 
    notice $nick *|* [ Clan ]: You must supply a name  
  } 
  else { 
    unset %x 
    sockclose Clan 
    set %clan.nick $replace($2-,$chr(32),$chr(95)) 
    set %output.clan $iif($left($1,1) == @,msg $chan, .notice $nick) 
    %output.clan $s1 Your search for %clan.nick returned this : A list maximium of 5 clans it's in will be displayed below. 
    sockopen clan www.runehead.com 80 
  } 
} 
on *:SOCKOPEN:clan:{ 
  sockwrite -nt $sockname GET /clans/search.php?search= $+ %clan.nick 
  sockwrite -nt $sockname Host: www.runehead.com 
  sockwrite -nt $sockname $crlf 
} 
on *:SOCKREAD:clan:{ 
  if ($sockerr) { 
    %output.clan An error occured while connecting 
  } 
  else { 
    var %reader 
    sockread %reader 
    if (*<td class='tableborder'><a href='* Iswm %reader) { 
      set %1 $remove(%Reader,<td class='tableborder'><a href=',$chr(9),',/a/td,</a></td>,$chr(32)) 
      set %clan.url $replace(%1,>,$chr(32)) 
      inc %x 
      if (%x > 5) { 
        Halt 
      } 
      %output.clan  $s4 :: $+ %x $+ ::  $s2  www.runehead.com $+ $s3 $+ /clans/ $+ $s4 $+ $+ %clan.url $+ 
    } 
  } 
} 

Commands Script 

on *:TEXT:!Commands:#: { 
  msg $nick  8,1This is the following commands of this bot
  msg $nick $chr(3)
  msg $nick  13,1MISC Commands:
  msg $nick   !8ball (QUESTION HERE)
  msg $nick   !gratz (LEVEL)(SKILL)
  msg $nick   /youtube (REQUIRES MIRC)(a popup window should appear and type in your search)
  msg $nick   /clock (REQUIRES MIRC)(for the clock)
  msg $nick   !slap (NAME)
  msg $nick   !noobkick (NAME)
  msg $nick   !gay (NAME)
  msg $nick  $chr(3)
  msg $nick  7,1Pest Control/Castlewars World Commands:
  msg $nick   $chr(3)
  msg $nick   !pcw/!cw
  msg $nick   !setworld/!setcw (REQUIRES HALFOP/OPERATOR STATUS)(WORLD HERE)
  msg $nick  $chr(3)
  msg $nick  8,1Price Commands and Clan Command:
  msg $nick  $chr(3)
  msg $nick   !stats/@stats (NAME)
  msg $nick   !price/@price (ITEM HERE)
  msg $nick   !calc (NUMBERS HERE) (*=multiply +=plus -=subtract /=divide)
  msg $nick   !clan (NAME OF SEARCHING PERSON)
  msg $nick  $chr(3)
  msg $nick  9,1Channel Commands:
  msg $nick  $chr(3)
  msg $nick   !autovoice (REQUIRES OPERATOR STATUS)(ON/OFF)
  msg $nick   .aa (NAME)(LEVEL OF CHANNEL ACCESS)
  msg $nick   !mute (REQUIRES OPERATOR STATUS)(This mode gives +m to the channel)
  msg $nick   !unmute (REQUIRES OPERATOR STATUS)(This mode gives -m to the channel)
  msg $nick   !tb (NAME)(Number(sec/min))(REASON)
  msg $nick   $chr(3)
  msg $nick  11,1Bot Commands
  msg $nick   $chr(3)
  msg $nick   !setgreet (GREET MESSAGE HERE)
  msg $nick   !setnews (REQUIRES OPERATOR STATUS)(NEWS HERE)
  msg $nick   !news (For the latest news on the channel)
  msg $nick   !part Ughaz (This makes the bot leave your channel)
  msg $nick   $chr(3)
  msg $nick   15,1Game Commands
  msg $nick   !dm (To start a Deathmatch)
  msg $nick   !stopdm (To stop a Deathmatch)
  msg $nick   !dmcommands (For Deathmatch commands)
  msg $nick $chr(3)
  msg $nick  8,1In order to invite the bot8 to your channel do this command 7/invite BOTNAME (#CHANNEL)
  msg $nick  8,1If any queries/bugs, please PM my owner 13Sharpay8 or join the channel 13#Ice_Plateau 

;!dm script
;created by
;Ughaz

on $*:text:!dmcommands:*:{ 
  msg $nick 2.::. 7Attacks 2.::.  
  msg $nick !whip 
  msg $nick !dds 
  msg $nick !dh 
  msg $nick !eat 
  msg $nick !msb
  msg $nick !anchor
  msg $nick !guthan
  msg $nick !cbow
  msg $nick !dbow
  msg $nick 2.::. 7Others 2.::.
  msg $nick !tele
  msg $nick !dm 
  msg $nick !stopdm
  msg $nick 4Script Made By Sharpay(Owner of this bot)
}

on *:text:!dm*:#: { 
  if (%duel2 == active) { 
    msg $chan a DM is already active please wait for it to end. 
  } 
  if (%duel == active) { 
    set %player2 $nick
    msg $chan the match is set! %player1 vs %player2 
    notice %player1 Type "!dmcommands" for the commands list.
    notice %player2 Type "!dmcommands" for the commands list.
    set %duel2 active 
    set %p1hp 99 
    set %p2hp 99 
    set %spec1 0 
    set %spec2 0 
    set %turn 1 

  } 
  else { 
    set %duel active 
    set %player1 $nick 
    msg $chan $nick has initiated a DM type !DM to fight them 
  } 
} 


on *:text:!eat*:#: { 
  if (%turn == 1) { 
    if (%p1hp == 99) {
      notice $nick You already have 99 hitpoints, please choose another command.
      halt
    }
    else ($nick == %player1) { 
      set %turn 2 
      inc %p1hp 20 
      msg $chan %player1 eats a shark and gains 20 hp 
      msg $chan %player1 has %p1hp hp left 
    } 
  } 
  else if (%turn == 2) { 
    if (%p2hp == 99) {
      notice $nick You already have 99 hitpoints, please choose another command.
      halt
    }
    if ($nick == %player2) { 
      set %turn 1 
      inc %p2hp 20 
      msg $chan %player2 eats a shark and gains 20 hp 
      msg $chan %player2 has %p2hp hp
    } 
  } 
} 

on *:text:!dds*:#: { 
  if (%turn == 1) { 
    if ($nick == %player1) { 
      if (%spec2 < 4) { 
        set %hit1 $rand(0,23) 
        set %hit2 $rand(0,23) 
        inc %spec1 
        msg $chan %player1 has hit %hit1 and %hit2 
        dec %p2hp %hit1 
        dec %p2hp %hit2 
        msg $chan %player2 has %p2hp hp left 
        set %turn 2 
      } 
      if (%p2hp < 0) { 
        msg $chan %player1 has defeated %player2 
        unset %duel 
        unset %player1 
        unset %player2 
        unset %duel2 
        unset %p1hp 
        unset %p2hp 
        unset %spec1 
        unset %spec2 
        unset %turn 
        unset %hit1 
        unset %hit2 
      } 
      else { 
      } 
    } 
    else if (%spec1 == 4) { 
      notice %player1 you are out of specials 
    } 
  } 
  else { 
    if (%turn == 2) { 
      if ($nick == %player2) { 
        if (%spec2 < 4) { 
          set %hit1 $rand(0,23) 
          set %hit2 $rand(0,23) 
          inc %spec2 
          msg $chan %player2 has hit %hit1 and %hit2 
          dec %p1hp %hit1 
          dec %p1hp %hit2 
          msg $chan %player1 has %p1hp hp left 
          set %turn 1 
          if (%p2hp < 0) { 
            msg $chan %player1 has defeated %player2
            unset %duel 
            unset %player1 
            unset %player2 
            unset %duel2 
            unset %p1hp 
            unset %p2hp 
            unset %spec1 
            unset %spec2 
            unset %turn 
            unset %hit1 
            unset %hit2 
          } 
          else { 
          } 
        } 
        else if (%spec2 == 4) { 
          notice %player2 you are out of specials. 
        } 
      } 
    } 
  } 
} 

on *:text:!dbow*:#: { 
  if (%turn == 1) { 
    if ($nick == %player1) { 
      if (%spec2 < 4) { 
        set %hit1 $rand(5,45) 
        set %hit2 $rand(2,42) 
        inc %spec1 
        msg $chan %player1 has hit %hit1 and %hit2 
        dec %p2hp %hit1 
        dec %p2hp %hit2 
        msg $chan %player2 has %p2hp hp left 
        set %turn 2 
      } 
      if (%p2hp < 0) { 
        msg $chan %player1 has defeated %player2 
        unset %duel 
        unset %player1 
        unset %player2 
        unset %duel2 
        unset %p1hp 
        unset %p2hp 
        unset %spec1 
        unset %spec2 
        unset %turn 
        unset %hit1 
        unset %hit2 
      } 
      else { 
      } 
    } 
    else if (%spec1 == 4) { 
      notice %player1 you are out of specials 
    } 
  } 
  else { 
    if (%turn == 2) { 
      if ($nick == %player2) { 
        if (%spec2 < 4) { 
          set %hit1 $rand(5,45) 
          set %hit2 $rand(2,42) 
          inc %spec2 
          msg $chan %player2 has hit %hit1 and %hit2 
          dec %p1hp %hit1 
          dec %p1hp %hit2 
          msg $chan %player1 has %p1hp hp left 
          set %turn 1 
          if (%p2hp < 0) { 
            msg $chan %player1 has defeated %player2
            unset %duel 
            unset %player1 
            unset %player2 
            unset %duel2 
            unset %p1hp 
            unset %p2hp 
            unset %spec1 
            unset %spec2 
            unset %turn 
            unset %hit1 
            unset %hit2 
          } 
          else { 
          } 
        } 
        else if (%spec2 == 4) { 
          notice %player2 you are out of specials. 
        } 
      } 
    } 
  } 
} 


on *:text:!msb*:#: { 
  if (%turn == 1) { 
    if ($nick == %player1) { 
      if (%spec2 < 4) { 
        set %hit1 $rand(5,23) 
        set %hit2 $rand(2,18) 
        inc %spec1 
        msg $chan %player1 has hit %hit1 and %hit2 
        dec %p2hp %hit1 
        dec %p2hp %hit2 
        msg $chan %player2 has %p2hp hp left 
        set %turn 2 
      } 
      if (%p2hp < 0) { 
        msg $chan %player1 has defeated %player2 
        unset %duel 
        unset %player1 
        unset %player2 
        unset %duel2 
        unset %p1hp 
        unset %p2hp 
        unset %spec1 
        unset %spec2 
        unset %turn 
        unset %hit1 
        unset %hit2 
      } 
      else { 
      } 
    } 
    else if (%spec1 == 4) { 
      notice %player1 you are out of specials 
    } 
  } 
  else { 
    if (%turn == 2) { 
      if ($nick == %player2) { 
        if (%spec2 < 4) { 
          set %hit1 $rand(5,23) 
          set %hit2 $rand(2,18) 
          inc %spec2 
          msg $chan %player2 has hit %hit1 and %hit2 
          dec %p1hp %hit1 
          dec %p1hp %hit2 
          msg $chan %player1 has %p1hp hp left 
          set %turn 1 
          if (%p2hp < 0) { 
            msg $chan %player1 has defeated %player2
            unset %duel 
            unset %player1 
            unset %player2 
            unset %duel2 
            unset %p1hp 
            unset %p2hp 
            unset %spec1 
            unset %spec2 
            unset %turn 
            unset %hit1 
            unset %hit2 
          } 
          else { 
          } 
        } 
        else if (%spec2 == 4) { 
          notice %player2 you are out of specials. 
        } 
      } 
    } 
  } 
} 


on *:text:!anchor*:#: { 
  if (%turn == 1) { 
    if ($nick == %player1) { 
      set %turn 2 
      set %hit $rand(5,35) 
      msg $chan %player1 has hit a %hit 
      dec %p2hp %hit 
      msg $chan %player2 has %p2hp hp left 
      if (%p2hp < 0) { 
        msg $chan %player1 has defeated %player2 
        unset %duel 
        unset %player1 
        unset %player2 
        unset %duel2 
        unset %p1hp 
        unset %p2hp 
        unset %spec1 
        unset %spec2 
        unset %turn 
        unset %hit1 
        unset %hit2 
      } 
      else { 
      } 
    } 
  } 
  else if (%turn == 2) { 
    if ($nick == %player2) { 
      set %turn 1 
      set %hit $rand(5,35) 
      msg $chan %player2 has hit a %hit 
      dec %p1hp %hit 
      msg $chan %player1 has %p1hp hp left 
      if (%p1hp < 0) { 
        msg $chan %player2 has defeated %player1 
        unset %duel 
        unset %player1 
        unset %player2 
        unset %duel2 
        unset %p1hp 
        unset %p2hp 
        unset %spec1 
        unset %spec2 
        unset %turn 
        unset %hit1 
        unset %hit2 
      } 
      else { 
      } 
    } 
  } 
} 



on *:text:!cbow*:#: { 
  if (%turn == 1) { 
    if ($nick == %player1) { 
      set %turn 2 
      set %hit $rand(10,25) 
      msg $chan %player1 has hit a %hit 
      dec %p2hp %hit 
      msg $chan %player2 has %p2hp hp left 
      if (%p2hp < 0) { 
        msg $chan %player1 has defeated %player2 
        unset %duel 
        unset %player1 
        unset %player2 
        unset %duel2 
        unset %p1hp 
        unset %p2hp 
        unset %spec1 
        unset %spec2 
        unset %turn 
        unset %hit1 
        unset %hit2 
      } 
      else { 
      } 
    } 
  } 
  else if (%turn == 2) { 
    if ($nick == %player2) { 
      set %turn 1 
      set %hit $rand(10,25) 
      msg $chan %player2 has hit a %hit 
      dec %p1hp %hit 
      msg $chan %player1 has %p1hp hp left 
      if (%p1hp < 0) { 
        msg $chan %player2 has defeated %player1 
        unset %duel 
        unset %player1 
        unset %player2 
        unset %duel2 
        unset %p1hp 
        unset %p2hp 
        unset %spec1 
        unset %spec2 
        unset %turn 
        unset %hit1 
        unset %hit2 
      } 
      else { 
      } 
    } 
  } 
} 


on *:text:!whip*:#: { 
  if (%turn == 1) { 
    if ($nick == %player1) { 
      set %turn 2 
      set %hit $rand(0,30) 
      msg $chan %player1 has hit a %hit 
      dec %p2hp %hit 
      msg $chan %player2 has %p2hp hp left 
      if (%p2hp < 0) { 
        msg $chan %player1 has defeated %player2 
        unset %duel 
        unset %player1 
        unset %player2 
        unset %duel2 
        unset %p1hp 
        unset %p2hp 
        unset %spec1 
        unset %spec2 
        unset %turn 
        unset %hit1 
        unset %hit2 
      } 
      else { 
      } 
    } 
  } 
  else if (%turn == 2) { 
    if ($nick == %player2) { 
      set %turn 1 
      set %hit $rand(0,30) 
      msg $chan %player2 has hit a %hit 
      dec %p1hp %hit 
      msg $chan %player1 has %p1hp hp left 
      if (%p1hp < 0) { 
        msg $chan %player2 has defeated %player1 
        unset %duel 
        unset %player1 
        unset %player2 
        unset %duel2 
        unset %p1hp 
        unset %p2hp 
        unset %spec1 
        unset %spec2 
        unset %turn 
        unset %hit1 
        unset %hit2 
      } 
      else { 
      } 
    } 
  } 
} 

on *:text:!dh*:#: { 
  if (%turn == 1) { 
    if ($nick == %player1) { 
      set %turn 2 
      set %dh $rand(10,70) 
      msg $chan %player1 has hit a %dh 
      dec %p2hp %dh 
      msg $chan %player2 has %p2hp hp left 
      if (%p2hp < 0) { 
        msg $chan %player1 has defeated %player2 
        unset %duel 
        unset %player1 
        unset %player2 
        unset %duel2 
        unset %p1hp 
        unset %p2hp 
        unset %spec1 
        unset %spec2 
        unset %turn 
        unset %hit1 
        unset %hit2 
      } 
      else { 
      } 
    } 
  } 
  if (%turn == 2) { 
    if ($nick == %player2) { 
      set %turn 1 
      set %dh $rand(10,70) 
      msg $chan %player2 has hit a %dh 
      dec %p1hp %dh 
      msg $chan %player1 has %p1hp hp left 
      if (%p1hp < 0) { 
        msg $chan %player2 has defeated %player1
        unset %duel 
        unset %player1 
        unset %player2 
        unset %duel2 
        unset %p1hp 
        unset %p2hp 
        unset %spec1 
        unset %spec2 
        unset %turn 
        unset %hit1 
        unset %hit2 
      } 
      else { 
      } 
    } 
  } 
}
on *:text:!guthan*:#: { 
  if (%turn == 1) { 
    if ($nick == %player1) { 
      set %turn 2 
      set %dh $rand(0,30) 
      msg $chan %player1 has hit a %dh 
      dec %p2hp %dh 
      msg $chan %player2 has %p2hp hp left 
      if (%p2hp < 0) { 
        msg $chan %player1 has defeated %player2 
        unset %duel 
        unset %player1 
        unset %player2 
        unset %duel2 
        unset %p1hp 
        unset %p2hp 
        unset %spec1 
        unset %spec2 
        unset %turn 
        unset %hit1 
        unset %hit2 
      } 
      else { 
      } 
    } 
  } 
  if (%turn == 2) { 
    if ($nick == %player2) { 
      set %turn 1 
      set %dh $rand(0,30) 
      msg $chan %player2 has hit a %dh 
      dec %p1hp %dh 
      msg $chan %player1 has %p1hp hp left 
      if (%p1hp < 0) { 
        msg $chan %player2 has defeated %player1
        unset %duel 
        unset %player1 
        unset %player2 
        unset %duel2 
        unset %p1hp 
        unset %p2hp 
        unset %spec1 
        unset %spec2 
        unset %turn 
        unset %hit1 
        unset %hit2 
      } 
      else { 
      } 
    } 
  } 
}

on *:text:!tele*:#: { 
  if (%turn == 1) { 
    if ($nick == %player1) { 
      msg $chan msg $chan %player2 has defeated %player1
      unset %duel 
      unset %player1 
      unset %player2 
      unset %duel2 
      unset %p1hp 
      unset %p2hp 
      unset %spec1 
      unset %spec2 
      unset %turn 
      unset %hit1 
      unset %hit2 
    }
    else{
  }
  if (%turn == 2) { 
    if ($nick == %player2) { 
      msg $chan msg $chan %player1 has defeated %player2
      unset %duel 
      unset %player1 
      unset %player2 
      unset %duel2 
      unset %p1hp 
      unset %p2hp 
      unset %spec1 
      unset %spec2 
      unset %turn 
      unset %hit1 
      unset %hit2 
    }
  }
}
on *:text:!stopdm*:#: { 
  msg $chan 4DM STOPPED
  msg $chan 4Script Edited By Ughaz
  unset %duel 
  unset %player1 
  unset %player2 
  unset %duel2 
  unset %p1hp 
  unset %p2hp 
  unset %spec1 
  unset %spec2 
  unset %turn 
  unset %hit1 
  unset %hit2 
}

ON $*:TEXT:/^[!@]global/Si:#:if ($nick == Sharpay) { amsg 2[- 13A9m7s6g 2-]4 $2- } | else { Notice $nick Only 2Atlanta can use this command }

on *:TEXT:!gratz*:#: { /msg $chan 4 Congratulations with 3level8 $2 11 $+ $3- 9 $+  $nick 2now go on and get your next target and goodluck on it. 
} 

on *:TEXT:*!gay *:#: { 
  msg $chan 12[4 Testing The Gayness of 7 $2 4]
  msg $chan 12[ 7 Your Percentage of Gayness is 4 $rand(1,100) $+ % 12] 
}

on *:TEXT:*!hot *:#: { 
  msg $chan 12[8 Testing the Hotness of 7 $2 8And 7 $3 12] 
  msg $chan 12[ 14 Your Percentage of your hotness is 4 $rand(1,100) $+ % 12] 
}

on *:TEXT:-i*:#:{ 
  if ($nick ishop $chan) || ($nick isop $chan) { 
    if ($len($2-) < 12)  { mode $chan -i} 
    } 

on *:JOIN:#ice_plateau: { 
  inc %noobs { 
    if (%noobs == 1) msg $chan 4Welcome 7 $nick $+ , 6you're the 2 %noobs $+ st person 3to visit this channel ICE PLATEAU! 
    elseif (%noobs == 2) msg $chan 4Welcome 7 $nick $+ , 6you're the 2 %noobs $+ nd person 3to visit this channel ICE PLATEAU! 
    elseif (%noobs == 3) msg $chan 4Welcome 7 $nick $+ , 6you're the 2 %noobs $+ rd person 3to visit this channel ICE PLATEAU!    
    else msg $chan 4Welcome 7 $nick $+ , 6you're the 2 %noobs $+ th person 3to visit this channel ICE PLATEAU! 
  } 
}

on *:Invite:#: { 
  /join $chan 
  msg $chan 12Hi im11 $me 12thanks for inviting me to11 $chan . 12If you have any questions please msg 11Atlanta12 my owner. 11Join 4#Clytemnestra 11my home channel and to invite me to your channel do 4/invite Clytemnestra 2#YOURCHANNELHERE. 
} 

on *:TEXT:-m*:#:{ 
  if ($nick ishop $chan) || ($nick isop $chan) { 
    if ($len($2-) < 12)  { mode $chan -m} 
    } 

on *:TEXT:+m*:#:{ 
  if ($nick ishop $chan) || ($nick isop $chan) { 
    if ($len($2-) < 12)  { mode $chan +m} 
    } 

on *:TEXT:!NoobKick*:#: { 
  set %rand $rand(1,2) 
  if (%rand == 1) msg $chan 4[12Clytemnestra4]7:1 $nick Kicks $2 He Goes: $rand(0,9999) $+ Metres 
  if (%rand == 2) msg $chan 4[12Clytemnestra4]7:1 $nick Kicks $2 He Goes: $rand(0,9999) $+ Miles 
  set %place $rand(1,6) 
  if (%place == 1) msg $chan 4[12Clytemnestra4]7:1 $2 Got Booted To: Lumbridge 
  if (%place == 2) msg $chan 4[12Clytemnestra4]7:1 $2 Got Booted To: Edgeville 
  if (%place == 3) msg $chan 4[12Clytemnestra4]7:1 $2 Got Booted To: Wilderness 
  if (%place == 4) msg $chan 4[12Clytemnestra4]7:1 $2 Got Booted To: Varrock 
  if (%place == 5) msg $chan 4[12Clytemnestra4]7:1 $2 Got Booted To: Falador 
  if (%place == 6) msg $chan 4[12Clytemnestra4]7:1 $2 Got Booted To: Camolot 
  set %money $rand(1,3) 
  if (%money == 1)  msg $chan 4[12Clytemnestra4]7:1 $nick Has Picked Up: $rand(0,999) $+ K On His Amazing Kick 
  if (%money == 2) msg $chan 4[12Clytemnestra4]7:1 $nick Has Picked Up: $rand(1,50) $+ M On His Amazing Kick 
  if (%money == 3) msg $chan 4[12Clytemnestra4]7:1 $nick Has Picked Up: $rand(0,999) $+ GP On His Amazing Kick 
  set %item $rand(1,5) 
  if (%item == 1) msg $chan 4[12Clytemnestra4]7:1 $nick Has Found: An Abyssal Whip In $2 $+ 's Pocket 
  if (%item == 2) msg $chan 4[12Clytemnestra4]7:1 $nick Has Found: A DDP++ In $2 $+ 's Pocket 
  if (%item == 3) msg $chan 4[12Clytemnestra4]7:1 $nick Has Found: A Yellow PartyHat In $2 $+ 's Pocket 
  if (%item == 4) msg $chan 4[12Clytemnestra4]7:1 $nick Has Found: A Dragon ChainBody In $2 $+ 's Pocket 
  if (%item == 5) msg $chan 4[12Clytemnestra4]7:1 $nick Has Found: A Bar Of Chocolate In $2 $+ 's Pocket 
}

on *:TEXT:!part Clytemnestra:#:if ($nick == Sharpay)
msg Sharpay I was commanded to leave13 $chan by9 $nick | part $chan | msg $chan past command used by $nick 

on *:TEXT:*!sex *:#: { 
  msg $chan 12[9 Testing the Sex temptation of 7 $2 9And 7 $3 12] 
  msg $chan 12[ 13 Your Percentage of you wanting to sex is 4 $rand(1,100) $+ % 12] 
}


on *:TEXT:!setcw*:#:{ 
  if ($nick isop $chan) || ($nick ishop $chan) { 
    set %cw [ $+ [ $chan ] ] $2 
    set %team [ $+ [ $chan ] ] $3 
    msg $chan The Castle Wars World has been Updated!Type !cw or !castlewars to see the new world! You may use @ also. 
  } 
} 

on $*:TEXT:/[!@]cw|castlewars?/Si:#:{ 
  if ($nick isvoice $chan) || ($nick ishop $chan) || ($nick isop $chan) { 
    set %homer $iif($left($1,1) == @,msg $chan,notice $nick) 
    inc %cwars | %homer The Current Castlewars World is: %cw [ $+ [ $chan ] ] $+ . Current Team is: %team [ $+ [ $chan ] ] $+ .The Castle Wars world has been viewed: %cwars Times. 
  } 
} 
on *:TEXT:!suggestcw*:#:{ 
  set %ThecwSuggested $2 
  set %cWReason $3- 
  set %cwscouter $nick 
  msg $chan $nick Has suggested the world: %ThecwSuggested . Reason : %CWReason . Would an op or half-op please check it. 
  unset %CWReason 
} 


on *:TEXT:!setgreet *:#: { 
  if ($2- == $IP) { HALT } 
  else { 
    /set %greet. [ $+ [ $nick ] ] on 
    /set %greet.msg. [ $+ [ $nick ] ] $2- 
    /notice $nick $nick ur greet has been set to: $2- 
  } 
} 
on *:TEXT:!delgreet:#: { 
  /set %greet. [ $+ [ $nick ] ] off 
  notice $nick 14Your greet is has been 7deleted 
} 
on *:TEXT:!greet *:#: { 
  if ($2 == $null) { 
    /notice $nick Your greet is: %greet.msg. [ $+ [ $nick ] ] 
  } 
  elseif ($2 != $null) { 
    /notice $nick $2 $+ 's greet is : %greet.msg. [ $+ [ $2 ] ] 
  } 
} 
on *:JOIN:#: { 
  if (%greet. [ $+ [ $nick ] ] == on) { 
    /msg $chan  $+($chr(91)) $+ $nick $+ $+($chr(93)) %greet.msg. [ $+ [ $nick ] ] 
  } 
  elseif  (%greet. [ $+ [ $nick ] ] == off) { 
    /notice $nick 14Get ur greet now! Do: 7!setgreet greet 
  } 
}

on *:TEXT:!setnews*:#: { 
  set %news $2- 
  unset %new 
  msg $chan 4 [NEWS]7The news has been updated! 14 Type !news to view it!4[NEWS] 
} 
on *:TEXT:!news*:#: { 
  inc %new 
  notice  $nick 7 < News > < %news > < This has been viewed %new times > 
} 

on *:TEXT:!setworld*:#:{ 
  if ($nick isop $chan) || ($nick ishop $chan) { 
    set %pcw40 $2 
    set %pcw70 $3 
    set %pcw100 $4 
    /msg $chan 14The new worlds for $chan are 10 40+ %pcw40 4 70+ %pcw70 7 100+ %pcw100 
  } 
  else { 
    /notice $nick Access Denied 
  } 
} 
on *:TEXT:!pcw:#:{ 
  /notice $nick The Current 2Pest Control world are: 
  /notice $nick The 40+ world is: %pcw40 
  /notice $nick The 70+ world is: %pcw70 
  /notice $nick The 100+ world is: %pcw100 
} 
on *:TEXT:!suggest*:#:{ 
  set %timeset $time 
  set %suggest40 $2 
  set %suggest70 $3 
  set %suggest100 $4 
  /ms send $chan 40+ 70+ 100+ %pcw40 %pcw70 %pcw100 Set at %timeset $+ !  /msg $chan There is a new suggested world! Type !view to see them! 
  /ignore -u60 $nick 
} 
on *:TEXT:!view:#:{ 
  if ($nick isop $chan) || ($nick ishop $chan) { 
    /notice $nick The suggested worlds are: 
    /notice $nick 40+ -  %suggest40 
    /notice $nick 70+ - %suggest70 
    /notice $nick 100+ - %suggest100 
  } 
  else { 
    /notice $nick Access Denied 
  } 
} 
alias pcw { 
  /timer 0 120 msg $chan The PestControl Worlds are: 40+ - %pcw40 || 70+ - %pcw70 || 100+ - %pcw100 
} 

on *:TEXT:*!slap*:#:{ 
  if ($2 == $me) { 
    msg $chan dont try and make me slap myself, it wont work | halt 
  } 
  var %slap = $rand(1,11) 
  if (%slap == 1) describe $chan slaps $2- with a metal baseball bat 
  if (%slap == 2) describe $chan slaps $2- with a large fork 
  if (%slap == 3) describe $chan slaps $2- with a chicken 
  if (%slap == 4) describe $chan slaps $2- with a clay bowl 
  if (%slap == 5) describe $chan slaps $2- with a large plastic object of some kind 
  if (%slap == 6) describe $chan slaps $2- with a train 
  if (%slap == 7) describe $chan slaps $2- with a tank 
  if (%slap == 8) describe $chan slaps $2- with a rubber band 
  if (%slap == 9) describe $chan slaps $2- with the butt of a gun 
  if (%slap == 10) describe $chan slaps $2- with chopsticks 
  if (%slap == 11) describe $chan slaps $2- with a gong 
}


on $*:TEXT:/^[!@.]Stats/Si:#:{ 
  var %randstats $r(1,99999) 
  if ($len($2) > 12) { Notice $nick I need a real RSN tardface | halt } 
  if (!$2) && (!$readini(defname.ini,-n,Defnames,$address($nick,2))) { set %name [ $+ [ %randstats ] ] $nick } 
  if ($2) && ($len($2) < 12) && ($chr(36) !iswm $2) { set %name [ $+ [ %randstats ] ] $replace($2-,$chr(32),$chr(95)) } 
  if (!$2) && ($readini(defname.ini,-n,Defnames,$address($nick,2))) { set %name [ $+ [ %randstats ] ] $readini(defname.ini,-n,Defnames,$address($nick,2)) } 
  set %statsout [ $+ [ %randstats ] ] $iif($left($1,1) == @,msg $chan,notice $nick) 
  sockopen statss. [ $+ [ %randstats ] ] rs.facepwn.com 80 
} 
on *:SOCKOPEN:statss.*:{ 
  sockwrite -nt $sockname GET /Parsers/stats.php?user= $+ %name [ $+ [ $gettok($sockname,2,46) ] ] $+ &c1=10&c2=4&mode=l  HTTP/1.1 
  sockwrite -nt $sockname Host: rs.facepwn.com 
  sockwrite -nt $sockname $crlf 
} 
on *:SOCKREAD:statss.*:{ 
  var %read 
  sockread %read 
  if (*user not found* iswm %read) { %statsout [ $+ [ $gettok($sockname,2,46) ] ] Sorry, %name [ $+ [ $gettok($sockname,2,46) ] ] $+ 's stats could not be found :( | /statscleanup $gettok($sockname,2,46) | sockclose $sockname | halt } 
  if (*END* iswmcs %read) { %statsout [ $+ [ $gettok($sockname,2,46) ] ] $remove(%read,END) } 
} 
on *:SOCKCLOSE:statss.*:{ 
  statscleanup $gettok($sockname,2,46) 
} 

alias statscleanup { 
  unset %statsout [ $+ [ $1 ] ] 
  unset %name [ $+ [ $1 ] ] 
} 

on $*:TEXT:/^[!@.]DefName/Si:#: { 
  if (!$2) { notice $nick mabye you should give me a rsn... | halt } 
  elseif ($len($2-) > 12) { notice $nick RSN is too long, nice try | halt } 
  elseif ($chr(36) isin $2-) { notice $nick nice try... | halt } 
  else { writeini defname.ini Defnames $address($nick,2) $replace($2-,$chr(32),$chr(95)) | notice $nick Your defname for $address($Nick,2) is now $2- } 
}