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> |
Sie befinden sich hier: start » nettalk » scripting » away-script_mit_zurueckkehr-funktion