alias capital return $upper($left($1,1)) $+ $mid($1,2-)
alias capital2 return $upper($left($1,2)) $+ $mid($1,3-)
on *:TEXT:!cmd:#: {
if (%CADD.On. [ $+ [ $network ] ] [ $+ [ . ] ] [ $+ [ $chan ] ] != $null) {
var %command_file = rcdradio_commands.ini
var %k = $+($network,-,$chan)
var %x = $ini(%command_file,%k,0)
if (!$window(@Que)) window -h @Que
if (%x) {
aline @Que .msg # .w $nick == Customized Command List for channel: $capital2($chan) $+ ...
var %text
while (%x) {
%kk = $ini(%command_file,%k,%x)
var %temp $readini(%command_file,n,%k,%kk)
if ( $len(%text ! $+ %kk => %temp $chr(166) ) >= 99) {
aline @Que .msg # .w $nick = %text
var %text
}
var %text %text ! $+ %kk => %temp $chr(166)
dec %x
}
aline @Que .msg # .w $nick = %text
}
}
aline @Que .msg # .w $nick == End of Custom Command List
else {
msg $chan I'm sorry $capital($nick) $+ , there are no custom commands currently available.
}
QUE
}
alias Que {
var %que $line(@que,1)
dline @que 1
if (%que != $null) %que
if ($line(@que,1) == $null) return
.timerQue 1 5 Que
}