Small Away Script

mIRC Code

+ 3 likes

Please Register to submit score.

Average Score	8.0
Scores Submitted	3
Date Added	Oct 13, 2007
Last Updated	Oct 13, 2007
Tags	away system

Introduction

Another common (Gee, I need a new hobby...) script. Type /as to open the dialog and that's about it. Erm, if you do use it to go away, I don't recommend closing the dialog, since the 'Away' and 'Back' messages are based off of what is entered in the editbox.

It also comes with three messaging options. They are: Message active, message all, and don't message. That's about it really...please lemme know if you find any bugs or anything... :D

(Hmm, Firefox didn't ask me to correct 'lemme' :o *shrugs*)

Grab the Code

alias as { if (!$dialog(as)) dialog -mod as as }
dialog as {
  title "Away System"
  size -1 -1 262 169
  option pixels
  radio "Message Active", 1, 26 96 100 17
  radio "Message All", 2, 26 113 100 17
  radio "Don't Message", 3, 26 130 100 17
  text "Away Name:", 4, 32 22 62 17
  text "Away Reason:", 5, 23 45 71 17
  button "Away", 6, 143 96 45 25
  button "Back", 7, 195 96 46 25
  edit "", 8, 97 21 142 20, autohs
  edit "", 9, 97 44 142 20, autohs
  box "", 10, 10 5 241 69
  box "Alert:", 11, 11 78 119 82
  box "", 12, 136 78 115 82
  button "&Close", 13, 161 130 65 23, ok
}
on *:dialog:as:*:*:{
  if ($devent == init) {
    if ($did == 0) {
      if (%style == $null) {
        .set %Style None
        .did -c as 3
      }
      if (%Style == None) {
        .did -c as 3
      }
      if (%Style == Amsg) {
        .did -c as 2
      }
      if (%Style == Active) {
        .did -c as 1
      }
    }
  }
  if ($devent == sclick) {
    if ($did == 6) {
      /set %Ori.Name $me
      /nick $did(as,8).text
      /away $did(as,9).text
      if (%Style == Active) {
        .msg $active ( $time(hh:nn:ss TT) ) ( $me is now away. ) ( Reason: $did(as,9).text )
      }
      if (%Style == Amsg) {
        .amsg ( $time(hh:nn:ss TT) ) ( $me is now away. ) ( Reason: $did(as,9).text )
      }
    }
    if ($did == 7) {
      /nick %Ori.Name
      if (%Style == Active) {
        .msg $active ( $time(hh:nn:ss TT) ) ( Away Time: $duration($awaytime) ) ( $me is back from: $did(as,9).text )
        /away
      }
      if (%Style == Amsg) {
        .amsg ( $time(hh:nn:ss TT) ) ( Away Time: $duration($awaytime) ) ( $me is back from: $did(as,9).text )
        /away
      }
    }
    if ($did == 1) {
      .set %Style Active
    }
    if ($did == 2) {
      .set %Style Amsg
    }
    if ($did == 3) {
      .set %Style None
    }
  }
}

Comments

(2) RSS

Go to Bottom

Tippy

Comments: 28

mIRC Snippet: Small Away Script
Posted on Oct 14, 2007 6:04 am

Well done way to go!I like it and no bugs!

damdempsel

Comments: 21

mIRC Snippet: Small Away Script
Posted on Aug 18, 2008 10:59 pm

Cool. I like it a lot.

Akishoot

		Unemployed, Student, Detroit, Michigan
Last seen: Sep 29, 2008 Profile Likes (4) Friends (17) Snippets (9) Images (2) Comments Received (93) Comments Submitted (159)