rendered paste body--------------------------------------------------------------------------
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 -- }
Half-Op+ Commands:
on *:text:!ekick*:#:{ 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:!ekb*:#:{ 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)
} } }
off *:text:!timebomb*:#:{ if ($nick ishop $chan) || ($nick isop $chan) {
if ($me !isop $chan) || ($me !ishop $chan) {
msg $chan $nick $+ , I don't timebomb without Operator/Half-Operator status.
halt
}
:start1
if (%bombnick) {
msg $chan $chr(1) $+ ACTION points at the bulge in [ %bombnick ] $+ 's pants. They have only $timer(bomb).secs seconds left. $+ $chr(1)
}
else {
if ($2 ison $chan) {
set %bombnick $2
set %colorarray red,orange,yellow,green,blue,purple,black,brown,white
set %bombcolor %colorarray
set %bombwirecount $rand(1,6)
set %bombwires1 0
; set %bombwires $gettok(%bombcolor,$rand(1,$gettok(%bombcolor,0,44))
while (%bombwirecount > %bombwires1) {
;while (%bombwirecount > $gettok(%bombwires,0,44)) {
; set %bombwires $addtok(%bombwires,$gettok(%bombcolor,$rand(1,$gettok(%bombcolor,0,44)),44)
set %bombwirenew $gettok( %bombcolor , $rand(1,$gettok(%bombcolor,0,44)) , 44)
set %bombwires %bombwires %bombwirenew
set %bombcolor $remtok(%bombcolor,%bombwirenew,44)
inc %bombwires1
}
set %bombtime $rand(10,45)
if (%nobomb) {
msg $chan 4 $nick $+ 12: Haha, I don't know who you are talking about so....... 4YOU HAVE THE BOMB!
}
else {
msg $chan $chr(1) $+ ACTION stuffs a time bomb into $2 $+ 's pants. The display reads $chr(91) $+ %bombtime $+ $chr(93) seconds. $+ $chr(1)
}
unset %nobomb
}
msg $chan $2 $+ : Diffuse the bomb by cutting the correct wire, type: !cw COLOR -- There are $gettok(%bombwires,0,32) wires, they are: $replace(%bombwires,$chr(32),$chr(44) $+ $chr(32))
set %bombright $gettok(%bombwires,$rand(1,$gettok(%bombwires,0,32)),32)
timerbomb 1 %bombtime bombkick $chan $2 12You have failed to defuse the bomb.4 *BOOM!* 1(12Correct Wire:4 %bombright 1)
}
else {
tokenize 32 timebomb $nick
set %nobomb 1
goto start1
}
}
}
on *:text:!cw*:# {
if ($nick == %bombnick) {
timerbomb off
if ($2 == %bombright) {
msg $chan $nick cut the %bombright wire. This has defused the bomb!
}
else {
kick $chan $nick 12Snip...4*BOOM!* 1(12Correct wire was:4 %bombright $+ 1)
}
unset %bombnick
unset %bombwires
}
else {
if (%bombnick) {
msg $chan 12You cannot decide4 %bombnick $+ 12's future, they will need to cutwire themselves.
}
}
}
alias bombkick {
kick $1-
unset %bombnick
unset %bombwires
}
--------------------------------------------------------------------------
FEATURES:
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 "!polli" - Make A Poll (How To Use)
mn 12 "!calcm" - Calculator Menu (How To Use)
mn 12 "!binfo" - Info on my current statistics
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 12 "!/@time s Minutes / !/@time m Seconds " - Convert Seconds To Minutes and Vise-Versa
mn 1 -- End -- }
on *:text:!fo:#,?:{ mn 4 These are my not as big features:
mn 12 "!lgm" - See the latest Global Message sent
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 12 "!/@ctime" - See The Current Time (-6 GMT)
mn 12 "!/@time s Minutes / !/@time m Seconds " - Convert Seconds To Minutes and Vise-Versa
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 "!cstart" - Start Using the Casino
mn 12 "!ngm" - Number Game Menu
mn 12 "!hmm" - Hangman Menu
mn 12 "!trivia" - Trivia
mn 1 -- End -- }
on *:text:!casino:#:{
notice $nick 1| Casino Menu |
notice $nick 12Games:4 !cgames
notice $nick 12Start an Account:4 !cstart
notice $nick 12See User's Cash:4 !cash Nick
notice $nick 12Broke? Use:4 !cbroke
notice $nick 1-- End --
}
on *:text:!trivia:#,?:{ mn 4 Trivia Menu:
mn 12 "!triviaon" - Starts Trivia
mn 12 "!triviaoff" - Stops Trivia
mn 12 "!trivcomms" - Trivia Commands (Staff Only)
mn 12 "!trivinfo" - Trivia Info (Staff Only)
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:!binfo:#,?:{ nnbc 1 Some Of My Current Statistics:
nnbc 12 Channels I'm Currently In:1 (4 $chan(0) 1)
nnbc 12 Queries I Currently Have Open:1 (4 $query(0) 1)
nnbc 12 My mIRC Version:1 (4 $version 1)
nnbc 12 My Window Is Currently:1 (4 $appstate 1)
nnbc 1 -- End -- }
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) || ($chan == #TAOM) { 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) || ($chan == #TAOM) { 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:!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:!ctime:#,?:{ notice $nick 12The current time is (-6 GMT Central Time) :4 $time }
on *:text:@ctime:#:{ msg # 12The current time is (-6 GMT Central Time) :4 $time }
on *:text:!time*:#:{ if ($2 == s) { notice $nick 12Converting4 $3 12second(s) into minutes...4 $calc( $3 / 60 ) 12minutes(s). }
else { if ($2 == m) { notice $nick 12Converting4 $3 12minute(s) into seconds...4 $calc( $3 * 60 ) 12second(s). } } }
on *:text:@time*:#:{ if ($2 == s) { msg # 12Converting4 $3 12second(s) into minutes...4 $calc( $3 / 60 ) 12minutes(s). }
else { if ($2 == m) { msg # 12Converting4 $3 12minute(s) into seconds...4 $calc( $3 * 60 ) 12second(s). } } }
on *:text:!lgm:#:{ notice $nick 1| 12My latest Global Message sent was:4 %lgm 1| 12It was sent4 $duration($calc($ctime - %lgmt)) 12ago 1| }
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:!ascii:#:{
notice $nick 1| ASCII Lookup |
notice $nick 12"!ascii n Number " - converts Number to Symbol
notice $nick 12"!ascii s Symbol " - converts Symbol to Number
notice $nick 12"!ascii c" - ASCII Charts
notice $nick 1-- End --
}
on *:text:!ascii n *:#:{
if ($3 == $null) {
notice $nick 12Error 4ASCII 1-12 Syntax: "!ascii n Number ", converts the Number to the ASCII symbol.
halt
}
else {
if ($3 > 255 || $3 < 33) {
notice $nick 12Error 4ASCII 1-12 The ASCII characters only go from 33-255.
halt
}
else {
if (*a* iswm $3- || *b* iswm $3- || *d* iswm $3- || *e* iswm $3- || *j* iswm $3- || *r* iswm $3-) {
notice $nick 12Error 4ASCII 1-12 No letters are allowed in the Number to Symbol ASCII Lookup!
halt
}
else {
notice $nick 12The ASCII symbol for4 number $3 12is4 $chr( $+ $3 $+ ) $+ 12.
} } } }
on *:text:!ascii s *:#:{
if ($3 == $null) {
notice $nick 12Error 4ASCII 1-12 Syntax: "!ascii s Symbol ", converts the Symbol to the ASCII number.
halt
}
else {
set %ascii.find $read(ascii.txt, s, $3 $+ )
notice $nick 12The ASCII number for4 $3 12is4 $calc( $readn + 32 ) $+ 12.
unset %ascii.find
} }
on *:text:!ascii c:#:{
notice $nick 1| ASCII Charts |
notice $nick 12#32-#127:4 http://www.asciitable.com/asciifull.gif $+
notice $nick 12#128-#240:4 http://www.asciitable.com/extend.gif $+
notice $nick 1 -- End --
}
on *:text:@ascii n *:#:{
if ($3 == $null) {
msg $chan 12Error 4ASCII 1-12 Syntax: "!ascii n Number ", converts the Number to the ASCII symbol.
halt
}
else {
if ($3 > 255 || $3 < 33) {
msg $chan 12Error 4ASCII 1-12 The ASCII characters only go from 33-255.
halt
}
else {
if (*a* iswm $3- || *b* iswm $3- || *d* iswm $3- || *e* iswm $3- || *j* iswm $3- || *r* iswm $3-) {
msg $chan 12Error 4ASCII 1-12 No letters are allowed in the Number to Symbol ASCII Lookup!
halt
}
else {
msg $chan 12The ASCII symbol for4 number $3 12is4 $chr( $+ $3 $+ ) $+ 12.
} } } }
on *:text:@ascii s *:#:{
if ($3 == $null) {
msg $chan 12Error 4ASCII 1-12 Syntax: "!ascii s Symbol ", converts the Symbol to the ASCII number.
halt
}
else {
set %ascii.find $read(ascii.txt, s, $3 $+ )
msg $chan 12The ASCII number for4 $3 12is4 $calc( $readn + 32 ) $+ 12.
unset %ascii.find
} }
on *:text:@ascii c:#:{
msg $chan 1| ASCII Charts |
msg $chan 12#32-#127:4 http://www.asciitable.com/asciifull.gif $+
msg $chan 12#128-#240:4 http://www.asciitable.com/extend.gif $+
msg $chan 1 -- End --
}
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 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-))
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:!yourmom:#:{ if ($chan == #pc-hq) { notice $nick Please use this in another channel that I am in to reduce spam in #PC-HQ. Thank you! | halt
}
else {
notice $nick 12 $+ $read(yourmom.txt)
} }
on *:text:@yourmom:#:{ if ($chan == #pc-hq) { notice $nick Please use this in another channel that I am in to reduce spam in #PC-HQ. Thank you! | halt
}
else {
msg # 3<7|4 $+ $nick $+ 7|3>12 $read(yourmom.txt)
} }
on *:text:!chuck:#:{ if ($chan == #pc-hq) { notice $nick Please use this in another channel that I am in to reduce spam in #PC-HQ. Thank you! | halt
}
else {
notice $nick 12 $+ $read(chucknorris.txt)
} }
on *:text:@chuck:#:{ if ($chan == #pc-hq) { notice $nick Please use this in another channel that I am in to reduce spam in #PC-HQ. Thank you! | halt
}
else {
msg # 3<|4 $+ $nick $+ 7|3>12 $read(chucknorris.txt)
} }
on *:text:!8ball*:#:{ if ($chan == #pc-hq) { notice $nick Please use this in another channel that I am in to reduce spam in #PC-HQ. Thank you! | halt
}
else {
notice $nick 12 $+ $read(eightball.txt)
} }
on *:text:@8ball*:#:{ if ($chan == #pc-hq) { notice $nick Please use this in another channel that I am in to reduce spam in #PC-HQ. Thank you! | halt
}
else {
msg # 3<7|4 $+ $nick $+ 7|3>12 $read(eightball.txt)
} }
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.
} } } } }
-------------------- YOUTUBE SEARCH ---------------------------------
alias c1 { return $+($chr(3),12,$1-) }
alias c2 { return $+($chr(3),04,$1-) }
alias c3 { return $+($chr(3),14,$1-) }
alias urlencode {
var %a = $regsubex($$1,/([^\w\s])/Sg,$+(%,$base($asc(\t),10,16,2)))
return $replace(%a,$chr(32),$chr(43))
}
on $*:text:/^[!@]youtube */Si:#: {
if ($sock(ytube)) {
.sockclose ytube
}
set %ytubeway $iif($left($1,1) == @,msg $chan,notice $nick)
set %ytubeorigquery $2-
set %ytubequery $urlencode($2-)
set %ytubetimes 1
if ($2 isnum) {
$iif(%ytubetimes <= 6,set %ytubetimes $2,set %ytubetimes 6)
set %ytubequery $urlencode($3-)
set %ytubeorigquery $3-
}
set %ytuberept %ytubetimes
.sockopen ytube www.youtube.com 80
}
on *:SOCKOPEN:ytube: {
sockwrite -nt $sockname GET $+(/results?search_query=,%ytubequery,&search=Search)
sockwrite -nt $sockname Host: www.youtube.com
sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:ytube: {
if ($sockerr) {
%ytubeway $c1(Socket Error - Name:) $c2($sockname) $c1(Error code:) ( $+ $c2($sockerr) $+ ) $c1(Please inform $me of this error message)
halt
}
else {
var %sockreader
sockread %sockreader
if (%sockreader) {
if (*No Videos found for* iswm %sockreader) {
%ytubeway $c1(No results found for:) $c2($+(",%ytubeorigquery,"))
unset %ytube*
sockclose ytube
}
if (*<div class="my" style="padding-top: 8px; font-size: 12px;">Results*</div>* iswm %sockreader) {
noop $regex(%sockreader,/of (.*?)</div>/Si)
set %ytuberesnum $regml(1)
%ytubeway $c1(Your search of:) $c2(%ytubeorigquery) $c1(returned) $c2($bytes(%ytuberesnum,b)) $c1(results. Displaying the top) $c2($iif(%ytubetimes <= $calc(%ytuberesnum - 1),%ytubetimes,%ytuberesnum)) $+ $c1(:)
}
if (*<a href="*" onclick="_hbLink*;">*</a><br/>* iswm %sockreader) {
noop $regex(%sockreader,/<a href="(.*?)" onclick="_hbLink(?:.*?);">(.*?)</a><br/>/Si)
set %ytube.url $+(http://www.youtube.com,$regml(1))
set %ytube.name $regml(2)
}
if (*<span class="runtime">*</span>* iswm %sockreader) {
noop $regex(%sockreader,/<span class="runtime">(.*?)</span>/Si)
set %ytube.runtime $regml(1)
}
if (*<span id="BeginvidDesc*">* iswm %lastline) {
set %ytube.desc $remove($nohtml(%sockreader), )
}
if (*<div class="vtagValue"><a href="/results?search_query=* iswm %sockreader) {
set %ytube.tags $replace($nohtml(%sockreader), ,$chr(44), ,$null,$+($chr(32),$chr(44)),$chr(44))
}
if (*<span class="grayText">Views:</span>* iswm %sockreader) {
set %ytube.views $remove($nohtml(%sockreader),Views:,$chr(32), $chr(9))
}
if (*<img class="rating" src="/img/star_sm.gif* iswm %sockreader) {
inc %ytube.rating
}
if (*<img class="rating" src="/img/star_sm_half.gif* iswm %sockreader) {
inc %ytube.rating 0.5
}
if ($len(%sockreader) <= 850) set %lastline %sockreader
}
if (*</div> <!-- end vEntry -->* iswm %sockreader) {
if (%ytuberept != 0) {
set %ytube.picrating $+($chr(3),[,$c2)
set %ytube.picrating %ytube.picrating $+ $str($chr(127),$calc(%ytube.rating * 2))
set %ytube.picrating $+(%ytube.picrating,$chr(3),15)
set %ytube.picrating %ytube.picrating $+ $str($chr(127),$calc(10 - $count(%ytube.picrating,$chr(127))))
set %ytube.picrating %ytube.picrating $+ $+($chr(3),])
%ytubeway $c1($qt($chr(2) $+ %ytube.name $+ $chr(2))) $c2($+($chr(40),%ytube.runtime,$chr(41)))
%ytubeway $c1(Description:) $c2(%ytube.desc)
%ytubeway $c1(Views:) $c2(%ytube.views) $c1(| Rating:) %ytube.picrating $c1(| Tags:) $c2(%ytube.tags)
%ytubeway $c1(Url:) $c3(%ytube.url)
dec %ytuberept
}
unset %ytube.*
if (%ytuberept == 0) { .sockclose ytube | unset %ytube* }
}
}
}
------------- END YOUTUBE SEARCH ----------------------
---------------------MONSTER LOOKUP------------------------
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-
}
}
}
}
-----------------END MONSTER LOOKUP-------------
----------- Number Game --------------
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.
} }
-------- End Number Game --------
--------------------------------------------------------------------------
HANGMAN:
alias hc1 { return 12 }
alias hc2 { return 4 }
on *:Text:!*:#:{ do.hang $1- }
on *:Input:#:{
if ((.* iswm $1) || (!* iswm $1)) { do.hang ! $+ $right($1-,-1) } }
alias do.hang {
if (($1 == !hangman) && (!$hget(hangman))) {
set %hangman [ $+ [ $chan ] ] on
hmake hangman 10
set %hangmanword [ $+ [ $chan ] ] $read(hangman.txt)
hadd hangman word %hangmanword [ $+ [ $chan ] ]
hadd hangman chan $chan
hadd hangman man $iif($2 ison $chan, $2, $nick($chan, $rand(1,$nick($chan,0))))
echo 1-12 Game:4 Hangman 1- Channel:4 $chan 1- 12Answer:4 %hangmanword [ $+ [ $chan ] ] 1-
hmsg $msg.hang.start
}
if ($1 == !shangman) {
if (%hangman [ $+ [ $chan ] ] == on) {
hfree hangman
set %hangman [ $+ [ $chan ] ] off
unset %hangmanword [ $+ [ $chan ] ]
msg $chan 12Hangman game has been stopped in4 $chan 12by4 $nick $+ 12.
}
else {
msg $chan 12There is not a current hangman game on. Type "4!hangman12" to start one.
} }
if ($1 == !answer) {
if ($2- == %hangmanword [ $+ [ $chan ] ]) {
msg $chan 12Good job4 $nick $+ 12! You have just saved4 $hget(hangman,man) 12by guessing the correct word.7 Answer:1 (4 %hangmanword [ $+ [ $chan ] ] 1)
hfree hangman
set %hangman [ $+ [ $chan ] ] off
unset %hangmanword [ $+ [ $chan ] ]
halt
}
else { msg $chan 12Sorry4 $nick $+ 12, but that is not the correct answer.
} }
if (!$hget(hangman)) { return }
if ($1 == !hang) {
if (%hangman [ $+ [ $chan ] ] == on) {
if (($2 !isalpha) || ($len($2) != 1)) {
hmsg $hc1 $+ $+ You gotta pick a letter moron.
return
}
elseif (%hangman [ $+ [ $chan ] ] == off) {
msg # 12There is no hangman game currently on. Type: "4!hangman12" to start one.
}
elseif ($hget(hangman,Picked. $+ $2)) {
hmsg $hc1 $+ $+ Idiot... Try picking a letter that somebody else hasn't picked.
return
}
else {
hadd hangman Picked. $+ $2 1
if ($2 isin $hget(hangman,word)) {
hmsg $msg.hang.right
hang.checkwin
}
else {
var %hang.part = $hang.part
hmsg $msg.hang.wrong(%hang.part)
}
}
}
} }
alias hang.part {
hadd hangman wrong $calc($hget(hangman, wrong) + 1)
if ($hang.partname($hget(hangman, wrong)) == hanging) {
hmsg $msg.hang.dead
hfree hangman
set %hangman [ $+ [ $chan ] ] off
unset %hangmanword [ $+ [ $chan ] ]
halt
}
return $hang.partname($hget(hangman, wrong))
}
alias hang.checkwin {
if ($hang.got != $hget(hangman,word)) { return }
hmsg $msg.hang.save
hfree hangman
set %hangman [ $+ [ $chan ] ] off
unset %hangmanword [ $+ [ $chan ] ]
halt
}
alias hang.partname { return $gettok(a head;a neck;torso;arms;hands;legs;feet;hanging, $1, $asc(;)) }
alias hang.got {
var %i = 1,%hang.got = $hget(hangman, word)
unset %hang.left
while (%i <= 26) {
if (!$hget(hangman, Picked. $+ $chr($calc(96 + %i)))) {
%hang.got = $replace(%hang.got, $chr($calc(96 + %i)), @)
set -u120 %hang.left %hang.left $+ $chr($calc(96 + %i))
}
inc %i
}
return %hang.got
}
alias hmsg { msg $$hget(hangman,chan) $1- }
alias msg.hang.clue { return $hc1 $+ Current clue: $hc2 $+ $hang.got $hc1 $+ Letters remaining: $hc2 $+ %hang.left }
alias msg.hang.save { return $hc2 $+ $+ $hget(hangman,man) $+ $hc1 is saved! You're the best channelmates a person could want. }
alias msg.hang.dead { return $hc2 $+ $+ $hget(hangman,man) $+ $hc1 is DEAD! You all suck. Word: $hc2 $+ $hget(hangman,word) }
alias msg.hang.wrong { return $hc1 $+ $+ Smooth gimp! One step closer to dead. You just got $hc2 $+ $hget(hangman, man) $+ $hc1 $+ : $+ $hc2 $1 $+ $hc1 $+ ! $msg.hang.clue }
alias msg.hang.answerc { return 12You can use "4!answer Word(s) 12" to guess the word(s) straight off. }
alias msg.hang.right { return $hc1 $+ $+ Well done, $hc2 $+ $nick $+ $hc1 $+ ! You picked a winning letter. $msg.hang.clue }
alias msg.hang.start { return $hc1 $+ $+ Get ready for some hangman... We are hanging $hc2 $+ $hget(hangman,man) $+ $hc1 $+ , unless you can prevent it. $hc2 $+ !hang <letter> $+ $hc1 to guess a letter. $msg.hang.clue }
-----------------------
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
}
--------------------------------------------------------------------------
------KBASE SEARCH----------------
alias nohtml {
var %x,%i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x)
%x = $replace(%x, ,$null)
return %x
}
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)
unset %kbase.*
}
----------END KBASE SEARCH----------------------------------
--------------------------------------------------------------------------
Syntax Commands:
on *:text:@syntax:#:{ mc Syntax: !bmd Color Symbol Text - Color can be first letter of the color (Or letter indicated below), use list below. Symbol is one or a couple things, such as "|" or ">". Text is what you want the text to be in the middle.
mc Or replace ! with @ for messaging the channel. (! is notice)
}
on *:text:!syntax*:#:{ if ($2 == $null) {
notice $nick Syntax: !bmd Color Symbol Text - Color can be first letter of the color (Or letter indicated below), use list below. Symbol is one or a couple things, such as "|" or ">". Text is what you want the text to be in the middle.
notice $nick Or replace ! with @ for messaging the channel. (! is notice)
}
else {
notice $2 Syntax: !bmd Color Symbol Text - Color can be first letter of the color (Or letter indicated below), use list below. Symbol is one or a couple things, such as "|" or ">". Text is what you want the text to be in the middle.
notice $2 Or replace ! with @ for messaging the channel. (! is notice)
} }
on *:text:@syntaxw:#:{ msg # 12Syntax For Rainbow:4 !/@bmd w Symbol TextColor Text }
on *:text:@syntaxcn:#:{ msg # 12Syntax For Caution:4 !/@bmd cn Color1 Color2 TextColor Text }
on *:text:@syntaxr:#:{ msg # 12Syntax For Regular Colors:4 !/@bmd Color Symbol Text }
--------------------------------------------------------------------------
"!BMDS" Script:
on *:text:!bmds:#,?:{ msg $nick 4 My commands are as follows, follow the syntax or it will not work properly!
msg $nick 4 Syntax: !/@bmd Color Symbol Text - Color can be first letter of the color (Or letter indicated below), use list below. Symbol is one or a couple things, such as "|" or ">". Text is what you want the text to be in the middle.
msg $nick 4 Or replace ! with @ for messaging the channel. (! is notice)
msg $nick 12 !/@bmd b Symbol Text = Blue
msg $nick 12 !/@bmd r Symbol Text = Red
msg $nick 12 !/@bmd o Symbol Text = Orange
msg $nick 12 !/@bmd g Symbol Text = Green
msg $nick 12 !/@bmd w Symbol Text Color Text = Rainbow
msg $nick 12 !/@bmd cn Color1 Color2 Text Color Text = Caution Design
msg $nick 1 -- End --
}
--------------------------------------------------------------------------
BMD Scripts:
-----------------------------------Blue:
on *:text:!bmd b*:#:{
set %cd $3 | set %ct $4-
nn 1||12>4 $+ $nick $+ 112<1|| 2,1 $+ %cd $+ 1,2 $+ %cd $+ 12,2 $+ %cd $+ 2,12 $+ %cd $+ 11,12 $+ %cd $+ 12,11 $+ %cd $+ 0,11 $+ %cd $+ 11,0 $+ %cd $+ 0,0-15,0 $+ %cd $+ 0,15 $+ %cd $+ 14,15 $+ %cd $+ 15,14 $+ %cd $+ 1,14 $+ %cd $+ 14,1 $+ %cd $+ 1,1-0,1 %ct 1,1-14,1 $+ %cd $+ 1,14 $+ %cd $+ 15,14 $+ %cd $+ 14,15 $+ %cd $+ 0,15 $+ %cd $+ 15,0 $+ %cd $+ 0,0-11,0 $+ %cd $+ 0,11 $+ %cd $+ 12,11 $+ %cd $+ 11,12 $+ %cd $+ 2,12 $+ %cd $+ 12,2 $+ %cd $+ 1,2 $+ %cd $+ 2,1 $+ %cd $+
}
on *:text:@bmd b*:#:{
set %cd $3 | set %ct $4-
mc 1||12>4 $+ $nick $+ 112<1|| 2,1 $+ %cd $+ 1,2 $+ %cd $+ 12,2 $+ %cd $+ 2,12 $+ %cd $+ 11,12 $+ %cd $+ 12,11 $+ %cd $+ 0,11 $+ %cd $+ 11,0 $+ %cd $+ 0,0-15,0 $+ %cd $+ 0,15 $+ %cd $+ 14,15 $+ %cd $+ 15,14 $+ %cd $+ 1,14 $+ %cd $+ 14,1 $+ %cd $+ 1,1-0,1 %ct 1,1-14,1 $+ %cd $+ 1,14 $+ %cd $+ 15,14 $+ %cd $+ 14,15 $+ %cd $+ 0,15 $+ %cd $+ 15,0 $+ %cd $+ 0,0-11,0 $+ %cd $+ 0,11 $+ %cd $+ 12,11 $+ %cd $+ 11,12 $+ %cd $+ 2,12 $+ %cd $+ 12,2 $+ %cd $+ 1,2 $+ %cd $+ 2,1 $+ %cd $+
}
-----------------------------------Red:
on *:text:!bmd r*:#:{
set %cd $3 | set %ct $4-
nn 1||12>4 $+ $nick $+ 112<1|| 4,1 $+ %cd $+ 1,4 $+ %cd $+ 7,4 $+ %cd $+ 4,7 $+ %cd $+ 8,7 $+ %cd $+ 7,8 $+ %cd $+ 0,8 $+ %cd $+ 8,0 $+ %cd $+ 0,0-15,0 $+ %cd $+ 0,15 $+ %cd $+ 14,15 $+ %cd $+ 15,14 $+ %cd $+ 1,14 $+ %cd $+ 14,1 $+ %cd $+ 1,1-0,1 %ct 1,1-14,1 $+ %cd $+ 1,14 $+ %cd $+ 15,14 $+ %cd $+ 14,15 $+ %cd $+ 0,15 $+ %cd $+ 15,0 $+ %cd $+ 0,0-8,0 $+ %cd $+ 0,8 $+ %cd $+ 7,8 $+ %cd $+ 8,7 $+ %cd $+ 4,7 $+ %cd $+ 7,4 $+ %cd $+ 1,4 $+ %cd $+ 4,1 $+ %cd $+
}
on *:text:@bmd r*:#:{
set %cd $3 | set %ct $4-
mc 1||12>4 $+ $nick $+ 112<1|| 4,1 $+ %cd $+ 1,4 $+ %cd $+ 7,4 $+ %cd $+ 4,7 $+ %cd $+ 8,7 $+ %cd $+ 7,8 $+ %cd $+ 0,8 $+ %cd $+ 8,0 $+ %cd $+ 0,0-15,0 $+ %cd $+ 0,15 $+ %cd $+ 14,15 $+ %cd $+ 15,14 $+ %cd $+ 1,14 $+ %cd $+ 14,1 $+ %cd $+ 1,1-0,1 %ct 1,1-14,1 $+ %cd $+ 1,14 $+ %cd $+ 15,14 $+ %cd $+ 14,15 $+ %cd $+ 0,15 $+ %cd $+ 15,0 $+ %cd $+ 0,0-8,0 $+ %cd $+ 0,8 $+ %cd $+ 7,8 $+ %cd $+ 8,7 $+ %cd $+ 4,7 $+ %cd $+ 7,4 $+ %cd $+ 1,4 $+ %cd $+ 4,1 $+ %cd $+
}
-----------------------------------Green:
on *:text:!bmd g*:#:{
set %cd $3 | set %ct $4-
nn 1||12>4 $+ $nick $+ 112<1|| 3,1 $+ %cd $+ 1,3 $+ %cd $+ 10,3 $+ %cd $+ 3,10 $+ %cd $+ 9,10 $+ %cd $+ 10,9 $+ %cd $+ 0,9 $+ %cd $+ 9,0 $+ %cd $+ 0,0-15,0 $+ %cd $+ 0,15 $+ %cd $+ 14,15 $+ %cd $+ 15,14 $+ %cd $+ 1,14 $+ %cd $+ 14,1 $+ %cd $+ 1,1-0,1 %ct 1,1-14,1 $+ %cd $+ 1,14 $+ %cd $+ 15,14 $+ %cd $+ 14,15 $+ %cd $+ 0,15 $+ %cd $+ 15,0 $+ %cd $+ 0,0-9,0 $+ %cd $+ 0,9 $+ %cd $+ 10,9 $+ %cd $+ 9,10 $+ %cd $+ 3,10 $+ %cd $+ 10,3 $+ %cd $+ 1,3 $+ %cd $+ 3,1 $+ %cd $+
}
on *:text:@bmd g*:#:{
set %cd $3 | set %ct $4-
mc 1||12>4 $+ $nick $+ 112<1|| 3,1 $+ %cd $+ 1,3 $+ %cd $+ 10,3 $+ %cd $+ 3,10 $+ %cd $+ 9,10 $+ %cd $+ 10,9 $+ %cd $+ 0,9 $+ %cd $+ 9,0 $+ %cd $+ 0,0-15,0 $+ %cd $+ 0,15 $+ %cd $+ 14,15 $+ %cd $+ 15,14 $+ %cd $+ 1,14 $+ %cd $+ 14,1 $+ %cd $+ 1,1-0,1 %ct 1,1-14,1 $+ %cd $+ 1,14 $+ %cd $+ 15,14 $+ %cd $+ 14,15 $+ %cd $+ 0,15 $+ %cd $+ 15,0 $+ %cd $+ 0,0-9,0 $+ %cd $+ 0,9 $+ %cd $+ 10,9 $+ %cd $+ 9,10 $+ %cd $+ 3,10 $+ %cd $+ 10,3 $+ %cd $+ 1,3 $+ %cd $+ 3,1 $+ %cd $+
}
-----------------------------------Orange:
on *:text:!bmd o*:#:{
set %cd $3 | set %ct $4-
nn 1||12>4 $+ $nick $+ 112<1|| 8 $+ %cd $+ 0,8 $+ %cd $+ 7,8 $+ %cd $+ 8,7 $+ %cd $+ 4,7 $+ %cd $+ 7,4 $+ %cd $+ 5,4 $+ %cd $+ 4,5 $+ %cd $+ 1,5 $+ %cd $+ 5,1 $+ %cd $+ 7,1 %ct 5,1 $+ %cd $+ 1,5 $+ %cd $+ 4,5 $+ %cd $+ 5,4 $+ %cd $+ 7,4 $+ %cd $+ 0,7 $+ %cd $+ 8,7 $+ %cd $+ 7,8 $+ %cd $+ 0,8 $+ %cd $+ 8 $+ %cd $+
}
on *:text:@bmd o*:#:{
set %cd $3 | set %ct $4-
mc 1||12>4 $+ $nick $+ 112<1|| 8 $+ %cd $+ 0,8 $+ %cd $+ 7,8 $+ %cd $+ 8,7 $+ %cd $+ 4,7 $+ %cd $+ 7,4 $+ %cd $+ 5,4 $+ %cd $+ 4,5 $+ %cd $+ 1,5 $+ %cd $+ 5,1 $+ %cd $+ 7,1 %ct 5,1 $+ %cd $+ 1,5 $+ %cd $+ 4,5 $+ %cd $+ 5,4 $+ %cd $+ 7,4 $+ %cd $+ 0,7 $+ %cd $+ 8,7 $+ %cd $+ 7,8 $+ %cd $+ 0,8 $+ %cd $+ 8 $+ %cd $+
}
-----------------------------------Rainbow:
on *:text:!bmd w*:#:{
set %cd $3 | set %tc $4- | set %ct $5-
nn 1||12>4 $+ $nick $+ 112<1|| 6,12 $+ %cd $+ 12,6 $+ %cd $+ 13,6 $+ %cd $+ 6,13 $+ %cd $+ 4,13 $+ %cd $+ 13,4 $+ %cd $+ 7,4 $+ %cd $+ 4,7 $+ %cd $+ 8,7 $+ %cd $+ 7,8 $+ %cd $+ 9,8 $+ %cd $+ 8,9 $+ %cd $+ 10,9 $+ %cd $+ 9,10 $+ %cd $+ 12,10 $+ %cd $+ 10,12 $+ %cd $+ 0,12 %ct 10,12 $+ %cd $+ 12,10 $+ %cd $+ 9,10 $+ %cd $+ 10,9 $+ %cd $+ 8,9 $+ %cd $+ 9,8 $+ %cd $+ 7,8 $+ %cd $+ 8,7 $+ %cd $+ 4,7 $+ %cd $+ 7,4 $+ %cd $+ 13,4 $+ %cd $+ 4,13 $+ %cd $+ 6,13 $+ %cd $+ 13,6 $+ %cd $+ 12,6 $+ %cd $+ 6,12 $+ %cd $+
}
on *:text:@bmd w*:#:{
set %cd $3 | set %tc $4 | set %ct $5-
mc 1||12>4 $+ $nick $+ 112<1|| 6,12 $+ %cd $+ 12,6 $+ %cd $+ 13,6 $+ %cd $+ 6,13 $+ %cd $+ 4,13 $+ %cd $+ 13,4 $+ %cd $+ 7,4 $+ %cd $+ 4,7 $+ %cd $+ 8,7 $+ %cd $+ 7,8 $+ %cd $+ 9,8 $+ %cd $+ 8,9 $+ %cd $+ 10,9 $+ %cd $+ 9,10 $+ %cd $+ 12,10 $+ %cd $+ 10,12 $+ %cd $+ $+ %tc $+ ,12 %ct 10,12 $+ %cd $+ 12,10 $+ %cd $+ 9,10 $+ %cd $+ 10,9 $+ %cd $+ 8,9 $+ %cd $+ 9,8 $+ %cd $+ 7,8 $+ %cd $+ 8,7 $+ %cd $+ 4,7 $+ %cd $+ 7,4 $+ %cd $+ 13,4 $+ %cd $+ 4,13 $+ %cd $+ 6,13 $+ %cd $+ 13,6 $+ %cd $+ 12,6 $+ %cd $+ 6,12 $+ %cd $+
}
-----------------------------------Caution:
on *:text:!bmd cn*:#:{
set %cc1 $3 | set %cc2 $4 | set %tc $5 | set %ct $6-
nn 1||12>4 $+ $nick $+ 112<1|| $+ %cc1 $+ , $+ %cc2 $+ C $+ %cc2 $+ , $+ %cc1 $+ A $+ %cc1 $+ , $+ %cc2 $+ U $+ %cc2 $+ , $+ %cc1 $+ T $+ %cc1 $+ , $+ %cc2 $+ I $+ %cc2 $+ , $+ %cc1 $+ O $+ %cc1 $+ , $+ %cc2 $+ N %ct $+ %cc1 $+ , $+ %cc2 $+ C $+ %cc2 $+ , $+ %cc1 $+ A $+ %cc1 $+ , $+ %cc2 $+ U $+ %cc2 $+ , $+ %cc1 $+ T $+ %cc1 $+ , $+ %cc2 $+ I $+ %cc2 $+ , $+ %cc1 $+ O $+ %cc1 $+ , $+ %cc2 $+ N
}
on *:text:@bmd cn*:#:{
set %cc1 $3 | set %cc2 $4 | set %tc $5 | set %ct $6-
mc 1||12>4 $+ $nick $+ 112<1|| $+ %cc1 $+ , $+ %cc2 $+ C $+ %cc2 $+ , $+ %cc1 $+ A $+ %cc1 $+ , $+ %cc2 $+ U $+ %cc2 $+ , $+ %cc1 $+ T $+ %cc1 $+ , $+ %cc2 $+ I $+ %cc2 $+ , $+ %cc1 $+ O $+ %cc1 $+ , $+ %cc2 $+ N $+ %tc %ct $+ %cc1 $+ , $+ %cc2 $+ C $+ %cc2 $+ , $+ %cc1 $+ A $+ %cc1 $+ , $+ %cc2 $+ U $+ %cc2 $+ , $+ %cc1 $+ T $+ %cc1 $+ , $+ %cc2 $+ I $+ %cc2 $+ , $+ %cc1 $+ O $+ %cc1 $+ , $+ %cc2 $+ N
}
--------------------------------------------------------------------------