Menu MenuBar,Nicklist, {
Away Control: dialog -m Tektro's-Away Tektro's-Away
}
Dialog Tektro's-Away {
Title "Tektro IRC Away System"
Size -1 -1 180 70
Option DBU
Text "This Is The Official †èK†Rò-ÌRÇ Away System", 1, 10 2 110 10
Text ":Enter Your Current Away Reason/Message:", 2, 12 16 120 10
Text ":Enter Your Temporary Away Nick Below:", 3, 15 38 135 10
Edit "", 4, 5 24 120 10,autohs
Edit "", 5, 5 46 120 10,autohs
Button "Mark Away", 6, 143 3 35 20
Button "Now Return", 7, 143 25 35 20
Button "Close/Exit", 8, 143 47 35 20,ok
Text "This Was Scripted And Tested By: †èK†Rò Enjoy. :]", 9, 7 60 130 10
}
On *:Dialog:Tektro's-Away:SClick:6: {
Set %AwayCounter $ctime
Set %CurrentNick $me
Set %AwayReason $did(4).text
Set %AwayNick $did(5).text
if (%AwayReason == $null) {
Amsg 14[12-14[12- 15I Am Now Away Because12:15 %AwayReason 12-14]12-14]
}
Else {
Amsg 14[12-14[12- 15I Am Now Away Because12:15 %AwayReason 12-14]12-14]
Nick %AwayNick
}
}
On *:Dialog:Tektro's-Away:SClick:7: {
Nick %CurrentNick
Amsg 14[12-14[12- 15I Am Now Back, Gone for12:15 $duration($calc($ctime - %AwayCounter)) 12-14]12-14]
}
On *:Dialog:Tektro's-Away:Init:0:{
Did -a Tektro's-Away 4 %AwayReason
Did -a Tektro's-Away 5 %AwayNick
}
On *:Dialog:Tektro's-Away:Close:*:{
UnSet %AwayReason
UnSet %AwayNick
}