MSG-Poll

#NewScriptBegin PollScript
 
Dim MyFrameID
Dim MyUser
Dim MyText
 
Sub StartPoll(User, Text)
  MyFrameID = FrontFrameID
  print "- Channel gesetzt"
  StartTimer 20*1000, 1
  MyUser = User
  MyText = Text
End Sub
 
Sub TimerEvent(TimerID)
  if GetListIndex(MyFrameID, MyUser) <> -1 Then
    print "- Poll at " & MyUser, MyFrameID
    send MyText, FrontFrameID
    StopTimer 1
  else
    print "- " & MyUser & " isn't on", MyFrameID
  End if
End Sub