Verbessertes Away-Script

Habe das alte Away-Script etwas verfeinert. Es gibt jetzt nur noch einen „Away/Back“ Button, der je nach Situation das eine oder andere Script aufruft. Ausserdem funktioniert das Away-gehen nun auch ohne Grund einzugeben und beim Zürückkehren wird auch wirklich der Status auf „You have been marked as being away“ gestellt!

#NewScriptBegin AwayScript
 
Dim AwayMsg
Dim AwayTime
 
Sub Load()
  MakeShortcut "Away/Back", "", "/call AwayScript.SetAway", 1
End Sub
 
Sub SetAway()
  AwayTime = Time
  AwayMsg = input("Away-Grund:")
  if AwayMsg = "" then
    AwayMsg = "keiner"
  end if
  Send "/me ist nun away. Grund: "+ AwayMsg+" Zeit: "+ Time +"", FrontFrameID
  Send "/away "+AwayMsg, FrontFrameID
  MakeShortcut "Away/Back", "", "/call AwayScript.SetZurück", 1
End Sub
 
Sub SetZurück()
  Send "/me ist zurück von: "+ AwayMsg+ ". Dauer: " + FormatSec(DateDiff("s", AwayTime, Time)), FrontFrameID
  Send "/away ", FrontFrameID  
  MakeShortcut "Away/Back", "", "/call AwayScript.SetAway", 1
End Sub

Eigene Werkzeuge