Tektro--IRC Away System

mIRC Code

+ 0 likes

Please Register to submit score.

Average Score	0.0 (of 0 scores)
Date Added	Aug 17, 2009
Last Updated	Sep 09, 2009
Tags	away irc system tektro

Introduction

My away system for Tektro--IRC. Just a simple dialog and away script. Works though. Simplicity is my thing. (: Comments are welcome! Thanks, Tektro.

Grab the Code

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
}