Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen gezeigt.

--- nettalk:scripting:away-script_mit_zurueckkehr-funktion [2006/08/23 21:53]
80.135.127.49
+++ nettalk:scripting:away-script_mit_zurueckkehr-funktion [2006/11/02 20:52] (aktuell)
mirici
@@ Zeile 1: / Zeile 1: @@
+====== Away-Script ======
+Mit diesem Script kannst Du ganz einfach Away gehen (mit eigenem Grund) und ganz leicht wieder zurückkehren.
+<code vb>
+#NewScriptBegin AwayScript
+Dim AwayMsg
+Dim AwayTime
+Sub Load()
+  MakeShortcut "Away gehen", "", "/call AwayScript.SetAway", 1
+  MakeShortcut "Zurück kehren", "", "/call AwayScript.SetZurück", 1
+End Sub
+Sub SetAway()
+  AwayTime = Time
+  AwayMsg = input("Away-Grund:")
+  if len(AwayMsg) > 0 Then
+    Send "/me ist nun away. Grund: "+ AwayMsg+" Zeit: "+ Time +"", FrontFrameID
+    Send "/away "+AwayMsg, FrontFrameID
+  end if
+End Sub
+Sub SetZurück()
+  Send "/me ist zurück von: "+ AwayMsg+ ". Dauer: " + FormatSec(DateDiff("s", AwayTime, Time)) , FrontFrameID
+End Sub</code>