if ($1 == schedule) {
if (!$regd) {
msg $nick Must Register to use this system. Type '.register'
return 0
}
if ($banned) {
msg $nick Sorry $nick $+ , but you have been banned from using this service. Reason:4,0 $readini(banned.ini,banned,$address($nick,2)) $+ .
return 0
}
elseif (!$2) {
msg $nick To schedule use this format: .schedule <map> <rcon> <location>
msg $nick We are in BETA-Testing. Please read our agreement policy before proceeding.
var %x = 3
while (%x <= $lines(servlist.ini)) {
var %servertest = $gettok($read(servlist.ini,%x),1,61)
if ($readini(servloc.ini,inuse,%servertest)) {
set %changerble $+(%changerble,$chr(44)) $+($gettok($read(servlist.ini,%x),1,61),(4,1In Use1,0))
inc %x
}
else {
set %changerble $+(%changerble,$chr(44)) $gettok($read(servlist.ini,%x),1,61)
inc %x
}
}
msg $nick Current Servers: $gettok($read(servlist.ini,2),1,61) $+ %changerble $+ .
unset %changerble
}