Simple away system

Please Register to submit score.

Average Score	2.0
Scores Submitted	1
Date Added	Apr 19, 2008
Last Updated	Jun 10, 2008
Tags	away simple system

Introduction

simple away system for 2 nicks, logs query and channel mesages if someone says your nick.

first open the awaysys and set your nicks and passwords

type /1 to use your first nick
type/2 to use your second nick
(will auto identify on nick change)

type /away to set your status to away and change your nick to your away nick

type /awayoff to turn it off and go back to your original nick

Grab the Code

;this is the menu
menu menubar,nicklist,channel,query {
  AwaySys:dialog -dm ais ais
}

dialog  ais {
  title "Away System"
  size -1 -1 230 114
  option dbu
  menu "Menu", 38
  item "Close", 39, cancel
  text "-Nick1-", 2, 37 17 50 10, 
  text "-AwayNick1-", 3, 140 17 50 10, 
  edit "", 4, 7 25 75 10, 
  button "ADD", 5, 82 25 15 10, 
  button "DEL", 6, 97 25 15 10, 
  edit "", 10, 7 35 75 10, 
  button "ADD", 11, 82 35 15 10, 
  button "DEL", 12, 97 35 15 10, 
  edit "", 7, 117 25 75 10,  
  button "ADD", 8, 192 25 15 10, 
  button "DEL", 9, 207 25 15 10, 
  edit "", 13, 117 35 75 10, 
  button "ADD", 14, 192 35 15 10, 
  button "DEL", 15, 207 35 15 10
  text "-Nick2-", 28, 37 47 50 10, 
  text "-AwayNick2-", 29, 140 47 50 10, 
  edit "", 16, 7 55 75 10, 
  button "ADD", 17, 82 55 15 10, 
  button "DEL", 18, 97 55 15 10,
  edit "", 19, 7 65 75 10, 
  button "ADD", 20, 82 65 15 10, 
  button "DEL", 21, 97 65 15 10, 
  edit "", 22, 117 55 75 10,  
  button "ADD", 23, 192 55 15 10, 
  button "DEL", 24, 207 55 15 10, 
  edit "", 25, 117 65 75 10, 
  button "ADD", 26, 192 65 15 10, 
  button "DEL", 27, 207 65 15 10, 
  text "Click To Use Nick", 30, 95 80 50 10, 
  button "Nick1", 31, 82 90 30 10, 
  button "Nick2", 32, 117 90 30 10, 
  text "Away", 35, 37 80 25 10, 
  text "Away", 36, 177 80 25 10, 
  button "ON", 33, 30 90 30 10, 
  button "OFF", 34, 170 90 30 10, 
  text "Made By PuNkTuReD", 37, 90 100 50 10,
}
on *:dialog:ais:sclick:*:{
  if $did = 5 { set %nick_1 $did(ais,4) | did -o ais 4 1 %nick_1 }
  if $did = 6 { set %nick_1 Nick1 | did -o ais 4 1 %nick_1 }
  if $did = 11 { set %nick_1_password $did(ais,10) | did -o ais 10 1 %nick_1_password }
  if $did = 12 { set %nick_1_password PassWord | did -o ais 10 1 %nick_1_password }
  if $did = 8 { set %away_nick_1 $did(ais,7) | did -o ais 7 1 %away_nick_1 }
  if $did = 9 { set %away_nick_1 AwayNick1 | did -o ais 7 1 %away_nick_1 }
  if $did = 14 { set %away_nick_1_password $did(ais,10) | did -o ais 10 1 %away_nick_1_password }
  if $did = 15 { set %away_nick_1_password PassWord | did -o ais 10 1 %away_nick_1_password }
  if $did = 17 { set %nick_2 $did(ais,16) | did -o ais 16 1 %nick_2 }
  if $did = 18 { set %nick_2 Nick2 | did -o ais 16 1 %nick_2 }
  if $did = 20 { set %nick_2_password $did(ais,19) | did -o ais 19 1 %nick_2_password }
  if $did = 21 { set %nick_2_password PassWord | did -o ais 19 1 %nick_2_password }
  if $did = 23 { set %away_nick_2 $did(ais,22) | did -o ais 22 1 %away_nick_2 }
  if $did = 24 { set %away_nick_2 AwayNick2 | did -o ais 22 1 %away_nick_2 }
  if $did = 26 { set %away_nick_2_password $did(ais,25) | did -o ais 25 1 %away_nick_2_password }
  if $did = 27 { set %away_nick_2_password PassWord | did -o ais 25 1 %away_nick_2_password }
  if $did = 31 { 
    if ($me == %nick_1) { echo -at 4ERROR : your nick is already %nick_1 }
    if ($me == %nick_2) { nick %nick_1 }
    if ($me == %away_nick_1) { echo -at 4ERROR : turn away off by typing /awayoff before changing your nick }
    if ($me == %away_nick_2) { echo -at 4ERROR : turn away off by typing /awayoff before changing your nick }  
  }
  if $did = 32 { 
    if ($me == %nick_1) { nick %nick_2 }
    if ($me == %nick_2) { echo -at 4ERROR : your nick is already %nick_2 }
    if ($me == %away_nick_1) { echo -at 4ERROR : turn away off by typing /awayoff before changing your nick }
    if ($me == %away_nick_2) { echo -at 4ERROR : turn away off by typing /awayoff before changing your nick }  
  }
  if $did = 33 { 
    if ($me == %nick_1) { set %awayat $asctime(hh:nn:ss:tt) | ame is now "away" Reason :  $+ $$?"Reason"  - Left At : %awayat - Logging : On - 4|12 $+ S4.12A4.12S4.12S4| | nick %away_nick_1 | set %away ON }
    if ($me == %nick_2) { set %awayat $asctime(hh:nn:ss:tt) | ame is now "away" Reason :  $+ $$?"Reason"  - Left At : %awayat - Logging : On - 4|12 $+ S4.12A4.12S4.12S4| | nick %away_nick_2 | set %away ON }    
  }
  if $did = 34 { 
    if ($me == %away_nick_1) { set %awayat 00:00:00 | nick %nick_1 | set %away OFF | ame is now "back" - Logging : Off - 4|12 $+ S4.12A4.12S4.12S4| }
    if ($me == %away_nick_2) { set %awayat 00:00:00 | nick %nick_2 | set %away OFF | ame is now "back" - Logging : Off - 4|12 $+ S4.12A4.12S4.12S4| }  
  }
}
on *:dialog:ais:init:0:{
  did -a ais 4 %nick_1
  did -a ais 7 %away_nick_1
  did -a ais 10 %nick_1_password
  did -a ais 13 %away_nick_1_password
  did -a ais 16 %nick_2
  did -a ais 22 %away_nick_2
  did -a ais 19 %nick_2_password
  did -a ais 25 %away_nick_2_password
}
alias away {
  if ($me == %nick_1) { set %awayat $asctime(hh:nn:ss:tt) | ame is now "away" Reason : $$?"Reason"  - Left At : %awayat - Logging : On - 4|12 $+ S4.12A4.12S4.12S4| | nick %away_nick_1 | set %away ON }
  if ($me == %nick_2) { set %awayat $asctime(hh:nn:ss:tt) | ame is now "away" Reason : $$?"Reason"  - Left At : %awayat - Logging : On - 4|12 $+ S4.12A4.12S4.12S4| | nick %away_nick_2 | set %away ON }  
}
alias back {
  if ($me == %away_nick_1) { set %awayat 00:00:00 | nick %nick_1 | set %away OFF | ame is now "back" - Logging : Off - 4|12 $+ S4.12A4.12S4.12S4| }
  if ($me == %away_nick_2) { set %awayat 00:00:00 | nick %nick_2 | set %away OFF | ame is now "back" - Logging : Off - 4|12 $+ S4.12A4.12S4.12S4| }
}
alias 1 {
  if ($me == %nick_1) { echo -at 4ERROR : your nick is already %nick_1 }
  if ($me == %nick_2) { nick %nick_1 | identify %nick_1_password }
  if ($me == %away_nick_1) { echo -at 4ERROR : turn away off by typing /awayoff before changing your nick }
  if ($me == %away_nick_2) { echo -at 4ERROR : turn away off by typing /awayoff before changing your nick }
}
alias 2 {
  if ($me == %nick_1) { nick %nick_2 | identify %nick_2_password }
  if ($me == %nick_2) { echo -at 4ERROR : your nick is already %nick_2 }
  if ($me == %away_nick_1) { echo -at 4ERROR : turn away off by typing /awayoff before changing your nick }
  if ($me == %away_nick_2) { echo -at 4ERROR : turn away off by typing /awayoff before changing your nick }
}
on 1:notice:*identify*:*:{
  if $nick = nickserv { 
    if ($me == %nick_1) { identify %nick_1_password }
    if ($me == %away_nick_1) { identify %away_nick_1_password }
    if ($me == %nick_2) { identify %nick_2_password }
    if ($me == %away_nick_2) { identify %away_nick_2_password }
  }
}
on *:text:*:#: {
  if ($nick == $me) { halt }
  else {
    if (%away_nick_1 isin $1-) && (%away == ON) { msg $chan Sorry I am currently away , Your message has been logged . Away Since %awayat 4|12 $+ S4.12A4.12S4.12S4| | window -k0l +e @Logged_Messages | .timer 1 2 aline @Logged_Messages $fulldate 4 $nick $+ 7: $1- 4:On $chan On $network }
    if (%away_nick_2 isin $1-) && (%away == ON) { msg $chan Sorry I am currently away , Your message has been logged . Away Since %awayat 4|12 $+ S4.12A4.12S4.12S4| | window -k0l +e @Logged_Messages | .timer 1 2 aline @Logged_Messages $fulldate 4 $nick $+ 7: $1- 4:On $chan On $network }
  }
}
on *:text:*:?: {
  if ($nick == $me) { halt }
  else { if (%away = ON) { query $nick Sorry I am currently away , Your message has been logged . Away Since %awayat 4|12 $+ S4.12A4.12S4.12S4| | window -k0l +e @Logged_Private_Messages | .timer 1 2 aline @Logged_Private_Messages $fulldate 4 $nick $+ 7: $1- 4:In Private Chat On $network } }
}

Comments

(4) RSS

Go to Bottom

^Neptune

Comments: 155

mIRC Snippet: Simple away system
Posted on Apr 20, 2008 6:16 pm

I don't see why you are using tabs as there is only 1 tab...

PunkTuReD

Comments: 59

mIRC Snippet: Simple away system
Posted on Apr 20, 2008 11:55 pm

well when i started writing it i was going to have two tabs, thanks for the comment ill remove the tabs.

Eugenio

Comments: 518

mIRC Snippet: Simple away system
Posted on Apr 21, 2008 12:09 am

Whats the point in the 2 nick business ?!?

PunkTuReD

Comments: 59

mIRC Snippet: Simple away system
Posted on Apr 22, 2008 4:46 am

some people use more than one nick , i use two hence the reason i made it for two nicks . do you understand now ? whats the point in any of these scripts ? to make your personal chat experience easier . if i used 1 nick it would have only had space for one .

Simple away system

Introduction

Grab the Code

Comments

PunkTuReD

My Snippet Tags

Contact

Friends (2)

Sponsors


Last seen: Jun 24, 2008 Profile \| Website Friends (2) Snippets (9) Images (1) Comments Received (47) Comments Submitted (59) Forum Posts (79)