; untested.
; Commands: /PlayQueue /SayQueue /ClearQueue /RemPlayer <Nickname>
On *:TEXT:!join:#MyChannel: { ; <--- Edit the channel name!
if ($istok(%PlayQueue,$nick,32)) || ($istok(%PlayLeft,$nick,32)) { return }
set -u7200 %PlayQueue %PlayQueue $nick
msg $chan [Play Queue] Thank you, $nick $+ . You are $ord($numtok(%PlayQueue,32)) in line. Stick around, don't !leave
} ; by Raccoon 2017
On *:TEXT:!leave:#MyChannel: { ; <--- Edit the channel name!
if (!$istok(%PlayQueue,$nick,32)) || ($istok(%PlayLeft,$nick,32)) { return }
set -u7200 %PlayQueue $remtok(%PlayQueue,$nick,0,32)
set -u300 %PlayLeft %PlayLeft $nick
msg $chan [Play Queue] Sorry you have to go, $nick $+ . There are now $numtok(%PlayQueue,32) in line.
} ; by Raccoon 2017
ALIAS PlayQueue {
echo -atic notice * [Play Queue] There are $numtok(%PlayQueue,32) players in queue: %PlayQueue
if (%PlayLeft) echo -atic notice * [Play Queue] $numtok(%PlayLeft,32) left but can join again in $ceil($calc($var(%PlayLeft).secs / 60)) minute(s): %PlayLeft
} ; by Raccoon 2017
ALIAS SayQueue {
say [Play Queue] There are $numtok(%PlayQueue,32) players in queue: %PlayQueue
} ; by Raccoon 2017
ALIAS ClearQueue {
unset %PlayQueue %PlayLeft
echo -atic notice * [Play Queue] Cleared the player queue.
} ; by Raccoon 2017
ALIAS RemPlayer {
set -u7200 %PlayQueue $remtok(%PlayQueue,$1,0,32)
echo -atic notice * [Play Queue] There are $numtok(%PlayQueue,32) players in queue: %PlayQueue
} ; by Raccoon 2017