Simple Away System

Please Register to submit score.

Average Score	0.0
Scores Submitted	0
Date Added	Jan 29, 2008
Last Updated	Jan 29, 2008

Introduction

GoodEvening! This Is My New Simple Away System That I Have Made . It has 4 buttons << Amsg Ame Me Msg >> For Away Message To Use You Want On Or Off Enable/Disable e.g : Echo -a Ame Away Message Is On = /ame is Away Reason here :> I Have Add 3 Edits To Add Your Away Nick Nickname Back Nick Name And Your Away Message . If You Want To Clear Your Settings Press The Button Reset Settings . If You Want To See Your Settings Press The Button View . Its A Very Very Simple Away System To Use !

Grab the Code

;##################
;# Away System By #
;#      IcE^_     #
;##################

on *:start: {
  .set %ame_message Off
  .set %me_message Off
  .set %msg_message Off
  .set %amsg_message Off
  .set %awaymessage 12S2leeping.
  .set %awaynickname Your Away Nick Here .
  .set %backnickname Your Back Nick Here .
}

on *:load: { echo -a 12S2imple 12A2way 12S2ystem 12B2y 12IcE^_ 12L2oaded! }
on *:Unload: { echo -a 12S2imple 12A2way 12S2ystem 12B2y 12IcE^_ 12U2nloaded!  }

menu status,channel,menubar {
  Simple Away System 
  .Settings...:/awaysystem
}

alias awaysystem {
  dialog -m _awaysystem _awaysystem 
}

dialog _awaysystem {
  title "Away System v2.0 By IcE^_"
  size -1 -1 262 163
  box "Away Nickname:" 2, 5 2 124 38
  box "Back Nickname:" 3, 132 2 124 38
  edit "" 4, 8 17 118 20,autohs
  edit "" 5, 135 17 118 20,autohs
  box "Set Your Away Message Here:" 6, 5 43 251 38 
  edit "" 7, 8 58 245 20,autohs
  button "Go Away" 8, 5 82 127 20,left push flat
  button "Come Back" 9, 131 82 125 20,left push flat
  button "View" 10, 5 101 127 20,left push flat
  button "Reset Settings" 11, 131 101 125 20,left push flat
  button "Ame" 12, 5 120 63 20,left push flat group
  button "Ame" 13, 5 120 63 20,left push flat 
  button "Amsg" 14, 67 120 65 20,left push flat group
  button "Amsg" 15, 67 120 65 20,left push flat 
  button "Me" 16, 131 120 65 20,left push flat group
  button "Me" 17, 131 120 65 20,left push flat 
  button "Msg" 18, 195 120 61 20,left push flat group
  button "Msg" 19, 195 120 61 20,left push flat 
  button "Ok" 20, 5 139 127 20,ok flat
  button "Cancel" 21, 131 139 125 20,cancel flat
  box "" 22, 1 -4 259 165
  halt
}

on *:dialog:_awaysystem:init:*: {
  did -ra $dname 4 %awaynickname | did -ra $dname 5 %backnickname | did -ra $dname 7 %awaymessage 
}

on 1:dialog:_awaysystem:edit:*: {
  .set %awaynickname $did(4).text | .set %backnickname $did(5).text | .set %awaymessage $did(7).text
}

on *:dialog:_awaysystem:sclick:8:{ /away %awaymessage } 
on *:dialog:_awaysystem:sclick:9:{ /back }
on 1:dialog:_awaysystem:sclick:12:{ set %ame_message On  | .did -h _awaysystem 12 | .did -v _awaysystem 13 | echo -a  12C2hannel 12A2way 12A2me 12M2essage 12O2n }
on 1:dialog:_awaysystem:sclick:13:{ set %ame_message Off | .did -h _awaysystem 13 | .did -v _awaysystem 12 | echo -a 12C2hannel 12A2way 12A2me 12M2essage 12O2ff }
on 1:dialog:_awaysystem:sclick:18:{ set %msg_message On  | .did -h _awaysystem 18 | .did -v _awaysystem 19 | echo -a  12C2hannel 12A2way 12M2sg 12M2essage 12O2n }
on 1:dialog:_awaysystem:sclick:19:{ set %msg_message Off | .did -h _awaysystem 19 | .did -v _awaysystem 18 | echo -a 12C2hannel 12A2way 12M2sg 12M2essage 12O2ff }
on 1:dialog:_awaysystem:sclick:16:{ set %me_message On  | .did -h _awaysystem 16 | .did -v _awaysystem 17 | echo -a  12C2hannel 12A2way 12Me 12M2essage 12O2n }
on 1:dialog:_awaysystem:sclick:17:{ set %me_message Off | .did -h _awaysystem 17 | .did -v _awaysystem 16 | echo -a 12C2hannel 12A2way 12M2e 12M2essage 12O2ff }
on 1:dialog:_awaysystem:sclick:14:{ set %amsg_message On  | .did -h _awaysystem 14 | .did -v _awaysystem 15 | echo -a  12C2hannel 12A2way 12A2msg 12M2essage 12O2n }
on 1:dialog:_awaysystem:sclick:15:{ set %amsg_message Off | .did -h _awaysystem 15 | .did -v _awaysystem 14 | echo -a 12C2hannel 12A2way 12A2msg 12M2essage 12O2ff }
on *:dialog:_awaysystem:sclick:10:{ echo -a 12A2way 12N2ickname:12 %awaynickname | echo -a 12B2ack 12N2ickname:12 %backnickname | echo -a 12A2way 12M2essage:12 %awaymessage | echo -a 12A2me 12M2essage:12 %ame_message . | echo -a 12M2e 12M2essage:12 %me_message . | echo -a 12M2sg 12M2essage:12 %msg_message . | echo -a 12A2msg 12M2essage:12 %amsg_message . }
on *:dialog:_awaysystem:sclick:11:{ did -r $dname 4 | .set %awaynickname | did -r $dname 5 | .set %backnickname |  did -r $dname 7 | .set %awaymessage | echo -a 12S2ettings 12R2eset . }

alias away {
  if ($1) {
    set %awaymessage $1-
    .quote away : $+ %awaymessage
    set %awaytime $ctime
    if ( %ame_message == On ) {    
      /ame 12I2s 12A2way: 12R2eason: [12 $+ %awaymessage $+ 2] 
    }
    if ( %me_message == On ) {    
      describe $active 12I2s 12A2way: 12R2eason: [12 $+ %awaymessage $+ 2]
    } 
    if ( %amsg_message == On ) {    
      /amsg 12I2s 12A2way: 12R2eason: [12 $+ %awaymessage $+ 2] 
    }
    if ( %msg_message == On ) {    
      /msg $active $chan 12I2s 12A2way: 12R2eason: [12 $+ %awaymessage $+ 2] 
    }
    .nick %awaynickname
  }
  else { back }
}

alias awaytime {
  set 2[12 $+ $duration($calc($ctime - %awaytime)) $+ 2]
}

alias back {
  if ( %ame_message == On ) {    
    /ame 12I2s 12b2ack: 12R2eason:2 [12 $+ %awaymessage $+ 2] 12I W2as 12A2way:2 [12 $+ $duration($calc($ctime - %awaytime)) $+ 2] 
  }
  if ( %me_message == On ) { 
    describe $active 12I2s 12b2ack: 12R2eason:2 [12 $+ %awaymessage $+ 2] 12I W2as 12A2way:2 [12 $+ $duration($calc($ctime - %awaytime)) $+ 2] 
  }
  if ( %amsg_message == On ) {   
    /amsg 12I2s 12b2ack: 12R2eason:2 [12 $+ %awaymessage $+ 2] 12I W2as 12A2way:2 [12 $+ $duration($calc($ctime - %awaytime)) $+ 2]  
  }
  if ( %msg_message == On ) {  
    /msg $active $chan 12I2s 12b2ack: 12R2eason:2 [12 $+ %awaymessage $+ 2] 12I W2as 12A2way:2 [12 $+ $duration($calc($ctime - %awaytime)) $+ 2]
  }  
  .quote away
  .nick %backnickname
  .unset %awaytime
}

Comments

(6) RSS

Go to Bottom

IcE^__

Comments: 37

mIRC Snippet: Simple Away System
Posted on Jan 29, 2008 3:14 pm

Submit A Comment And Say Me Your Opinion :p

water_dragon

Comments: 44

mIRC Snippet: Simple Away System
Posted on Jan 29, 2008 6:59 pm

i Do Like But Somethink odd it should work but dont seem to be responding to my mirc to good. anywys i give it 9/10 :)

IcE^__

Comments: 37

mIRC Snippet: Simple Away System
Posted on Jan 30, 2008 2:33 am

ok ;D thanks :> yo Someday I Will Add & Auto Away Minutes :D Its Fun And Cool!

Hydroxide

Comments: 9

mIRC Snippet: Simple Away System
Posted on Jan 30, 2008 5:53 am

* /dialog: '_awaysystem' no such table (line 25, script1.mrc)

Hydroxide

Comments: 9

mIRC Snippet: Simple Away System
Posted on Jan 30, 2008 5:54 am

oops, forget that

Hydroxide

Comments: 9

mIRC Snippet: Simple Away System
Posted on Jan 30, 2008 6:00 am

(12:05:38) <+Neptune> Is back: Reason: [Neptune is away] I Was Away: [1986wks 6days 12hrs 5mins 38secs]

What the hell? lol

Simple Away System

Introduction

Grab the Code

Comments

IcE^__

Contact

Sponsors

		Student Greece
Last seen: Jul 10, 2008 Profile Snippets (11) Images (1) Comments Received (37) Comments Submitted (37)