dim queueplace
dim queue
dim voiceplace
dim voicequeue
dim helpee(100)
queueplace=0
queue=queueplace+1
Sub ONJOIN(Nickname,Host,Channel,ServerNumber)
if Channel="#kirbydance" then
if ServerNumber=1 then
SendCommand "/notice " & nickname & " Welcome to #kirbydance! A voice system has been put in place. Please wait your turn to ask your question and do not ask to be voiced. Your current place in line is " & queue & ".",1
helpee(queueplace)=Nickname
queueplace=queueplace+1
queue=queueplace+1
End if
End if
End Sub
voiceplace=0
voicequeue=voiceplace+1
Sub ONTEXT(Message,Channel,Nickname,Host,ServerNumber)
if Message="!next" then
if Channel="#kirbydance" then
if Nickname="ElementAlchemist" then
if ServerNumber=1 then
SendCommand "/notice " & helpee(voiceplace) & " Please ask your question now.",1
SendCommand "/mode #kirbydance +v " & helpee(voiceplace),1
SendCommand "/msg #kirbydance Now voicing #" & voicequeue,1
End if
End if
End if
End if
if Message="!helped" then
if Channel="#kirbydance" then
if Nickname="ElementAlchemist" then
if ServerNumber=1 then
SendCommand "/mode #kirbydance -v " & helpee(voiceplace) & "",1
SendCommand "/notice " & helpee(voiceplace) & " You have been helped. If you still have more questions, please rejoin the channel.",1
voiceplace=voiceplace+1
End if
End if
End if
End if
<%End Sub%>