on *:text:!timer:#:{ timer 1 1 msg $chan nick owns everyone but me! }
on $*:TEXT:/^[!@.](rs)?stats */Si:#: {
if (!$2) { .notice $nick Enter an RSN to look up! | halt }
if ($len($2) > 12) { .notice $nick RSN too long! | halt }
var %x = 1
while ($sock(rsstats. $+ %x)) inc %x
.set %target. $+ %x $iif($left($1,1) == @,.msg $chan,.notice $nick)
.set %rsn. $+ %x $replace($2-,$chr(32),+)
sockopen rsstats. $+ %x parsers.o-ss.net 80
}
on *:sockopen:rsstats.*: {
var %x = $right($sockname,1)
if ($sockerr > 0) { %target. [ $+ [ %x ] ] Socket Error: $sockerr | cleanup $sockname | halt }
sockwrite -nt $sockname GET /oneline/stats.php?user= $+ %rsn. [ $+ [ %x ] ] $+ &showcmb=1&showcollons=1 HTTP/1.1
sockwrite -nt $sockname Host: parsers.o-ss.net
sockwrite -nt $sockname $crlf
}
on *:sockread:rsstats.*: {
var %x = $right($sockname,1)
if ($sockerr > 0) { %target. [ $+ [ %x ] ] Socket Error: $sockerr | cleanup $sockname | halt }
var %read | sockread %read
if (: 0 isin %read) { %target. [ $+ [ %x ] ] %rsn. [ $+ [ %x ] ] is not in the Hi-Scores. You have to be in the top million of any skill with a skill level of at least 30. | cleanup $sockname }
if (combat isin %read) { %target. [ $+ [ %x ] ] $remove(%read,END) }
if (overall isin %read) { %target. [ $+ [ %x ] ] $remove(%read,END,|) | cleanup $sockname }
}
alias cleanup {
unset %target. $+ $right($1,1)
unset %rsn. $+ $right($1,1)
sockclose $1
}
on *:TEXT:!Calc*:#: {
notice $nick 8,1.4,1::8,1.0,1The answer to $2 is: $calc($replace($2,x,*))8,1.4,1::8,1.
}
on *:TEXT:!8ball*:#:{
/set %8ball $rand(1,6)
if (%8ball == 1) .msg $chan 10No!
if (%8ball == 2) .msg $chan 10Yes
if (%8ball == 3) .msg $chan 10Maybe
if (%8ball == 4) .msg $chan 10Of course
if (%8ball == 5) .msg $chan 10Are you crazy?!?!
if (%8ball == 6) /msg $chan 10How should I know?
}
on *:TEXT:@8ball*:#:{
/set %8ball $rand(1,6)
if (%8ball == 1) .msg $chan 10No!
if (%8ball == 2) .msg $chan 10Yes
if (%8ball == 3) .msg $chan 10Maybe
if (%8ball == 4) .msg $chan 10Of course
if (%8ball == 5) .msg $chan 10Are you crazy?!?!
if (%8ball == 6) /msg $chan 10How should I know?
}
on:load:.notify $nick thank you for choosing this script, you may change this script around everywhere except the credit line, please leave that there.
on 1:JOIN:#:{ /msg $nick Welcome $nick .::.It Is $Time And today is: $date .::. } { /notice $chan $nick has joined the conversation- $time .::. $date } { /notice $nick you have joined the conversation sucsessfully }
ON *:LOAD: {
echo -a Thank you for using Bar Script by `Shippo!
set %barchan $$?="What channel do you want it to be in?
timer 1 2 join %barchan
}
on *:JOIN:%barchan: {
notice $nick Welcome $nick type !bar if you are hungry and/or thirsty it is $time and $date $+ , thanks for coming!
}
}
on *:TEXT:!pk*:#:{
describe # is searching for a noob in the wild...
describe # has found $2 $+ !
msg $chan Quick $2 $+ , choose an option!
notice $2 !fight
notice $2 !run
notice $2 !tele
notice $2 !log
}
on *:text:!fight*:#: {
set %lvl $rand(1,3)
if (%lvl == 1) .msg # $nick has tried to fight and was killed!
if (%lvl == 2) .msg # $nick almost won, but was killed!
if (%lvl == 3) .msg # $nick has killed his challenger!
}
on *:text:!run*:#: {
set %run $rand(1,3)
if (%run == 1) .msg # $nick has gotten away!
if (%run == 2) .msg # $nick was killed while running away!
if (%run == 3) .msg # $nick $+ , in a wild shot, killed his opponent while running away!
}
on *:text:!tele*:#: {
set %tele $rand(1,3)
if (%tele == 1) .msg # $nick teleported away... but died just after arrival!
if (%tele == 2) .msg # $nick teleported away... and got away from his attacker!
if (%tele == 3) .msg # $nick teleported away... and was slaughtered by abyssal demons upon arrival!
}
on *:text:!log*:#: {
set %log $rand(1,3)
if (%log == 1) .msg # $nick was unable to log out in time and was killed.
if (%log == 2) .msg # $nick was able to log out!
if (%log == 3) .msg # $nick was killed while logging out!
}
on *:text:!credits*:#: {
notice $nick omfg dont make me kill you again!!.