on $*:TEXT:/^[!@](set(world|pcw?)|change):#dbpcontrol: {
if (!$2) { notice $nick You have to supply a world. | halt }
if ($2 isnum 2-144) { notice $nick You need to supply a valid members world. | halt }
writeini bot.ini pcw world $2
writeini bot.ini pcw settime $ctime
writeini bot.ini pcw setnick $nick
msg #db2pc The PCW has been changed! Type !pcw to view it.
}
on $*:TEXT:/^[!@](pcw|w(orld)?)/Si:#: {
if (!$readini(bot.ini,pcw,world)) { notice $nick There is no world set. | halt }
var %output = $iif($left($1,1) == !,notice $nick,msg $chan)
%output The current PCW is $readini(bot.ini,pcw,world) $+ . This was set by $readini(bot.ini,pcw,setnick) $duration($calc($ctime -
$readini(bot.ini,pcw,settime))) ago.
}
on $*:TEXT:/^[!@]w?suggest(pcw?)?/Si:#: {
if (!$2) { notice $nick You have to supply a world. | halt }
if ($2 isnum 2-144) { notice $nick You need to supply a valid members world. | halt }
writeini bot.ini suggest world $2
writeini bot.ini suggest settime $ctime
writeini bot.ini suggest setnick $nick
msg $chan A new PCW has been suggested! Type !spcw to view it.
}
on $*:TEXT:/^[!@]s(world|pcw?)/Si:#: {
if (!$readini(bot.ini,suggest,world)) { notice $nick There is no world set. | halt }
var %output = $iif($left($1,1) == !,notice $nick,msg $chan)
%output The current suggested PCW is $readini(bot.ini,suggest,world) $+ . This was set by $readini(bot.ini,suggest,setnick)
$duration($calc($ctime - $readini(bot.ini,suggest,settime))) ago.
}
on $*:TEXT:/^[!@]a(uto)?v(oice)?/Si:#: {
if (!$2) { notice $nick Please specify a user. | halt }
if ($2 !ison $chan) { notice $nick Please specify someone thats on the channel. | halt }
write av.txt $2
notice $nick $2 is now auto voiced.
}
on *:JOIN:#: {
.timer$+(Join,$nick) statuscheck $nick $chan
}
alias statuscheck {
$iif(!$nick($2,$1,ohv),mode $2 +v $1)
}