AnGelBot-Portal² / PasteIt / Eintrag #189

[-]
PasteIt Eintrag #189
Autor: HAPM
Titel: AddTimer und RemoveTimer
Beschreibung: Da die neuste Version nie veröffentlich wurde, die beiden Methoden AddTimer und RemoveTimer jedoch schon bereits dokumentiert sind, gibt es hier ein kleines Snippet, welches alte Versionen des Bots entsprechend nachrüstet.
 

[-]
Auf diesen Beitrag gibt es folgende Antwort:

Code
  1. '# @Name: AddTimer und RemoveTimer
  2. '# @Author: HAPM
  3. '# @Desc
  4. '# @ Da die neuste Version nie veröffentlich wurde, die beiden Methoden AddTimer und RemoveTimer jedoch schon bereits dokumentiert sind, gibt es hier ein kleines Snippet, welches alte Versionen des Bots entsprechend nachrüstet.
  5. '# @Desc
  6.  
  7. ReDim timers(1)
  8.  
  9. Function AddTimer(time)
  10.   Dim id
  11.   id = NextId()
  12.   timers(id) = time
  13.   AddTimer = id
  14.   TimedCommand "CallTimer " & id, time
  15. End Function
  16.  
  17. Sub RemoveTimer(Id)
  18.   If Id < 1 Or Id > UBound(timers) Then Exit Sub
  19.   timers(Id) = -1
  20. End Sub
  21.  
  22. Function NextId()
  23.   For i = 1 To UBound(timers)
  24.     If timers(i) = 0 Then
  25.       NextId = i
  26.       Exit Function
  27.     End Sub
  28.   Next
  29.   ReDim Preserve timers(UBound(timers)+1)
  30.   NextId = UBound(timers)
  31. End Function
  32.  
  33. Sub CallTimer(Id)
  34.   If Id < 1 Or Id > UBound(timers) Then Exit Sub
  35.   If timers(Id) < 0 Then
  36.     timers(Id) = 0
  37.     Exit Sub
  38.   End If
  39.   Timer Id
  40.   TimedCommand "CallTimer " & Id, timers(i)
  41. End Sub


Kontakt | AnGelBot-Portal | Nach oben | Zum Inhalt | Archiv-Modus | RSS-Synchronisation