SHARE
TWEET

Untitled

a guest Jun 10th, 2017 129 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ON*:text:!ontijd*:#: {
  2.   sockclose ontijd
  3.   set %ontijd.input $2
  4.   set %ontijd.chan $chan
  5.   sockopen ontijd nl.trabot.net 80
  6. }
  7.  
  8. on *:sockopen:ontijd: {
  9.   sockwrite -nt $sockname GET /userinfo.php?name= $+ %ontijd.input HTTP/1.1
  10.   sockwrite -nt $sockname Host: nl.trabot.net
  11.   sockwrite -nt $sockname $crlf
  12. }
  13.  
  14. alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) | return %x }
  15.  
  16. alias -l colour1 return $+($chr(3),07)
  17.  
  18. on *:sockread:ontijd: {
  19.   var %x
  20.   %i = -1
  21.   sockread %ontijd
  22.   if $regex(%ontijd,Alive) {
  23.     set %totale-tijd1 $gettok($htmlfree(%ontijd),12-16,32)
  24.     set %totale-tijd2 $removecs(%totale-tijd1,tijd)
  25.     set %totale-tijd2.2 $wildtok(%totale-tijd2,g*e,1,32)
  26.     set %totale-tijd2.3 $wildtok(%totale-tijd2,g*n,1,32)
  27.     set %totale-tijd2.4 $wildtok(%totale-tijd2,g*t,1,32)
  28.     set %totale-tijd3 $removecs(%totale-tijd2,Percentage)
  29.     set %totale-tijd3.2 $removecs(%totale-tijd3,$chr(40) $+ RP))
  30.     set %totale-tijd4 $wildtok(%totale-tijd3,o*e,1,32)
  31.     set %totale-tijd5 $removecs(%totale-tijd3.2,%totale-tijd4,%totale-tijd2.2,%totale-tijd2.3,%totale-tijd2.4)
  32.     set %ontijd.percentage $removecs(%totale-tijd4,online,Positie)
  33.     .msg %ontijd.chan 4 $+ %ontime.input is in totaal $colour1 $+ %totale-tijd5 4online geweest.
  34.     .msg %ontijd.chan 4Dit is $colour1 $+ %ontijd.percentage 4van de tijd sinds hij/zij voor het eerst online was.
  35.   }
  36.   if $regex(%ontijd,Dood) {
  37.     set %ontijd.dood1 $gettok($htmlfree(%ontijd),18-22,32)
  38.     set %ontijd.dood2 $removecs(%ontijd.dood1,tijd,Percentage)
  39.     set %ontijd.dood3 $wildtok(%ontijd.dood2,o*e,1,32)
  40.     set %ontijd.dood3.2 $wildtok(%ontijd.dood2,g*e,1,32)
  41.     set %ontijd.dood3.3 $wildtok(%ontijd.dood2,g*n,1,32)
  42.     set %ontijd.dood3.4 $wildtok(%ontijd.dood2,g*t,1,32)
  43.     set %ontijd.dood4 $removecs(%ontijd.dood2,%ontijd.dood3)
  44.     set %ontijd.dood5 $removecs(%ontijd.dood4,$chr(40) $+ RP))
  45.     set %ontijd.percentage2 $removecs(%ontime.dood3,online,Positie)
  46.     .msg %ontijd.chan 4 $+ %ontijd.input is in totaal $colour1 $+ %ontijd.dood5 4online geweest.
  47.     .msg %ontijd.chan 4Dit is $colour1 $+ %ontijd.percentage2 4van de tijd sinds hij/zij voor het eerst online was.
  48.   }
  49.   if ($regex(%ontijd,Deze gebruiker)) {
  50.     .msg %ontijd.chan 4[Error] 7Deze gebruiker is niet gevonden in de .nl database!
  51.   }
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top