rendered paste bodyon *:text:!online*:#: {
if ($sock(onlineusers)) .sockclose onlineusers
set %chan $chan
set %nick $nick
sockopen onlineusers www.shipsim.com 80
}
on *:SOCKOPEN:onlineusers: {
sockwrite -nt $sockname GET /ShipSimForum/index.php HTTP/1.1
sockwrite -nt $sockname Host: www.shipsim.com
sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:onlineusers: {
if ($sockerr) {
msg %chan Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message.
halt
}
else {
var %sockreader
sockread %sockreader
if (*Guests* iswm %sockreader ) {
set %onlineusers $nohtml(%sockreader)
msg %chan Users Online: %onlineusers
unset %chan
unset %nick
sockclose onlineusers
}
}
}
on *:text:!info*:#: {
if ($sock(info)) .sockclose info
set %chan $chan
set %nick $nick
sockopen info www.shipsim.com 80
}
on *:SOCKOPEN:info: {
sockwrite -nt $sockname GET /ShipSimForum/index.php HTTP/1.1
sockwrite -nt $sockname Host: www.shipsim.com
sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:info: {
if ($sockerr) {
msg %chan Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message.
halt
}
else {
var %sockreader
sockread %sockreader
if (*Posts in* iswm %sockreader ) {
set %info $nohtml(%sockreader)
msg %chan %info
unset %chan
unset %nick
sockclose info
}
}
}
on *:text:!users*:#: {
if ($sock(users)) .sockclose users
set %chan $chan
set %nick $nick
sockopen users www.shipsim.com 80
}
on *:SOCKOPEN:users: {
sockwrite -nt $sockname GET /ShipSimForum/index.php HTTP/1.1
sockwrite -nt $sockname Host: www.shipsim.com
sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:users: {
if ($sockerr) {
msg %chan Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message.
halt
}
else {
var %sockreader
sockread %sockreader
if (*minutes:* iswm %sockreader ) {
set %users $nohtml(%sockreader)
msg %chan %users
unset %chan
unset %nick
sockclose users
}
}
}