; ----------------------
; Transformice v0.1
; by luxtrike
; ----------------------
alias transformice {
  if ($1 = on) { .enable #transformice }
  elseif ($1 = off) { .disable #transformice }
  elseif ($1 = setchan) { set %transformice_chan $2 }
  elseif ($1 = setcom) { set %transformice_com $2 }
  if ($isid) { return $group(#transformice).status }
}


#transformice on
on *:text:*:#:{
  if (!%tranformice_chan) { set %transformice_chan #transformice }
  if ($chan = %transformice_chan) {
    if (!%transformice_com) { set %transformice_com !t }
    if ($1 = %transformice_com) && ($2) { transformice.get $2 }
    elseif ($1 = !mice.rounds) && ($2) { transformice.get2 rounds $2 }
  }
}
on *:input:#:{
  if (!%tranformice_chan) { set %transformice_chan #transformice }
  if ($chan = %transformice_chan) {
    if (!%transformice_com) { set %transformice_com !t }
    if ($1 = %transformice_com) && ($2) { transformice.get $2 }
  }
}

#transformice end

;/transformice.get <nick>
alias transformice.get {
  set %transformice.nick $1
  sockopen transformice cheese.formice.com 80
}
;/transformice.get2 <get> <nick>
alias transformice.get2 {
  set %transformice.nick $2
  set %transformice.get $1
  sockopen transformice cheese.formice.com 80
}
on *:sockopen:transformice:{
  if ($sockerr > 0) { echo -a *** Transformice Error: $sock(transformice).wsmsg $crlf $+ | on_sockclose | return }
  else {
    var %get /leaderboard/mouse/ $+ %transformice.nick
    sockwrite -n $sockname GET %get HTTP/1.1
    sockwrite -n $sockname Host: $sock($sockname).addr
    ;sockwrite -n $sockname Connection: Keep-Alive
    sockwrite -n $sockname $crlf
  }
}
on *:sockread:transformice:{
  if ($sockerr > 0) { echo -a *** Transformice Error: $sock(transformice).wsmsg $crlf $+ | on_sockclose | return }
  :nextread
  if ($sock(transformice)) {
    var %temp
    sockread %temp
    if ($sockbr == 0) return
    if (%temp == $null) %temp = -

    if (%transformice.get) { transformice.echo2 %temp }
    else { transformice.echo %temp }

    goto nextread
  }
}
on *:sockclose:transformice:{ on_sockclose }
alias -l on_sockclose {
  sockclose transformice
  msg %transformice_chan %transformice.result
  .unset %transformice.*
  ;echo -a *** Transformice Connection closed.
}
alias -l transformice.echo2 {
  if (<h1> isin $1) {
    var %nick $remove($1-,<h1>,</h1>)
    if (%nick ) { set %transformice.nick 2,0 $+ %nick $+  }
  }
  var %r <b>Rounds Played</b></td>

  var %l $gettok($1-,-1,32)
  var %ll </td>
  if (%ll isin $1-) && (%transformice.c = 1) {
    inc %transformice.c
    var %rr $gettok($1-,2-,$asc(>))
    %rr = $gettok(%rr,1,$asc(<))
    if (%rr) { set %transformice.r Rounds Played: %rr }
  }
  elseif (%ll isin $1-) && (%transformice.c = 2) {
    inc %transformice.c
    var %rr $gettok($1-,2-,$asc(>))
    %rr = $gettok(%rr,1,$asc(<))
    if (%rr) { set %transformice.r %transformice.r Rank: %rr }
  }
  elseif (%ll isin $1-) && (%transformice.c = 3) {
    inc %transformice.c
    var %rr $gettok($1-,2-,$asc(>))
    %rr = $gettok(%rr,1,$asc(<))
    ;if (%rr) { set %transformice.r %transformice.r Change: %rr }
  }

  if (%r isin $1-) { %transformice.c = 1 }

  set %transformice.result %transformice.nick %transformice.r
}
alias -l transformice.echo {
  if (<h1> isin $1) {
    var %nick $remove($1-,<h1>,</h1>)
    if (%nick ) { set %transformice.nick 2,0 $+ %nick $+  }
  }
  elseif (<h3> isin $1) {
    var %r $remove($1-,<h3>,</h3>)
    if (%r) { set %transformice.status $replace(%r,&#171;,$chr(171),&#187;,$chr(187)) }
  }
  elseif (<h4> isin $1) {
    var %r $remove($1-,<h4>,</h4>)
    var %get $gettok(%r,1,32)
    if (%get = rank) {
      %r = $remove(%r,&nbsp;)
      var %c $gettok(%r,6-,32)
      var %c1 $gettok(%c,1,32)
      var %c2 $gettok(%c,2-,$asc(>))
      var %c3 $gettok(%c,3,$asc(=))
      %c3 = $remove(%c3,title)
      var %up 3+
      var %down 4-
      %c3 = $replace(%c3,"Rank Up",%up)
      %c3 = $replace(%c3,"Rank Down",%down)
      %r = $gettok(%r,1-5,32) %c1 %c3 %c2

      ;%r = $gettok(%r,2-,$asc(>))
      ;%r = $remove(%r,</a)
      ;set %transformice.result %transformice.result 1,0 $+ %r $+  %c1 %c3 %c2
    }
    elseif (%get = tribe:) {
      %r = $gettok(%r,2-,$asc(>))
      %r = $remove(%r,</a)
      if (%r) { %r = Tribe: 2,0 $+ %r $+  }
    }
    set %transformice.tribe %r
  }
  elseif (<h4> isin $2) {
    var %r $remove($2-,<h4>,</h4>)
    %r = $right(%r,-2)
    %r = $remove(%r,&nbsp;)
    var %c $gettok(%r,6-,32)
    var %c1 $gettok(%c,1,32)
    var %c2 $gettok(%c,2-,$asc(>))
    var %c3 $gettok(%c,3,$asc(=))
    %c3 = $remove(%c3,title)
    var %up 3+
    var %down 4-
    %c3 = $replace(%c3,"Rank Up",%up)
    %c3 = $replace(%c3,"Rank Down",%down)
    %r = $gettok(%r,1-5,32)

    ;%r = $gettok(%r,2-,$asc(>))
    ;%r = $remove(%r,</a)
    set %transformice.rank %r %c1 %c3 %c2
  }
  set %transformice.result %transformice.nick %transformice.status %transformice.tribe %transformice.rank
}