Away-Script mit Away-Grund änderung und Rückkehr funktion

Ich habe dem Away Script noch die Zusatzfunktion „Away-Grund ändern“ gegeben, bei mir funktioniert es einwandfrei ;) Bei Problemen Bitte bei StonedStorm nachfragen!

#NewScriptBegin AwayScript
 
Dim AwayMsg
Dim AwayTime
 
Sub Load()
  MakeShortcut "Away/Back", "", "/call AwayScript.SetAway", 1
End Sub
 
Sub Load()
  MakeShortcut "Away-Change", "", "/call AwayScript.SetAwayChange", 1
End Sub
 
Sub SetAway()
  AwayTime = Time
  AwayMsg = input("Away-Grund:")
  if AwayMsg = "" then
    AwayMsg = "kein Grund angegeben"
  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 SetAwayChange()
  AwayTime = Time
  AwayMsg = input("Away-Grund:")
  if AwayMsg = "" then
    AwayMsg = "kein Grund angegeben"
  end if
  Send "/me ändert den away Grund in: "+ AwayMsg+" Zeit: "+ Time +"", FrontFrameID
  Send "/away "+AwayMsg, FrontFrameID
  MakeShortcut "Away-Change", "", "/call AwayScript.SetAwayChange", 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