dim queueplace
dim queue
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
WriteIniFile "kirbydance.ini","Helpees","h" & queueplace,Nickname
queueplace=queueplace+1
queue=queueplace+1
End if
End if
End Sub
dim voiceplace
dim voicequeue
voiceplace=0
voicequeue=voiceplace+1
Sub ONTEXT(Message,Channel,Nickname,Host,ServerNumber)
helpee = GetIniFile("kirbydance.ini","Users","h" & voiceplace,"ElementAlchemist")
if Message="!next" then
if Channel="#kirbydance" then
if Nickname="ElementAlchemist" then
if ServerNumber=1 then
SendCommand "/notice " & helpee & " Please ask your question now.",1
SendCommand "/mode #kirbydance +v " & helpee & "",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 & "",1
SendCommand "/notice " & helpee & " You have been helped.  If you still have more questions, please rejoin the channel.",1
voiceplace=voiceplace+1
voicequeue=voiceplace+1
End if
End if
End if
End if
End Sub