Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen gezeigt.

Link zu dieser Vergleichsansicht

nettalk:scripting:verbessertes_away-script [2006/08/23 22:08]
80.135.127.49
nettalk:scripting:verbessertes_away-script [2006/08/23 22:09] (aktuell)
80.135.127.49
Zeile 1: Zeile 1:
 +====== 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!
 +
 +<code vb>
 +#​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</​code>​

Eigene Werkzeuge