on *:TEXT:!setpcw*:#zips-pc,#Allies,#Zips-staff:  {
if ($nick isop $chan || $nick ishop $chan) && ($2 isnum 2-138) { set %world $2- | set %worldsettime $ctime | set %worldsetnick $nick | msg #zips-pc,#Allies 12The 4PC12 world has been changed  12by7 $nick $+ . } } 
on *:TEXT:!change*:#: { if ($nick isop $chan || $nick ishop $chan) && ($2 isnum 2-138) { set %world $2- | set %worldsettime $ctime | set %worldsetnick $nick | msg $chan 12The 4PC12 world has been changed to7 [14 $2- 7] 12by7 $nick $+ . } } 
on *:TEXT:!update*:#: { if ($nick isop $chan || $nick ishop $chan) && ($2 isnum 2-138) { set %world $2- | set %worldsettime $ctime | set %worldsetnick $nick | msg $chan 12The 4PC12 world has been changed to7 [14 $2- 7] 12by7 $nick $+ . } }    
on *:TEXT:!pcw:#zips-pc,#Allies: { notice $nick 12 The current 4PC12 world is7 [14 %world 7] 12set by7 [14 %worldsetnick 7] 7 $duration($calc($ctime - %worldsettime)) 12ago. } 
on *:TEXT:!world:#: { notice $nick 12 The current 4PC12 world is7 [14 %world 7] 12set by7 [14 %worldsetnick 7] 7 $duration($calc($ctime - %worldsettime)) 12ago. } 
on *:TEXT:@pcw:#zips-pc,#Allies: { msg $chan 12 The current 4PC12 world is7 [14 %world 7] 12set by7 [14 %worldsetnick 7] 7 $duration($calc($ctime - %worldsettime)) 12ago. } 
on *:TEXT:@world:#: { msg $chan 12 The current 4PC12 world is7 [14 %world 7] 12set by7 [14 %worldsetnick 7] 7 $duration($calc($ctime - %worldsettime)) 12ago. }
on *:Text:!newo*:#: {msg #zips-pc 12 4,1 New World Has Been Set Type 8,1!pcw 4,1To View
on *:text:!tb*:#:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    /ban -ku $+ $calc( $3 * 60 ) $chan $2 2  Reason - $4- -  $3 Minute Ban.
  }
}
on *:text:*:#Aqua_Eyes,#zips-scouts,#zips-pc,#Allies:{ 
  if ($1 == !bad) { 
    set %scoutworlds %scoutworlds $+ $chr(32) $+ $$2 | 
    msg $chan  13,1 World 0,1 $$2  13,1 added to scouted list 
    msg $chan 8,1 Scouted worlds are : 0,1 $sorttok(%scoutworlds,32,n)
  }
  if ($1 == !setpcw) { set %scoutworlds  - | msg $chan  9,1  Scouted World list has been reset 
  }
  if ($1 == !badcheck) { msg $chan  8,1 Scouted worlds are : 0,1 $sorttok(%scoutworlds,32,n)
  }
} 
on $*:TEXT:!setm*:#:{ 
  if ($nick isop $chan || $nick ishop $chan) && ($2 isnum) { 
    set $+(%,m.world.,$chan) $2 
    set $+(%,m.time.,$chan) $ctime 
    set $+(%,m.nick.,$chan) $nick 
    msg $chan 4,15meet 1 $nick 4,15 in world 1 $2 4,15 at the pc entrance or in the pc bank , when u are there pm me then here in irc that u are there , then i will come to you , when i have meet you there i will send u an pm in here with the channel name and the key thx!  
  } 
} 
on $*:TEXT:!vb*:#:{ 
  if ($nick isop $chan || $nick ishop $chan) && ($2 isnum) { 
    set $+(%,m.world.,$chan) $2 
    set $+(%,m.time.,$chan) $ctime 
    set $+(%,m.nick.,$chan) $nick 
    msg $chan 4,15 COME TO WORLD 1 $2 4,15 PC ENTRANCE TO GET YOUR VOICE BACK IF U DONT SHOW UP U GET A 24hr BAN And  I Also Will GIVE U A PERM BAN IF U LOGOUT IN HERE Whille WE ARE DOING THE HEADCHECK.
  } 
} 
on $*:TEXT:/^[!@]mass(d|u)?[vhobkm]/Si:#:{
  if ($right($1,1) == m) {
    var %msg = $iif($right($1,1) == !,.notice $nick,msg $chan)
    massm
    halt
  }
  if ($me isop $chan) || ($me ishop $chan) {
    if ($address($me,4) == $address($nick,4)) || ($nick isop $chan) {
      var %massf = 0
      goto massm
    }
    elseif ($nick !ishop $chan) && ($right($1,1) == v) {
      var %massf = 0
      goto massm
    }
    halt
    :massm
    var %repeat = 0
    var %massm = 0
    if ($mid($1,6,2) == $mid($1,6,1) $+ b) {
      while (%massf <= $ibl($chan,0)) {
        inc %massm
        inc %massf
        var %massc = %massc $ibl($chan,%massf)
        if (%massm == 12) {
          var %repeat = 1
          break
        }
      }
    }
    else {
      while (%massf < $nick($chan,0)) {
        inc %massm
        inc %massf
        if ($nick($chan,%massf) != $me) {
          if ($right($1,1) == k) {
            kick $chan $nick($chan,%massf) $iif($2 != $null, $2-, Masskick.)
          }
          else {
            var %massc = %massc $iif($right($1,1) == b,$address($nick($chan,%massf),1),$nick($chan,%massf))
            if (%massm == 12) {
              var %repeat = 1
              break
            }
          }
        }
      }
    }
    if ($right($1,1) != k) {
      mode $chan $iif($mid($1,6,1) isin ud,-,+) $+ $str($right($1,1),%massm) %massc
      if (%repeat) {
        unset %massc
        goto massm
      }
    }
  }
  else {
    .notice $nick I need halfop or op to preform these commands.
  }
}
alias massm {
  %msg !Mass[v|h|o] will set [voice|halfop|op] on every person in the channel.
  %msg !Mass[d|u][v|h|o] will unset [voice|halfop|op] on every person in the channel.
  %msg !Massk will kick every person off the channel.
  %msg !Massb will ban every person in the channel.
  %msg !Mass[d|u]b will clear your channel's ban list.
} 
on *:join:#:{
  /set %chanjoined $chan
  /whois $nick
}
raw 319:*:{
  if (!%chanjoined) { halt }
  else { /msg %chanjoined 7,1 $2 is currently on 4,1 $3-
    /unset %chanjoined
  }
} 
} 
alias co1 { return $+(,$1-) } 
alias co2 { return $+(,$1-) }
on $*:TEXT:/^[!@.](pc|pest) */Si:#: { 
  ;;; Check if it's a valid skill, sockopen, and set vars. ;;; 
  if ($getskill($2)) { 
    /var %x = 1 
    /while ($sock(pc. $+ %x)) { 
      /inc %x 
    } 
    if (#* iswm $4) { 
      /notice $nick Syntax: !Pest <Skill> <RSN>  - Alternative: !Pest <Skill> <Level To Get> <RSN> 
      /halt 
    } 
    if (#* iswm $3) { 
      /set %level. $+ %x $right($3,-1) 
    } 
    ;;; Set Vars ;;; 
    /set %target. $+ %x $iif($left($1,1) == @,msg $chan,.notice $nick) 
    /set %rsn. $+ %x $iif(*#* !iswm $3,$replace($3-,$chr(32),+),$replace($4-,$chr(32),+)) 
    /set %skill. $+ %x $getskill($2) 
    /sockopen pc. $+ %x www.o-ss.net 80 
    /halt 
  } 
  /notice $nick Specify a valid skill to look up.  EX: !pest <Skill> <RSN> 
} 
alias -l cleanup { 
  ;;; Clean up the socket, unset vars, close it ;;; 
  /sockclose $1 
  /unset %level. $+ $right($1,1) 
  /unset %target. $+ $right($1,1) 
  /unset %rsn. $+ $right($1,1) 
  /unset %skill. $+ $right($1,1) 
} 
on *:sockopen:pc.*: { 
  ;;; Go to the file ;;; 
  /var %x = $right($sockname,1) 
  if ($sockerr > 0) /return 
  /sockwrite -nt $sockname GET $+(/parsers/skills.php?user=,%rsn. [ $+ [ %x ] ],&skill=,%skill. [ $+ [ %x ] ]) HTTP/1.1 
  /sockwrite -nt $sockname Host: www.o-ss.net 
  /sockwrite -nt $sockname $crlf $crlf 
} 
on *:sockread:pc.*: { 
  ;;; Get the data, tokenize, and do checks to output. ;;; 
  if ($sockerr) /return 
  /var %x = $right($sockname,1) 
  /var %read | /sockread %read 
  /tokenize 32 %read 
  if (*</TITLE>* iswm $1-) { %target. [ $+ [ %x ] ] $replace(%rsn. [ $+ [ %x ] ],+,$chr(32)) Does Not Feature in the Hi-Scores for %skill. [ $+ [ %x ] ] $+ . | /cleanup $sockname | /halt } 
  if ($3 == does) { %target. [ $+ [ %x ] ] $replace(%rsn. [ $+ [ %x ] ],+,$chr(32)) Does Not feature in the Hi-Scores. | /cleanup $sockname | /halt } 
  if ($0 == 4) { %target. [ $+ [ %x ] ]  4,1 Pest control points needed to get level7,1 $iif(%level. [ $+ [ %x ] ],%level. [ $+ [ %x ] ],$calc(($2)+1))4,1in 7,1 %skill. [ $+ [ %x ] ] $+ : $iif(%level. [ $+ [ %x ] ],$pestget(%skill. [ $+ [ %x ] ],%level. [ $+ [ %x ] ],$calc($xp(%level. [ $+ [ %x ] ])-($remove($3,$chr(44))))),$pestget(%skill. [ $+ [ %x ] ],$calc(($2)+1),$calc($xp($calc($2 + 1))- $remove($3,$chr(44))))) | /cleanup $sockname } 
} 
alias -l /getskill { 
  ;;; Regex to return skills ;;; 
  if ($regex($1,/^over(all)?/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,/^hp|hit(s|points?)?/Si)) return hitpoints 
  elseif ($regex($1,/^range(r|d|ing)?/Si)) return ranged 
  elseif ($regex($1,/^Pray(er)?/Si)) return prayer 
  elseif ($regex($1,/^mag(e|ic)?/Si)) return magic 
  elseif ($regex($1,/^str(ength)?/Si)) return strength 
} 
alias /pest { 
  ;;; Pest alias to retrive skill points per ticket ;;; 
  /var %type = $iif($1 == prayer,12,6) 
  /return $ceil($calc(($2)*($2)/(%type))) 
} 
alias /pestget { 
  ;;; Gets amount of tickets. ;;; 
  /var %skill = $1 
  /var %exp = $remove($3,$chr(44)) 
  /var %level = $2 
  /var %gstring = $pest(%skill,%level) 
  /return $bytes($ceil($calc((%exp)/(%gstring))),b) 
} 
alias /xp { 
  ;;; Calculates XP to level ;;; 
  /var %x = 1, %level = $calc($1 - 1), %xp = 0 
  /while (%x <= %level) { 
    /var %tempxp = $calc($floor($calc(%x + 300 * 2 ^ (%x / 7))) / 4) 
    /inc %xp %tempxp 
    /inc %x 
  } 
  /return $int(%xp) 
}