alias afk { sockopen away www.insanebot.mirc.ms 80 | set %hai $1- }
on *:sockopen:away:{
sockwrite -nt $sockname GET /parsers/away.php HTTP/1.1
sockwrite -nt $sockname HOST: www.insanebot.mirc.ms $+ $crlf $+ $crlf
}
on *:sockread:away:{
var %info = sockread -f
if (*away* iswm %info) {
set %status here
timer1 1 1 sockopen awayset www.insanebot.mirc.ms 80
sockclose $sockname
}
if (*here* iswm %info) {
set %status away
timer1 1 1 sockopen awayset www.insanebot.mirc.ms 80
sockclose $sockname
}
}
on *:sockopen:awayset:{
sockwrite -nt $sockname post /parsers/away.php HTTP/1.1
sockwrite -nt $sockname Host: www.insanebot.mirc.ms
sockwrite -nt $sockname Content-length: $len(%afk)
sockwrite -nt $sockname Content-Type: text/html
sockwrite -nt $sockname Connection: Close
sockwrite -nt $sockname $crlf %status
}
on *:sockread:awayset:{
var %chucknorris = sockread -f
if (*away* iswm %chucknorris) {
set %awaycheck away
afkcheck %hai
}
if (*here* iswm %chucknorris) {
set %awaycheck here
afkcheck
}
}
alias afkcheck {
if ($away == $true) || (%away.currently == yes) || (%awaycheck == away) {
set %away.currently no
scid -a nick %away.me
echo -ta $iif($exists($+(pms,$date,.txt)) == $true,New PMs!,No pms =<)
scid -a amsg [AMSG] I am now back from %away.msg $+ , I wasnt here for $y(%away.time)
scid -a ns id $pass
scid -a away
set %away.pm allowed
}
elseif ($away == $false) || (%away.currently == no) || (%awaycheck == here) {
set %away.currently yes
set %away.me $me
set %away.msg $1-
set %away.pm blocked
set %away.time $ctime
set %away.nick clay| $+ $nnick($1-)
scid -a msg idlebot logout clay
scid -a nick clay| $+ $nnick($1-)
scid -a amsg [AMSG] Now going to $1- $+ , see you in a bit.
scid -a away $1-
}
}