alias awayon {
  if ($readini(away.ini,settings,nickchange) == on) {
    /nick $readini(away.ini,settings,awaynick)
    set %timeaway $time
    set %timeaway2 $ctime
    /away $readini(away.ini,settings,awayreason) $chr(166) %version
    /ame Away: $readini(away.ini,settings,awayreason) $chr(166) %version
  }
  else {
    set %timeaway $time
    set %timeaway2 $ctime
    /away $readini(away.ini,settings,awayreason) $chr(166) %version
    /ame Away: $readini(away.ini,settings,awayreason) $chr(166) %version
  }
}
alias awayoff {
  if ($readini(away.ini,settings,nickchange) == on) {
    /nick $readini(away.ini,settings,normalnick)
    /away
    /ame Back: Was away: $duration($calc($ctime - %timeaway2)) since %timeaway $+ , reason was: $readini(away.ini,settings,awayreason) $chr(166) %version
  }
  else {
    /away
    /ame Back: Was away: $duration($calc($ctime - %timeaway2)) since %timeaway $+ , reason was: $readini(away.ini,settings,awayreason) $chr(166) %version
  }
}
on 1:text:*:?: { 
  if ($away) { 
    .notice $nick $readini(away.ini,settings,queryreply) $chr(166) %version
  }
}
on 1:text:*:#: { 
  if ($me isin $strip($1-)) { 
    if ($away) { 
      .notice $nick $readini(away.ini,settings,chanreply) $chr(166) %version
    }
  }
}
on 1:text:*:*: { 
  if ($me isin $strip($1-)) { 
    if ($away) { 
      .notice $nick $readini(away.ini,settings,highreply) $chr(166) %version
    }
  }
}
dialog away {
  title "Away system"
  size -1 -1 242 226
  option dbu
  text "BlackWolf script away system", 1, 77 3 71 8
  text "Away nick:", 2, 6 18 32 8
  edit "", 3, 36 17 73 10, read
  button "Change", 4, 189 15 37 12
  edit "", 5, 112 17 74 10
  text "Normal nick:", 6, 6 31 29 8
  edit "", 7, 36 30 73 10, read
  edit "", 8, 112 30 74 10
  button "Change", 9, 189 29 37 12
  box "Nicks", 10, 4 9 236 59
  button "Ok", 11, 89 210 37 12, ok
  box "Replies", 12, 4 68 236 83
  text "Query:", 13, 7 78 20 9
  edit "", 14, 30 76 203 10, read
  edit "", 15, 7 88 188 10
  button "Change", 16, 196 87 37 12
  text "Channel:", 17, 7 102 25 8
  edit "", 18, 30 100 203 10, read
  edit "", 19, 7 112 188 10
  button "Change", 20, 196 111 37 12
  text "Highlight:", 21, 7 126 25 8
  edit "", 22, 30 124 203 10, read
  edit "", 23, 7 136 188 10
  button "Change", 24, 196 135 37 12
  text "Reason:", 25, 7 155 25 8
  edit "", 26, 30 153 203 10, read
  edit "", 27, 7 165 188 10
  button "Change", 28, 196 164 37 12
  button "Away on", 29, 89 181 37 12
  button "Away off", 30, 128 181 37 12
  box "Away info", 31, 4 175 235 33
  text "Away:", 32, 7 183 25 8
  edit "Off", 33, 38 182 17 10, read
  edit "Time", 34, 38 194 50 10, read
  text "Away time:", 35, 7 195 30 8
  box "Change nick", 36, 6 42 220 23
  button "On", 37, 106 49 25 11
  button "Off", 38, 133 49 25 11
  edit "", 39, 65 49 22 11, read
  text "Change nick on away:", 40, 10 51 54 8
}
on *:dialog:away:init:*:{
  set %awayniks $readini(away.ini,settings,awaynick)
  set %normalnick $readini(away.ini,settings,normalnick)
  set %awayreason $readini(away.ini,settings,awayreason)
  set %nickchange $readini(away.ini,settings,nickchange)
  .did -ra $dname 3 %awayniks
  .did -ra $dname 7 %normalnick
  .did -ra $dname 14 %queryreply
  .did -ra $dname 18 %chanreply
  .did -ra $dname 22 %highreply
  .did -ra $dname 26 %awayreason
  .did -ra $dname 39 %nickchange
  if ($away) {
    .did -ra $dname 33 On
    .did -ra $dname 34 $duration($calc($ctime - %timeaway2))
  }
  else {
    .did -ra $dname 33 Off
    .did -ra $dname 34 Not away
  }
}
ON *:DIALOG:away:sclick:4:{
  .writeini away.ini settings awaynick $did($dname,5).text
  .did -ra $dname 3 $did($dname,5)
  .did -r $dname 5
}
ON *:DIALOG:away:sclick:9:{
  .writeini away.ini settings normalnick $did($dname,8).text 
  .did -ra $dname 7 $did($dname,8)
  .did -r $dname 8
}
ON *:DIALOG:away:sclick:28:{
  .writeini away.ini settings awayreason $did($dname,27).text 
  .did -ra $dname 26 $did($dname,27)
  .did -r $dname 27
}
ON *:DIALOG:away:sclick:29:{
  awayon
  .did -ra $dname 33 On
  .did -ra $dname 34 $duration($calc($ctime - %timeaway2))
}
ON *:DIALOG:away:sclick:30:{
  awayoff
  .did -ra $dname 33 Off
  .did -ra $dname 34 Not away
}
ON *:DIALOG:away:sclick:16:{
  .writeini away.ini settings queryreply $did($dname,15).text 
  set %queryreply $did($dname,15).text 
  .did -ra $dname 14 $did($dname,15)
  .did -r $dname 15
}
ON *:DIALOG:away:sclick:20:{
  .writeini away.ini settings chanreply $did($dname,19).text 
  set %chanreply $did($dname,19).text 
  .did -ra $dname 18 $did($dname,19)
  .did -r $dname 19
}
ON *:DIALOG:away:sclick:24:{
  .writeini away.ini settings highreply $did($dname,23).text 
  set %highreply $did($dname,23).text 
  .did -ra $dname 22 $did($dname,23)
  .did -r $dname 23
}
ON *:DIALOG:away:sclick:37:{
  .writeini away.ini settings nickchange On
  set %nickchange On 
  .did -ra $dname 39 On
}
ON *:DIALOG:away:sclick:38:{
  .writeini away.ini settings nickchange Off
  set %nickchange Off 
  .did -ra $dname 39 Off
}
menu menubar,status,channel {
  Away system:dialog -m away away
}