rendered paste bodyon *:TEXT:+b*:#:{
if ($nick ishop $chan) || ($nick isop $chan) {
if ($len($2-) < 12) { mode $chan +b $2 }
}
on *:TEXT:+i*:#:{
if ($nick ishop $chan) || ($nick isop $chan) {
if ($len($2-) < 12) { mode $chan +i}
}
on *:TEXT:+m*:#:{
if ($nick ishop $chan) || ($nick isop $chan) {
if ($len($2-) < 12) { mode $chan +m}
}
on $*:TEXT:/^[!@]8ball/Si:#:{
set %ballies $rand(1,14)
set %balltimer = $rand(1,2)
if (%ballies == 1) msg $chan 9No
if (%ballies == 2) msg $chan 9Yes
if (%ballies == 3) msg $chan 9Signs Point To 4Yes
if (%ballies == 4) msg $chan 9Signs Point To No
if (%ballies == 5) msg $chan 9Not A Freaking Chance Mate
if (%ballies == 6) msg $chan 2Maybe
if (%ballies == 7) msg $chan 7Ask me later
if (%ballies == 8) msg $chan 7In your dreams fucker!
if (%ballies == 9) msg $chan 13If you want the answer to be..
if (%ballies == 10) msg $chan 5Sorry I can't seem to answer that question
if (%ballies == 11) msg $chan 9Ohh a tough choice I need the Judge to answer this question!!!
if (%ballies == 11) .timer 1 3 msg $chan 9The Judges Answer Is 4No!
if (%ballies == 12) msg $chan 9Ohh a hard choice I need to ask the council!!
if (%ballies == 12) .timer 1 3 msg $chan 9The Councillers Answer Is 4Yes!
if (%ballies == 13) msg $chan 14I Will give your answer in4 5 14Seconds...as I need to ask the audience!
if (%ballies == 13) .timer 1 2 msg $chan 4 1...
if (%ballies == 13) .timer 1 3 msg $chan 2 2...
if (%ballies == 13) .timer 1 4 msg $chan 5 3...
if (%ballies == 13) .timer 1 5 msg $chan 9 4...
if (%ballies == 13) .timer 1 6 msg $chan 7 5!!!
if (%ballies == 13) .timer 1 7 msg $chan 14And The Answer Is 4Yes14!!
}
on *:TEXT:.aa*:#: { if ($nick isop $chan) { /cs access $chan add $2 $3 } }
ON *:JOIN:#:{
if ($readini(voice.ini,$chan,$address($nick,2)) == av) { /mode $chan +v $nick }
if ($readini(aop.ini,$chan,$address($nick,2)) == aop) { /mode $chan +o $nick }
if ($readini(ahop.ini,$chan,$address($nick,2)) == ahop) { /mode $chan +h $nick }
}
ON $*:TEXT:!delav*:#:{
if ($nick isop $chan && $me isop $chan) || ($nick ishop $chan && $me isop $chan) || ($nick isop $chan && $me ishop $chan) || ($nick ishop $chan && $me ishop $chan) {
if ($2 == $chan) {
remini voice.ini $chan | msg $chan $chan 's Auto Voice List is Now Cleared! }
else {
remini voice.ini $chan $address($2,2) | msg $chan $2 Is now Deleted From The Auto Voice List For $chan | mode $chan -v $2 }
}
}
ON $*:TEXT:!av*:#:{
if ($nick isop $chan && $me isop $chan) || ($nick ishop $chan && $me isop $chan) || ($nick isop $chan && $me ishop $chan) || ($nick ishop $chan && $me ishop $chan) {
writeini voice.ini $chan $address($2,2) av
on *:TEXT:-b*:#:{
if ($nick ishop $chan) || ($nick isop $chan) {
if ($len($2-) < 12) { mode $chan -b $2 }
}
on *:TEXT:!calc*:#:{
set %calc $2-
/notice $nick 10 %calc =4 $calc( $2- ) }
alias s1 { return $+($chr(3),02,$1-) }
alias s2 { return $+($chr(3),10,$1-) }
alias s3 { return $+($chr(3),04,$1-) }
alias s4 { return $+($chr(3),07,$1-) }
on $*:TEXT:/^[!@.]clan/Si:#:{
if (!$2) {
notice $nick *|* [ Clan ]: You must supply a name
}
else {
unset %x
sockclose Clan
set %clan.nick $replace($2-,$chr(32),$chr(95))
set %output.clan $iif($left($1,1) == @,msg $chan, .notice $nick)
%output.clan $s1 Your search for %clan.nick returned this : A list maximium of 5 clans it's in will be displayed below.
sockopen clan www.runehead.com 80
}
}
on *:SOCKOPEN:clan:{
sockwrite -nt $sockname GET /clans/search.php?search= $+ %clan.nick
sockwrite -nt $sockname Host: www.runehead.com
sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:clan:{
if ($sockerr) {
%output.clan An error occured while connecting
}
else {
var %reader
sockread %reader
if (*<td class='tableborder'><a href='* Iswm %reader) {
set %1 $remove(%Reader,<td class='tableborder'><a href=',$chr(9),',/a/td,</a></td>,$chr(32))
set %clan.url $replace(%1,>,$chr(32))
inc %x
if (%x > 5) {
Halt
}
%output.clan $s4 :: $+ %x $+ :: $s2 www.runehead.com $+ $s3 $+ /clans/ $+ $s4 $+ $+ %clan.url $+
}
}
}
Commands Script
on *:TEXT:!Commands:#: {
msg $nick 8,1This is the following commands of this bot
msg $nick $chr(3)
msg $nick 13,1MISC Commands:
msg $nick !8ball (QUESTION HERE)
msg $nick !gratz (LEVEL)(SKILL)
msg $nick /youtube (REQUIRES MIRC)(a popup window should appear and type in your search)
msg $nick /clock (REQUIRES MIRC)(for the clock)
msg $nick !slap (NAME)
msg $nick !noobkick (NAME)
msg $nick !gay (NAME)
msg $nick $chr(3)
msg $nick 7,1Pest Control/Castlewars World Commands:
msg $nick $chr(3)
msg $nick !pcw/!cw
msg $nick !setworld/!setcw (REQUIRES HALFOP/OPERATOR STATUS)(WORLD HERE)
msg $nick $chr(3)
msg $nick 8,1Price Commands and Clan Command:
msg $nick $chr(3)
msg $nick !stats/@stats (NAME)
msg $nick !price/@price (ITEM HERE)
msg $nick !calc (NUMBERS HERE) (*=multiply +=plus -=subtract /=divide)
msg $nick !clan (NAME OF SEARCHING PERSON)
msg $nick $chr(3)
msg $nick 9,1Channel Commands:
msg $nick $chr(3)
msg $nick !autovoice (REQUIRES OPERATOR STATUS)(ON/OFF)
msg $nick .aa (NAME)(LEVEL OF CHANNEL ACCESS)
msg $nick !mute (REQUIRES OPERATOR STATUS)(This mode gives +m to the channel)
msg $nick !unmute (REQUIRES OPERATOR STATUS)(This mode gives -m to the channel)
msg $nick !tb (NAME)(Number(sec/min))(REASON)
msg $nick $chr(3)
msg $nick 11,1Bot Commands
msg $nick $chr(3)
msg $nick !setgreet (GREET MESSAGE HERE)
msg $nick !setnews (REQUIRES OPERATOR STATUS)(NEWS HERE)
msg $nick !news (For the latest news on the channel)
msg $nick !part Ughaz (This makes the bot leave your channel)
msg $nick $chr(3)
msg $nick 15,1Game Commands
msg $nick !dm (To start a Deathmatch)
msg $nick !stopdm (To stop a Deathmatch)
msg $nick !dmcommands (For Deathmatch commands)
msg $nick $chr(3)
msg $nick 8,1In order to invite the bot8 to your channel do this command 7/invite BOTNAME (#CHANNEL)
msg $nick 8,1If any queries/bugs, please PM my owner 13Sharpay8 or join the channel 13#Ice_Plateau
;!dm script
;created by
;Ughaz
on $*:text:!dmcommands:*:{
msg $nick 2.::. 7Attacks 2.::.
msg $nick !whip
msg $nick !dds
msg $nick !dh
msg $nick !eat
msg $nick !msb
msg $nick !anchor
msg $nick !guthan
msg $nick !cbow
msg $nick !dbow
msg $nick 2.::. 7Others 2.::.
msg $nick !tele
msg $nick !dm
msg $nick !stopdm
msg $nick 4Script Made By Sharpay(Owner of this bot)
}
on *:text:!dm*:#: {
if (%duel2 == active) {
msg $chan a DM is already active please wait for it to end.
}
if (%duel == active) {
set %player2 $nick
msg $chan the match is set! %player1 vs %player2
notice %player1 Type "!dmcommands" for the commands list.
notice %player2 Type "!dmcommands" for the commands list.
set %duel2 active
set %p1hp 99
set %p2hp 99
set %spec1 0
set %spec2 0
set %turn 1
}
else {
set %duel active
set %player1 $nick
msg $chan $nick has initiated a DM type !DM to fight them
}
}
on *:text:!eat*:#: {
if (%turn == 1) {
if (%p1hp == 99) {
notice $nick You already have 99 hitpoints, please choose another command.
halt
}
else ($nick == %player1) {
set %turn 2
inc %p1hp 20
msg $chan %player1 eats a shark and gains 20 hp
msg $chan %player1 has %p1hp hp left
}
}
else if (%turn == 2) {
if (%p2hp == 99) {
notice $nick You already have 99 hitpoints, please choose another command.
halt
}
if ($nick == %player2) {
set %turn 1
inc %p2hp 20
msg $chan %player2 eats a shark and gains 20 hp
msg $chan %player2 has %p2hp hp
}
}
}
on *:text:!dds*:#: {
if (%turn == 1) {
if ($nick == %player1) {
if (%spec2 < 4) {
set %hit1 $rand(0,23)
set %hit2 $rand(0,23)
inc %spec1
msg $chan %player1 has hit %hit1 and %hit2
dec %p2hp %hit1
dec %p2hp %hit2
msg $chan %player2 has %p2hp hp left
set %turn 2
}
if (%p2hp < 0) {
msg $chan %player1 has defeated %player2
unset %duel
unset %player1
unset %player2
unset %duel2
unset %p1hp
unset %p2hp
unset %spec1
unset %spec2
unset %turn
unset %hit1
unset %hit2
}
else {
}
}
else if (%spec1 == 4) {
notice %player1 you are out of specials
}
}
else {
if (%turn == 2) {
if ($nick == %player2) {
if (%spec2 < 4) {
set %hit1 $rand(0,23)
set %hit2 $rand(0,23)
inc %spec2
msg $chan %player2 has hit %hit1 and %hit2
dec %p1hp %hit1
dec %p1hp %hit2
msg $chan %player1 has %p1hp hp left
set %turn 1
if (%p2hp < 0) {
msg $chan %player1 has defeated %player2
unset %duel
unset %player1
unset %player2
unset %duel2
unset %p1hp
unset %p2hp
unset %spec1
unset %spec2
unset %turn
unset %hit1
unset %hit2
}
else {
}
}
else if (%spec2 == 4) {
notice %player2 you are out of specials.
}
}
}
}
}
on *:text:!dbow*:#: {
if (%turn == 1) {
if ($nick == %player1) {
if (%spec2 < 4) {
set %hit1 $rand(5,45)
set %hit2 $rand(2,42)
inc %spec1
msg $chan %player1 has hit %hit1 and %hit2
dec %p2hp %hit1
dec %p2hp %hit2
msg $chan %player2 has %p2hp hp left
set %turn 2
}
if (%p2hp < 0) {
msg $chan %player1 has defeated %player2
unset %duel
unset %player1
unset %player2
unset %duel2
unset %p1hp
unset %p2hp
unset %spec1
unset %spec2
unset %turn
unset %hit1
unset %hit2
}
else {
}
}
else if (%spec1 == 4) {
notice %player1 you are out of specials
}
}
else {
if (%turn == 2) {
if ($nick == %player2) {
if (%spec2 < 4) {
set %hit1 $rand(5,45)
set %hit2 $rand(2,42)
inc %spec2
msg $chan %player2 has hit %hit1 and %hit2
dec %p1hp %hit1
dec %p1hp %hit2
msg $chan %player1 has %p1hp hp left
set %turn 1
if (%p2hp < 0) {
msg $chan %player1 has defeated %player2
unset %duel
unset %player1
unset %player2
unset %duel2
unset %p1hp
unset %p2hp
unset %spec1
unset %spec2
unset %turn
unset %hit1
unset %hit2
}
else {
}
}
else if (%spec2 == 4) {
notice %player2 you are out of specials.
}
}
}
}
}
on *:text:!msb*:#: {
if (%turn == 1) {
if ($nick == %player1) {
if (%spec2 < 4) {
set %hit1 $rand(5,23)
set %hit2 $rand(2,18)
inc %spec1
msg $chan %player1 has hit %hit1 and %hit2
dec %p2hp %hit1
dec %p2hp %hit2
msg $chan %player2 has %p2hp hp left
set %turn 2
}
if (%p2hp < 0) {
msg $chan %player1 has defeated %player2
unset %duel
unset %player1
unset %player2
unset %duel2
unset %p1hp
unset %p2hp
unset %spec1
unset %spec2
unset %turn
unset %hit1
unset %hit2
}
else {
}
}
else if (%spec1 == 4) {
notice %player1 you are out of specials
}
}
else {
if (%turn == 2) {
if ($nick == %player2) {
if (%spec2 < 4) {
set %hit1 $rand(5,23)
set %hit2 $rand(2,18)
inc %spec2
msg $chan %player2 has hit %hit1 and %hit2
dec %p1hp %hit1
dec %p1hp %hit2
msg $chan %player1 has %p1hp hp left
set %turn 1
if (%p2hp < 0) {
msg $chan %player1 has defeated %player2
unset %duel
unset %player1
unset %player2
unset %duel2
unset %p1hp
unset %p2hp
unset %spec1
unset %spec2
unset %turn
unset %hit1
unset %hit2
}
else {
}
}
else if (%spec2 == 4) {
notice %player2 you are out of specials.
}
}
}
}
}
on *:text:!anchor*:#: {
if (%turn == 1) {
if ($nick == %player1) {
set %turn 2
set %hit $rand(5,35)
msg $chan %player1 has hit a %hit
dec %p2hp %hit
msg $chan %player2 has %p2hp hp left
if (%p2hp < 0) {
msg $chan %player1 has defeated %player2
unset %duel
unset %player1
unset %player2
unset %duel2
unset %p1hp
unset %p2hp
unset %spec1
unset %spec2
unset %turn
unset %hit1
unset %hit2
}
else {
}
}
}
else if (%turn == 2) {
if ($nick == %player2) {
set %turn 1
set %hit $rand(5,35)
msg $chan %player2 has hit a %hit
dec %p1hp %hit
msg $chan %player1 has %p1hp hp left
if (%p1hp < 0) {
msg $chan %player2 has defeated %player1
unset %duel
unset %player1
unset %player2
unset %duel2
unset %p1hp
unset %p2hp
unset %spec1
unset %spec2
unset %turn
unset %hit1
unset %hit2
}
else {
}
}
}
}
on *:text:!cbow*:#: {
if (%turn == 1) {
if ($nick == %player1) {
set %turn 2
set %hit $rand(10,25)
msg $chan %player1 has hit a %hit
dec %p2hp %hit
msg $chan %player2 has %p2hp hp left
if (%p2hp < 0) {
msg $chan %player1 has defeated %player2
unset %duel
unset %player1
unset %player2
unset %duel2
unset %p1hp
unset %p2hp
unset %spec1
unset %spec2
unset %turn
unset %hit1
unset %hit2
}
else {
}
}
}
else if (%turn == 2) {
if ($nick == %player2) {
set %turn 1
set %hit $rand(10,25)
msg $chan %player2 has hit a %hit
dec %p1hp %hit
msg $chan %player1 has %p1hp hp left
if (%p1hp < 0) {
msg $chan %player2 has defeated %player1
unset %duel
unset %player1
unset %player2
unset %duel2
unset %p1hp
unset %p2hp
unset %spec1
unset %spec2
unset %turn
unset %hit1
unset %hit2
}
else {
}
}
}
}
on *:text:!whip*:#: {
if (%turn == 1) {
if ($nick == %player1) {
set %turn 2
set %hit $rand(0,30)
msg $chan %player1 has hit a %hit
dec %p2hp %hit
msg $chan %player2 has %p2hp hp left
if (%p2hp < 0) {
msg $chan %player1 has defeated %player2
unset %duel
unset %player1
unset %player2
unset %duel2
unset %p1hp
unset %p2hp
unset %spec1
unset %spec2
unset %turn
unset %hit1
unset %hit2
}
else {
}
}
}
else if (%turn == 2) {
if ($nick == %player2) {
set %turn 1
set %hit $rand(0,30)
msg $chan %player2 has hit a %hit
dec %p1hp %hit
msg $chan %player1 has %p1hp hp left
if (%p1hp < 0) {
msg $chan %player2 has defeated %player1
unset %duel
unset %player1
unset %player2
unset %duel2
unset %p1hp
unset %p2hp
unset %spec1
unset %spec2
unset %turn
unset %hit1
unset %hit2
}
else {
}
}
}
}
on *:text:!dh*:#: {
if (%turn == 1) {
if ($nick == %player1) {
set %turn 2
set %dh $rand(10,70)
msg $chan %player1 has hit a %dh
dec %p2hp %dh
msg $chan %player2 has %p2hp hp left
if (%p2hp < 0) {
msg $chan %player1 has defeated %player2
unset %duel
unset %player1
unset %player2
unset %duel2
unset %p1hp
unset %p2hp
unset %spec1
unset %spec2
unset %turn
unset %hit1
unset %hit2
}
else {
}
}
}
if (%turn == 2) {
if ($nick == %player2) {
set %turn 1
set %dh $rand(10,70)
msg $chan %player2 has hit a %dh
dec %p1hp %dh
msg $chan %player1 has %p1hp hp left
if (%p1hp < 0) {
msg $chan %player2 has defeated %player1
unset %duel
unset %player1
unset %player2
unset %duel2
unset %p1hp
unset %p2hp
unset %spec1
unset %spec2
unset %turn
unset %hit1
unset %hit2
}
else {
}
}
}
}
on *:text:!guthan*:#: {
if (%turn == 1) {
if ($nick == %player1) {
set %turn 2
set %dh $rand(0,30)
msg $chan %player1 has hit a %dh
dec %p2hp %dh
msg $chan %player2 has %p2hp hp left
if (%p2hp < 0) {
msg $chan %player1 has defeated %player2
unset %duel
unset %player1
unset %player2
unset %duel2
unset %p1hp
unset %p2hp
unset %spec1
unset %spec2
unset %turn
unset %hit1
unset %hit2
}
else {
}
}
}
if (%turn == 2) {
if ($nick == %player2) {
set %turn 1
set %dh $rand(0,30)
msg $chan %player2 has hit a %dh
dec %p1hp %dh
msg $chan %player1 has %p1hp hp left
if (%p1hp < 0) {
msg $chan %player2 has defeated %player1
unset %duel
unset %player1
unset %player2
unset %duel2
unset %p1hp
unset %p2hp
unset %spec1
unset %spec2
unset %turn
unset %hit1
unset %hit2
}
else {
}
}
}
}
on *:text:!tele*:#: {
if (%turn == 1) {
if ($nick == %player1) {
msg $chan msg $chan %player2 has defeated %player1
unset %duel
unset %player1
unset %player2
unset %duel2
unset %p1hp
unset %p2hp
unset %spec1
unset %spec2
unset %turn
unset %hit1
unset %hit2
}
else{
}
if (%turn == 2) {
if ($nick == %player2) {
msg $chan msg $chan %player1 has defeated %player2
unset %duel
unset %player1
unset %player2
unset %duel2
unset %p1hp
unset %p2hp
unset %spec1
unset %spec2
unset %turn
unset %hit1
unset %hit2
}
}
}
on *:text:!stopdm*:#: {
msg $chan 4DM STOPPED
msg $chan 4Script Edited By Ughaz
unset %duel
unset %player1
unset %player2
unset %duel2
unset %p1hp
unset %p2hp
unset %spec1
unset %spec2
unset %turn
unset %hit1
unset %hit2
}
ON $*:TEXT:/^[!@]global/Si:#:if ($nick == Sharpay) { amsg 2[- 13A9m7s6g 2-]4 $2- } | else { Notice $nick Only 2Atlanta can use this command }
on *:TEXT:!gratz*:#: { /msg $chan 4 Congratulations with 3level8 $2 11 $+ $3- 9 $+ $nick 2now go on and get your next target and goodluck on it.
}
on *:TEXT:*!gay *:#: {
msg $chan 12[4 Testing The Gayness of 7 $2 4]
msg $chan 12[ 7 Your Percentage of Gayness is 4 $rand(1,100) $+ % 12]
}
on *:TEXT:*!hot *:#: {
msg $chan 12[8 Testing the Hotness of 7 $2 8And 7 $3 12]
msg $chan 12[ 14 Your Percentage of your hotness is 4 $rand(1,100) $+ % 12]
}
on *:TEXT:-i*:#:{
if ($nick ishop $chan) || ($nick isop $chan) {
if ($len($2-) < 12) { mode $chan -i}
}
on *:JOIN:#ice_plateau: {
inc %noobs {
if (%noobs == 1) msg $chan 4Welcome 7 $nick $+ , 6you're the 2 %noobs $+ st person 3to visit this channel ICE PLATEAU!
elseif (%noobs == 2) msg $chan 4Welcome 7 $nick $+ , 6you're the 2 %noobs $+ nd person 3to visit this channel ICE PLATEAU!
elseif (%noobs == 3) msg $chan 4Welcome 7 $nick $+ , 6you're the 2 %noobs $+ rd person 3to visit this channel ICE PLATEAU!
else msg $chan 4Welcome 7 $nick $+ , 6you're the 2 %noobs $+ th person 3to visit this channel ICE PLATEAU!
}
}
on *:Invite:#: {
/join $chan
msg $chan 12Hi im11 $me 12thanks for inviting me to11 $chan . 12If you have any questions please msg 11Atlanta12 my owner. 11Join 4#Clytemnestra 11my home channel and to invite me to your channel do 4/invite Clytemnestra 2#YOURCHANNELHERE.
}
on *:TEXT:-m*:#:{
if ($nick ishop $chan) || ($nick isop $chan) {
if ($len($2-) < 12) { mode $chan -m}
}
on *:TEXT:+m*:#:{
if ($nick ishop $chan) || ($nick isop $chan) {
if ($len($2-) < 12) { mode $chan +m}
}
on *:TEXT:!NoobKick*:#: {
set %rand $rand(1,2)
if (%rand == 1) msg $chan 4[12Clytemnestra4]7:1 $nick Kicks $2 He Goes: $rand(0,9999) $+ Metres
if (%rand == 2) msg $chan 4[12Clytemnestra4]7:1 $nick Kicks $2 He Goes: $rand(0,9999) $+ Miles
set %place $rand(1,6)
if (%place == 1) msg $chan 4[12Clytemnestra4]7:1 $2 Got Booted To: Lumbridge
if (%place == 2) msg $chan 4[12Clytemnestra4]7:1 $2 Got Booted To: Edgeville
if (%place == 3) msg $chan 4[12Clytemnestra4]7:1 $2 Got Booted To: Wilderness
if (%place == 4) msg $chan 4[12Clytemnestra4]7:1 $2 Got Booted To: Varrock
if (%place == 5) msg $chan 4[12Clytemnestra4]7:1 $2 Got Booted To: Falador
if (%place == 6) msg $chan 4[12Clytemnestra4]7:1 $2 Got Booted To: Camolot
set %money $rand(1,3)
if (%money == 1) msg $chan 4[12Clytemnestra4]7:1 $nick Has Picked Up: $rand(0,999) $+ K On His Amazing Kick
if (%money == 2) msg $chan 4[12Clytemnestra4]7:1 $nick Has Picked Up: $rand(1,50) $+ M On His Amazing Kick
if (%money == 3) msg $chan 4[12Clytemnestra4]7:1 $nick Has Picked Up: $rand(0,999) $+ GP On His Amazing Kick
set %item $rand(1,5)
if (%item == 1) msg $chan 4[12Clytemnestra4]7:1 $nick Has Found: An Abyssal Whip In $2 $+ 's Pocket
if (%item == 2) msg $chan 4[12Clytemnestra4]7:1 $nick Has Found: A DDP++ In $2 $+ 's Pocket
if (%item == 3) msg $chan 4[12Clytemnestra4]7:1 $nick Has Found: A Yellow PartyHat In $2 $+ 's Pocket
if (%item == 4) msg $chan 4[12Clytemnestra4]7:1 $nick Has Found: A Dragon ChainBody In $2 $+ 's Pocket
if (%item == 5) msg $chan 4[12Clytemnestra4]7:1 $nick Has Found: A Bar Of Chocolate In $2 $+ 's Pocket
}
on *:TEXT:!part Clytemnestra:#:if ($nick == Sharpay)
msg Sharpay I was commanded to leave13 $chan by9 $nick | part $chan | msg $chan past command used by $nick
on *:TEXT:*!sex *:#: {
msg $chan 12[9 Testing the Sex temptation of 7 $2 9And 7 $3 12]
msg $chan 12[ 13 Your Percentage of you wanting to sex is 4 $rand(1,100) $+ % 12]
}
on *:TEXT:!setcw*:#:{
if ($nick isop $chan) || ($nick ishop $chan) {
set %cw [ $+ [ $chan ] ] $2
set %team [ $+ [ $chan ] ] $3
msg $chan The Castle Wars World has been Updated!Type !cw or !castlewars to see the new world! You may use @ also.
}
}
on $*:TEXT:/[!@]cw|castlewars?/Si:#:{
if ($nick isvoice $chan) || ($nick ishop $chan) || ($nick isop $chan) {
set %homer $iif($left($1,1) == @,msg $chan,notice $nick)
inc %cwars | %homer The Current Castlewars World is: %cw [ $+ [ $chan ] ] $+ . Current Team is: %team [ $+ [ $chan ] ] $+ .The Castle Wars world has been viewed: %cwars Times.
}
}
on *:TEXT:!suggestcw*:#:{
set %ThecwSuggested $2
set %cWReason $3-
set %cwscouter $nick
msg $chan $nick Has suggested the world: %ThecwSuggested . Reason : %CWReason . Would an op or half-op please check it.
unset %CWReason
}
on *:TEXT:!setgreet *:#: {
if ($2- == $IP) { HALT }
else {
/set %greet. [ $+ [ $nick ] ] on
/set %greet.msg. [ $+ [ $nick ] ] $2-
/notice $nick $nick ur greet has been set to: $2-
}
}
on *:TEXT:!delgreet:#: {
/set %greet. [ $+ [ $nick ] ] off
notice $nick 14Your greet is has been 7deleted
}
on *:TEXT:!greet *:#: {
if ($2 == $null) {
/notice $nick Your greet is: %greet.msg. [ $+ [ $nick ] ]
}
elseif ($2 != $null) {
/notice $nick $2 $+ 's greet is : %greet.msg. [ $+ [ $2 ] ]
}
}
on *:JOIN:#: {
if (%greet. [ $+ [ $nick ] ] == on) {
/msg $chan $+($chr(91)) $+ $nick $+ $+($chr(93)) %greet.msg. [ $+ [ $nick ] ]
}
elseif (%greet. [ $+ [ $nick ] ] == off) {
/notice $nick 14Get ur greet now! Do: 7!setgreet greet
}
}
on *:TEXT:!setnews*:#: {
set %news $2-
unset %new
msg $chan 4 [NEWS]7The news has been updated! 14 Type !news to view it!4[NEWS]
}
on *:TEXT:!news*:#: {
inc %new
notice $nick 7 < News > < %news > < This has been viewed %new times >
}
on *:TEXT:!setworld*:#:{
if ($nick isop $chan) || ($nick ishop $chan) {
set %pcw40 $2
set %pcw70 $3
set %pcw100 $4
/msg $chan 14The new worlds for $chan are 10 40+ %pcw40 4 70+ %pcw70 7 100+ %pcw100
}
else {
/notice $nick Access Denied
}
}
on *:TEXT:!pcw:#:{
/notice $nick The Current 2Pest Control world are:
/notice $nick The 40+ world is: %pcw40
/notice $nick The 70+ world is: %pcw70
/notice $nick The 100+ world is: %pcw100
}
on *:TEXT:!suggest*:#:{
set %timeset $time
set %suggest40 $2
set %suggest70 $3
set %suggest100 $4
/ms send $chan 40+ 70+ 100+ %pcw40 %pcw70 %pcw100 Set at %timeset $+ ! /msg $chan There is a new suggested world! Type !view to see them!
/ignore -u60 $nick
}
on *:TEXT:!view:#:{
if ($nick isop $chan) || ($nick ishop $chan) {
/notice $nick The suggested worlds are:
/notice $nick 40+ - %suggest40
/notice $nick 70+ - %suggest70
/notice $nick 100+ - %suggest100
}
else {
/notice $nick Access Denied
}
}
alias pcw {
/timer 0 120 msg $chan The PestControl Worlds are: 40+ - %pcw40 || 70+ - %pcw70 || 100+ - %pcw100
}
on *:TEXT:*!slap*:#:{
if ($2 == $me) {
msg $chan dont try and make me slap myself, it wont work | halt
}
var %slap = $rand(1,11)
if (%slap == 1) describe $chan slaps $2- with a metal baseball bat
if (%slap == 2) describe $chan slaps $2- with a large fork
if (%slap == 3) describe $chan slaps $2- with a chicken
if (%slap == 4) describe $chan slaps $2- with a clay bowl
if (%slap == 5) describe $chan slaps $2- with a large plastic object of some kind
if (%slap == 6) describe $chan slaps $2- with a train
if (%slap == 7) describe $chan slaps $2- with a tank
if (%slap == 8) describe $chan slaps $2- with a rubber band
if (%slap == 9) describe $chan slaps $2- with the butt of a gun
if (%slap == 10) describe $chan slaps $2- with chopsticks
if (%slap == 11) describe $chan slaps $2- with a gong
}
on $*:TEXT:/^[!@.]Stats/Si:#:{
var %randstats $r(1,99999)
if ($len($2) > 12) { Notice $nick I need a real RSN tardface | halt }
if (!$2) && (!$readini(defname.ini,-n,Defnames,$address($nick,2))) { set %name [ $+ [ %randstats ] ] $nick }
if ($2) && ($len($2) < 12) && ($chr(36) !iswm $2) { set %name [ $+ [ %randstats ] ] $replace($2-,$chr(32),$chr(95)) }
if (!$2) && ($readini(defname.ini,-n,Defnames,$address($nick,2))) { set %name [ $+ [ %randstats ] ] $readini(defname.ini,-n,Defnames,$address($nick,2)) }
set %statsout [ $+ [ %randstats ] ] $iif($left($1,1) == @,msg $chan,notice $nick)
sockopen statss. [ $+ [ %randstats ] ] rs.facepwn.com 80
}
on *:SOCKOPEN:statss.*:{
sockwrite -nt $sockname GET /Parsers/stats.php?user= $+ %name [ $+ [ $gettok($sockname,2,46) ] ] $+ &c1=10&c2=4&mode=l HTTP/1.1
sockwrite -nt $sockname Host: rs.facepwn.com
sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:statss.*:{
var %read
sockread %read
if (*user not found* iswm %read) { %statsout [ $+ [ $gettok($sockname,2,46) ] ] Sorry, %name [ $+ [ $gettok($sockname,2,46) ] ] $+ 's stats could not be found :( | /statscleanup $gettok($sockname,2,46) | sockclose $sockname | halt }
if (*END* iswmcs %read) { %statsout [ $+ [ $gettok($sockname,2,46) ] ] $remove(%read,END) }
}
on *:SOCKCLOSE:statss.*:{
statscleanup $gettok($sockname,2,46)
}
alias statscleanup {
unset %statsout [ $+ [ $1 ] ]
unset %name [ $+ [ $1 ] ]
}
on $*:TEXT:/^[!@.]DefName/Si:#: {
if (!$2) { notice $nick mabye you should give me a rsn... | halt }
elseif ($len($2-) > 12) { notice $nick RSN is too long, nice try | halt }
elseif ($chr(36) isin $2-) { notice $nick nice try... | halt }
else { writeini defname.ini Defnames $address($nick,2) $replace($2-,$chr(32),$chr(95)) | notice $nick Your defname for $address($Nick,2) is now $2- }
}