View

Away system v0.9c [BETA]

Rated:

Snippet Description: As sharing is caring, im going to share the latest version of my away system. Upgraded it alot, and it's rather advanced imo, so press the [?] buttons. (You need to download this: http://rapidshare.com/files/25616700/Away_system_v0.9c_BETA_.zip.html (As the script uload section doesnt work o.o))

;------------------------------------------------------------
;Away system v0.9c [BETA]
;By: Lindrian.
;Find me at irc.deltaanime.net @ #Lindrian or #L2forever
;Also join me at irc.ungowa.org @ #ungowa
;Enjoy!
;------------------------------------------------------------
;
; ####################### 
; ###~~~~ WARNING ~~~~###
; #######################
;
; DO NOT EDIT ANY OF THE CONTENT BELOW IF YOU ARE NOT 100% SURE OF WHAT YOU ARE DOING!
; ANY CHANGE DONE BELOW MIGHT CAUSE TROUBBLE WHEN TRYING TO USE THE SCRIPT!
;
;------------------------------------------------------------

;  ###########################################
;  ### ON START/UNLOAD/CONNECT/CTCP EVENTs ###
;  ###########################################

on *:START: {
  if ($version < 6.16) {
    echo -st 12You're using a version of mIRC that is incompatible with this script, you need version 6.16 or above.
    echo -st 12The script will now unload itself. Press Yes in the pop up that will appear.
    unload -rs $script
  }
  else {
    if (!$isfile(away_sys_reason.txt)) { write away_sys_reason.txt $me }
    filter -ffct 1 32 away_sys_reason.txt away_sys_reason.txt
    set %me $me
    if (!%notify_timer) { set %notify_timer 3600 }
    if (!%verbal_sys) { set %verbal_sys on }
    if (!%a_time) || (%a_time_2) { set %a_time 60 | set %a_time_2 3600 }
    if (!%y) { set %y 1 }
    toolbar -a Away_system_v0.9c "Away system v0.9c" mirc22.bmp "dialog -m away_sys away_sys"
    if (!$isfile(ipager.txt)) { .write pignore.txt }
    if (!$isfile(ipager.txt)) { .write pwords.txt }
    if (!$isfile(ipager.txt)) { .write exclude1.txt }
    if (!$isfile(ipager.txt)) { .write exclude2.txt }
    if (!$isfile(ipager.txt)) { .write away_sys_reason.txt }
  }
}

on *:LOAD: {
  beep 2 | var %y $input(Do you wish to open the dialog?,yv,Away system 0.9c)
  if (%y == $yes) {
    away_sys
    beep 2 | var %inform $input(Don't forget to set the script uo as you wish it work work in the settings tab!,o,Info - Away system) 
  }
}

on *:CONNECT: {
  .timer_checker 1 60 checker
}

on *:unload: { 
  unset %a.nick 
  unset %reason 
  unset %a_time
  unset %a_time_2
  unset %verbal_sys | unset %notify | unset %notify_timer
  .remove pignore.txt
  .remove pwords.txt
  .remove exclude1.txt
  .remove exclude2.txt
  .remove away_sys_reason.txt
  toolbar -r Away_system_v0.9c "Away system v0.9c" mirc22.bmp "dialog -m away_sys away_sys"
  echo -a Thanks for using my away script! I hope you enjoyed it!
}

ctcp &*:VERSION:*: { .ctcpreply $nick I am a proud user of 4Lindrian's away system v0.9c | halt }

#pager on
ctcp *:page:?:{
  if ($away) {
    if ($nick !isin $read(pignore.txt, n, 1)) {
      if ($read(pwords.txt, n, 1) isin $1-) { goto end }
      if (!$window(@Pages)) { window @Pages }
      write pages.txt Page from: $iif($ial($nick),$v1,$nick) $+ , at: $fulldate $+ , Saying: $strip($2-)
      aline -h @Pages Page from:4 $iif($ial($nick),$v1,$nick) $+  $+ , at: $fulldate $+ , Saying: $strip($2-)
      if (!%ap_flood. [ $+ [ $cid ] ]) { 
        .notice $nick Your page was recived and logged. Thanks! | beep 2 200
        haltdef
      }
    }
    elseif (!$away) {
      if (!%ap_flood. [ $+ [ $cid ] ]) { 
        .notice $nick Sorry, but I am not away! 
      }
    }
    set -u5 %ap_flood. $+ $cid 1
    set %paged $true
  }
  :end
  haltdef
}
#pager end

;  #############
;  ### MENUS ###
;  #############

menu status,channel {
  $iif($server == $null,$style(2)) Away system
  .$iif($Away,Come back,Go away): if ($away) { back } | else { away_2 }
  .$iif($me != %me,Back to default nick $+ $chr(58) $iif(%me != $null,%me,-None-),$style(2) Back to default nick $+ $chr(58) $iif(%me != $null,%me,-None-)): if ($me != %me) && (%me) { nick %me } | elseif ($me == %me) { echo -at  You're already using the nickname %me $+ ! } | elseif (!%me) { echo -at Theres no default nick set! }
  ..Quick away
  ..$submenu($quick($1))
  .-
  .$iif($Away,Currently away,Currently not away) - Open dialog: Dialog -m away_sys away_sys 
}

menu @away { 
  .Clear @Away: clear @away
  -
  .Close: close -@ @away
}

menu @reason_list { 
  .Clear @reason_list: clear @reason_list
  .Refresh: redo  
  -
  .Close: close -@ @reason_list
}

menu @Pages {
  .$iif(%paged == $true,Clear @Pages,$style(2) Clear @Pages): set %paged $flase | clear @pages
  .$iif($isfile(pages.txt),Clear file,$style(2) Clear file): if ($isfile(pages.txt)) { .remove pages.txt | clear @pages | set %paged $false }
  .$iif($isfile(pages.txt),Refresh,$style(2) Refresh): if ($isfile(pages.txt)) { clear @pages | loadbuf -@ @pages pages.txt | set %paged $true }
  .$iif($isfile(pages.txt),View file,$style(2) View file): run pages.txt
  -
  .Close: close -@ @Pages
}

;  ###############
;  ### ALIASES ###
;  ###############

alias query_check {
  .timer_query.* off
  var %a = $query(0)
  var %y = 0
  if (%query_msg == yes) {
    while (%a) {
      if ($istok(%query_msg_all,$query(%a),44)) { goto anext
        if (!%reason) { goto next }
        $+(.timer_query,.,$query(%a)) 1 %y if ($query( $+ %a $+ )) && (%reason) $chr(123) describe $query(%a) is now away. Reason: %reason - Time is now $time $chr(125) 
      }
      else { 
        :next
        $+(.timer_query,.,$query(%a)) 1 %y if ($query( $+ %a $+ )) $chr(123) describe $query(%a) is now away. Reason: No reason - Time is now $time $chr(125)
        inc %y 2
      }
      dec %a
    }
    :anext
  }
}

alias query_check_back {
  .timer_query_back.* off
  var %a = $query(0)
  var %y = 0
  if (%query_msg == yes) {
    while (%a) {
      if ($istok(%query_msg_all,$query(%a),44)) { goto anext
        if (!%reason) { goto next }
        $+(.timer_query_back,.,$query(%a)) 1 %y if ($query( $+ %a $+ )) && (%reason) $chr(123) describe $query(%a) is now back from: %reason $+ . I was away for: $duration($awaytime) - Time is now $time $chr(125)
      }
      else { 
        :next
        $+(.timer_query_back,.,$query(%a)) 1 %y if ($query( $+ %a $+ )) $chr(123) describe $query(%a) is now back from: No reason $+ . I was away for: $duration($awaytime) - Time is now $time $chr(125)
        inc %y 2
      }
      dec %a
    }
    :anext
  }
}

alias query_check_idle {
  .timer_query_idle.* off
  var %a = $query(0)
  var %y = 0
  if (%query_msg == yes) {
    while (%a) {
      if ($istok(%query_msg_all,$query(%a),44)) { goto anext
        if (!%reason) { goto next }
        $+(.timer_query_idle,.,$query(%a)) 1 %y if ($query( $+ %a $+ )) && (%reason) $chr(123) describe $query(%a) is now auto-away after $duration($calc(%a_time * 60)) idling - Time is now $time $chr(125)
      }
      else { 
        :next
        $+(.timer_query_idle,.,$query(%a)) 1 %y if ($query( $+ %a $+ )) $chr(123) describe $query(%a) is now auto-away after $duration($calc(%a_time * 60)) idling - Time is now $time $chr(125)
        inc %y 2
      }
      dec %a
    }
    :anext
  }
}

alias away_2 {
  if ($away) { beep 2 | var %error $input(You're already set as away!,o,Error - Away system) }
  else {
    var %away $input(Do you really wish to go away?,yv,Confirm - Away system)
    if (%away == $yes) {
      if (!%reason) {
        away No reason.
        if (%a.nick) { nick %a.nick }
        if (%deop_Self == on) { scon -a Deop_all_chans }
        if (%query_msg == Yes) { query_check }
        if (%msg_all_away == Yes) { .timer_msg_all 0 %notify_timer scon -a ame is away. Reason: No reason - Time is now $time }
        if (%verbal_sys == on) { 
          var %x = 1
          while (%x <= $scon(0)) {
            scon %x
            if ($network !isin $read(exclude1.txt, n, 1)) {
              var %y = 1
              while (%y <= $chan(0)) {
                if ($chan(%y) !isin $read(exclude2.txt,w,$+(*,$chan(%y),*))) {
                  describe $chan(%y) is now away. Reason: No reason - Time is now $time 
                }
                inc %y
              }
            }
            inc %x
          }
        }
      }
    }
    if (%a.nick) { nick %a.nick }
    if (%deop_Self == on) { scon -a Deop_all_chans }
    if (%query_msg == Yes) { query_check }
    if (%msg_all == Yes) { .timer_msg_all 0 %notify_timer inform }
    elseif (%reason) {
      away %reason
      if (%verbal_sys == on) { 
        var %x = 1
        while (%x <= $scon(0)) {
          scon %x
          if ($network !isin $read(exclude1.txt, n, 1)) {
            var %y = 1
            while (%y <= $chan(0)) {
              if ($chan(%y) !isin $read(exclude2.txt,w,$+(*,$chan(%y),*))) {
                describe $chan(%y) is now away. Reason: %reason - Time is now $time 
              }
              inc %y
            }
          }
          inc %x
        }
      }
    }
  }
}

alias inform {
  if (%reason) {
    var %x = 1
    while (%x <= $scon(0)) {
      scon %x
      if ($network !isin $read(exclude1.txt, n, 1)) {
        var %y = 1
        while (%y <= $chan(0)) {
          if ($chan(%y) !isin $read(exclude2.txt,w,$+(*,$chan(%y),*))) {
            describe $chan(%y) is now away. Reason: %reason - Time is now $time 
          }
          inc %y
        }
      }
      inc %x
    }
  }
  else {
    var %x = 1
    while (%x <= $scon(0)) {
      scon %x
      if ($network !isin $read(exclude1.txt, n, 1)) {
        var %y = 1
        while (%y <= $chan(0)) {
          if ($chan(%y) !isin $read(exclude2.txt,w,$+(*,$chan(%y),*))) {
            describe $chan(%y) is now away. Reason: No reason - Time is now $time 
          }
          inc %y
        }
      }
      inc %x
    }
  }
}

alias away_3 {
  set % $+ reason $read(away_sys_reason.txt,$1)
  away_2
}

alias -l quick {
  if $1 isnum {
    return $read(away_sys_reason.txt,$1) : away_3 $1
  }
}

alias checker {
  var %o = 0
  if ($chan(0) == 0) {
    beep 6 | var %mr $input(You are currently NOT in any channels which may cause troubble when you use the away system! Beware! $chr(10) $+ (This is a one time warning only),o,Error - Away system)
  }
}

alias deop_all_chans {
  var %x = 0
  while ($chan(%x)) {
    if ($me isop $v1) { mode $v2 -o $me }
    inc %x
  }
}

alias a_idle_check {
  if ($away) { halt }
  elseif ($idle > %a_time_2) {
    set %a_away_yes $true
    if (!%reason) {
      away No reason.
      if (%a.nick) { nick %a.nick }
      if (%deop_Self == on) { scon -a Deop_all_chans }
      if (%msg_all == Yes) { .timer_msg_all 0 %notify_timer inform }
      if (%query_msg == Yes) { query_check_idle }
      if (%verbal_sys == on) { 
        var %x = 1
        while (%x <= $scon(0)) {
          scon %x
          if ($network !isin $read(exclude1.txt, n, 1)) {
            var %y = 1
            while (%y <= $chan(0)) {
              if ($chan(%y) !isin $read(exclude2.txt,w,$+(*,$chan(%y),*))) {
                describe $chan(%y) is now away. Reason: %reason - Time is now $time 
              }
              inc %y
            }
          }
          inc %x
        }
      }
    }
    elseif (%reason) {
      away %reason
      if (%msg_all == Yes) { .timer_msg_all 0 %notify_timer inform }
      if (%a.nick) { nick %a.nick }
      if (%deop_Self == on) { scon -a Deop_all_chans }
      if (%query_msg == Yes) { query_check_idle }
      if (%verbal_sys == on) { 
        var %x = 1
        while (%x <= $scon(0)) {
          scon %x
          if ($network !isin $read(exclude1.txt, n, 1)) {
            var %y = 1
            while (%y <= $chan(0)) {
              if ($chan(%y) !isin $read(exclude2.txt,w,$+(*,$chan(%y),*))) {
                describe $chan(%y) is now away. Reason: %reason - Time is now $time 
              }
              inc %y
            }
          }
          inc %x
        }
      }
    }
  }
}

alias redo {
  clear @reason_list
  :redo
  if ($lines(away_sys_reason.txt) < %b) { 
    ;beep 2 
    unset %b 
    if (!$window(@reason_list)) { window @reason_list }
    aline @reason_list End of file. 
    halt 
  }
  else {
    if !%b { set %b 1 }
    var %reason = $read(away_sys_reason.txt, n, %b)
    if ($lines($read(away_sys_reason.txt,1)) < %b) { 
      if (!$window(@reason_list)) { window @reason_list }
      aline @reason_list $+($chr(35),%b,:) %reason
      inc %b
      goto redo
    }
  }
}

alias redo_for_add_rem {
  if ($window(@reason_list)) {
    clear @reason_list
    :redo
    if ($lines(away_sys_reason.txt) < %b) { 
      ;beep 2 
      unset %b 
      aline @reason_list End of file. 
      halt 
    }
    else {
      if !%b { set %b 1 }
      var %reason = $read(away_sys_reason.txt, n, %b)
      if ($lines($read(away_sys_reason.txt,1)) < %b) { 
        aline @reason_list $+($chr(35),%b,:) %reason
        inc %b
        goto redo
      }
    }
  }
}

alias pager { dialog -m pager pager }

alias exclude { dialog -m a_send a_send }

alias away_sys { dialog -m away_sys away_sys }

alias awaytime { return $+($remove($shortdur($calc($ctime - %away.set. [ $+ [ $cid ] ] )).nosec,$chr(32))) }

alias back {
  if (!$away) { beep 2 | var %error $input(You're not marked as being away!,o,Error - Away system) }
  elseif (%reason) { 
    away 
    if (%query_msg == Yes) { query_check_back }
    if ($timer(_a_idle_check)) { .timer_a_idle_check off }
    if ($timer(_msg_all)) { .timer_msg_all off }
    set %a_away_yes $false
    .timer_msg_all off
    if (%verbal_sys == on) { 
      var %x = 1
      while (%x <= $scon(0)) {
        scon %x
        if ($network !isin $read(exclude1.txt, n, 1)) {
          var %y = 1
          while (%y <= $chan(0)) {
            if ($chan(%y) !isin $read(exclude2.txt,w,$chan(%y))) {
              describe $chan(%y) is now back from: %reason I was away for $duration($awaytime) - Time is now $time
            }
            inc %y
          }
        }
        inc %x
      }
    }
  }
  else { 
    away 
    if (%query_msg == Yes) { query_check_back }
    if ($timer(_a_idle_check)) { .timer_a_idle_check off }
    if ($timer(_msg_all)) { .timer_msg_all off }
    set %a_away_yes $false
    .timer_msg_all off
    if (%verbal_sys == on) { 
      var %x = 1
      while (%x <= $scon(0)) {
        scon %x
        if ($network !isin $read(exclude1.txt, n, 1)) {
          var %y = 1
          while (%y <= $chan(0)) {
            if ($chan(%y) !isin $read(exclude2.txt,w,$+(*,$chan(%y),*))) {
              describe $chan(%y) is now back from: No reason. I was away for $duration($awaytime) - Time is now $time
            }
            inc %y
          }
        }
        inc %x
      }
    }
  }
}

;  ###############
;  ### DIALOGS ###
;  ###############

dialog away_sys {
  Title "Away system v0.9c [/away_sys]"
  Size -1 -1 300 335
  Tab "&Information", 1, 0 10 300 400
  icon 90, 10 45 370 64, $mircdiricon.jpg, tab 1
  tab "&Auto-away on idle", 40
  Tab "&Settings - Part 1", 2
  Tab "&Settings - Part 2", 60
  icon 91, 15 55 380 175, $mircdiricon0.jpg, tab 60
  icon 92, 15 55 450 65, $mircdiricon3.jpg, tab 40
  icon 93, 15 55 450 450, $mircdiricon5.jpg, tab 40
  Text "&Please, do not 'modify' this code and call it yours!", 3, 20 130 200 50,  tab 1, disabled
  Text "&Away system v0.9c By Lindrian.", 4, 20 110 160 20, tab 1, disabled
  Box "&Status", 5, 10 160 280 170 , tab 1
  text � &Away nick:, 6, 25 180 250 15, tab 1
  Text � &Default nick:, 7, 25 200 200 15, tab 1
  Text � &Last used reason:, 8, 25 220 250 15, tab 1
  Button "&Advertise", 9, 25 280 100 25, tab 1 
  Button "&Set away", 10, 10 50 100 25, tab 1
  Button "&Set Back", 11, 10 80 100 25, tab 1
  Button "?", 12, 270 48 25 25 25, tab 1
  Button "?", 13, 270 78 25 25 25, tab 1
  Button "?", 14, 255 280 25 25 25, tab 1
  Button "?", 15, 255 170 25 25 25, tab 1
  List  17, 15 70 170 140,  tab 2
  Button "&Add reason", 18, 200 70 70 25, tab 2
  Button "&Edit Reason", 19, 200 100 70 25, tab 2
  Button "&Rem. Reason", 20, 200 130 70 25, tab 2
  Box "&Away present:", 21, 5 40 290 180, tab 2
  Button "?", 22, 245 190 25 25 25, tab 2
  Box "&Settings:", 23, 5 225 290 105, tab 2
  Text &Reason:, 24, 20 245 250 25, tab 2
  Edit %reason , 25, 70 240 160 25, tab 2
  Button "?", 26, 245 240 25 25, tab 2
  Text &Away nick:, 27, 20 274 250 25, tab 2
  Edit %a.nick , 28, 80 271 150 25, tab 2
  Button "?", 29, 245 271 25 25 25, tab 2
  Button "&Clear list", 30, 200 160 70 25 25, tab 2
  ;Button &Close, 31, 215 300 70 25, tab 2, cancel
  Button "&Save", 32, 15 300 70 25, tab 2
  Text � &Away:, 33, 25 240 250 15, tab 1
  Button "Change", 34, 230 198 50 18, tab 1
  Text � &Auto-away on idle: %a_o_idle , 53, 25 260 180 15, tab 1

menu "&File", 35

item "&View reason list", 36, 35

item "&View pages", 120

item "&Exclusion centre", 110

Item "&Pager", 130

item "&Help", 39, 35

item "&Credits", 37, 35

item "&Close", 38, 35, ok

box "&Auto system current settings:", 41, 10 40 280 110, tab 40 
  Text � &Away:, 42, 25 60 60 15, tab 40
  text � &Away nick:, 43, 25 80 180 15, tab 40
  Text � &Default nick:, 44, 25 100 180 15, tab 40
  Text � &Last used reason:, 45, 25 120 250 15, tab 40
  Text "�����������������������������������������", 46, 15 160 270 15,  tab 40 disabled
  Box "&Auto-away on idle settings:", 47, 10 180 280 150, tab 40
  Text � &Auto away after:, 48, 25 240 100 25, tab 40
  Edit $calc(%a_time / 60), 49, 125 236 30 20, tab 40
  Text min(s), 80, 160 240 30 25, tab 40
  Check &Auto-away: %a_o_idle , 50, 35 200 100 25, tab 40
  ;Button "&Close", 51, 205 285 70 25, cancel, tab 40
  Button &Save, 52, 25 285 70 25, tab 40
  Button "?", 54, 250 200 25 25, tab 40
  box "&Settings", 62, 10 40 280 290, tab 60
  Check "&Notify all channels every:", 61, 25 80 140 20, tab 60
  Edit %notify , 63, 170 80 30 20, tab 60
  Text "min(s)", 74, 210 83 50 20, tab 60
  Check "&Cancel away on key press", 64, 25 110 150 20, tab 60
  Check "&Deop myself on away", 65, 25 140 150 20, tab 60
  Button "?", 66, 250 80 25 25, tab 60
  Button "?", 67, 250 110 25 25, tab 60
  Button "?", 68, 250 140 25 25, tab 60
  Check "&Use away messages", 69, 25 170 170 20, tab 60
  Button "?", 70, 250 170 25 25, tab 60
  ;Text "He who laughs last thinks slowest!", 71, 25 240 250 25, tab 60, disabled
  ;Text "Smile, it makes people wonder what you are thinking..", 75, 25 255 250 30,tab 60, disabled
  ;Text "I bought some powdered water, but I don't know what to add.",76, 25 270 250 30, tab 60, disabled
  ;Text "If everything seems to be going well, you have obviously overlooked something.", 77, 25 298 250 30, tab 60, disabled
  Button "&Close", 72, 205 290 70 25, cancel, tab 60
  Button "&Save", 73, 25 290 70 25, tab 60
  Check "&Message open queries my away state", 82, 25 200 200 20, tab 60
  Button "?", 83, 250 200 25 25, tab 60
  Button "&Exclusion centre", 85, 25 235 120 20, tab 60
  Button "?", 86, 250 230 25 25, tab 60
  Button &Logging $group(#logs), 87, 25 260 100 20, tab 60
  Button &Open pager, 88, 175 260 100 20, tab 60
}

dialog a_send {
  title "Exclude [/exclude]"
  size -l -l 150 200
  tab "&Network", 6, 0 0 150 200
  tab "&Channels", 7
  tab "&Queries", 8

list 1, 10 50 130 145, tab 6

Button "&Add", 2, 10 30 30 15, tab 6
  Button "&Del", 3, 45 30 30 15, tab 6
  Button "Cle&ar", 4, 80 30 40 15, tab 6
  Text "&Network Exclution", 5, 30 175 90 15, tab 6
  Button "?", 9, 130 30 15 15, tab 6

Button "&Add", 10, 10 30 30 15, tab 7
  Button "&Del", 11, 45 30 30 15, tab 7
  Button "Cle&ar", 12, 80 30 40 15, tab 7
  Button "?", 13, 130 30 15 15, tab 7
  Text "&Channel Exclution", 14, 30 175 90 15, tab 7
  list 21, 10 50 130 145, tab 7

Button "&Add", 15, 10 30 30 15, tab 8
  Button "&Del", 16, 45 30 30 15, tab 8
  Button "Cle&ar", 17, 80 30 40 15, tab 8
  Button "?", 18, 130 30 15 15, tab 8
  Text "&Query Exclution", 19, 30 175 90 15, tab 8
  list 20, 10 50 130 145, tab 8
}

on *:DIALOG:a_send:*:*: {
  if ($devent == init) {
    if ($server == $null) { beep 2 | var %error $input(You are not connected to any network/server!,o,Warning - Away system) }
    if ($isfile(exclude1.txt)) { loadbuf -o $dname 1 exclude1.txt }
    if ($isfile(exclude2.txt)) { loadbuf -o $dname 21 exclude2.txt }
    didtok $dname 20 32 %query_msg_all
  }
  if ($devent == sclick) {
    if ($did == 2) {
      var %network $?="Network to add into the list:"
      if (%network) && (%network !isin $didtok($dname,1,32)) {
        .did -a $dname 1 %network
        .write exclude1.txt %network
      }
      else {
        beep 2 | var %error $input(No network was given or %network is already in the list. Please retry.,o,Error - Away system)
      }
    }
    elseif ($did == 3) {
      if ($did(1).sel) { 
        write $+(-dl,$did(3).sel) exclude1.txt
        did -r $dname 1
        loadbuf -o $dname 1 exclude1.txt
      }
      else { 
        beep 2 | var %error $input(No network was selected. Please retry.,o,Error - Away system) 
      }
    }
    elseif ($did == 4) {
      var %clear_chk $input(Do you really wish to clear your exclusion list?,vyn,Clear - Away system)
      if (%clear_chk == $yes) { 
        if (!$isfile(exclude1.txt)) { beep 2 | var %error $input(The file does not excist $+ $chr(44) or it's already removed!,o,Error - Away system) }
        else {
          did -r $dname 1
          .remove exclude1.txt
        }
      }
    }
    elseif ($did == 9) {
      beep 1 | var %info.? $input(This is a exclusion system for networks $+ $chr(44) which will only prevent the main away message from being shown at the specefied networks. Make sure you're using the NETWORK name $+ $chr(44) and not server. I.e "DaIRC". (//echo -a $ $+ network),o,Info - Away system)
    }
    elseif ($did == 13) {
      beep 1 | var %info.? $input(This is the section to prevent the message from being sent to channels $+ $chr(44) make sure you are including the # in #channel $+ $chr(44) I.e #Lindrian.,o,Info - Away system)
    }
    elseif ($did == 18) {
      beep 1 | var %info.? $input(This is the section to add specefic users to the exclusion list $+ $chr(44) so if you have their query open $+ $chr(44) they won't recive a message!,o,Info - Away system)
    }
    if ($did == 10) {
      var %channel $?="Channel to add into the list:"
      if (%channel) && (%channel !isin $didtok($dname,21,32)) {
        if ($left(%channel,1) != $chr(35)) { 
          beep 2 | var %error $input(You did not provide a correct channel! (Make sure you use the # infront of #channel).,o,Info - Away system)
          halt
        }
        .did -a $dname 21 %channel
        .write exclude2.txt %channel
        else {
          beep 2 | var %error $input(No channel was given or the channel is already in the list. Please retry.,o,Error - Away system)
        }
      }
    }
    elseif ($did == 11) {
      if ($did(21).sel) { 
        write $+(-dl,$did(11).sel) exclude2.txt
        did -r $dname 21
        loadbuf -o $dname 21 exclude2.txt
      }
      else { 
        beep 2 | var %error $input(No channel was selected. Please retry.,o,Error - Away system) 
      }
    }
    elseif ($did == 12) {
      var %clear_chk $input(Do you really wish to clear your exclusion list?,vyn,Clear - Away system)
      if (%clear_chk == $yes) { 
        if (!$isfile(exclude2.txt)) { beep 2 | var %error $input(The file does not excist $+ $chr(44) or it's already removed!,o,Error - Away system) }
        else {
          did -r $dname 21
          .remove exclude2.txt
        }
      }
    }
    elseif ($did == 15) {
      var %query $?="User to add into the list:"
      if (%query) && (%query !isin $didtok($dname,20,32)) {
        .did -a $dname 20 %query
        set %query_msg_all $addtok(%query_msg_all,%query,32)
      }
      else {
        beep 2 | var %error $input(No user was given or the user is already in the list. Please retry.,o,Error - Away system)
      }
    }
    elseif ($did == 16) {
      if ($did(20).sel) { 
        set %query_msg_all $deltok(%query_msg_all,$did(20).sel,32)
        did -r $dname 20
        didtok $dname 20 32 %query_msg_all
      }
      else { 
        beep 2 | var %error $input(No user was selected. Please retry.,o,Error - Away system) 
      }
    }
    elseif ($did == 17) {
      var %clear_chk $input(Do you really wish to clear your exclusion list?,vyn,Clear - Away system)
      if (%clear_chk == $yes) { 
        if (!%query_msg_all) { beep 2 | var %error $input(The list is already emptied!,o,Error - Away system) }
        else {
          did -r $dname 20
          unset %query_msg_all
        }
      }
    }
  }
}

on *:dialog:away_sys:*:*:{
  if ($devent == init) {
    if ($server == $null) { beep 2 | var %error $input(You are not connected to any network/server!,o,Warning - Away system) }
    if ($isfile(away_sys_reason.txt)) { loadbuf -o $dname 17 away_sys_reason.txt }
    did -ra $dname 7,44 � &Default nick: $iif(%me,%me,-None-)
    did -ra $dname 25,45 %reason
    did -ra $dname 33,42 � Away: $iif($away,Yes,No)
    did -ra $dname 49 %a_time
    if ($away) { did -b $dname 10 | did -e $dname 11 }
    elseif (!$away) { did -e $dname 10 | did -b $dname 11 }
    if (%reason) { did -ra $dname 8,45 � Last used reason: %reason }
    else { did -ra $dname 8,45 � Last used reason: -None- }
    if (%a.nick) { did -ra $dname 6,43 � Away nick: %a.nick }
    else { did -ra $dname 6,43 � Away nick: -None- }
    if (%a_o_idle) { did -e $dname 49 }
    else { did -b $dname 49 }
    if (!%a_o_idle) { did -ra $dname 53 � &Auto-away on idle: Off }
    else { did -ra $dname 53 � &Auto-away on idle: On }
    if (!%a_o_idle) { did -ra $dname 50 Auto-away: Off | did -u $dname 50 }
    else { did -ra $dname 50 Auto-away: On | did -c $dname 50 }
    if (%msg_all_away == No) { did -u $dname 61 | did -b $dname 63 }
    else { did -c $dname 61 | did -e $dname 63 }
    if (%back_on_msg == Off) { did -u $dname 64 }
    else { did -c $dname 64 }
    if (%deop_self == Off) { did -u $dname 65 }
    else { did -c $dname 65 }
    if (%verbal_sys == Off) { did -u $dname 69 }
    else { did -c $dname 69 }
    if (%query_msg == Yes) { did -c $dname 82 }
    else { did -u $dname 82 }
  }
  if ($devent == menu) {
    if ($did == 110) {
      if (!$dialog(a_send)) {
        beep 2 | exclude
      }
      else {
        beep 2 | var %error $input(The dialog is already open!,o,Error - Away system)
      }
    }
    elseif ($did == 130) {
      if (!$dialog(pager)) {
        beep 2 | pager
      }
      else {
        beep 2 | var %error $input(The dialog is already open!,o,Error - Away system)
      }
    }
    elseif ($did == 120) {
      if ($isfile(pages.txt)) || ($lines(pages.txt) < 0) { beep 2 | var %error $input(There are no current saved pages.,o,Error - Away system) }
      if (!$window(@pages)) { window @pages }
      clear @pages
      loadbuf -@ @pages pages.txt
    }
    elseif ($did == 37) { 
      beep 2 | var %credits $input(Scripted by Lindrian - Away system v0.9c! Share it with your friends. $crlf $+ Please do not ripp or modify this script without my permission first.,o,Credits - Away system)
    }
    elseif ($did == 36) {
      if (!$isfile(away_sys_reason.txt)) { beep 2 | var %error $input(The file does not exist! Plrease retry.,o,Error - Away system) }
      elseif ($window(@reason_list)) { beep 2 | var %error $input(The window is already open $+ $chr(44) right click it and press "Refresh" to get a fresh list.,o,Error - Away system) }
      elseif ($lines(away_sys_reason.txt) < 1) { beep 2 | var %error $input(The current reason list is empty! Please input a few reasons to be able to use this function!,o,Error - Away system) } 
      else {
        :redo
        if ($lines(away_sys_reason.txt) < %b) { 
          beep 2 
          unset %b 
          if (!$window(@reason_list)) { window @reason_list }
          aline @reason_list End of file 
          halt 
        }
        else {
          if !%b { set %b 1 }
          var %reason = $read(away_sys_reason.txt, n, %b)
          if ($lines($read(away_sys_reason.txt,1)) < %b) { 
            if (!$window(@reason_list)) { window @reason_list }
            aline @reason_list $+($chr(35),%b,:) %reason
            inc %b
            goto redo
          } 
        }
      }
    }
    elseif ($did == 39) {
      beep 2 | var %help $input(Most of the help needed can be found by clicking the [?] buttons. The rest is pretty self explanatory.,o,Info - Away system)
    }
  }
  elseif ($devent == sclick) {
    if ($did == 9) {
      if ($active ischan) {
        msg $active I am using 4Lindrian's away system v0.9c!
      }
      else {
        beep 2 | var %error $input(You can only advertise in a channel!,o, Error - Away system)
      }
    }
    if ($did == 26) { 
      beep 1 | var %info.? $input(This is the field where you input the reason you wish to use for being away. Leave it empty for no reason.,o, Info - Away system)
    }
    elseif ($did == 29) {
      beep 1 | var %info.? $input(This is the field where you input the nickname you wish to use when your away. Leave it empty if u wish to use your regular one. Which will be $+ $iif(%me,$+($chr(58) %me),$chr(58) $+ -None-) ,o, Info - Away system)
    }
    elseif ($did == 22) {
      beep 1 | var %info.? $input(This is the part where you $+(add,$chr(44),$chr(32),remove,$chr(44),$chr(32),edit) and clear your away reasons.,o, Info - Away system)
    }
    elseif ($did == 14) {
      beep 1 | var %info.? $input(This is the button to advertise in channels only. $crlf (Will not work in other windows).,o, Info - Away system)
    }
    elseif ($did == 13) {
      beep 1 | var %info.? $input(This is the button you click to set yourself as back.,o, Info - Away system)
    }
    elseif ($did == 12) {
      beep 1 | var %info.? $input(This is the button you click to set yourself as away.,o, Info - Away system)
    }
    elseif ($did == 15) {
      beep 1 | var %info.? $input(This is just a status window $+ $chr(44) so you can keep track of what you've done.,o, Info - Away system)
    }
    elseif ($did == 54) {
      beep 1 | var %info.? $input(This is the option to activate/deactivate the auto-away on idle system.,o,Info - Away system)
    }
    elseif ($did == 66) {
      beep 1 | var %info.? $input(This is the function to disable/enable and set the time to reminds users of your away state!,o,Info - Away system)
    }
    elseif ($did == 67) {
      beep 1 | var %info.? $input(This is the check box to choose if you like to set yourself on back on inputs.,o,Info - Away system)
    }
    elseif ($did == 68) {
      beep 1 | var %info.? $input(This is a function to check if your OP in any of the channels and DEOP you when going away.,o,Info - Away system)
    }
    elseif ($did == 70) {
      beep 1 | var %info.? $input(This is a function where you can choose to send 'away messages' to the channels or not.,o,Info - Away system)
    }
    elseif ($did == 83) {
      beep 1 | var %info.? $input(This is the function where you're able to choose whenever to send a away message to your open queries or not.,o,Info - Away system)
    }
    elseif ($did == 86) {
      beep 1 | var %info.? $input(This is a function to exclude certain networks $+ $chr(44) channels and queries from the message list. $chr(10) $+ Click the button to the left and a seperate dialog will pop up $chr(10) $+ Where you can add $chr(44) remove and clear your exclusion list.,o,Info - Away system)
    }
    if ($did == 10) {
      if ($away) { var %error $input(You're already set as away!,o,Error - Away system) }
      else {
        var %away $input(Do you really wish to go away?,yv,Confirm - Away system)
        if (%away = $yes) {
          if (!%reason) {
            away No reason.
            did -b $dname 10 | did -e $dname 11
            did -ra $dname 33,42 � Away: $iif($away,No,Yes)
            if (%a.nick) { nick %a.nick }
            if (%deop_Self == on) { scon -a Deop_all_chans }
            if (%query_msg == Yes) { query_check_back }
            if (%msg_all_away == Yes) { .timer_msg_all 0 %notify_timer inform }
            if (%verbal_sys == on) { 
              var %x = 1
              while (%x <= $scon(0)) {
                scon %x
                if ($network !isin $read(exclude1.txt, n, 1)) {
                  var %y = 1
                  while (%y <= $chan(0)) {
                    if ($chan(%y) !isin $read(exclude2.txt, n, 1)) {
                      describe $chan(%y) is now away. Reason: No reason - Time is now $time 
                    }
                    inc %y
                  }
                }
                inc %x
              }
            }
          }
          elseif (%reason) {
            away %reason
            did -b $dname 10 | did -e $dname 11
            did -ra $dname 33,42 � Away: $iif($away,No,Yes)
            if (%deop_Self == on) { scon -a Deop_all_chans }
            if (%a.nick) { nick %a.nick }
            if (%query_msg == Yes) { query_check }
            if (%msg_all_away == Yes) { .timer_msg_all 0 %notify_timer inform }
            if (%verbal_sys == on) { 
              var %x = 1
              while (%x <= $scon(0)) {
                scon %x
                if ($network !isin $read(exclude1.txt, n, 1)) {
                  var %y = 1
                  while (%y <= $chan(0)) {
                    if ($chan(%y) !isin $read(exclude2.txt,w,$+(*,$chan(%y),*))) {
                      describe $chan(%y) is now away. Reason: %reason - Time is now $time 
                    }
                    inc %y
                  }
                }
                inc %x
              }
            }
          }
        }
      }
    }
    if ($did == 11) {
      if (!$away) { beep 2 | var %error $input(You're not marked as being away!,o,Error - Away system) }
      else {
        var %back $input(Do you really wish to set yourself as back?,yv,Confirm - Away system)
        if (%back == $yes) {
          if (%reason) {
            away
            did -b $dname 11
            did -e $dname 10
            if (%reop_self == on) { reop_all_chans }
            if ($me == %a.nick) { nick %me }
            did -ra $dname 33,42 � Away: $iif($away,No,Yes)
            if ($timer(_a_idle_check)) { .timer_a_idle_check off }
            .timer_msg_all off 
            if (%query_msg == Yes) { query_check_back }
            if (%verbal_sys == on) { 
              var %x = 1
              while (%x <= $scon(0)) {
                scon %x
                if ($network !isin $read(exclude1.txt, n, 1)) {
                  var %y = 1
                  while (%y <= $chan(0)) {
                    if ($chan(%y) !isin $read(exclude2.txt,w,$+(*,$chan(%y),*))) {
                      describe $chan(%y) is now back from: %reason I was away for $duration($awaytime) - Time is now $time
                    }
                    inc %y
                  }
                }
                inc %x
              }
            }
          }
          else { 
            away
            did -b $dname 11
            did -e $dname 10
            if (%reop_self == on) { reop_all_chans }
            if ($me == %a.nick) { nick %me }
            did -ra $dname 33,42 � Away: $iif($away,No,Yes)
            if ($timer(_a_idle_check)) { .timer_a_idle_check off }
            .timer_msg_all off 
            if (%query_msg == Yes) { query_check_back }
            if (%verbal_sys == on) { 
              var %x = 1
              while (%x <= $scon(0)) {
                scon %x
                if ($network !isin $read(exclude1.txt, n, 1)) {
                  var %y = 1
                  while (%y <= $chan(0)) {
                    if ($chan(%y) !isin $read(exclude2.txt,w,$+(*,$chan(%y),*))) {
                      describe $chan(%y) is now back from: No reason. I was away for $duration($awaytime) - Time is now $time
                    }
                    inc %y
                  }
                }
                inc %x
              }
            }
          }
        }
      }
    }
    elseif ($did == 18) {
      var %reason_add $?="Reason to add into the list:"
      if (%reason_add) && (%reason_add !isin $didtok($dname,17,32)) {
        .did -a $dname 17 %reason_add
        .write away_sys_reason.txt %reason_add
        redo_for_add_rem 
        ;beep 2 | var %success $input(Successfully loaded the reason list into the window,o,Success - Away system)
      }
      else {
        beep 2 | var %error $input(No reason was given or %reason_add is already in the list. Please retry.,o,Error - Away system)
      }
    }
    elseif ($did == 20) {
      if ($did(17).sel) { 
        ;did -r $dname 17 $did(17).sel
        write -dl $did(17).sel away_sys_reason.txt
        did -r $dname 25,17
        did -ra $dname 8,45 � Last used reason: -None-
        unset %reason
        redo_for_add_rem 
        loadbuf -o $dname 17 away_sys_reason.txt
      }
      else { 
        beep 2 | var %error $input(No reason was selected. Please retry.,o,Error - Away system) 
      }
    }
    elseif ($did == 19) {
      if (!$did(17).sel) { beep 2 | var %error $input(You did not input anything to edit!,o, Error - Away system) }
      if ($did(17).sel) {
        ;set %old $read(away_sys_reason.txt,$did(17).sel)
        set %old $did(17).sel
        set %reason_temp $$input(What do you wish to replace $read(away_sys_reason.txt,$did(17).sel) with?,test,test2,Edit - Away system, $read(away_sys_reason.txt,$did(17).sel))
        if (%reason_temp) && (%reason_temp !isin $didtok($dname,17,32)) {
          .write $+(-dl,$did(17).sel) away_sys_reason.txt %old
          .write away_sys_reason.txt %reason_temp
          did -ac $dname 17 %reason_temp
          did -o $dname 17 %old
          did -r $dname 17
          did -r $dname 25
          loadbuf -o $dname 17 away_sys_reason.txt
          redo_for_add_rem
          ;beep 2 | var %success $input(The reason was changed from " $+ %old $+ " to " $+ %reason_temp $+ ",o,Success - Away system)
          unset %reason_temp
          unset %old
        }
        else {
          beep 2 | var %error $input(You did not choose/input anything to edit $+ $chr(44) or you've input the same thing as you had previously!,o,Error - Away system)
        }
      }
    }
    elseif ($did == 17) {
      if ($did(17).sel) {
        set %reason $read(away_sys_reason.txt,$did(17).sel)
        did -ra $dname 8,45 � Last used reason: %reason
        did -ra $dname 25 %reason
        did -ra $dname 45 � Last used reason: %reason 
        unset %reason
      }
    }
    elseif ($did == 52) {
      if (%a_o_idle != On) { beep 2 | var %error $input(The 'Auto-away on idle' system is turned off! The feature is now disabled.,o,Info - Away system) | unset %a_time | unset %a_o_idle | unset %a_time_2 | goto change | halt }
      elseif ($did(49) !isnum) { beep 2 | var %error $input(You did not input a number in the edit box! Please retry.,o,Error - Away system) }
      else {
        if ($did(49) isnum) {
          beep 2 | var %confirm $input(Do you really wish to use theese settings?,yv,Confirm - Away system)
          if (%confirm == $yes) {
            unset %a_time
            set %a_time $did(49)
            if (!%a_o_idle) { did -ra $dname 50 Auto-away: Off | did -m $dname 50 }
            else { did -ra $dname 50 Auto-away: On | did -n $dname 50 }
            did -ra $dname 53 � &Auto-away on idle: %a_o_idle
            set %a_time_2 $calc(%a_time * 60)
            if (!$timer(_a_check)) { .timer_a_check 0 1 a_idle_check } 
            :change
          }
        }
      }
    }
    elseif ($did == 73) { 
      beep 2 | var %rly $input(Are you sure you wish to use theese settings?,yv,Confirm - Away system)
      if (%rly == $yes) {
        set %notify $did(63)
        set %notify_timer $calc(%notify * 60)
        if (5 > %notify) && (%msg_all_away == yes) { beep 2 | var %w $input(You have unput a very low number notification number $+ $chr(44) which may cause spam! Please reconsider!,o,Warning - Away system) }
        .did -ra $dname 63 %notify
        beep 2 | var %success $input(Successfully saved your settings!,o,Info - Away system)
        did -ra $dname 72 Ok
        if ($did(away_sys,65).state != 0) { unset %deop_self | set %deop_self On }
        else { unset %deop_self | set %deop_self Off }
        if ($did(away_sys,61).state != 0) { 
          did -e $dname 63
          unset %msg_all_away | set %msg_all_away Yes
        }
        else { 
          unset %msg_all_away | set %msg_all_away No
          if ($timer(_msg_all)) { .timer_msg_all off }
          did -b $dname 63
        }
        if ($did(away_sys,82).state != 0) { unset %query_msg | set %query_msg Yes } 
        else { unset %query_msg }
        if ($did(away_sys,64).state != 0) { unset %back_on_msg | set %back_on_msg On | .enable #b_away }
        else { unset %back_on_msg | set %back_on_msg Off | .disable #b_away }
        if ($did(away_sys,69).state != 0) { unset %verbal_sys | set %verbal_sys On }
        else { unset %verbal_sys | set %verbal_sys off }
      }
    }
    elseif ($did == 34) {
      beep 2 | var %confirm $input(Are you sure you wish to change your default nick?,yv,Confirm - Away system)
      if (%confirm == $yes) {
        set %nick_change $$input(What do you wish to change your default nickname with? ,test,test2,Change - Away system,%me)
        if ($len(%nick_change) > 23) { beep 2 | var %error $input(The nick you've input is too long! Please retry.,o,Error - Away system) | halt }
        if (!%nick_change) { beep 2 | var %error $input(You did not input any nickname to change with, and the action was halted. Please retry.,o,Error - Away system) }        
        elseif (%me == %nick_change) { beep 2 | var %error $input(You're already using that nickname as default. Please retry.,o,Error - Away system) | unset %nick_change }
        else {
          ;beep 2 | var %success $input(You successfully changed your default nick from " $+ %me $+ " to " $+ %nick_change $+ ".,o,Success - Away system) 
          unset %me 
          set %me %nick_change 
          did -ra $dname 7,44 � &Default nick: %me
        }
      }
    }
    elseif ($did == 32) {
      var %rly $input(Are you sure you wish to use theese settings?,yv,Confirm - Away system)
      if (%rly == $yes) {
        set %a.nick $did(28)
        set %reason $did(25)
        did -ra $dname 7,44 � &Default nick: %me
        did -ra $dname 25,45 %reason
        did -ra $dname 28,43 %a.nick
        did -ra $dname 33,42 � Away: $iif($away,Yes,No)
        if ($away) { did -b $dname 10 | did -e $dname 11 }
        elseif (!$away) { did -e $dname 10 | did -b $dname 11 }
        if (%reason) { did -ra $dname 8,45 � Last used reason: %reason }
        else { did -ra $dname 8,45 � Last used reason: -None- }
        if (%a.nick) { did -ra $dname 6,43 � Away nick: %a.nick }
        else { did -ra $dname 6,43 � Away nick: -None- }
        beep 2 | var %success $input(The settings were successfuly saved. $crlf Both reason & away nick.,o,Success - Away system)
      }
    }
    elseif ($did == 30) {
      var %clear_chk $input(Do you really wish to clear your away reason list?,vyn,Clear - Away system)
      if (%clear_chk == $yes) { 
        if (!$isfile(away_sys_reason.txt)) { beep 2 | var %error $input(The file does not excist $+ $chr(44) or it's already removed!,o,Error - Away system) }
        else {
          did -r $dname 17
          did -r $dname 25
          did -ra $dname 8 � Last used reason: -None-
          .remove away_sys_reason.txt 
          unset %reason
          if ($window(@reason_list)) { clear @reason_list | close -@ @reason_list }
        }
      }
    }
    elseif ($did == 50) {
      if ($did(away_sys,50).state != 0) { 
        did -ra $dname 50 Auto_away: %a_o_idle
        unset %a.o.idle | set %a_o_idle On
        did -e $dname 49 
        did -ra $dname 50 Auto-away: %a_o_idle
        did -ra $dname 53 � &Auto-away on idle: On
      }
      else {
        unset %a.o.idle | set %a_o_idle Off
        did -b $dname 49
        did -ra $dname 50 Auto-away: %a_o_idle
        did -ra $dname 53 � &Auto-away on idle: Off
        if ($timer(_a_check)) { .timer_a_check off }
      }
    }
    elseif ($did == 87) {
      $iif($group(#logs) != off,disable #logs,enable #logs)
      did -ra $dname 87 Logging $group(#logs)
    }
    elseif ($did == 88) {
      if (!$dialog(pager)) {
        beep 2 | pager
      }
      else {
        var %error $input(The pager dialog is already open!,o,Error - Away system)
      }
    }
    elseif ($did == 61) {
      if ($did(away_sys,61).state != 0) { 
        did -e $dname 63
        unset %msg_all_away | set %msg_all_away Yes
      }
      else { 
        unset %msg_all_away | set %msg_all_away No
        if ($timer(_msg_all)) { .timer_msg_all off }
        did -b $dname 63
      }
    }
    elseif ($did == 64) {
      if ($did(away_sys,64).state != 0) { 
        set %back_on_msg $iif($did(away_sys,64).state,On,Off) 
      }
    }
    elseif ($did == 65) { 
      if ($did(away_sys,65).state != 0) { 
        set %deop_self $iif($did(away_sys,65).state,On,Off)  
      }
    }
    elseif ($did == 69) { 
      if ($did(away_sys,69).state != 0) { 
        set %verbal_sys $iif($did(away_sys,69).state,On,Off) 
      }
    }
    elseif ($did == 85) {
      if (!$dialog(a_send)) {
        beep 2 | dialog -m a_send a_send
      }
      else {
        beep 2 | var %error $input(The dialog is already open!,o,Error - Away system)
      }
    }
  }
  elseif ($devent == dclick) {
    if ($did == 17) {
      if ($read(away_sys_reason.txt) != 0) {
        away_2
      }
    }
  }
}

dialog pager {
  Title Pager [/pager]
  size -l -l 150 200
  tab "Ignore", 1, 0 0 150 200
  Tab "Badwords", 2
  Button Pager $group(#pager), 3, 10 28 60 20, tab 1
  Button "&Add", 4, 10 50 30 15, tab 1
  Button "&Del", 5, 45 50 30 15, tab 1
  Button "Cle&ar", 6, 80 50 40 15, tab 1
  Button "?", 7, 130 50 15 15, tab 1
  Text "&Pager - Ignore", 8, 40 180 110 15, tab 1
  list 9, 10 70 130 120, tab 1
  Button "View file", 16, 85 28 60 20, tab 1

Button "&Add", 10, 10 30 30 15, tab 2
  Button "&Del", 11, 45 30 30 15, tab 2
  Button "Cle&ar", 12, 80 30 40 15, tab 2
  Button "?", 13, 130 30 15 15, tab 2
  Text "&Pager - Badwords", 14, 30 175 90 15, tab 2
  list 15, 10 50 130 145, tab 2
}
on *:dialog:pager:*:*: {
  if ($devent == init) {
    if ($server == $null) { beep 2 | var %error $input(You are not connected to any network/server!,o,Warning - Away system) }
    if ($isfile(pignore.txt)) { loadbuf -o $dname 9 pignore.txt }
    if ($isfile(pwords.txt)) { loadbuf -o $dname 15 pwords.txt }
  }
  elseif ($devent == sclick) {
    if ($did == 3) {
      $iif($group(#pager) != off,disable #pager,enable #pager)
      did -ra $dname 3 Pager $group(#pager)
    }
    elseif ($did == 4) {
      var %inick $?="Nick to add into the list:"
      if (%inick) && (%inick !isin $didtok($dname,9,32)) {
        .did -a $dname 9 %inick
        .write pignore.txt %inick
      }
      else {
        beep 2 | var %error $input(No nick was given or the user is already in the list. Please retry.,o,Error - Away system))
      }
    }
    elseif ($did == 5) {
      if ($did(9).sel) { 
        write $+(-dl,$did(9).sel) pignore.txt
        did -r $dname 9
        loadbuf -o $dname 9 pignore.txt
      }
      else { 
        beep 2 | var %error $input(No nick was selected. Please retry.,o,Error - Away system) 
      }
    }
    elseif ($did == 6) {
      var %clear_chk $input(Do you really wish to clear your ignore list?,vyn,Clear - Away system)
      if (%clear_chk == $yes) { 
        if (!$isfile(pignore.txt)) { beep 2 | var %error $input(The file does not excist $+ $chr(44) or it's already removed!,o,Error - Away system) }
        else {
          did -r $dname 9
          .remove pignore.txt
        }
      }
    }
    elseif ($did == 7) {
      beep 1 | var %info.? $input(This is the function where you add the users nickname to ignore from future pages.,o,Info - Away system)
    }
    elseif ($did == 13) {
      beep 1 | var %info.? $input(This is the section to add/remove specefic words $+ $chr(44) so you will not recive the message incase it contains this word!,o,Info - Away system)
    }
    elseif ($did == 16) { run pignore.txt }
    if ($did == 10) {
      var %bword $?="Word to add into the list:"
      if (%bword) && (%bword !isin $didtok($dname,15,32)) {
        .did -a $dname 15 %bword
        .write pwords.txt %bword
      }
      else {
        beep 2 | var %error $input(No word was given or the word is already in the list. Please retry.,o,Error - Away system)
      }
    }
    elseif ($did == 11) {
      if ($did(15).sel) { 
        write $+(-dl,$did(15).sel) pwords.txt
        did -r $dname 15
        loadbuf -o $dname 15 pwords.txt
      }
      else { 
        beep 2 | var %error $input(No word was selected. Please retry.,o,Error - Away system) 
      }
    }
    elseif ($did == 12) {
      var %clear_chk $input(Do you really wish to clear your bad words list?,vyn,Clear - Away system)
      if (%clear_chk == $yes) { 
        if (!$isfile(pwords.txt)) { beep 2 | var %error $input(The file does not excist $+ $chr(44) or it's already removed!,o,Error - Away system) }
        else {
          did -r $dname 15
          .remove pwords.txt
        }
      }
    }
  }
}

;  #####################
;  ### ON *:* EVENTS ###
;  #####################

#b_away off
on *:INPUT:*:{
  if ($away) {
    if (%back_on_msg == on) { 
      back 
    }
  }
}
#b_away end

#logs on
On *:TEXT:*:#: {
  if ($away) {
    if ($network !iswm $nick) || ($server !iswm $nick) {
      if ($wildtok($1-,$+(*,$me,*),1,32)) {
        if (!$window(@Away)) { window @Away }
        aline -h @away $nick highlighted you in $chan at $fulldate
        if (%a_away_yes == $true) { goto idle }
        if (%reason) {
          .notice $nick I am currently away. I have been away since $duration($awaytime) $+ . Reason: %reason - Time is now $time $+ . | goto end
        }
        else { 
          .notice $nick I am currently away. I have been away since $duration($awaytime) $+ . Reason: No reason - Time is now $time $+ . | goto end
        }
        :idle
        .notice $nick I am auto-away after $duration($calc(%a_time * 60)) idling - Time is now $time $+ .
      }
    }
  }
  :end
}

On *:ACTION:*:#: {
  if ($away) {
    if ($network !iswm $nick) || ($server !iswm $nick) {
      if ($wildtok($1-,$+(*,$me,*),1,32)) {
        if (!$window(@Away)) { window @Away }
        aline -h @away $nick highlighted you in $chan at $fulldate
        if (%a_away_yes == $true) { goto idle }
        if (%reason) {
          .notice $nick I am currently away. I have been away since $duration($awaytime) $+ . Reason: %reason - Time is now $time $+ . | goto end
        }
        else { 
          .notice $nick I am currently away. I have been away since $duration($awaytime) $+ . Reason: No reason - Time is now $time $+ . | goto end
        }
        :idle
        .notice $nick I am auto-away after $duration($calc(%a_time * 60)) idling - Time is now $time $+ .
      }
    }
  }
  :end
}

on ^*:OPEN:*:*: {
  if ($away) {
    if (%a_away_yes == $true) { goto idle }
    if (%reason) {
      if (!$window(@Away)) { window @Away }
      aline -h @away $nick pm'ed you at $fulldate saying: $1-
      .notice $nick I am currently away. I have been away for $duration($awaytime) $+ . Reason: %reason - Time is now $time $+ . | goto end
    }
    else { 
      .notice $nick I am currently away. I have been away for $duration($awaytime) $+ . Reason: No reason - Time is now $time $+ . | goto end
    }
    :idle
    .notice $nick I am auto-away after $duration($calc(%a_time * 60)) idling - Time is now $time $+ .
  }
  :end
}

on *:NOTICE:*:*: {
  if ($away) {
    if ($network !iswm $nick) || ($server !iswm $nick) {
      if (%a_away_yes == $true) { goto idle }
      if (%reason) {
        if (!$window(@Away)) { window @Away }
        aline -h @away $nick noticed you at $fulldate saying: $1-
        .notice $nick I am currently away. I have been away for $duration($awaytime) $+ . Reason: %reason - Time is now $time $+ . | goto end
      }
      else { 
        .notice $nick I am currently away. I have been away for $duration($awaytime) $+ . Reason: No reason - Time is now $time $+ . | goto end
      }
      :idle
      .notice $nick I am auto-away after $duration($calc(%a_time * 60)) idling - Time is now $time $+ .
    }
    :end
  }
}

on !*:BAN:#: {
  if ($away) {
    if ($banmask iswm $address($me,5)) {
      if ($window(@away)) { window @away }
      aline -h @away $nick banned you on $chan at $time $+ !
    }
  }
}

on !*:KICK:#: {
  if ($away) {
    if ($knick == $me) {
      if ($window(@away)) { window @away }
      aline -h @away $nick kicked you from $chan at $time $+ ! 
    }
  }  
}

on !*:OP:#: {
  if ($away) {
    if ($opnick == $me) {
      if ($window(@away)) { window @away }
      aline -h @away $nick gave you op (+4@) on $chan at $time $+ !
    }
  }
}

on !*:DEOP:#: {
  if ($away) {
    if ($opnick == $me) {
      if ($window(@away)) { window @away }
      aline -h @away $nick removed your op (-4@) on $chan at $time $+ !
    }
  }
}

on !*:DEHELP:#: {
  if ($away) {
    if ($hnick == $me) {
      if ($window(@away)) { window @away }
      aline -h @away $nick removed your helpop (-4%) on $chan at $time $+ !
    }
  }
}

on !*:HELP:#: {
  if ($away) {
    if ($hnick == $me) {
      if ($window(@away)) { window @away }
      aline -h @away $nick gave you helpop (+4%) on $chan at $time $+ !
    }
  }
}

on !*:VOICE:#: {
  if ($away) {
    if ($vnick == $me) {
      if ($window(@away)) { window @away }
      aline -h @away $nick gave you voice (+4+) on $chan at $time $+ !
    }
  }
}

on !*:DEVOICE:#: {
  if ($away) {
    if ($vnick == $me) {
      if ($window(@away)) { window @away }
      aline -h @away $nick removed your voice (-4+) on $chan at $time $+ !
    }
  }
}

on !*:RAWMODE:#: {
  if (($1 == +a) && ($2 == $me)) {
    if ($window(@away)) { window @away }
    aline -h @away $nick gave you admin (+4&) on $chan at $time $+ !
  }
  elseif (($1 == +q) && ($2 == $me)) {
    if ($window(@away)) { window @away }
    aline -h @away $nick gave you owner (+4~) you on $chan at $time $+ !
  }
  if (($1 == -a) && ($2 == $me)) {
    if ($window(@away)) { window @away }
    aline -h @away $nick removed your admin (-4&) on $chan at $time $+ !
  }
  elseif (($1 == -q) && ($2 == $me)) {
    if ($window(@away)) { window @away }
    aline -h @away $nick removed your owner (-4~) on $chan at $time $+ !
  }
}

on *:DISCONNECT: {
  if ($away) {
    if ($window(@away)) {
    scon -a aline -h @away *** You have been disconnected from $!network $chr(44) You are no longer marked as being away. *** }
  }
}
#logs end

;  ############
;  ### RAWS ###
;  ############

raw 305:*:{
  scon -a echo You are no longer marked as being away after $duration($awaytime) as $iif(%reason,%reason,No reason) on: $!network 
  haltdef
  if ($window(@away)) { 
    aline -h @away *** Away session ended - Messages, notices, modes, pages and highlights will no longer be logged. *** 
  }
}

raw 306:*:{
  scon -a echo You have been marked as being away $+ $chr(44) $iif(%reason,%reason,No reason) on: $!network 
  haltdef
  if ($group(#logs) == on) {
    if (!$window(@away)) {
      window @away 
    }
    aline -h @away *** Away session started - Now logging messages, notices and highlights. ***
  }
}

;-----------------------------------------
; End of file                             
;-----------------------------------------

Favorite Script -

Lindrian

Comments:
lol, already got the v1..0 ready ;D

Posted by: Lindrian

FURBY

Comments:
:P upload it, and i'll approve it, just saw your v0.9 so i've appproved that also, and also the link on the site wasn't working so ya

Posted by: FURBY

Smilies	Message:
	Comments:

X-Static Codes

Search

Scripting

Links

Sponsors

Stats

View

Away system v0.9c [BETA]