;try using this (NOT TESTED) :

Code:
ON *:TEXT:!insane:#: {
  if (%insane_nick) { msg $chan [4Error]: Cannot proceed, Please wait an other user  $+ $qt(%insane_nick) $+  is already using this feature! - 4FAILED | halt }
  sockclose insaneforum
  sockopen insaneforum www.insanescripting.comze.com 80
  set -eu60 %insane_chan $chan
  set -eu60 %insane_nick $nick
  set -eu60 %insane_ticks $ticks
  msg $chan [ $+ $nick $+ ]: Your command has been proceed, Please wait Receiving data...
}
ON *:SOCKOPEN:insaneforum: {
  if ($sockerr > 0) { $iif(%insane_chan,msg %insane_chan,echo -a) [4Error]: Connection problem, Cannot conect to read any information now from the $qt(Insane Site) server, check your internet connection, or maybe there is an server connection problem, try again later! - 4FAILED | sockclose $sockname | return }
  sockwrite -nt insaneforum GET /infusions/who_is_online/who_is_online.php HTTP/1.0
  sockwrite -nt insaneforum Host: www.insanescripting.comze.com
  sockwrite -nt insaneforum $crlf
}
ON *:SOCKREAD:insaneforum: {
  if ($sockerr > 0) { $iif(%insane_chan,msg %insane_chan,echo -a) [4Error]: Connection reading problem, Cannot read any information now from the $qt(Insane Site) server, try again later! - 4FAILED | sockclose $sockname | return }
  var %read
  sockread %read
  if (*Registered users and* iswm %read) { tokenize 32 %read | $iif(%insane_chan,msg %insane_chan,echo -a) [ $+ $iif(%insane_nick,$v1,WARNING) $+ ] REGISTERED USERS ARE: $remove(%read,<td class="catSides",colspan="3" height="28">,<span class="cattitle"><b>,</b></span></td>) - 3SUCCESSFULLY }
  if (*There are* iswm %read) && (*Guest users online* iswm %read) { tokenize 32 %read | $iif(%insane_chan,msg %insane_chan,echo -a) [ $+ $iif(%insane_nick,$v1,WARNING) $+ ] GUEST USERS ARE: $remove(%read,<td class="catSides" colspan="3" height="28"><span class="cattitle"><b>,</b></span></td>) - 3SUCCESSFULLY }
}
ON *:SOCKCLOSE:insaneforum: { $iif(%insane_chan,msg %insane_chan,echo -a) [ $+ $iif(%insane_nick,$v1,WARNING) $+ ] The reading progress has been finished! - TOOK: $calc(($ticks - %ticks) / 1000) second(s) - 3SUCCESSFULLY }

Last edited by westor; 04/11/11 03:01 PM.