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