Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen gezeigt.

Link zu dieser Vergleichsansicht

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>​

Eigene Werkzeuge