Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen gezeigt.

Link zu dieser Vergleichsansicht

nettalk:scripting:timerbefehl [2007/01/25 02:22]
88.73.242.179
nettalk:scripting:timerbefehl [2008/11/16 20:25] (aktuell)
mirici fehler bei : oder Lehrzeichen in der Server Bezeichnung behoben
Zeile 14: Zeile 14:
 <code vb> <code vb>
 #​NewScriptBegin TimerForNettalk #​NewScriptBegin TimerForNettalk
 + 
 Dim tID Dim tID
 + 
 Sub Load() Sub Load()
-  MakeShortcut "",​ "​timer",​ "/call TimerForNettalk.StartTextTimer $1 $(room) ​:$>​1",​ 2+  MakeShortcut "",​ "​timer",​ "/call TimerForNettalk.StartTextTimer $1 :$(room)\\-->$>​1",​ 2
   tID=0   tID=0
 End Sub End Sub
- +  
-Sub StartTextTimer(Delay,​ FrameTitel, Text)+Sub StartTextTimer(Delay, ​Data) 
 +  I = InStr(1, Data, "​\\-->"​) 
 +  ​FrameTitel ​= Left(DataI - 1) 
 +  ​Text = Mid(Data, I + 5)
   If Val(Delay) > 0 and Val(Delay) < 32000 Then   If Val(Delay) > 0 and Val(Delay) < 32000 Then
     tID=tID+1     tID=tID+1
Zeile 35: Zeile 38:
   End if   End if
 End Sub End Sub
 + 
 Sub TimerEvent(TimerID) Sub TimerEvent(TimerID)
   send textlist(TimerID),​ connlist(TimerID)   send textlist(TimerID),​ connlist(TimerID)
 End Sub End Sub
 </​code>​ </​code>​

Eigene Werkzeuge