on $*: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