Away-Script

Mit diesem Script kannst Du ganz einfach Away gehen (mit eigenem Grund) und ganz leicht wieder zurückkehren.

#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