##################################################################################################
########################### The ##################################
########################### Ultimate #################################
########################### TAOM #################################
########################### Member #################################
########################### Checker #################################
##################################################################################################
;Files:
;Member taommembers.txt
;Ally taomallies.txt
;Friend taomfriends.txt
;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".
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(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-
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 ]
} } } } } }
------------------------ 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(taommembers.txt,w,$2)) && (!$read(taomallies.txt,w,$2)) && (!$read(taomfriends.txt,w,$2)) {
msg $chan 12The nickname4 $2 12is 4not12 identified on any of the TAOM lists.
}
}
}
}
}
}
}
------------------------ The Add Script ------------------------
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:!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:!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-100 12" 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-100 12".
} } }
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,>)) }
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 {
set %repeat.amm $2 | set %repeat.oft $3 | set %repeat.text $4-
timer1 %repeat.amm $calc( %repeat.oft * 60 ) msg #TAOM %repeat.text
notice $nick 12You have started a timer in 4#TAOM12 to repeat4 %repeat.text 12every4 %repeat.oft 12minutes for4 %repeat.amm 12times.
unset %repeat.amm | unset %repeat.oft | unset %repeat.text
} } }