Loading

Whatpulse alias

Wrap Raw Revise
  1. ; Whatpulse alias by Joshua
  2. ; wpuser script created using Chessnut's Simple Socket Script Creator
  3. ; Instructions: Replace "YOURWHATPULSEID" with your Whatpulse ID number.
  4.  
  5. alias -l logo { return $+($chr(03),14,$chr(91),$chr(03),11,$1-,$chr(93),$chr(03)) }
  6. alias -l cc2 { return $+($chr(03),10,$1-,$chr(03)) }
  7. alias wp {
  8.   var %sckid = $right($ticks,5)
  9.   set %way. [ $+ [ %sckid ] ] msg $chan
  10.   sockopen wpuser. [ $+ [ %sckid ] ] rscript.org 80
  11. }
  12. alias wpteam {
  13.   var %sckid = $right($ticks,5)
  14.   set %way. [ $+ [ %sckid ] ] msg $chan
  15.   sockopen wpteam. [ $+ [ %sckid ] ] rscript.org 80
  16. }
  17.  
  18. on *:SOCKOPEN:wpuser.*: {
  19.   sockwrite -nt $sockname GET /lookup.php?type=wp&id=YOURWHATPULSEID HTTP/1.1
  20.   sockwrite -nt $sockname Host: rscript.org
  21.   sockwrite -nt $sockname $crlf
  22. }
  23. on *:SOCKREAD:wpuser.*: {
  24.   if ($sockerr) {
  25.     %way. [ $+ [ $right($sockname,5) ] ] Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message.
  26.     halt
  27.   }
  28.   else {
  29.     var %sockreader
  30.     sockread %sockreader
  31.     if (*USER* iswm %sockreader) {
  32.       noop $regex(%sockreader,/USER\|(.*?)$/Si)
  33.       var %tempvar $regml(1)
  34.       var %name. [ $+ [ $right($sockname,5) ] ] $gettok(%tempvar,1,124)
  35.       var %id. [ $+ [ $right($sockname,5) ] ] $gettok(%tempvar,2,124)
  36.       var %keyrank. [ $+ [ $right($sockname,5) ] ] $bytes($gettok(%tempvar,3,124),bd)
  37.       var %keys. [ $+ [ $right($sockname,5) ] ] $bytes($gettok(%tempvar,4,124),bd)
  38.       var %avgkps. [ $+ [ $right($sockname,5) ] ] $gettok(%tempvar,5,124)
  39.       var %clickrank. [ $+ [ $right($sockname,5) ] ] $bytes($gettok(%tempvar,6,124),bd)
  40.       var %clicks. [ $+ [ $right($sockname,5) ] ] $bytes($gettok(%tempvar,7,124),bd)
  41.       var %avgcps. [ $+ [ $right($sockname,5) ] ] $gettok(%tempvar,8,124)
  42.       var %pulses. [ $+ [ $right($sockname,5) ] ] $bytes($gettok(%tempvar,9,124),bd)
  43.       var %lastpulse. [ $+ [ $right($sockname,5) ] ] $gettok(%tempvar,10,124)
  44.       %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) ] ])
  45.       unset %*. [ $+ [ $right($sockname,5) ] ]
  46.       sockclose $sockname
  47.     }
  48.   }
  49. }
  50.  
  51. ; wpteam script created using Chessnut's Simple Socket Script Creator
  52.  
  53. on *:SOCKOPEN:wpteam.*: {
  54.   sockwrite -nt $sockname GET /lookup.php?type=wp&id=207367 HTTP/1.1
  55.   sockwrite -nt $sockname Host: rscript.org
  56.   sockwrite -nt $sockname User-Agent: mIRC
  57.   sockwrite -nt $sockname $crlf
  58. }
  59. on *:SOCKREAD:wpteam.*: {
  60.   if ($sockerr) {
  61.     %way. [ $+ [ $right($sockname,5) ] ] Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message.
  62.     halt
  63.   }
  64.   else {
  65.     var %sockreader
  66.     sockread %sockreader
  67.     if (*TEAM* iswm %sockreader) {
  68.       noop $regex(%sockreader,/TEAM\|(.*?)$/Si)
  69.       var %tempvar $regml(1)
  70.       var %name. [ $+ [ $right($sockname,5) ] ] $gettok(%tempvar,1,124)
  71.       var %members. [ $+ [ $right($sockname,5) ] ] $bytes($gettok(%tempvar,2,124),bd)
  72.       var %keyrank. [ $+ [ $right($sockname,5) ] ] $bytes($gettok(%tempvar,3,124),bd)
  73.       var %keys. [ $+ [ $right($sockname,5) ] ] $bytes($gettok(%tempvar,4,124),bd)
  74.       var %clickrank. [ $+ [ $right($sockname,5) ] ] $bytes($gettok(%tempvar,5,124),bd)
  75.       var %clicks. [ $+ [ $right($sockname,5) ] ] $bytes($gettok(%tempvar,6,124),bd)
  76.       var %desc. [ $+ [ $right($sockname,5) ] ] $gettok(%tempvar,7,124)
  77.       %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) ] ])
  78.       unset %*. [ $+ [ $right($sockname,5) ] ]
  79.       sockclose $sockname
  80.     }
  81.   }
  82. }
Posted by Joshua at 27 Jan 2015, 04:24:05 UTC
Language: mirc • Views: 213

Comments