All pastes #630436 Raw Edit

Untitled

public text v1 · immutable
·published 2007-07-23 05:57 UTC
rendered paste body
;on *:JOIN:#pang: {
;$iif(%atv [ $+ [ $address($nick,2) ] ],mode $chan +v $nick, ban -ku60 Your not on the auto voice please join #pang.verify | halt)
;  if ($sock(socket86667)) .sockclose socket86667
;  set %chan $chan
;  set %pcchecknick $nick
;  sockopen socket86667 www.users.on.net 80
;}
;on *:SOCKOPEN:socket86667: {
;  sockwrite -nt $sockname GET /~adtory/stats.php?user= $+ %pcchecknick HTTP/1.1
;  sockwrite -nt $sockname Host: www.users.on.net
;  sockwrite -nt $sockname $crlf
;}
;on *:SOCKREAD:socket86667: {
;  if ($sockerr) {
;    msg %chan Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message.
;    halt
;  }
;  else {
;    var %sockreader
;    sockread %sockreader
;    if (*hitpoints* iswm %sockreader) {
;      sockread %sockreader
;      writeini aaaahp.ini %pcchecknick $+($date,-,$time(hh:nn:ss)) - EXP $gettok(%sockreader,3,32)
;      unset %pcchecknick
;      unset %chan
;      sockclose $sockname
;    }
;    else {
;      writeini aaaahp.ini %pcchecknick $+($date,-,$time(hh:nn:ss)) - NOT IN HIGHSCORES
;    }
;  }
;}