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
Sie befinden sich hier: start » nettalk » scripting » verbessertes_away-script