====== 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!

<code vb>
#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</code>