View

Away system v0.8b - With dialog!

Rated:

Snippet Description: This is a away system I was working on today, and finished it today aswell. Another attempt of a script using dialog, and it worked out pretty well. Simply load it into remotes by clicking alt+r and paste i there. Right click a channel, query or status and you'll see a menu option "Currently not away - Open dialog". Press is, and the dialog will pop up. The rest can be found inside the script, by pressing the [?]'s. To go back quikly, simply type /back. But to go away, you must set the settings in the dialog itself. *golden rule* - Riping is lame. if any bugs were found tell me please. Also, rate and comment the snippet. GL and HF! EDIT: Changed the 'edit' function for the reason, easier now. Added a function to change your default nickname. Added a menu, to test that out. Enjoy! EDIT2: Added alot of functions to the @window! Check them out! If ANY bugs are found, please tell me and ill try to fix them!! EDIT3: Added 'auto-away on idle' system, my very first one, and im sure it contains alot of bugs. Any found, please report them here in pm or comment, immediatly! I really wanna keep developing the script, and make it as good as possible. (Which means I also added a new dialog part, (Which seems to work fine) and a few aliases etc) Hope ull enjoy it! - After reading about raws, I added a few to echo when your away etc ;p. HF!

;------------------------------------------------------------
;Away system v0.8b 
;By Lindrian.
;Find me at irc.deltaanime.net @ #Lindrian or #L2forever
;Also join me at irc.ungowa.org @ #ungowa
;Enjoy!
;------------------------------------------------------------
 
menu status,channel,query {
  .$iif($Away,Currently away,Currently not away) - Open dialog: Dialog -m away_sys away_sys
}
menu @away { 
  .Clear @Away: clear @away | var %close $input(Do you wish to close the window too?,yv,Confirm - Away sys) | if (%close == $yes) { close -@ @away }
}
menu @reason_list { 
  .Clear @reason_list: clear @reason_list | var %close $input(Do you wish to close the window too?,yv,Confirm - Away sys) | if (%close == $yes) { close -@ @reason_list }
  .Refresh: redo
}

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
  }
}
on *:unload: { 
  var %rly $input(Are you sure you want you unload the script?,yv,Confirm - Away system)
  if (%rly == $yes) {
    unset %a.nick | unset %reason 
  }
  else {
    var %norly $input(The action was halted. The script will not be unloaded.,o,Info - Away system)
  }
}
alias a_idle_check {
  if ($away) { halt }
  elseif ($idle > %a_time2) {
    ;echo -a testing
    if (!%reason) {
      away No reason.
      ame is now away. Reason: No reason.
      if (%a.nick) { nick %a.nick }
    }
    elseif (%reason) {
      away %reason
      ame is now away. Reason: %reason 
      if (%a.nick) { nick %a.nick }
    }
  }
}
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 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 | ame is now back from %reason $+ . I was away for: $duration($awaytime) $+ . }
  else { away | ame is now back from: No reason. I was away for $duration($awaytime) $+ . }
  if ($timer(_a_idle_check)) { .timer_a_idle_check off }
}
dialog away_sys {
  Title "Away system v0.8b [/away_sys]"
  Size -1 -1 300 335
  Tab "&Information", 1, 0 10 300 400
  Tab "&Settings", 2
  Text "&Please, do not 'modify' this code and call it yours!", 3, 20 130 200 50,  tab 1, disabled
  Text "&Away system v0.8b By Lindrian.", 4, 20 110 160 20, tab 1, disabled
  Box "&Status", 5, 10 160 279 150 , tab 1
  text Х &Away nick:, 6, 25 180 150 15, tab 1
  Text Х &Default nick:, 7, 25 200 160 15, tab 1
  Text Х &Last used reason:, 8, 25 220 180 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 100 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 100 25, tab 2
  Edit %a.nick , 28, 80 271 150 25, tab 2
  Button "?", 29, 245 271 25 25 25, tab 2
  Button "&Cle&ar list", 30, 200 160 70 25 25, tab 2
  Button &Close, 31, 215 300 70 25, cancel, tab 2
  Button "&Save", 32, 15 300 70 25, tab 2
  Text Х &Away:, 33, 25 240 180 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 "&Help", 39, 35

item "&Credits", 37, 35

item "&Close", 38, 35, cancel

tab "&Auto-away on idle", 40
  box "&Auto system current settings:", 41, 15 40 270 110, tab 40 
  Text Х &Away:, 42, 25 60 180 15, tab 40
  text Х &Away nick:, 43, 25 80 150 15, tab 40
  Text Х &Default nick:, 44, 25 100 160 15, tab 40
  Text Х &Last used reason:, 45, 25 120 180 15, tab 40
  Text "ЧЧЧЧЧЧЧЧЧЧЧЧЧЧЧЧЧЧЧЧЧЧЧЧЧЧЧЧЧЧЧЧЧЧЧЧЧЧЧЧЧ", 46, 15 160 270 15,  tab 40 disabled
  Box "Auto-away on idle settings:", 47, 15 180 270 140, tab 40
  Text Х Auto away after:, 48, 25 240 100 25, tab 40
  Edit $duration($calc(%a_time * 60)), 49, 125 236 80 25, tab 40
  Check Auto-away: %a_o_idle , 50, 35 200 100 25, tab 40
  Button "Close", 51, 205 285 70 25, ok, tab 40
  Button Save, 52, 25 285 70 25, tab 40
  Button "?", 54, 250 200 25 25, tab 40
}
on *:dialog:away_sys:*:*:{
  if ($devent == init) {
    if ($isfile(away_sys_reason.txt)) { loadbuf -o $dname 17 away_sys_reason.txt }
    did -a $dname 7,44 Х &Default nick: %me
    did -ra $dname 25,45 %reason
    did -a $dname 33,42 Х Away: $iif($away,Yes,No)
    did -ra $dname 49 $duration($calc(%a_time * 60))
    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 ($devent == menu) {
    if ($did == 37) { 
      beep 2 | var %credits $input(Scripted by Lindrian - Away system v0.8b! 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.8b!
      }
      else {
        beep 2 | var %error $input(You can only advertise in a channel!,o, Error - Away system)
      }
    }
    elseif ($did == 29) { 
      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 == 26) {
      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. $crlf Which will be: $crlf %me $+ .,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)
    }
    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.
            ame is now away. Reason: 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 }
          }
          elseif (%reason) {
            away %reason
            ame is now away. Reason: %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 ($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
            ame is now back from: %reason $+ . I was away for: $duration($awaytime) $+ .
            did -b $dname 11
            did -e $dname 10
            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 }
          }
          else { 
            away
            ame is now back from: No reason. I was away for: $duration($awaytime) $+ .
            did -b $dname 11
            did -e $dname 10
            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 }
          }
        }
      }
    }
    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 -d $dname 17 $v1 
        write $+(-dl,$did(17).sel) away_sys_reason.txt
        did -r $dname 25
        did -ra $dname 8,45 Х Last used reason: -None-
        unset %reason
        redo_for_add_rem 
      }
      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 %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 away_sys_reason.txt $read(away_sys_reason.txt,$did(17).sel)
          .did -r $dname 17 $v1 
          .write away_sys_reason.txt %reason_temp
          .did -ra $dname 17 %reason_temp
          redo_for_add_rem
          beep 2 | var %success $input(The reason was changed from " $+ %old $+ " to " $+ %reason_temp $+ ",o,Success - Away system)
        }
        elseif (%reason_temp == %old) {
          beep 2 | var %error $input(You can not input the same thing as you had previously! Please retry!,o,Error - Away system)
        }
        else {
          beep 2 | var %error $input(You did not input anything to edit!,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_idle2 | 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)
            did -ra $dname 49 $duration($calc(%a_time * 60))
            if (!%a_o_idle) { did -ra $dname 50 Auto-away: Off }
            else { did -ra $dname 50 Auto-away: On }
            did -ra $dname 53 Х &Auto-away on idle: %a_o_idle
            set %a_time2 $calc(%a_time * 60)
            if (!$timer(_a_check)) { .timer_a_check 0 1 a_idle_check } 
            :change
            did -ra $dname 51 Ok
          }
        }
      }
    }
    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 (!%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 away 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- }
        did -ra $dname 31 Ok
        ;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 }
      }
    }
  }
}
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 (%reason) {
          .notice $nick I am currently away. I have been away since $duration($awaytime) $+ . Reason: %reason
        }
        else { 
          .notice $nick I am currently away. I have been away since $duration($awaytime) $+ . Reason: No reason.
        }
      }
    }
  }
}
on ^*:OPEN:*:*: {
  if ($away) {
    if (%reason) {
      .notice $nick I am currently away. I have been away for $duration($awaytime) $+ . Reason: %reason
    }
    else { 
      .notice $nick I am currently away. I have been away for $duration($awaytime) $+ . Reason: No reason.
    }
    if (!$window(@Away)) { window @Away }
    aline -h @away $nick pm'ed you at $fulldate saying: $1-
  }
}
on *:NOTICE:*:*: {
  if ($away) {
    if ($network !iswm $nick) || ($server !iswm $nick) {
      if (%reason) {
        .notice $nick I am currently away. I have been away for $duration($awaytime) $+ . Reason: %reason
      }
      else { 
        .notice $nick I am currently away. I have been away for $duration($awaytime) $+ . Reason: No reason.
      }
      if (!$window(@Away)) { window @Away }
      aline -h @away $nick noticed you at $fulldate saying: $1-
    }
  }
}

raw 305:*:{
  var %c = You are no longer marked as being away after $duration($awaytime) on $network $+ .
  echo -at %c
  if ($window(@away)) { aline -h @away *** Away session ended - Messages, notices and highlights will no longer be logged. *** }
  haltdef 
}
raw 306:*:{
  if (%reason) { var %c = You have been marked as being away $+ $chr(44) %reason on $network $+ . | echo -at %c }
  else { var %d = You have been marked as being away, (No reason) on $network $+ . | echo -at %d }
  if (!$window(@away)) { window @away }
  aline -h @away *** Away session started - Now logging messages, notices and highlights. ***
  haltdef
}
 
;EOF

Favorite Script -

FURBY

Comments:
good old if ($did -- 01) {

:P nice work btw

Posted by: FURBY

Lindrian

Comments:
Updated, twice.

Posted by: Lindrian

FURBY

Comments:
good work :)

Posted by: FURBY

Lindrian