alias insane_check {
if (%insane_nick) { $iif(%insane_chan,msg %insane_chan,echo -a) [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
$iif(%insane_chan,msg %insane_chan,echo -a) [ $+ $iif(%insane_nick,$v1,WARNING) $+ ] Your command has been proceed, Please wait Receiving data...
}
ON *:TEXT:!insaneusers:#: { insane_check }
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 -n $sockname GET /news.php HTTP/1.1
sockwrite -n $sockname Host: www.insanescripting.comze.com
sockwrite -n $sockname User-Agent: */*
sockwrite -n $sockname Connection: Close
sockwrite -n $sockname $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 (*Guests Online:* iswm %read) { set -e %insane_guests $gettok($remove(%read,<br),9,32) }
if (*Members Online:* iswm %read) { set -e %insane_members $gettok($remove(%read,<br),9,32) }
if (*Total Members:* iswm %read) { set -e %insane_total $gettok($remove(%read,<br),9,32) }
if (*Newest Member:* iswm %read) { set -e %insane_new_member $gettok($remove(%read,class='side'>,</a>),11,32) }
}
ON *:SOCKCLOSE:insaneforum: {
$iif(%insane_chan,msg %insane_chan,echo -a) [ $+ $iif(%insane_nick,$v1,WARNING) $+ ] The reading progress has been finished! - GUESTS ONLINE: $+ $iif(%insane_guests,$v1,N/A) $+ - MEMBERS ONLINE: $+ $iif(%insane_members,$v1,N/A) $+ - TOTAL ONLINE USERS: $+ $iif(%insane_total,$v1,N/A) $+ - NEWEST MEMBER: $+ $iif(%insane_new_member,$v1,N/A) $+ - TOOK: $+ $calc(($ticks - %insane_ticks) / 1000) $+ second(s) - 3SUCCESSFULLY
unset %insane_*
}
