(VBScript/IceChat5 Script)
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 " & queueplace & ".",1
helpee[queueplace]=nickname
queueplace=queueplace+1
End if
End if
End Sub
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[1] & " Please ask your question now.",1
SendCommand "/mode #kirbydance +v " & helpee[voiceplace],1
SendCommand "/msg #kirbydance Now voicing #" & voiceplace,1
End if
End if
End if
End if
End Sub
Sub ONTEXT(Message,Channel,Nickname,Host,ServerNumber)
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