Miscellany

on $*:TEXT:/^[!@](setpcw|change)/Si:#:{
  if ($nick isop $chan || $nick ishop $chan) && ($2 isnum) {
    set %world. [ $+ [ $chan ] ] $2
    set %pcnick. [ $+ [ $chan ] ]  $nick
    msg $chan The PCW has been changed! !pcw, !world to view it!
  }
}
on $*:TEXT:/^[!@](world|pcw)/Si:#:{
  var %id = $ticks
  set %world.output. [ $+ [ %id ] ] $iif($left($1,1) == @,msg $chan,notice $nick)
  set %world.chan. [ $+ [ %id ] ] $chan
  sockopen $+(pcworld.,%id) o-ss.net 80   
}
on *:SOCKOPEN:pcworld.*:{
  var %id = $gettok($sockname,2,46)
  sockwrite -n $sockname GET /parsers/oneline/worlds.php?w= $+ %world. [ $+ [ %world.chan. [ $+ [ %id ] ] ] ] HTTP/1.1
  sockwrite -n $sockname Host: o-ss.net
  sockwrite -n $sockname $+($crlf,$crlf)
}
on *:SOCKREAD:pcworld.*:{
  var %id = $gettok($sockname,2,46)
  var %chan = %world.chan. [ $+ [ %id ] ], $&
    %style = %world.output. [ $+ [ %id ] ], $&
    %world = %world. [ $+ [ %world.chan. [ $+ [ %id ] ] ] ]
  if ($sockerr) { echo -a Sockerr: $sockerr towards $sockname }
  else {
    var %read
    sockread %read
    if (*END* iswm %read) {
      tokenize 32 %read
      %style $c1([ World: $c2(%world ) $c1(])) » $c1([ Players: $c2($3) $c1(])) » $c1([ Set by: $c2(%pcnick. [ $+ [ %chan ] ]) $c1(]))
      sockclose pcworld. [ $+ [ %id ] ]
    }
  }
}
alias c1 { return $+($chr(3),14,$1-,$chr(3)) }
alias c2 { return $+($chr(3),10,$1-,$chr(3)) }