Simple away system for multiple networks

mIRC Code

+ 0 likes

Please Register to submit score.

Average Score	5.3
Scores Submitted	4
Date Added	Jan 01, 2006
Last Updated	Jul 18, 2007
Tags	away multiple network

Introduction

Allows you to mark yourself away on one or more networks from a single dialog. Network names show in one of two lists.

The OK & Cancel buttons aren't really necessary, as the code marks you away (or not away?) upon selection of the network in the dialog.

Just right click anywhere and select Away

Nick change added

Grab the Code

dialog Away {
  title "Away"
  size -1 -1 115 85
  option dbu
  text "Away", 10, 60 5 50 10, center
  text "Active", 20, 5 5 50 10, center
  list 30, 5 15 50 50, size
  list 40, 60 15 50 50, size
  button "OK", 50, 5 70 50 10, ok default
  button "Cancel", 60, 60 70 50 10, cancel
}
menu * {
  .Away: .dialog -md Away Away
}
on *:dialog:Away:init:*:{
  var %networks = $scon(0)
  var %a = 1
  while %a <= %networks {
    did -a $dname $iif($scon(%a).away == $false,30,40) $scon(%a).network
    inc %a
  }
}
on *:dialog:Away:sclick:30,40:{
  did -a $dname $iif($did == 30,40,30) $did($dname,$did).seltext
  set %network $did($dname,$did).seltext
  did -d $dname $iif($did == 30,30,40) $did($dname,$did).sel
  var %c = 1 
  while $scon(%c).network { 
    if ($v1 == %network) {
      if $did == 30 {
        .scon %c nick $+($me,|AFK) | away $$?="Away Message"
      }
      else {
        .scon %c nick $left($me,-4) | away
      }
      echo -a $iif($did == 30,Now,No longer) away on $scon(%c).network
      var %c = $scon(0)
    } 
    inc %c 
  }
}

Comments

(0) RSS

Go to Bottom

Simple away system for multiple networks

Introduction

Grab the Code

Comments

RusselB

My Snippet Tags

Contact

Friends (8)

Sponsors

		Sarnia, ON, Canada
Last seen: Oct 05, 2008 Profile Likes (1) Friends (8) Snippets (21) Images (2) Comments Received (203) Comments Submitted (100) Forum Posts (5436)