; Whatpulse alias by Joshua
; wpuser script created using Chessnut's Simple Socket Script Creator
; Instructions: Replace "YOURWHATPULSEID" with your Whatpulse ID number.

alias -l logo { return $+($chr(03),14,$chr(91),$chr(03),11,$1-,$chr(93),$chr(03)) }
alias -l cc2 { return $+($chr(03),10,$1-,$chr(03)) }
alias wp {
  var %sckid = $right($ticks,5)
  set %way. [ $+ [ %sckid ] ] msg $chan
  sockopen wpuser. [ $+ [ %sckid ] ] rscript.org 80
}
alias wpteam {
  var %sckid = $right($ticks,5)
  set %way. [ $+ [ %sckid ] ] msg $chan
  sockopen wpteam. [ $+ [ %sckid ] ] rscript.org 80
}

on *:SOCKOPEN:wpuser.*: {
  sockwrite -nt $sockname GET /lookup.php?type=wp&id=YOURWHATPULSEID HTTP/1.1
  sockwrite -nt $sockname Host: rscript.org
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:wpuser.*: {
  if ($sockerr) {
    %way. [ $+ [ $right($sockname,5) ] ] Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message.
    halt
  }
  else {
    var %sockreader
    sockread %sockreader
    if (*USER* iswm %sockreader) {
      noop $regex(%sockreader,/USER\|(.*?)$/Si)
      var %tempvar $regml(1)
      var %name. [ $+ [ $right($sockname,5) ] ] $gettok(%tempvar,1,124)
      var %id. [ $+ [ $right($sockname,5) ] ] $gettok(%tempvar,2,124)
      var %keyrank. [ $+ [ $right($sockname,5) ] ] $bytes($gettok(%tempvar,3,124),bd)
      var %keys. [ $+ [ $right($sockname,5) ] ] $bytes($gettok(%tempvar,4,124),bd)
      var %avgkps. [ $+ [ $right($sockname,5) ] ] $gettok(%tempvar,5,124)
      var %clickrank. [ $+ [ $right($sockname,5) ] ] $bytes($gettok(%tempvar,6,124),bd)
      var %clicks. [ $+ [ $right($sockname,5) ] ] $bytes($gettok(%tempvar,7,124),bd)
      var %avgcps. [ $+ [ $right($sockname,5) ] ] $gettok(%tempvar,8,124)
      var %pulses. [ $+ [ $right($sockname,5) ] ] $bytes($gettok(%tempvar,9,124),bd)
      var %lastpulse. [ $+ [ $right($sockname,5) ] ] $gettok(%tempvar,10,124)
      %way. [ $+ [ $right($sockname,5) ] ] $logo(Whatpulse) Username: $cc2(%name. [ $+ [ $right($sockname,5) ] ]) $(|) ID: $cc2(%id. [ $+ [ $right($sockname,5) ] ]) $(|) Date Joined: $cc2(2007-03-09) $(|) Key Rank: $cc2(%keyrank. [ $+ [ $right($sockname,5) ] ]) $(|) Keys: $cc2(%keys. [ $+ [ $right($sockname,5) ] ]) $(|) Average KPS: $cc2(%avgkps. [ $+ [ $right($sockname,5) ] ]) $(|) Click Rank: $cc2(%clickrank. [ $+ [ $right($sockname,5) ] ]) $(|) Clicks: $cc2(%clicks. [ $+ [ $right($sockname,5) ] ]) $(|) Average CPS: $cc2(%avgcps. [ $+ [ $right($sockname,5) ] ]) $(|) Pulses: $cc2(%pulses. [ $+ [ $right($sockname,5) ] ]) $(|) Last Pulse: $cc2(%lastpulse. [ $+ [ $right($sockname,5) ] ])
      unset %*. [ $+ [ $right($sockname,5) ] ]
      sockclose $sockname
    }
  }
}

; wpteam script created using Chessnut's Simple Socket Script Creator

on *:SOCKOPEN:wpteam.*: {
  sockwrite -nt $sockname GET /lookup.php?type=wp&id=207367 HTTP/1.1
  sockwrite -nt $sockname Host: rscript.org
  sockwrite -nt $sockname User-Agent: mIRC
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:wpteam.*: {
  if ($sockerr) {
    %way. [ $+ [ $right($sockname,5) ] ] Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message.
    halt
  }
  else {
    var %sockreader
    sockread %sockreader
    if (*TEAM* iswm %sockreader) {
      noop $regex(%sockreader,/TEAM\|(.*?)$/Si)
      var %tempvar $regml(1)
      var %name. [ $+ [ $right($sockname,5) ] ] $gettok(%tempvar,1,124)
      var %members. [ $+ [ $right($sockname,5) ] ] $bytes($gettok(%tempvar,2,124),bd)
      var %keyrank. [ $+ [ $right($sockname,5) ] ] $bytes($gettok(%tempvar,3,124),bd)
      var %keys. [ $+ [ $right($sockname,5) ] ] $bytes($gettok(%tempvar,4,124),bd)
      var %clickrank. [ $+ [ $right($sockname,5) ] ] $bytes($gettok(%tempvar,5,124),bd)
      var %clicks. [ $+ [ $right($sockname,5) ] ] $bytes($gettok(%tempvar,6,124),bd)
      var %desc. [ $+ [ $right($sockname,5) ] ] $gettok(%tempvar,7,124)
      %way. [ $+ [ $right($sockname,5) ] ] $logo(WhatPulse) Team Name: $cc2(%name. [ $+ [ $right($sockname,5) ] ]) $(|) Members: $cc2(%members. [ $+ [ $right($sockname,5) ] ]) $(|) Key Rank: $cc2(%keyrank. [ $+ [ $right($sockname,5) ] ]) $(|) Keys: $cc2(%keys. [ $+ [ $right($sockname,5) ] ]) $(|) Click Rank: $cc2(%clickrank. [ $+ [ $right($sockname,5) ] ]) $(|) Clicks: $cc2(%clicks. [ $+ [ $right($sockname,5) ] ]) $(|) Team Description: $cc2(%desc. [ $+ [ $right($sockname,5) ] ])
      unset %*. [ $+ [ $right($sockname,5) ] ]
      sockclose $sockname
    }
  }
}