My mistake. I forgot to edit the variables. Here is it:
on me:*:part:#:{
if (%random) {
$+(.timer,$network) off
set -e %randommsg 1
}
}
on *:quit:{
if ($nick == $me) && (%random) {
$+(.timer,$network) off
set -e %randommsg 1
}
}
on *:disconnect:{
if (%random) $+(.timer,$network) off
set -e %randommsg 1
}
on me:*:join:#:{
if (%randommsg) {
notice $me Random Message has been toggled off. $&
Right-click on the nicklist or channel to toggle it on.
unset %random*
}
}
on *:kick:#:{
if ($knick == $me) && (%random) $+(.timer,$network) off
set -e %randommsg 1
}
on *:sockread:rm:{
var %rm
sockread %rm
if ($regex(%rm,/<h1>(.*)<\/h1>/)) {
[ [ $sock(rm).mark ] ]
sockclose rm
}
}
alias -l randommsg {
if ($sock(rm)) sockclose $v1
sockopen rm www.randommessages.com 80
sockmark rm amsg $!regml(1)
}
on *:sockopen:rm:{
tokenize 94 $left($str(sockwrite -nt rm^,2),-1)
var %- 1, %` GET / HTTP/1.1^Host: $!+($sock(rm).addr,$str($crlf,2))
while $gettok(%`,%-,94) {
[ [ $+($,%-,$chr(32),$v1) ] ]
inc %-
}
}
menu channel,nicklist {
Random Message
.ON {
if (!%random) {
set -e %random $$?"Input the trigger time in seconds:"
$+(.timer,$network) 0 %random randommsg
echo 2 # * Time Interval in Seconds: $+($chr(2),%random)
if (%randommsg) unset $v1
}
else echo 4 # * Random Message is Already Switched On!
}
.OFF {
if (%random) {
$+(.timer,$network) off
echo 2 * Random Message Has Been Turned Off!
unset %random*
}
else echo 4 # * Random Message is Already Switched Off!
}
}