rendered paste bodyon $*:TEXT:/^[!@.]masskick/Si:#:{
if ($nick isop $chan) && ($me ishop $chan || $me isop $chan) {
var %x = 1
while (%x <= $nick($chan,0)) {
if ($nick($chan,%x) isreg $chan) { ban -ku60 $chan $nick($chan,%x) 2 4[Masskick]14 1 Minute Ban Requested by4 $nick }
inc %x
}
}
}
alias c1 { return $+($chr(3),14,$1-) }
alias c2 { return $+($chr(3),04,$1-) }
alias c3 { return $+($chr(3),04,$1-) }
alias c4 { return $+($chr(3),04,$1-) }
on $*:text:/^[!@]compare/Si:#: {
if (!$skill($2) || !$4 || $5) {
notice $nick 4Error! 14!compare <skill> <user1> <user2>
{ halt }
}
if ($sock(rs.compare)) .sockclose rs.compare
set %rs.compare.way $iif($left($1,1) == @,msg $chan,notice $nick)
set %rs.compare.skill $skill($2)
set %rs.compare.user1 $3
set %rs.compare.user2 $4
sockopen rs.compare www.o-ss.net 80
}
on *:SOCKOPEN:rs.compare: {
sockwrite -nt $sockname GET /parsers/compare.php?user1= $+ %rs.compare.user1 $+ &user2= $+ %rs.compare.user2 $+ &skill= $+ %rs.compare.skill HTTP/1.1
sockwrite -nt $sockname Host: www.o-ss.net
sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:rs.compare: {
if ($sockerr) { halt }
else {
var %rs.compare.reader
sockread %rs.compare.reader
tokenize 32 %rs.compare.reader
if (is not in the hi-scores for isin %rs.compare.reader) {
%rs.compare.way $c2($1) $c1(is not in the RuneScape hi-scores for) $c3(%rs.compare.skill $+ .)
unset %rs.compare
sockclose rs.compare
{ halt }
}
if (are not in the hi-scores for isin %rs.compare.reader) {
%rs.compare.way $c2($1) $c1(and) $c2($3) $c1(are not in the RuneScape hi-scores for) $c3(%rs.compare.skill $+ .)
unset %rs.compare.*
sockclose rs.compare
{ halt }
}
if (*END* iswm %rs.compare.reader) {
set %rs.compare.user1.lvl $gettok(%rs.compare.reader,1,32)
set %rs.compare.user2.lvl $gettok(%rs.compare.reader,2,32)
set %rs.compare.lvldiff $gettok(%rs.compare.reader,4,32)
set %rs.compare.xpdiff $gettok(%rs.compare.reader,5,32)
if (%rs.compare.user1.lvl > %rs.compare.user2.lvl) {
%rs.compare.way $c2(%rs.compare.user1) $c1(is level) $c4(%rs.compare.user1.lvl) $c3(%rs.compare.skill) $c1(and) $c2(%rs.compare.user2) $c1(is level) $c4(%rs.compare.user2.lvl) $c3(%rs.compare.skill $+ .)
%rs.compare.way $c2(%rs.compare.user1) $c1(has) $c4(%rs.compare.lvldiff) $c1(more level(s) than) $c2(%rs.compare.user2) $c1(and the XP difference is:) $c4(%rs.compare.xpdiff)
unset %rs.compare.*
sockclose rs.compare
halt
}
if (%rs.compare.user1.lvl < %rs.compare.user2.lvl) {
%rs.compare.way $c2(%rs.compare.user1) $c1(is level) $c4(%rs.compare.user1.lvl) $c3(%rs.compare.skill) $c1(and) $c2(%rs.compare.user2) $c1(is level) $c4(%rs.compare.user2.lvl) $c3(%rs.compare.skill $+ .)
%rs.compare.way $c2(%rs.compare.user2) $c1(has) $c4(%rs.compare.lvldiff) $c1(more level(s) than) $c2(%rs.compare.user1) $c1(and the XP difference is:) $c4(%rs.compare.xpdiff)
unset %rs.compare.*
sockclose rs.compare
halt
}
if (%rs.compare.user1.lvl == %rs.compare.user2.lvl) {
%rs.compare.way $c2(%rs.compare.user1) $c1(and) $c2(%rs.compare.user2) $c1(are the same level in) $c3(%rs.compare.skill) $c1(with a level of) $c4(%rs.compare.user1.lvl)
unset %rs.compare.*
sockclose rs.compare
halt
}
}
}
}
alias -l skill {
if ($regex($1,/^c(o)?mb(at)?$/Si)) return Combat
elseif ($regex($1,/^((skill)?total|overall)$/Si)) return Overall
elseif ($regex($1,/^at(t|k|tack)$/Si)) return Attack
elseif ($regex($1,/^def(en[cs]e)?$/Si)) return Defence
elseif ($regex($1,/^str(ength)?$/Si)) return Strength
elseif ($regex($1,/^(hp|hit(s|points)?)$/Si)) return Hitpoints
elseif ($regex($1,/^rang(e|er|ed|ing)$/Si)) return Ranged
elseif ($regex($1,/^Pray(er)?$/Si)) return Prayer
elseif ($regex($1,/^mag(e|ic)$/Si)) return Magic
elseif ($regex($1,/^cook(ing)?$/Si)) return Cooking
elseif ($regex($1,/^(wc(ing)?|woodcut(ting)?)$/Si)) return Woodcutting
elseif ($regex($1,/^fletch(ing)?$/Si)) return Fletching
elseif ($regex($1,/^fish(ing)?$/Si)) return Fishing
elseif ($regex($1,/^(fire|fm)(make?(ing)?|ing)?$/Si)) return Firemaking
elseif ($regex($1,/^craft(ing)?$/Si)) return Crafting
elseif ($regex($1,/^(smith|smelt)(ing)?$/Si)) return Smithing
elseif ($regex($1,/^min(e|e?ing)$/Si)) return Mining
elseif ($regex($1,/^herb(law|lore)?$/Si)) return Herblore
elseif ($regex($1,/^agil(ity)?$/Si)) return Agility
elseif ($regex($1,/^(th(ei|ie)[fv](e|ing)?)$/Si)) return Thieving
elseif ($regex($1,/^slay(er|ing)?$/Si)) return Slayer
elseif ($regex($1,/^farm(er|ing)?$/Si)) return Farming
elseif ($regex($1,/^(rc|runecraft)(er|ing)?$/Si)) return Runecraft
elseif ($regex($1,/^hunt(er|ing)?$/Si)) return Hunter
elseif ($regex($1,/^con(struct)?(ion|ing)?$/si)) return Construction
}
ON *:TEXT:?Level*:#:{
if ($readini(Cha.ini,$chan,Status) == DChan) { halt }
if ($3 && $2 isnum) {
set %skilllly $SkilloBJ($remove($3,@,!,.))
if (%skilllly == Overall) {
msg $chan 4»0,4»5»4,5»1»5,1»0 Congratz $nick on » $+ $2 $+ « %skilllly 5«1,5«4«5,4«0«4,0«
halt
}
if ($2 > 99) {
msg $chan 14You cant get $2 in %skilllly
halt
}
if (%skilllly == $null) {
msg $chan $+ 14Sorry $nick but $3- isn't a skill.
halt
}
else {
msg $chan 4»0,4»5»4,5»1»5,1»0 Congratz $nick on » $+ $2 $+ « %skilllly 5«1,5«4«5,4«0«4,0«
}
}
else {
notice $nick 14Error: $+ $1 <Number> <Skill>
}
}
alias -l SkilloBJ {
if ($1 == 0) || ($regex($1,/^(st|(skill)?total|overall)$/Si)) return Overall
elseif ($1 == 1) || ($regex($1,/^at(t|k|tack)$/Si)) return Attack
elseif ($1 == 2) || ($regex($1,/^def(en[cs]e)?$$/Si)) return Defence
elseif ($1 == 3) || ($regex($1,/^str(ength)?$/Si)) return Strength
elseif ($1 == 4) || ($regex($1,/^hp|hit(s|points?)?$/Si)) return Hitpoints
elseif ($1 == 5) || ($regex($1,/^range(r|d|ing)?$/Si)) return Ranged
elseif ($1 == 6) || ($regex($1,/^Pray(er)?$$/Si)) return Prayer
elseif ($1 == 7) || ($regex($1,/^mag(e|ic)$$/Si)) return Magic
elseif ($1 == 8) || ($regex($1,/^cook(ing)?$/Si)) return Cooking
elseif ($1 == 9) || ($regex($1,/^wc|wood(cut(ting)?)?$/Si)) return Woodcutting
elseif ($1 == 10) || ($regex($1,/^fletch(ing)?$/Si)) return Fletching
elseif ($1 == 11) || ($regex($1,/^fish(ing)?$/Si)) return Fishing
elseif ($1 == 12) || ($regex($1,/^(fire|fm)(make?(ing)?|ing)?$/Si)) return Firemaking
elseif ($1 == 13) || ($regex($1,/^craft(ing)?$/Si)) return Crafting
elseif ($1 == 14) || ($regex($1,/^(smith|smelt)(ing)?$/Si)) return Smithing
elseif ($1 == 15) || ($regex($1,/^mine(ing)?$/Si)) return Mining
elseif ($1 == 16) || ($regex($1,/^herb(law|lore)?$/Si)) return Herblore
elseif ($1 == 17) || ($regex($1,/^agil(ity)?$/Si)) return Agility
elseif ($1 == 18) || ($regex($1,/^(th(ei|ie)[fv](e|ing)?)$/Si)) return Thieving
elseif ($1 == 19) || ($regex($1,/^slay(er|ing)?$/Si)) return Slayer
elseif ($1 == 20) || ($regex($1,/^farm(er|ing)?$/Si)) return Farming
elseif ($1 == 21) || ($regex($1,/^(rc|runecraft)(er|ing)?$/Si)) return Runecraft
elseif ($1 == 22) || ($regex($1,/^(con)(struct)(ion|ing)?$/si)) return Construction
elseif ($1 == 23) || ($regex($1,/^(hunt)(in|ing)?$/si)) return Hunting