##################################################################################################
###########################  The                                ##################################
###########################      Ultimate                        #################################
###########################                TAOM                  #################################
###########################                      Member          #################################
###########################                            Checker   #################################
##################################################################################################

;--Files:
;-Leader: taomleaders.txt
;-Elite Member: taomelites.txt
;-Event Team: taomeventteam.txt
;-Member: taommembers.txt
;-Ally: taomallies.txt
;-Friend: taomfriends.txt

;--Copyright
;-TUTAOMMC Created & Scripted By Eragonj
;-Copyright 2006 All Rights Reserved
;-Last Update: Saturday, November 25, 2006

------------------------ The Join Checker -----------------------

on *:JOIN:#taom:{
  notice $nick 12Hello4 $nick $+ 12, and welcome to 4#TAOM12! Visit our forums at 4http://taomforums.co.nr12 or our website at4 http://thearmyofmordor.co.nr12. 12See my command lists with "4!menu12".
  set %greet.nick $nick | set %greet.chan $chan
  dogreetalias
  unset %greet.nick  
  if ($read(taommembers.txt,w,$nick)) {
    msg $chan 1|TAOM ID|1 -12 Nick:4 $nick 1- 12Class:4 TAOM Member 1-
  }
  else {
    if ($read(taomallies.txt,w,$nick)) {
      msg $chan 1|TAOM ID|1 -12 Nick:4 $nick 1- 12Class:4 TAOM Ally 1-
    }
    else {
      if ($read(taomfriends.txt,w,$nick)) {
        msg $chan 1|TAOM ID|1 -12 Nick:4 $nick 1- 12Class:4 TAOM Friend 1-
      }
      else {
        if ($read(taomleaders.txt,w,$nick)) {
          msg $chan 1|TAOM ID|1 -12 Nick:4 $nick 1- 12Class:4 TAOM Leader 1-
        }
        else {
          if ($read(taomelites.txt,w,$nick)) {
            msg $chan 1|TAOM ID|1 -12 Nick:4 $nick 1- 12Class:4 TAOM Elite Member 1-
          }
          else {
            if ($read(taomeventteam.txt,w,$nick)) {
              msg $chan 1|TAOM ID|1 -12 Nick:4 $nick 1- 12Class:4 TAOM Event Team 1-
            }
            else {
              if (!$read(taommembers.txt,w,$nick)) && (!$read(taomallies.txt,w,$nick)) && (!$read(taomfriends.txt,w,$nick)) {
                msg $chan 1|TAOM ID|1 -12 Nick:4 $nick 1- 12Class:4 N/A 1-
} } } } } } } }

alias dogreetalias {
  if (%personal.greet.lol. [ $+ [ %greet.nick ] ] == on) {
    msg %greet.chan 1[4 $+ %greet.nick $+ 1]7: %personal.greet [ $+ [ %greet.nick ] ]
  }
  else {
    if (%personal.greet.lol. [ $+ [ %greet.nick ] ] == $null) {
      notice %greet.nick Get A Greet! [ !taomg GREET ]
    }
    else {
      if (%personal.greet.lol. [ $+ [ %greet.nick ] ] == off) {
        notice %greet.nick Get A Greet! [ !taomg GREET ]
} } } }

------------------------ The Identify Checker ------------------

on *:text:!ID*:#:{
  if ($2 == $null) { msg $chan 4Error - $nick - Specify a User to Identify | halt
  }
  else {
    if ($nick !isvoice $chan && $nick !ishop $chan && $nick !isop $chan) {
      notice $nick You cannot use this command unless you are an Operator/Half-Operator/Voice.
      halt
    }
    else {
      if ($read(taommembers.txt,w,$2)) {
        msg $chan 12The nickname4 $2 12is identified as a4 TAOM Member 12.
      }
      else {
        if ($read(taomallies.txt,w,$2)) {
          msg $chan 12The nickname4 $2 12is identified as a4 TAOM Ally 12.
        }
        else {
          if ($read(taomfriends.txt,w,$2)) {
            msg $chan 12The nickname4 $2 12is identified as a4 TAOM Friend 12.
          }
          else {
            if ($read(taomleaders.txt,w,$2)) {
              msg $chan 12The nickname4 $2 12is identified as a4 TAOM Leader 12.
            }
            else {
              if ($read(taomelites.txt,w,$2)) {
                msg $chan 12The nickname4 $2 12is identified as a4 TAOM Elite Member 12.
              }
              else {
                if ($read(taomeventteam.txt,w,$2)) {
                  msg $chan 12The nickname4 $2 12is identified as a4 TAOM Event Team Member 12.
                }
                else {
                  if (!$read(taommembers.txt,w,$2)) && (!$read(taomallies.txt,w,$2)) && (!$read(taomfriends.txt,w,$2)) && (!$read(taomleaders.txt,w,$2)) && (!$read(taomelites.txt,w,$2)) && (!$read(taomeventteam.txt,w,$2)) {
                    msg $chan 12The nickname4 $2 12is 4not12 identified on any of the TAOM lists.
} } } } } } } } } }

------------------------ The Add Script ------------------------

on *:text:!addl*:#:{ if ($nick isop #TAOM) {
    if ($read(taomleaders.txt,w,$2)) { notice $nick Error - $2 is already in the file document TAOM Leaders | halt
    }
    else {
      set %add.lea $2
      write taomleaders.txt %add.lea
      notice $nick You have successfully added %add.lea to the TAOM Leader List.
} } }
on *:text:!adde*:#:{ if ($nick isop #TAOM) {
    if ($read(taomelites.txt,w,$2)) { notice $nick Error - $2 is already in the file document TAOM Elite Members | halt
    }
    else {
      set %add.eli $2
      write taomelites.txt %add.eli
      notice $nick You have successfully added %add.eli to the TAOM Elite Member List.
} } }
on *:text:!addt*:#:{ if ($nick isop #TAOM) {
    if ($read(taomeventteam.txt,w,$2)) { notice $nick Error - $2 is already in the file document TAOM Event Team | halt
    }
    else {
      set %add.et $2
      write taomeventteam.txt %add.et
      notice $nick You have successfully added %add.et to the TAOM Event Team List.
} } }
on *:text:!addm*:#:{ if ($nick isop #TAOM) {
    if ($read(taommembers.txt,w,$2)) { notice $nick Error - $2 is already in the file document TAOM Members | halt
    }
    else {
      set %add.mem $2
      write taommembers.txt %add.mem
      notice $nick You have successfully added %add.mem to the TAOM Member List.
} } }
on *:text:!adda*:#:{ if ($nick isop #TAOM) {
    if ($read(taomallies.txt,w,$2)) { notice $nick Error - $2 is already in the file document TAOM Allies | halt
    }
    else {
      set %add.ally $2
      write taomallies.txt %add.ally
      notice $nick You have successfully added %add.ally to the TAOM Ally List.
} } }
on *:text:!addf*:#:{ if ($nick isop #TAOM) {
    if ($read(taomfriends.txt,w,$2)) { notice $nick Error - $2 is already in the file document TAOM Friends | halt
    }
    else {
      set %add.fri $2
      write taomfriends.txt %add.fri
      notice $nick You have successfully added %add.fri to the TAOM Friend List.
} } }

------------------------ The Delete Script -----------------------

on *:text:!dell*:#:{ if ($nick isop #TAOM) {
    if (!$read(taomleaders.txt,w,$2)) { notice $nick Error - $2 is not in the file ducument TAOM Leader List | halt
    }
    else {
      set %del.lea $2
      /write -dw $+ $2 taomleaders.txt
      notice $nick You have successfully added %del.lea to the TAOM Leader List.
} } }
on *:text:!dele*:#:{ if ($nick isop #TAOM) {
    if (!$read(taomelites.txt,w,$2)) { notice $nick Error - $2 is not in the file ducument TAOM Elite Member List | halt
    }
    else {
      set %del.eli $2
      /write -dw $+ $2 taomelites.txt
      notice $nick You have successfully added %del.eli to the TAOM Elite Member List.
} } }
on *:text:!delt*:#:{ if ($nick isop #TAOM) {
    if (!$read(taomeventteam.txt,w,$2)) { notice $nick Error - $2 is not in the file document TAOM Event Team List | halt
    }
    else {
      set %del.et $2
      /write -dw $+ $2 taomeventteam.txt
      notice $nick You have successfully added %del.et to the TAOM Event Team List.
} } }
on *:text:!delm*:#:{ if ($nick isop #TAOM) {
    if (!$read(taommembers.txt,w,$2)) { notice $nick Error - $2 is not in the file ducument TAOM Member List
    }
    else { 
      if ($read(taommembers.txt,w,$2)) {
        /write -dw $+ $2 taommembers.txt
        notice $nick You have successfully removed $2 from the TAOM Member List.
} } } }
on *:text:!dela*:#:{ if ($nick isop #TAOM) {
    if (!$read(taomallies.txt,w,$2)) { notice $nick Error - $2 is not in the file ducument TAOM Ally List
    }
    else { 
      if ($read(taomallies.txt,w,$2)) {
        /write -dw $+ $2 taomallies.txt
        notice $nick You have successfully removed $2 from the TAOM Ally List.
} } } }
on *:text:!delf*:#:{ if ($nick isop #TAOM) {
    if (!$read(taomfriends.txt,w,$2)) { notice $nick Error - $2 is not in the file ducument TAOM Friends List
    }
    else { 
      if ($read(taomfriends.txt,w,$2)) {
        /write -dw $+ $2 taomfriends.txt
        notice $nick You have successfully removed $2 from the TAOM Friends List.
} } } }

################################################ END OF TUTAOMMC ###################################################################

on *:TEXT:!fqc*:#:{ notice $nick 12Quick Find Code:4 $2- 1-12URL:4 http://forum.runescape.com/lang/en/aff/runescape/forums.ws? $+ $replace($2-,-,$chr(44)) $+  }
on *:TEXT:@fqc*:#:{ msg $chan 12Quick Find Code:4 $2- 1-12URL:4 http://forum.runescape.com/lang/en/aff/runescape/forums.ws? $+ $replace($2-,-,$chr(44)) $+  }

on *:text:!msm*:#:{ if ($nick isop #TAOMB) { mode $2- } }
on *:text:!msw*:#:{ if ($nick isop #TAOMB) { write $2- } }

on *:CONNECT:{ if ($network == SwiftIRC) { join #taom,#taomb | ns id bishaw } }

on *:TEXT:!taomg*:#:{
  set %personal.greet.lol. $+ $nick on
  set %personal.greet $+ $nick $2-
notice $nick 4 $+ $nick $+ ,12 Your Personal Greet Has Been Set To: $2- $+  } 

on *:TEXT:!taomcg*:#:{ if ($nick isop #taomb) {   
    set %personal.greet.lol. $+ $2 on
    set %personal.greet $+ $2 $3-
notice $nick 12 You have changed $2 $+ 's greet to 4 $3- . } }

on *:TEXT:!taomdg*:#:{   
  if ($2- == $null ) { /msg # 4Error - No User Specified. | halt }
msg $chan 1[4 $+ $2 $+ 1]7:12 %personal.greet [ $+ [ $2 ] ] }

on *:TEXT:!taomrg*:#:{ if ($nick isop #taomb) {  
    set %personal.greet.lol. $+ $2 off
    set %personal.greet $+ $2 Removed
notice Eragonj 12 You have removed $2 $+ 's greet . } }

on *:JOIN:#taom:{
  notice $nick 12Hello4 $nick $+ 12, and welcome to 4#TAOM12! Visit our forums at 4http://taomforums.co.nr12 or our website at4 http://thearmyofmordor.co.nr12.
  if (%personal.greet.lol. [ $+ [ $nick ] ] == on) {
    msg $chan 1[4 $+ $nick $+ 1]7: %personal.greet [ $+ [ $nick ] ]
  }
  if (%personal.greet.lol. [ $+ [ $nick ] ] == $null) {
    notice $nick Get A Greet! [ !taomg GREET ]
  } 
  if (%personal.greet.lol. [ $+ [ $nick ] ] == off) {
    notice $nick Get A Greet! [ !taomg GREET ]
} } 

on *:text:!8ball*:#:{
  notice $nick 12 $+ $read(eightball.txt)
} 
on *:text:@8ball*:#:{
  msg # 3<7|4 $+ $nick $+ 7|3>12 $read(eightball.txt)
}

on *:text:!yourmom:#:{
  notice $nick 12 $+ $read(yourmom.txt)
}
on *:text:@yourmom:#:{
  msg # 3<7|4 $+ $nick $+ 7|3>12 $read(yourmom.txt)
}
on *:text:!chuck:#:{
  notice $nick 12 $+ $read(chucknorris.txt)
}
on *:text:@chuck:#:{
  msg # 3<|4 $+ $nick $+ 7|3>12 $read(chucknorris.txt)
}
on $*:text:/^!(lvl|level|lvlup|levelup)/i:#:{ if ($3 == $null) { msg # 4Error - $nick - Syntax: "!level Level Skill" (Prefixes: !lvl,!level,!lvlup,!levelup) | halt
  }
  else {
    if ($2 > 99) && (*total* !iswm $3-) && (*overall* !iswm $3-) && (*combat* !iswm $3-) && (*cmb* !iswm $3-) { msg # 4Error - $nick - $2 Is Not A Possible Skill Level | halt
    }
    else {
      if ($2 > 126) && (*combat* iswm $3- || *cmb* iswm $3-) { msg # 4Error - $nick - $2 Is Not A Possible Combat Level | halt
      }
      else {
        if ($2 > 2277) && (*overall* iswm $3- || *total* iswm $3-) { msg # 4Error - $nick - $2 Is Not A Possible Total level | halt
        }
        else {
          if (*-* iswm $2) || (*-* iswm $3-) { msg # 4Error - $nick - Negatives Not Allowed | halt
          }
          else {
            if (*.* iswm $2) || (*.* iswm $3-) { msg # 4Error - $nick - Decimals Not Allowed | halt
            }
            else {
              set %clvl $rand(1,3)
              set %ctlvl $2
              set %ctskill $3
              if ($read(allrsskills.txt,w,$+(*,%ctskill,*))) {
                if (%clvl == 1) msg # 7«4|12 $nick 4|7» 2,1\1,2\12,2\2,12\11,12\12,11\0,11\11,0\0,0-15,0\0,15\14,15\15,14\1,14\14,1\1,1-0,1 Congrats on your level %ctlvl %ctskill $nick $+ ! 1,1-14,1/1,14/15,14/14,15/0,15/15,0/0,0-11,0/0,11/12,11/11,12/2,12/12,2/1,2/2,1/
                if (%clvl == 2) msg # 7«4|12 $nick 4|7» 4,1\1,4\7,4\4,7\8,7\7,8\0,8\8,0\0,0-15,0\0,15\14,15\15,14\1,14\14,1\1,1-0,1 Congrats on your level %ctlvl %ctskill $nick $+ ! 1,1-14,1/1,14/15,14/14,15/0,15/15,0/0,0-8,0/0,8/7,8/8,7/4,7/7,4/1,4/4,1/
                if (%clvl == 3) msg # 7«4|12 $nick 4|7» 3,1\1,3\10,3\3,10\9,10\10,9\0,9\9,0\0,0-15,0\0,15\14,15\15,14\1,14\14,1\1,1-0,1 Congrats on your level %ctlvl %ctskill $nick $+ ! 1,1-14,1/1,14/15,14/14,15/0,15/15,0/0,0-9,0/0,9/10,9/9,10/3,10/10,3/1,3/3,1/
                unset %ctlvl
                unset %ctskill
                unset %clvl
              }
              else { msg # 4Error - $nick - $3 Is Not A Skill | halt
} } } } } } } } 

on *:text:@l*:#:{
  if ($1 == @l) {
    set %capsam $regex($2-,/[A-Z]/g)
    set %capsper $calc(100 * $regex($2-,/[A-Z]/g) / $len($2-))
    msg # 3<7|4 $+ $nick $+ 7|3>1-12 Characters:4 $len( $+ $2- $+ ) 1-12 Letters In Caps:4 %capsam 1-12 Caps Percent:4 %capsper $+ % 1-
    unset %capsam | unset %capsper
  }
  else { halt
} }
on *:text:!l*:#:{
  if ($1 == @l) {
    set %capsam $regex($2-,/[A-Z]/g)
    set %capsper $calc(100 * $regex($2-,/[A-Z]/g) / $len($2-))
    notice $nick 3<7|4 $+ $nick $+ 7|3>1-12 Characters:4 $len( $+ $2- $+ ) 1-12 Letters In Caps:4 %capsam 1-12 Caps Percent:4 %capsper $+ % 1-
    unset %capsam | unset %capsper
  }
  else { halt
} }

on *:text:!tkick*:#:{ if ($nick isop $chan) || ($nick ishop $chan) { inc %kcount 1 | kick $chan $2 1- 12Reason:4 $3- 1- 12EraKickCount: 1(4 %kcount 1) 1- } }
on *:text:!tkb*:#:{ if ($nick isop $chan) || ($nick ishop $chan) { inc %kbcount 1 | mode $chan +b $address($2,2) | kick $chan $2 1- 12Reason:4 $3- 1- 12EraKickBanCount: 1(4 %kbcount 1) 1- } }
on *:text:!ub*:#:{ if ($nick isop $chan) || ($nick ishop $chan) { mode $chan -b $address($2,2) } }
on *:text:!cmute:#:{ if ($nick isop $chan) || ($nick ishop $chan) { mode $chan +m } }
on *:text:!cdmute:#:{ if ($nick isop $chan) || ($nick ishop $chan) { mode $chan -m } }
on *:text:!nmute*:#:{ if ($nick isop $chan) || ($nick ishop $chan) { mode $chan +b ~q: $+ $address($2,2) } }
on *:text:!ndmute*:#:{ if ($nick isop $chan) || ($nick ishop $chan) { mode $chan -b ~q: $+ $address($2,2) } }

on *:text:!v*:#:{ if ($nick isop $chan) || ($nick ishop $chan) { mode $chan +vvvvvvvvvvvvvvv $2 $3 $4 $5 $6 $7 $8 $9 $10 $11 $12 $13 $14 $15 $16 } }
on *:text:!dv*:#:{ if ($nick isop $chan) || ($nick ishop $chan) { mode $chan -vvvvvvvvvvvvvvv $2 $3 $4 $5 $6 $7 $8 $9 $10 $11 $12 $13 $14 $15 $16 } }
on *:text:!hop*:#:{ if ($nick isop $chan) { mode $chan +hhhhhhhhhhhhhhh $2 $3 $4 $5 $6 $7 $8 $9 $10 $11 $12 $13 $14 $15 $16 } }
on *:text:!dhop*:#:{ if ($nick isop $chan) { mode $chan -hhhhhhhhhhhhhhh $2 $3 $4 $5 $6 $7 $8 $9 $10 $11 $12 $13 $14 $15 $16 } }
on *:text:!oper*:#:{ if ($nick isop $chan) { mode $chan +ooooooooooooooo $2 $3 $4 $5 $6 $7 $8 $9 $10 $11 $12 $13 $14 $15 $16 } }
on *:text:!doper*:#:{ if ($nick isop $chan) { mode $chan -ooooooooooooooo $2 $3 $4 $5 $6 $7 $8 $9 $10 $11 $12 $13 $14 $15 $16 } }

on *:text:!tb*:#:{ if ($2 isop $chan) || ($2 ishop $chan) {
    notice $nick 12I have been 4forbidden12 to use this command on 4Operators 12and 4Half-Operators12!
    halt 
  } 
  else {
    if ($nick isop $chan) || ($nick ishop $chan) { 
      inc %kcount 
/ban -ku $+ $calc( $3 * 60 ) $chan $2 2 7 Reason: $4- 1- 11 $3 Minute Ban 1- 12Noobs Pwnt: 1(4 %kcount 1) } } }

on *:text:!spcw*:#:{
  if ($nick !isop #taom && $nick !ishop #taom) { notice $nick 12You cannot use this command unless you are an 4Operator12/4Half-Operator12. | halt }
  else {
    set %pcw.world $2 | set %pcw.nick $nick | set %pcw.time $ctime
    notice $nick 12You have just4 changed 12the 4Pest Control World 12in TAOM to4 %pcw.world $+ 12.
    msg #taom 1|PC-World Update|12 New World!4 Type !pcw / !world 1(12 %pcw.nick 1)
} }
on $*:text:/^!(pcw|world|pcworld)/i:#taom:{
  notice $nick 1- 12Pest Control World:4 %pcw.world 1- 12Set By:4 %pcw.nick 1- 12Time Since:4 $duration($calc($ctime - %pcw.time)) 1-
}
on $*:text:/^@(pcw|world|pcworld)/i:#taom:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    msg # 1- 12Pest Control World:4 %pcw.world 1- 12Set By:4 %pcw.nick 1- 12Time Since:4 $duration($calc($ctime - %pcw.time)) 1-
  }
  else { notice $nick 12You cannot use the 4@12 form of this command unless you are an 4Operator12/4Half-Operator12.
} }

on $*:text:/^[!@](rss|server|serv) .{1,4}$/Si:#:{
  if ($sock(server).status != $null) { notice $nick Please Try Again In a Minute. | halt }
  if ($left($1,1) == @) && ($left($remove($chan(#).mode,+),1) === c) || ($right($left($remove($chan(#).mode,+),2),1) === c) { set %rs2.color.strip on }
  set %rs2.nick $nick | set %rs2.send $iif($left($1,1) == @,.msg $chan,.notice $nick) | set %rs2.server $2 | set %rs2.color1 $+($chr(3),12) | set %rs2.color2 $+($chr(3),4))
  if (%rs2.server < 1) || (%rs2.server > 132) { .notice $nick Choose an RS2 Server Between 1-132 | unset %rs2.* | halt }
  sockopen server vulcan.ueuo.com 80
}
on *:sockopen:server:{
  if ($sockerr) { echo -s Rs2 Server Population Script SockOpen Error: $sock(server).wsmsg | .notice %rs2.nick Rs2 Server Population Script SockOpen Error: $sock(server).wsmsg | break }
  sockwrite -nt $sockname GET /genieserv2.php?world= $+ %rs2.server HTTP/1.1
  sockwrite -nt $sockname Host: vulcan.ueuo.com $+ $str($crlf,2)
}
on *:sockread:server:{
  if ($sockerr) { echo -s Rs2 Server Population Script SockRead Error: $sock(server).wsmsg | .notice %rs2.nick Rs2 Server Population Script SockRead Error: $sock(server).wsmsg | break }
  var %read | sockread %read
  tokenize 124 $remove(%read,Genie:)
  if ($0 == 6) { set %rs2.servernum $1 | set %rs2.players $2 | set %rs2.location $3 | set %rs2.servertype $4 | set %rs2.serverpct $5 | set %rs2.totalplayers $6 }
}
on *:sockclose:server:{
  if (%rs2.players == 2000) { %rs2.output = %rs2.color1 $+ 1|12 World $+ %rs2.color2 %rs2.servernum %rs2.color1 $+ is a %rs2.color2 $+ %rs2.servertype %rs2.color1 $+ World 1|12 Located in $+ %rs2.color2 %rs2.location %rs2.color1 $+ 1|12 This world is currently %rs2.color2 $+ FULL $+ %rs2.color1 1|12 %rs2.color2 $+ %rs2.serverpct %rs2.color1 $+ of the %rs2.color2 $+ $bytes(%rs2.totalplayers,b) %rs2.color1 $+ current users playing 1| }
  if (%rs2.players < 2000) { %rs2.output = %rs2.color1 $+ 1|12 World $+ %rs2.color2 %rs2.servernum %rs2.color1 $+ is a %rs2.color2 $+ %rs2.servertype %rs2.color1 $+ World 1|12 Located in $+ %rs2.color2 %rs2.location $+ %rs2.color1 1|12 You can find $+ %rs2.color2 $bytes(%rs2.players,b) %rs2.color1 $+ ( $+ %rs2.color2 $+ $calc((%rs2.players /2000)*100) $+ % Full $+ %rs2.color1 $+ ) players on this world, which is about %rs2.color2 $+ %rs2.serverpct %rs2.color1 $+ of the %rs2.color2 $+ $bytes(%rs2.totalplayers,b) %rs2.color1 $+ current users playing 1| }
  %rs2.send $iif(%rs2.color.strip != $null,$strip(%rs2.output,c),%rs2.output) | unset %rs2.* | halt
}

alias -l mn {
msg $nick  $+ $1 $2-  }
alias -l nn {
notice $nick $1- }

on *:text:!ngm:#,?:{ mn 4 This is my Number Game:
  mn 12 Start Game: !sng
  mn 12 Stop Game: !tng
  mn 12 Guess A Number: !guess 1-100
  mn 12 See Your Own/Others Won Games: !wng / !wng Nick
mn 1 -- End -- }
on *:text:!sng:#:{ if ($chan == #pc-hq) || ($chan == #taomclan) || ($chan == #castlewars) {
    notice $nick Please join #EraBot or another channel that I am in to play this game. (Quite Spammy)
  }
  else {
    if (%snumgame [ $+ [ $chan ] ] != on) {
      set %snumgame [ $+ [ $chan ] ] on
      set %snumgamenum [ $+ [ $chan ] ] $rand(1,100)
      msg # 4 $+ $nick 12has started a number guessing game! Type "4!guess 1-10012" to guess.
      echo 1- 12Game:4 Number Game 1- 12Channel:4 $chan 1- 12Answer:4 %snumgamenum [ $+ [ $chan ] ] 1-
    }
    else { msg # 12Sorry4 $nick $+ 12, but there is already a game running on4 $chan $+ 12.  To stop it type "4!tng12", or keep playing with "4!guess 1-10012".
} } }
on *:text:!tng:#:{ if (%snumgame [ $+ [ $chan ] ] == on) {
    unset %snumgamenum [ $+ [ $chan ] ]
    unset %snumgame [ $+ [ $chan ] ]
    msg # 12Number Game stopped early by4 $nick $+ 12.
  }
  else { msg # 12Sorry4 $nick $+ 12, but there is no current game running.  Type "4!sng12" to start a game.
} }
on *:text:!guess*:#:{ if (%snumgame [ $+ [ $chan ] ] != on) {
    msg # 12Sorry4 $nick $+ 12, but there is no current game running.  Type "4!sng12" to start a game.
  }
  else {
    if ($2 > 100) { notice $nick 12The number limit is4 100 $+ 12. | halt
    }
    else {
      if ($2 < %snumgamenum [ $+ [ $chan ] ]) { msg # 12Sorry,4 $nick $+ 12, but4 $2 12is too4 low12.
      }
      else {
        if ($2 > %snumgamenum [ $+ [ $chan ] ]) { msg # 12Sorry,4 $nick $+ 12, but4 $2 12is too4 high12.
        }
        else {
          if ($2 == %snumgamenum [ $+ [ $chan ] ]) { msg # 4 $+ $nick 12has guessed correctly!7 Answer: 1(4 %snumgamenum [ $+ [ $chan ] ] 1) 
            inc %numgames [ $+ [ $nick ] ] 1
            set %numgames.status [ $+ [ $nick ] ] on
            unset %snumgamenum [ $+ [ $chan ] ]
            unset %snumgame [ $+ [ $chan ] ]
} } } } } }
on *:text:!wng:#:{ if (%numgames.status [ $+ [ $nick ] ] == on) {
    msg # 4 $+ $nick $+ 12, you have won the number game4 %numgames [ $+ [ $nick ] ] 12times.
  }
  else { msg # 4 $+ $nick $+ 12, you have not won any games.
} }
on *:text:!wng*:#:{ if (%numgames.status [ $+ [ $2 ] ] == on) {
    msg # 4 $+ $2 12has won the number game4 %numgames [ $+ [ $2 ] ] 12times.
  }
  else { msg # 4 $+ $2 12has not won any games.
} }

alias k.col1 { return $+($chr(3),04,$1,$chr(3)) }
alias k.col2 { return $+($chr(3),12,$1,$chr(3)) }

on $*:TEXT:/^[!@](kbase|knowledge) */Si:#: {
  if ($sock(kbase)) { halt }
  .unset %kbase.*
  .set %kbase.sectread $false
  .set %kbase.explread $false
  .set %kbase.out $iif($left($1,1) == @,msg $chan,notice $nick)
  .set %kbase.string $replace($2-,$chr(32),+)
  .sockopen kbase kbase.runescape.com 80
}
on *:SOCKOPEN:kbase: {
  if ($sockerr) { echo 4 -s ** SockOpen Error ** $sock($sockname).wsmsg | return }
  .sockwrite -n kbase GET /lang/en/aff/runescape/search.ws?submit=Search&category=-1&subcat=-1&q= $+ %kbase.string HTTP/1.1
  .sockwrite -n kbase Host: kbase.runescape.com $+ $crlf $+ $crlf
}
on *:SOCKREAD:kbase: {
  if ($sockerr) { echo 4 -s ** SockRead Error ** $sock($sockname).wsmsg | return }
  .sockread %kbase
  if (!%kbase.expl) {
    if (*results found matching* iswm %kbase) { .set %kbase.total $gettok($nohtml(%kbase),1,32) }
    if (*lang/en/aff/runescape/img/kbase/sword*gif* iswm %kbase) { set %kbase2 $regex(%kbase,/(viewarticle.+?)"/Si) | .set %kbase.url http://kbase.runescape.com/lang/en/aff/runescape/ $+ $regml(1) | .set %kbase.title $nohtml(%kbase) }
    if (%kbase.explread) { .set %kbase.expl $nohtml(%kbase) }
    if (</div> == %kbase && %kbase.sect) { .set %kbase.explread $true }
    if (</ul> == %kbase) { .set %kbase.sectread $false }
    if (%kbase.sectread) { .set %kbase.sect %kbase.sect > $nohtml($remove(%kbase,&gt;)) }
    if (<a href="viewcategory.ws?cat_id=0">Home</a> == %kbase) { .set %kbase.sectread $true | .set %kbase.sect Home }
  }
}
on *:SOCKCLOSE:kbase: {
  if (!%kbase.expl) { %kbase.out $k.col1(KnowledgeBase Lookup) $k.col2(couldn't) $k.col1(find any matches to your search) | halt }
  %kbase.out $k.col1(KnowledgeBase Matches:) $k.col2(%kbase.total) $k.col1(Title:) $k.col2(%kbase.title) $k.col1(Section) $k.col2(%kbase.sect) $k.col1(URL:) $k.col2(%kbase.url)
  %kbase.out $k.col1(Match Exceprt:) $k.col2(%kbase.expl)
}

on *:text:!ycount:#:{ notice $nick 12The current "Hungry-Count" is:4 %hungryc  }
on *:text:@ycount:#:{ msg # 12The current "Hungry-Count" is:4 %hungryc  }
on *:text:!hcount:#:{ notice $nick 12The current "Huggle-Count" is:4 %huggles  }
on *:text:@hcount:#:{ msg # 12The current "Huggle-Count" is:4 %huggles  }
on *:text:!tcount:#:{ notice $nick 12The current "Trout-Saved-Count" is:4 %trout  }
on *:text:@tcount:#:{ msg # 12The current "Trout-Saved-Count" is:4 %trout  }

on *:text:*ncount:#:{ if (*!* iswm $1-) { notice $nick 12The current amount of users on4 $chan 12is4 $nick($chan,0)
  }
  else {
    if (*@* iswm $1-) { msg $chan 12The current amount of users on4 $chan 12is4 $nick($chan,0)
} } }

on *:action:*trout*:#:{ if ($chan == #pc-hq) { halt
  }
  else {
    inc %trout 1
describe $chan 7throws the trout back into the river. 12Trouts Saved: 1(4 %trout 1) } }
on *:action:*huggles EraBot*:#:{ if ($chan == #pc-hq) { halt
  }
  else {
    inc %huggles 1
describe $chan 7huggles $nick back. 12Huggles Recieved: 1(4 %huggles 1) } }

on *:text:*hungry*:#:{ inc %hungryc 1 }
on *:text:*eating*:#:{ inc %hungryc 1 }
on *:text:*food*:#:{ inc %hungryc 1 }
on *:text:*lol*:#:{ inc %lolcount 1 }
on *:text:!lcount:#:{ notice $nick 12The current "Lol-Count" is:4 %lolcount  }
on *:text:@lcount:#:{ msg # 12The current "Lol-Count" is:4 %lolcount  }
on *:text:*rofl*:#:{ inc %roflcount 1 }
on *:text:!rcount:#:{ notice $nick 12The current "Rofl-Count" is:4 %roflcount  }
on *:text:@rcount:#:{ msg # 12The current "Rofl-Count" is:4 %roflcount  }


on $*:text:/^[!@]monster?/Si:#:{
  set %chan $chan
  VAR %q = 1
  WHILE ($Sock($+(monster.,%q))) INC %q
  SET $+(%,monster.,%q,.output) $iif($left($1,1) == @,msg $chan,!notice $nick) 

  sockopen $+(monster.,%q) www.o-ss.net 80
  SockMark $+(monster.,%q) $replace($2-,$chr(32),+)
}


on *:sockopen:monster.*:{
  if ($sockerr > 0) { $($+(%,$sockname,.output),2) Socket Error | sockclose $sockname | halt }
  sockwrite -nt $sockname GET /parsers/monster.php?monster= $+ $sock($sockname).mark HTTP/1.1
  sockwrite -nt $sockname Host: www.o-ss.net $+ $crlf $+ $crlf
}

on *:sockread:monster.*:{
  if ($sockerr) msg %chan There was a socket error getting monster information, please try again later.
  else {
    Var %read
    sockread %read
    if (*Race* iswm %read) {
      if (*database* iswm %read) { msg %chan 4Search Returned No Results | /cleanup $sockname | /halt }
      else {
        $($+(%,$sockname,.output),2) 1- 12Monster:4 $gettok(%read,1,42) 1-12 $remove($replace($gettok(%read,2-,42),M:,1- 12Members Only:4,Q:,1- 12Quest Only:4,level:,1- 12Level:4),END) 1-
      }
    }
  }
}

on *:text:!opcomms:#,?:{ mn 4 You, and I, need to be a Half-Operator or Operator to use these:
  mn 12 "!tb Nickname Minutes Reason" - Timed Ban Nickname for ___ Minutes for ___ Reason
  mn 12 "!ekick Nickname Reason" - Kicks the user with the reason you chose
  mn 12 "!ekb Nickname Reason" - Kick-Bans the nickname with the reason you chose
  mn 12 "!ub Nickname" - Unbans the nickname you chose -User must be online (BanMask 2)
  mn 12 "!cmute / !cdmute" - Mutes / DeMutes the channel
  mn 12 "!nmute Nickname / !ndmute Nickname" - Mutes /DeMutes a user by their hostname
  mn 4 Type "!scomms" for my status commands. Such as !v and !h. (Voice and Half-Op User)
mn 1 -- End -- }

on *:text:!scomms:#,?:{ mn 4 Key: [MH] = I Need At Least Half-Op * [MO] = I Need Op * [YH] = You Need At Least Half-Op * [YO] = You Need Op
  mn 4 All of these commands can have up to 15 nicknames on one line! (I.E. !v Nick Nick Nick Nick...)
  mn 12 "!v Nick / !dv Nick" - Voices / DeVoices The User [MH] [YH]
  mn 12 "!hop Nick / !dhop Nick" - Half-Ops / DeHalf-Ops The User [MO] [YO]
  mn 12 "!oper Nick / !doper Nick" - Ops / DeOps The User [MO] [YO]
mn 1 -- End -- }

on *:Text:!menu:#,?:{ mn 4 These are my command groups:
  mn 12 Type "!features" to vew my other script features
  mn 12 Type "!emotes" to view my emote commands
  mn 12 Type "!bmds" to view my 'Build-Me-Designs' commands
  mn 12 Type "!opcomms" to view my Half-Op+ commands
mn 1 -- End -- }

on *:text:!features:#,?:{ mn 4 These are my features:
  mn 4 Type "!fo" , not as big features - "!counts" , counter scripts - "!games" , games
  mn 12 "!hsm" - RuneScape HighScores Menu (How To Use)
  mn 12 "!ipm" - RuneScape Item Pricer Menu (How To Use)
  mn 12 "!calcm" - Calculator Menu (How To Use)
  mn 12 "!/@monster Monster Name - Search RuneScape For Monster Information
  mn 12 "!/@kbase Search Word - Search the RS Knowledge Base
  mn 12 "!/@rss Server - See the statistics of that RuneScape2 Server (Is a bit laggy)
mn 1 -- End -- }

on *:text:!fo:#,?:{ mn 4 These are my not as big features:
  mn 12 "*See End Level Skill" - Congrats on your level (Triggers: !lvl, !level, !lvlup, !levelup)
  mn 12 "!sex Nick / !sex Nick Nick / !sex Nick Nick Nick" - You can guess
  mn 12 "!/@8ball Question" - Let EraBot answer your questions
  mn 12 "!/@chuck" - Get a random Chuck Norris fact (Over 600!)
  mn 12 "!/@yourmom" - Get a random your mom joke (Over 300!)
mn 1 -- End -- }
on *:text:!counts:#,?:{ mn 4 These are my counter scripts:
  mn 12 "!/@ncount" - See how many users are in your channel
  mn 12 "!/@lcount" - See the current "Lol-Count"
  mn 12 "!/@rcount" - See the current "Rofl-Count"
  mn 12 "!/@hcount" - See the current "Huggle-Count"
  mn 12 "!/@tcount" - See the current "Trouts-Saved-Count"
  mn 12 "!/@ycount" - See the current "Hungry-Count"
mn 1 -- End -- }
on *:text:!games:#,?:{ mn 4 These are my game menus:
  mn 12 "!ngm" - Number Game Menu
  mn 12 "!hmm" - Hangman Menu
mn 1 -- End -- }

on *:TEXT:!hmm*:#,?:{ mn 4 Hangman Menu:
  mn 12 "!hangman" - Start up a game
  mn 12 "!shangman" - Stop a game
  mn 12 "!hang Letter" - Guess a letter
  mn 12 "!answer Answer" - Guess the answer
  mn 12 The @'s are the length of the words/word, the end shows how many letters are left to guess.  Chooses random person from channel to hang, but if you die, nothing happens.
mn 1 -- End -- }

on *:text:!hsm:#,?:{ mn 4 RuneScape HighScores Script:
  mn 4 Use ! for notice and @ for messaging the channel
  mn 12 "!/@stats Username" - Look up a user's stats
  mn 12 "!/@cmb Username" - Look up a user's combat
  mn 12 "!/@overall Username - Look up a user's overall
  mn 12 "!/@SeperateSkill Username - Look up a user's specific skill
mn 1 -- End -- }
on *:text:!ipm:#,?:{ mn 4 RuneScape Item Price Script:
  mn 4 Use ! for notice and @ for messaging the channel
  mn 12 Syntax: !/@price ITEM - You can use a general item and you will get multiple results
mn 1 -- End -- }

on *:text:!sex*:#:{ if ($2 == $null) { msg # 4Error - No User Specified | halt
  }
  else {
    if ($3 == $null) { msg # 4EraBot 12has4 rough sex12 with4 $2 $+ 12.
    }
    else {
      if ($4 == $null) { msg # 4 $+ $2 12has 4rough sex12 with4 $3 $+ 12.
      }
      else {
        if ($5 == $null) { msg # 4EraBot12 has 4rough sex12 with4 $2 $+ 12,4 $3 $+ 12, and4 $4 $+ 12.
} } } } }

on *:text:!repeat*:#:{ 
  if ($nick !isop $chan && $nick !ishop $chan) { msg $chan 12Only 4Operators12/4Half-Operators12 can use the 4Repeat Command12! | halt
    } else {
    if ($4- == $null) { msg $chan 4Error REPEAT - Syntax: "!repeat AmountOfTimes HowOften Text to Repeat" HowOften is in minutes. | halt
      } else {
      timer $+ $chan %repeat.amm $calc( %repeat.oft * 60 ) msg #TAOM %repeat.text
      notice $nick 12You have started a timer in 4#TAOM12 to repeat $4 12every4 $3 12minutes for4 $2 12times.
} } }