mIRC Home    About    Download    Register    News    Help

Print Thread
#57500 25/10/03 07:22 PM
Joined: Dec 2002
Posts: 397
A
ATMA Offline OP
Fjord artisan
OP Offline
Fjord artisan
A
Joined: Dec 2002
Posts: 397
ok i have been working on an away script all day i have every thing done except for the part that sets u to away (/away) :tongue: well i am having alot of trouble on how i should go by doing this any tips and poniters would be nice

thank you

Code:
dialog away {
  title Away Settings - Future Script %vr %beta
  size -1 -1 180 120
  option dbu
  box     "Defualt nick: ",               1,   5    5    104   24,
  edit     %away.defaultnick,             2,   7    13   100   10,   center,

  box     "Away nick: ",                  3,   5    30   104   24,
  edit     %away.awaynick,                4,   7    38   100   10,   center,

  box     "Away log/pager: ",             5,   110  5    65    49,
  check   "Enable away logging",          6,   115  12   57    10,
  check   "Enable away pager",            7,   115  20   57    10,

  box     "Miscellaneous",                8,   5    54   170   45,
  check   "Set away after",               9,   7    62   45    10,
  edit    %away.awayed,                  10,   53   62   20    10,   center,
  text    "minutes of idling",           11,   75   63   50    10,
  check   "Set away on all servers",     12,   7    72   65    10,
  check   "Set back on keydown",         13,   7    81   65    10,
  radio   "Message all channels",        14,   7    90   60    10,   group 1,
  radio   "Message active window",       15,   70   90   65    10,
  button  "Save settings",               16,   5    100  50    10,   ok,
  button  "Cancel",                      17,   126  100  50    10,   cancel,
}

on *:dialog:away:sclick:16: {
  if ($did($dname, 2) != $null) { set %away.defaultnick $did($dname, 2) }
  if ($did($dname, 4) != $null) { set %away.awaynick $did($dname, 4) }
  if ($did($dname, 6).state == 1) { set %away.logging 1 }
  elseif ($did($dname, 6).state == 0) { set %away.logging 0 }

  if ($did($dname, 7).state == 1) { set %away.pager 1 }
  elseif ($did($dname, 7).state == 0) { set %away.pager 0 }

  if ($did($dname, 9).state == 1) { set %away.awayafter 1 | set %away.awayed $did($dname, 10) }
  elseif ($did($dname, 9).state == 0) { set %away.awayafter 0 }

  if ($did($dname, 12).state == 1) { set %away.allservers 1 }
  elseif ($did($dname, 12).state == 0) { set %away.allservers 0 }

  if ($did($dname, 13).state == 1) { set %away.backkey 1 }
  elseif ($did($dname, 13).state == 0) { set %away.backkey 0 }

  ; all channels&servers
  if ($did($dname, 14).state == 1) { set %away.msgloc 1 }
  ; active window
  elseif ($did($dname, 15).state == 1) { set %away.msgloc 0 }
}

on *:dialog:away:init:*: {
  if (%away.logging == 1) { did -c $dname 6 }
  elseif (%away.logging == 0) { did -u $dname 6 }

  if (%away.pager == 1) { did -c $dname 7 }
  elseif (%away.pager == 0) { did -u $dname 7 }

  if (%away.awayafter == 1) { did -c $dname 9 }
  elseif (%away.awayafter == 0) { did -u $dname 9 }

  if (%away.allservers == 1) { did -c $dname 12 }
  elseif (%away.allservers == 0) { did -u $dname 12 }

  if (%away.backkey == 1) { did -c $dname 13 }
  elseif (%away.backkey == 0) { did -u $dname 13 }

  if (%away.msgloc == 1) { did -c $dname 14 }
  elseif (%away.msgloc == 0) { did -c $dname 15 }
}

alias setaway { dialog -m away away }

alias away {
  ; Must fill in
}


Need amazing web design for low price: http://www.matrixn3t.net
#57501 25/10/03 07:27 PM
Joined: Jan 2003
Posts: 3,012
Hoopy frood
Offline
Hoopy frood
Joined: Jan 2003
Posts: 3,012
alias away {
/scon -at1 /away <reason>
/scon -at1 /nick $me $+ |Away
; >:P
}


-KingTomato
#57502 25/10/03 07:27 PM
Joined: Dec 2002
Posts: 397
A
ATMA Offline OP
Fjord artisan
OP Offline
Fjord artisan
A
Joined: Dec 2002
Posts: 397
yea i know but i want to include those modes set in the part above....


Need amazing web design for low price: http://www.matrixn3t.net
#57503 25/10/03 09:48 PM
Joined: Dec 2002
Posts: 397
A
ATMA Offline OP
Fjord artisan
OP Offline
Fjord artisan
A
Joined: Dec 2002
Posts: 397
ok ok i have updated my thing and this is what i now i have for /away
Code:
alias away {
  if (%away.awaystat == 0) {
    set %away.awaystat 1) 
    if (%away.allservers == 1) {
      if (%away.msgloc == 1) { 
        /scon -at1 /ame is away beacuse " $+ %away.msg $+ " (Future Script %vr $+ %beta $+ )
        /scon -at1 /nick %away.awaynick
      }
    }
    elseif (%away.allservers == 0) {
      if (%away.msgloc == 0) { 
        /msg $active is away beacuse " $+ %away.msg $+ " (Future Script %vr $+ %beta $+ )
        /nick %away.awaynick
      }
    }
  }
  elseif (%away.awaystat == 1) {
    set %away.awaystat 1
    if (%away.allservers == 1) {
      if (%away.msgloc == 1) { 
        /scon -at1 /ame has returned from " $+ %away.msg $+ " (Future Script %vr $+ %beta $+ )
        /scon -at1 /nick %away.defaultnick
      }
    }
    elseif (%away.allservers == 0) {
      if (%away.msgloc == 0) { 
        /msg $active is away beacuse " $+ %away.msg $+ " (Future Script %vr $+ %beta $+ )
        /nick %away.defaultnick
      }
    }
  }
}


Need amazing web design for low price: http://www.matrixn3t.net

Link Copied to Clipboard