[The Ranger Away2.mrc]
;______________________________
;   Away Table Dialog 
;
dialog MasterAway {
  title "Ranger ver2.0 = Master Away System Addon = by SixGun"
  size -1 -1 395 295
  check "Popups Mode",21,155 195 90 20
  check "Silent Away",1,155 220 90 20
  Button "Themes",22,290 151 75 20,OK
  Button "Uninstall",23,290 205 75 20,OK
  box "",34,140 180 120 65,center
  box "",35,265 180 120 65,center
  Text "Preset Away",2,20 20 100 20,center
  Text "Messages",36,20 35 100 20,center
  list 3,20 55 100 100,extsel
  Button "Edit Presets",4,20 150 100 20,OK
  box "",6,10 5 120 175,center
  button "Enter Your Manual Away Message",7,140 11 200 20,OK
  Edit "",8,140 35 200 20,Multi
  Button "Set",9,345 35 40 20,OK
  Button "Set ( AWAY )",10,20 193 100 35,OK
  Button "Set ( BACK )",11,20 245 100 35,OK
  box "",12,140 57 245 50,center
  check "Pager System",13,155 75 100 20
  Button "?" 19,255 75 20 20,ok
  Button "!",20,280 75 20 20,ok
  Button "View",14,310 75 55 20,OK
  box "",15,140 107 245 73,center
  check "Away On Idle",16,155 124 100 20
  check "Nick Change",17,155 152 100 20
  Button "Settings",18,290 123 75 20,OK
  icon 29,286 245 85 45,
  Button "Help",33,210 255 50 25,OK
  Button "OK",31,140 255 50 25,OK
}
;______________________________
;   ON Dialog Away INIT 
;
on 1:dialog:MasterAway:init:0: { 
  If (%away.DisplayAway = Silent) { Did -c MasterAway 1 } | else { Did -u MasterAway 1 } 
  if (%away.preset1 != $null) { Did -i MasterAway 3 1 [ [ %away.preset1 ] ] }
  if (%away.preset2 != $null) { Did -i MasterAway 3 2 [ [ %away.preset2 ] ] }
  if (%away.preset3 != $null) { Did -i MasterAway 3 3 [ [ %away.preset3 ] ] }
  if (%away.preset4 != $null) { Did -i MasterAway 3 4 [ [ %away.preset4 ] ] }
  if (%away.preset5 != $null) { Did -i MasterAway 3 5 [ [ %away.preset5 ] ] }
  if (%away.preset6 != $null) { Did -i MasterAway 3 6 [ [ %away.preset6 ] ] }
  if (%away.pager == On) { Did -c MasterAway 13 } | else { Did -u MasterAway 13 }
  if (%away.idle == On) { Did -c MasterAway 16 } | else { Did -u MasterAway 16 }
  if (%away.ncg == On) { Did -c MasterAway 17 } | else { Did -u MasterAway 17 }
  Did -m MasterAway 8
}
;______________________________
;   ON Dialog Away 
;
on 1:dialog:MasterAway:sclick:1: if (%away.DisplayAway = Verbal) { set %away.silver Silent | set %away.displayaway Silent | writeini Away.ini preset silent.verble Silent | $etheme(Away System,Now Set At,Silent) } | else { set %away.silver Verbal | set %away.displayaway Verbal | writeini Away.ini preset silent.verbal Verbal | $etheme(Away System,Now Set At,Verble) } 
on 1:dialog:MasterAway:sclick:3: {
  if ($did(3,$did(3).sel).text = %away.preset1) { set %away.message %away.pset1 }
  elseif ($did(3,$did(3).sel).text = %away.preset2) { set %away.message %away.pset2 }
  elseif ($did(3,$did(3).sel).text = %away.preset3) { set %away.message %away.pset3 }
  elseif ($did(3,$did(3).sel).text = %away.preset4) { set %away.message %away.pset4 }
  elseif ($did(3,$did(3).sel).text = %away.preset5) { set %away.message %away.pset5 }
  elseif ($did(3,$did(3).sel).text = %away.preset6) { set %away.message %away.pset6 }
}
on 1:dialog:MasterAway:dclick:3: {
  if ($did(3,$did(3).sel).text = %away.preset1) { set %away.message %away.pset1 }
  elseif ($did(3,$did(3).sel).text = %away.preset2) { set %away.message %away.pset2 }
  elseif ($did(3,$did(3).sel).text = %away.preset3) { set %away.message %away.pset3 }
  elseif ($did(3,$did(3).sel).text = %away.preset4) { set %away.message %away.pset4 }
  elseif ($did(3,$did(3).sel).text = %away.preset5) { set %away.message %away.pset5 }
  elseif ($did(3,$did(3).sel).text = %away.preset6) { set %away.message %away.pset6 }
  if (%away.message = $null) { set %away.message No Reason Given! }
  if ($did(21).state = 1) { .disable #Dialogs | .enable #Popups
    did -u MasterAway 21 | .dialog -k MasterAway | Display
  }
  else { .dialog -k MasterAway | Display }
}
on 1:dialog:MasterAway:sclick:4:.dialog -k MasterAway | .dialog -m Presets Presets
on 1:dialog:MasterAway:sclick:7:Did -nf MasterAway 8 | Did -b MasterAway 3
on 1:dialog:MasterAway:sclick:9: if ($did(8,1).text != $null) { set %away.message $did(8,1).text | Did -b MasterAway 8 | Did -t MasterAway 10 }
on 1:dialog:MasterAway:sclick:13: if (%away.pager = Off) { set %away.pager On | set %away.pagerturn Pager ON | Writeini Away.ini Pager Pager On | $etheme(Away Pager,Now Set At,On) } | else { set %away.pager Off | set %away.Pagerturn Pager Off | Writeini Away.ini Pager Pager Off | $etheme(Away Pager,Now Set At,Off) }
on 1:dialog:MasterAway:sclick:14: .dialog -k MasterAway | .dialog -m pager pager
on 1:dialog:MasterAway:sclick:16: if (%away.idle = On) { set %away.idle Off | .timeridle off | set %away.idleturn Idle Off | $etheme(Idle Away,Now Set At,Off) } | else { set %away.idle On | .timeridle 0 10 Away.idle | set %away.idleturn Idle On | $etheme(Idle Away,Now Set At,On) } 
on 1:dialog:MasterAway:sclick:17:if (%away.ncg = On) { set %away.ncg Off | set %away.nickturn Turn On | writeini Away.ini away ncg Off | writeini Away.ini away nickturn Turn On | $etheme(Away NickChange,Now Set At,Off) } | else { set %away.ncg On | set %away.nickturn Turn Off | writeini Away.ini away ncg On | writeini Away.ini away Nickturn Turn Off | $etheme(Away NickChange,Now Set At,On) }
on 1:dialog:MasterAway:sclick:10: {
  if (%away.message = $null) { set %away.message No Reason Given! }
  if ($did(21).state = 1) { .disable #Dialogs | .enable #Popups
    did -u MasterAway 21 | .dialog -k MasterAway | Display
  }
  else { .dialog -k MasterAway | Display }
}
on 1:dialog:MasterAway:sclick:11: {
  if ($did(21).state = 1) { .disable #Dialogs | .enable #Popups
    did -u MasterAway 21 | .dialog -k MasterAway | Redisplay
  }
  else { .dialog -k MasterAway | Redisplay }
}
on 1:dialog:MasterAway:sclick:31: {
  if ($did(21).state = 1) { .disable #Dialogs | .enable #Popups
    did -u MasterAway 21 | .dialog -k MasterAway
  }
  else { .dialog -k MasterAway }
}

on 1:dialog:MasterAway:sclick:19:.dialog -k MasterAway | .timer 1 0 waver
on 1:dialog:MasterAway:sclick:20:splay %away.pagerwav
on 1:dialog:MasterAway:sclick:18:.dialog -k MasterAway | .dialog -m settings settings
on 1:dialog:MasterAway:sclick:22:.dialog -k MasterAway | .dialog -m themes themes
on 1:dialog:MasterAway:sclick:33:set %help.topic Maindia | .dialog -k MasterAway | .dialog -m Help Help
on 1:dialog:MasterAway:sclick:23: dialog -k MasterAway | uninsta
;______________________________
;   Preset Table 
;
dialog Presets {
  title "Ranger ver2.0 = Preset Away Messages = by SixGun"
  size -1 -1 475 250
  Text "Preset Titles",1,25 10 100 20,center
  Text "#1",2,15 40 10 20,center
  Edit "",3,30 38 100 20,left
  Text "Preset Messages",4,220 10 100 20,center
  Edit "",5,135 38 275 20,left
  button "Set #1",21,420 38 45 20,ok
  Text "#2",6,15 70 13 20,center
  Edit "",7,30 68 100 20,left
  Edit "",8,135 68 275 20,left
  button "Set #2",22,420 68 45 20,ok
  Text "#3",9,15 100 13 20,Center
  Edit "",10,30 98 100 20,left
  Edit "",11,135 98 275 20,left
  button "Set #3",23,420 98 45 20,ok
  Text "#4",12,15 130 13 20,center
  Edit "",13,30 128 100 20,left
  Edit "",14,135 128 275 20,left
  button "Set #4",24,420 128 45 20,ok
  Text "#5",15,15 160 13 20,center
  Edit "",16,30 158 100 20,left
  Edit "",17,135 158 275 20,autohs
  button "Set #5",25,420 158 45 20,ok
  Text "#6",18,15 190 13 20,center
  Edit "",19,30 188 100 20,left
  Edit "",20,135 188 275 20,left
  button "Set #6",26,420 188 45 20,ok
  Button "Help",30,230 218 50 25,OK
  Button "OK",31,170 218 50 25,OK
}
;______________________________
;   On Dialog Preset INIT 
;
on 1:dialog:Presets:init:0: {
  if (%away.preset1 != $null) { Did -a Presets 3 [ [ %away.preset1 ] ] }
  if (%away.preset2 != $null) { Did -a Presets 7 [ [ %away.preset2 ] ] }
  if (%away.preset3 != $null) { Did -a Presets 10 [ [ %away.preset3 ] ] }
  if (%away.preset4 != $null) { Did -a Presets 13 [ [ %away.preset4 ] ] }
  if (%away.preset5 != $null) { Did -a Presets 16 [ [ %away.preset5 ] ] }
  if (%away.preset6 != $null) { Did -a Presets 19 [ [ %away.preset6 ] ] }
  if (%away.pset1 != $null) { Did -a Presets 5 [ [ %away.pset1 ] ] }
  if (%away.pset2 != $null) { Did -a Presets 8 [ [ %away.pset2 ] ] }
  if (%away.pset3 != $null) { Did -a Presets 11 [ [ %away.pset3 ] ] }
  if (%away.pset4 != $null) { Did -a Presets 14 [ [ %away.pset4 ] ] }
  if (%away.pset5 != $null) { Did -a Presets 17 [ [ %away.pset5 ] ] }
  if (%away.pset6 != $null) { Did -a Presets 20 [ [ %away.pset6 ] ] }
  did -b presets 21 | did -b presets 22 | did -b presets 23 | did -b presets 24 | did -b presets 25 | did -b presets 26
}
;______________________________
;   ON Dialog Presets 
;
on 1:dialog:Presets:edit:3:did -e Presets 21
on 1:dialog:Presets:edit:5:did -e Presets 21
on 1:dialog:Presets:edit:7:did -e Presets 22
on 1:dialog:Presets:edit:8:did -e Presets 22
on 1:dialog:Presets:edit:10:did -e Presets 23
on 1:dialog:Presets:edit:11:did -e Presets 23
on 1:dialog:Presets:edit:13:did -e Presets 24
on 1:dialog:Presets:edit:14:did -e Presets 24
on 1:dialog:Presets:edit:16:did -e Presets 25
on 1:dialog:Presets:edit:17:did -e Presets 25
on 1:dialog:Presets:edit:19:did -e Presets 26
on 1:dialog:Presets:edit:20:did -e Presets 26
on 1:dialog:Presets:sclick:21: set %away.preset1 $did(3,1).text | set %away.pset1 $did(5,1).text | did -m Presets 3 | did -m Presets 5 | did -b Presets 21
on 1:dialog:Presets:sclick:22: set %away.preset2 $did(7,1).text | set %away.pset2 $did(8,1).text | did -m Presets 7 | did -m Presets 8 | did -b Presets 22
on 1:dialog:Presets:sclick:23: set %away.preset3 $did(10,1).text | set %away.pset3 $did(11,1).text | did -m Presets 10 | did -m Presets 11 | did -b Presets 23
on 1:dialog:Presets:sclick:24: set %away.preset4 $did(13,1).text | set %away.pset4 $did(14,1).text | did -m Presets 13 | did -m Presets 14 | did -b Presets 24
on 1:dialog:Presets:sclick:25: set %away.preset5 $did(16,1).text | set %away.pset5 $did(17,1).text | did -m Presets 16 | did -m Presets 17 | did -b Presets 25
on 1:dialog:Presets:sclick:26: set %away.preset6 $did(19,1).text | set %away.pset6 $did(20,1).text | did -m Presets 19 | did -m Presets 20 | did -b Presets 26
on 1:dialog:presets:sclick:30: set %help.topic Presets | .dialog -k Presets | .dialog -m Help Help
on 1:dialog:Presets:sclick:31: if ($group(#Dialogs) = On) { dialog -kx Presets | .dialog -ma MasterAway MasterAway }
;______________________________
;   Settings Table 
;
dialog Settings {
  title "Ranger = Settings = by SixGun"
  size -1 -1 283 175
  text "Set Away NickName",1,20 22 100 20
  edit "",2,130 20 80 20
  button "Set",3,225 20 40 20,ok
  text "Set Idle NickName",4,20 52 100 20
  edit "",5,130 50 80 20
  button "Set",6,225 50 40 20,ok
  text "Away Message Repeat Time",7,20 82 150 20
  edit "",8,165 80 25 20
  Text "mins",9,192 85 40 20
  button "Set",10,225 80 40 20,ok
  text "Idle Away Activation Time",11,20 112 150 20
  edit "",12,165 110 25 20
  Text "mins",13,192 115 40 20
  button "Set",14,225 110 40 20,ok
  Button "OK",31,80 140 50 25,OK
  Button "Help",30,140 140 50 25,OK
}
;______________________________
;   ON Dialog Settings INIT 
;
on 1:dialog:settings:init:0:{
  Did -a settings 2 %away.awaynick
  Did -b settings 3
  Did -a settings 5 %away.idlenick
  Did -b settings 6
  Did -a settings 8 %away.awr
  Did -b settings 10
  Did -a settings 12 $calc(%away.idletime / 60)
  Did -b settings 14
}

;______________________________
;   On Dialog settings 
;
on 1:dialog:settings:edit:2:did -e settings 3
on 1:dialog:settings:edit:5:did -e settings 6
on 1:dialog:settings:edit:8:did -e settings 10
on 1:dialog:settings:edit:12:did -e settings 14
on 1:dialog:settings:sclick:3:set %away.regnick $me | Set %away.awaynick $did(2,1).text | writeini Away.ini away awaynick %away.awaynick | did -b settings 3 | did -m settings 2
on 1:dialog:settings:sclick:6:set %away.regnick $me | Set %away.idlenick $did(5,1).text | writeini Away.ini away idlenick %away.idlenick | did -b settings 6 | did -m settings 5
on 1:dialog:settings:sclick:10:set %away.awrep $did(8,1).text * 60 | set %away.awr $did(8,1).text | writeini Away.ini Away time %away.awr | Writeini Away.ini Away Repeat %away.awrep | vtheme Repeat Away-Message Now set to %away.awr $+ mins | did -b settings 10 | did -m settings 8
on 1:dialog:settings:sclick:14:set %away.idletime $did(12,1).text * 60 | writeini Away.ini Away Idle %away.idletime | $etheme(Idle time,Now set to,$duration(%away.idletime)) | did -b settings 14 | did -m settings 12
on 1:dialog:settings:sclick:30:set %help.topic Settings | .dialog -k Settings | .dialog -m Help Help
on 1:dialog:settings:sclick:31:.dialog -kx settings | if ($group(#dialogs) = ON) { .dialog -ma masteraway masteraway }
;______________________________
;   Pager Table 
;
dialog Pager {
  title "Ranger ver2.0 = Ranger Pager = by SixGun"
  size -1 -1 320 260
  Text "NickName",1,20 20 75 20
  edit "",2,80 20 100 20,read
  Text "PageTime",3,20 50 75 20
  edit "",4,80 50 100 20,read
  edit "",5,105 77 50 20,read
  Text "Message",6,20 80 75 20
  list 7,20 100 210 118
  Button "Whois",8,190 20 40 20,ok
  box "",9,10 0 230 220
  Button "Next",10,255 12 50 25,ok
  Button "Back",11,255 48 50 25,ok
  Button "Save",12,255 83 50 25,ok
  Button "Delete",13,255 118 50 25,ok
  Button "Archive",14,255 153 50 25,ok
  Button "Save All",16,45 232 75 20,ok
  Button "Delete All",17,150 230 75 20,ok
  Button "Help",18,255 189 50 25,ok
  Button "OK",15,255 225 50 25,ok
}
;______________________________
;   On Dialog Pager INIT 
;
on 1:Dialog:pager:init:0:{
  Did -f Pager 10
  if ((%away.pnum != $null) && (%away.prev = $null)) { set %away.prev 1 } | elseif (%away.pnum = $null) { did -b Pager 12,13,16,17 | goto step }
  Did -a Pager 2 $readini Away.ini Pager pagen [ $+ [ %away.prev ] ]
  Did -a Pager 4 $readini Away.ini Pager paget [ $+ [ %away.prev ] ]
  Did -a Pager 5 %away.prev of %away.pnum
  if ($readini Away.ini Pager pagem [ $+ [ %away.prev ] ] != $null) { set %away.pageview $readini Away.ini Pager pagem [ $+ [ %away.prev ] ] }
  Did -a Pager 7 $gettok(%away.pageview,1-9,32)
  Did -a Pager 7 $gettok(%away.pageview,10-19,32)
  Did -a Pager 7 $gettok(%away.pageview,20-29,32)
  Did -a Pager 7 $gettok(%away.pageview,30-39,32)
  :step
}
;______________________________
;   On Dialog Pager 
;
on 1:Dialog:pager:sclick:8:Whois $did(2).text $did(2).text
on 1:Dialog:pager:sclick:15:.dialog -k Pager | if ($group(#dialogs) = ON) { .dialog -am masteraway masteraway }
on 1:Dialog:pager:sclick:18:set %help.topic Pager | .dialog -k Pager | .dialog -m Help Help
;______________________________
;   Pager Next 
;
on 1:Dialog:pager:sclick:10:{
  Did -r Pager 2,4,5,7 
  if (%away.pnum = $null) { goto end }
  if (%away.prev = $null) { set %away.prev 1 } 
  if (%away.prev <= %away.pnum) { inc %away.prev 1 }
  if (%away.prev > %away.pnum) { set %away.pageview No More Pages To Review (Click Back) }
  Did -a Pager 2 $readini Away.ini Pager pagen [ $+ [ %away.prev ] ]
  Did -a Pager 4 $readini Away.ini Pager paget [ $+ [ %away.prev ] ]
  Did -a Pager 5 %away.prev of %away.pnum
  if ($readini Away.ini Pager pagem [ $+ [ %away.prev ] ] != $null) { set %away.pageview $readini Away.ini Pager pagem [ $+ [ %away.prev ] ] }
  Did -a Pager 7 $gettok(%away.pageview,1-8,32)
  Did -a Pager 7 $gettok(%away.pageview,9-17,32)
  Did -a Pager 7 $gettok(%away.pageview,18-26,32)
  Did -a Pager 7 $gettok(%away.pageview,32-40,32)
  Did -a Pager 7 $gettok(%away.pageview,48-56,32)
  Did -a Pager 7 $gettok(%away.pageview,64-72,32)
  :end
}
;______________________________
;   Pager Back 
;
on 1:Dialog:pager:sclick:11:{
  Did -r Pager 2,4,5,7 
  if (%away.pnum = $null) { goto end }
  if (%away.prev = $null) { set %away.prev 1 } 
  if ((%away.prev <= $calc(%away.pnum +1)) && (%away.prev != 0)) { dec %away.prev 1 }
  if (%away.prev = 0) { set %away.pageview No Previous Pages (Click Next) }
  Did -a Pager 2 $readini Away.ini Pager pagen [ $+ [ %away.prev ] ]
  Did -a Pager 4 $readini Away.ini Pager paget [ $+ [ %away.prev ] ]
  Did -a Pager 5 %away.prev of %away.pnum
  if ($readini Away.ini Pager pagem [ $+ [ %away.prev ] ] != $null) { set %away.pageview $readini Away.ini Pager pagem [ $+ [ %away.prev ] ] }
  Did -a Pager 7 $gettok(%away.pageview,1-9,32)
  Did -a Pager 7 $gettok(%away.pageview,10-19,32)
  Did -a Pager 7 $gettok(%away.pageview,20-29,32)
  Did -a Pager 7 $gettok(%away.pageview,30-39,32)
  :end
}
;______________________________
;   Pager Save 
;
on 1:Dialog:pager:sclick:12:{
  write $mircdirawaysys\pagerArk.txt $str($chr(187),15)
  write $mircdirawaysys\pagerArk.txt $did(2).text
  write $mircdirawaysys\pagerArk.txt $did(4).text
  write $mircdirawaysys\pagerArk.txt %away.pageview
  remini away.ini Pager pagen $+ %away.prev
  remini away.ini Pager paget $+ %away.prev
  remini away.ini Pager pagem $+ %away.prev
  Did -r Pager 2,4,5,7
  writeini Away.ini Pager pagem $+ %away.prev This Message Has Been Saved
  set %away.pageview $readini Away.ini Pager pagem [ $+ [ %away.prev ] ] 
  Did -a Pager 5 %away.prev of %away.pnum 
  Did -a Pager 7 %away.pageview
  checkpager
}
;______________________________
;   Pager Delete 
;
on 1:Dialog:pager:sclick:13:{
  remini away.ini Pager pagen $+ %away.prev
  remini away.ini Pager paget $+ %away.prev
  remini away.ini Pager pagem $+ %away.prev
  Did -r Pager 2,4,5,7
  writeini Away.ini Pager pagem $+ %away.prev This Message Has Been Deleted
  set %away.pageview $readini Away.ini Pager pagem [ $+ [ %away.prev ] ] 
  Did -a Pager 5 %away.prev of %away.pnum 
  Did -a Pager 7 %away.pageview
  checkpager
}
on 1:Dialog:pager:sclick:14: run $mircdirAwaySys\pagerark.txt
;______________________________
;   Pager Save All 
;
on 1:Dialog:pager:sclick:16: { saveall | .dialog -k Pager }
on 1:Dialog:clearpages:sclick:6: { saveall | .dialog -k ClearPages }

alias saveall {
  set %snum 0 | set %savall 0
  :loop | inc %snum 1
  if (%Savall = $calc(%away.pnum + 1)) { goto remove }
  if (%snum > $calc(%away.pnum + 1)) { goto remove }
  if ($readini away.ini Pager pagen [ $+ [ %snum ] ] != $null) { 
    inc %savall 1 
    write $mircdirawaysys\pagerArk.txt $str($chr(187),15)
    write $mircdirawaysys\pagerArk.txt $readini Away.ini Pager pagen [ $+ [ %snum ] ]
    write $mircdirawaysys\pagerArk.txt $readini Away.ini Pager paget [ $+ [ %snum ] ] 
    write $mircdirawaysys\pagerArk.txt $readini Away.ini Pager pagem [ $+ [ %snum ] ] 
  }
  goto loop
  :remove | remini Away.ini Pager | unset %savall %snum %away.prev %away.pnum  
}
;______________________________
;   Pager Delete All 
;
on 1:Dialog:clearpages:sclick:7: { deleteall | .dialog -k ClearPages }
on 1:Dialog:pager:sclick:17: { deleteall | .dialog -k Pager }

alias deleteall { 
  remini Away.ini Pager
  unset %savall %snum %away.prev %away.pnum
}
;______________________________
;   Clear Table 
;
dialog clear {
  title "Ranger ver2.0 = Pager = by SixGun"
  size -1 -1 275 100
  icon 1,10 10 35 35,
  Text "All Pager Messages Have Been",2,60 10 150 20
  Text "Saved or Deleted",3,90 25 100 20
  Text "CLEAR PAGER NOW?",4,77 45 140 20
  button "Yes",5,80 65 45 25,ok
  button "No",6,140 65 45 25,ok
}
;______________________________
;   On Dialog Clear (del) 
;
on 1:Dialog:Clear:sclick:5:{
  remini Away.ini Pager
  unset %away.prev %away.pnum
  .dialog -k clear
  .dialog -k Pager
}
;______________________________
;   Themes Table 
;
dialog Themes {
  title "Ranger ver2.0 = Themes = by SixGun"
  size -1 -1 385 250
  text "0",1,270 20 10 20
  text "1",2,270 48 10 20
  text "2",3,270 76 10 20
  text "3",4,270 104 10 20
  text "4",5,270 132 10 20
  text "5",6,270 160 10 20
  text "6",7,270 188 10 20
  text "7",8,270 216 10 20
  text "8",9,352 20 10 20
  text "9",10,352 48 10 20
  text "1O",11,352 76 15 20
  text "11",12,352 104 15 20
  text "12",13,352 132 15 20
  text "13",14,352 160 15 20
  text "14",15,352 188 15 20
  text "15",16,352 216 15 20
  icon 32,285 15 60 220,
  text "Choose a Theme",17,20 25 100 20
  check "Theme One",18,20 50 100 20
  check "Theme Two",19,20 75 100 20
  check "Theme Three",20,20 100 100 20
  check "Theme Four",21,20 125 100 20
  check "Theme Five",22,20 150 100 20
  check "Theme Six",23,20 175 100 20
  box "",24,10 10 100 200
  text "Choose Colors",25,150 65 100 20
  text "Color #1",26,125 90 50 20
  edit "",27,177 88 25 20,right
  button "Set",37,215 88 30 20
  text "Color #2",28,125 115 50 20
  edit "",29,177 113 25 20,right
  button "Set",38,215 113 30 20
  text "Color #3",30,125 140 50 20
  edit "",31,177 138 25 20,right
  button "Set",39,215 138 30 20
  button "Preview",35,140 175 95 25,ok 
  button "OK",36,140 215 45 25,ok 
  button "Help",34,190 215 45 25,ok 
} 
;______________________________
;   Themes Table 
;
on 1:dialog:Themes:init:0: {
  did -b Themes 37,38,39
  did -a Themes 27 $readini Away.ini Themes clr1 | set %clr1  $+ $readini Away.ini Themes clr1
  did -a Themes 29 $readini Away.ini Themes clr2 | set %clr2  $+ $readini Away.ini Themes clr2
  did -a Themes 31 $readini Away.ini Themes clr3 | set %clr3  $+ $readini Away.ini Themes clr3
  if ($readini Away.ini Themes Theme = Themeone) { set %away.theme ame  $+ %clr1 $+  $+ %clr2 Away  $+ %clr1 $+  $+ %Clr3 %away.message  $+ %clr1 $+  $+ %clr2 Pager %Clr3 $+ %away.pager | did -c Themes 18 | did -u Themes 19,20,21,22,23 }
  if ($readini Away.ini Themes Theme = Themetwo) { set %away.theme ame  $+ %clr1 $+  $+ %clr2 Away  $+ %clr1 $+  $+ %Clr3 %away.message  $+ %clr1 $+  $+ %clr2 P/ $+ %away.pager | did -c Themes 19 | did -u Themes 18,20,21,22,23 }
  if ($readini Away.ini Themes Theme = Themethree) { set %away.theme ame %Clr1 $+  $+ %clr2 $chr(91) $+ %Clr3 $+ Gone $+ %clr2 $+ $chr(93) $+ %Clr1  $+ %clr2 $chr(91) $+ %Clr3 $+ [ [ %away.message ] ] $+ %clr2 $+ $chr(93) $+ %Clr1  $+ %clr2 $chr(91) $+ %clr3 $+ Page $+ %clr1 $+ / $+ %Clr3 $+ %away.pager $+ %clr2 $+ $chr(93) | did -c Themes 20 | did -u Themes 18,19,21,22,23 }
  if ($readini Away.ini Themes Theme = Themefour) { set %away.theme ame  $+ %Clr1 $+ < $+ %clr2 $+ GONE $+ %clr1 $+ > $+ %Clr3   $+ %clr1 $+ < $+ %Clr3 $+ %away.Message $+  $+ %clr1 $+ > $+ %clr3   $+ %clr1 $+ < $+ %clr2 $+ Pager %away.pager $+  $+ %clr1 $+ > | did -c Themes 21 | did -u Themes 18,19,20,22,23 }
  if ($readini Away.ini Themes Theme = Themefive) { set %away.theme ame %clr1 $+  $+ %clr2 $+ AWAY $+ %clr1 $+  %clr3 $+  %clr1 $+  $+ %clr2 $+ %away.message $+ %clr1 $+  %clr3 $+  %clr1 $+  $+ %clr2 $+ Pager $+ %clr1 $chr(91) $+ %clr3 $+ %away.pager $+ %clr1 $+ $chr(93) $+  | did -c Themes 22 | did -u Themes 18,19,20,21,23 }
  if ($readini Away.ini Themes Theme = Themesix) { set %away.theme ame %Clr1 $+  $+ %clr2 $chr(91) $+ %Clr3 $+ Gone $+ %clr2 $+ $chr(93) $+ %Clr1  $+ %clr2 $chr(91) $+ %Clr3 $+  $+ %away.message $+  $+ %clr2 $+ $chr(93) $+ %Clr1  $+ %clr2 $chr(91) $+ %clr3 $+ Page $+ %clr1 $+ / $+ %Clr3 $+ %away.pager $+ %clr2 $+ $chr(93) | did -c Themes 23 | did -u Themes 18,19,20,21,22 }
}
;______________________________
;   On Dialog Themes 
;
on 1:dialog:themes:edit:27:did -e Themes 37
on 1:dialog:themes:sclick:37:writeini Away.ini Themes clr1 $did(27) | set %clr1  $+ $readini Away.ini Themes clr1 | did -b Themes 37
on 1:dialog:themes:edit:29:did -e Themes 38
on 1:dialog:themes:sclick:38:writeini Away.ini Themes clr2 $did(29) | set %clr2  $+ $readini Away.ini Themes clr2 | did -b Themes 38
on 1:dialog:themes:edit:31:did -e Themes 39
on 1:dialog:themes:sclick:39:writeini Away.ini Themes clr3 $did(31) | set %clr3  $+ $readini Away.ini Themes clr3 | did -b Themes 39
on 1:dialog:themes:sclick:18: {
  writeini Away.ini Themes Theme Themeone 
  set %away.theme ame  $+ %clr1 $+  $+ %clr2 Away  $+ %clr1 $+  $+ %Clr3 %away.message  $+ %clr1 $+  $+ %clr2 Pager %Clr3 $+ %away.pager
  did -u Themes 19,20,21,22,23 
}
on 1:dialog:themes:sclick:19: {
  writeini Away.ini Themes Theme Themetwo 
  set %away.theme ame  $+ %clr1 $+  $+ %clr2 Away  $+ %clr1 $+  $+ %Clr3 %away.message  $+ %clr1 $+  $+ %clr2 P/ $+ %away.pager
  did -u Themes 18,20,21,22,23 
}
on 1:dialog:themes:sclick:20: {
  writeini Away.ini Themes Theme Themethree 
  set %away.theme ame %Clr1 $+  $+ %clr2 $chr(91) $+ %Clr3 $+ Gone $+ %clr2 $+ $chr(93) $+ %Clr1  $+ %clr2 $chr(91) $+ %Clr3 $+ [ [ %away.message ] ] $+ %clr2 $+ $chr(93) $+ %Clr1  $+ %clr2 $chr(91) $+ %clr3 $+ Page $+ %clr1 $+ / $+ %Clr3 $+ %away.pager $+ %clr2 $+ $chr(93)
  did -u Themes 18,19,21,22,23 
}
on 1:dialog:themes:sclick:21: {
  writeini Away.ini Themes Theme Themefour 
  set %away.theme ame  $+ %Clr1 $+ < $+ %clr2 $+ GONE $+ %clr1 $+ > $+ %Clr3   $+ %clr1 $+ < $+ %Clr3 $+ %away.Message $+  $+ %clr1 $+ > $+ %clr3   $+ %clr1 $+ < $+ %clr2 $+ Pager %away.pager $+  $+ %clr1 $+ >
  did -u Themes 18,19,20,22,23 
}
on 1:dialog:themes:sclick:22: {
  writeini Away.ini Themes Theme Themefive 
  set %away.theme ame %clr1 $+  $+ %clr2 $+ AWAY $+ %clr1 $+  %clr3 $+  %clr1 $+  $+ %clr2 $+ %away.message $+ %clr1 $+  %clr3 $+  %clr1 $+  $+ %clr2 $+ Pager $+ %clr1 $chr(91) $+ %clr3 $+ %away.pager $+ %clr1 $+ $chr(93) $+ 
  did -u Themes 18,19,20,21,23 
}
on 1:dialog:themes:sclick:23: {
  writeini Away.ini Themes Theme Themesix 
  set %away.theme ame %Clr1 $+  $+ %clr2 $chr(91) $+ %Clr3 $+ Gone $+ %clr2 $+ $chr(93) $+ %Clr1  $+ %clr2 $chr(91) $+ %Clr3 $+  $+ %away.message $+  $+ %clr2 $+ $chr(93) $+ %Clr1  $+ %clr2 $chr(91) $+ %clr3 $+ Page $+ %clr1 $+ / $+ %Clr3 $+ %away.pager $+ %clr2 $+ $chr(93)
  did -u Themes 18,19,20,21,22 
}
on 1:dialog:themes:sclick:34:set %help.topic Themes | .dialog -k Themes | .dialog -m Help Help
on 1:dialog:themes:sclick:35: {
  set %away.message Testing Away Themes 
  if ($readini Away.ini Themes Theme = Themeone) { set %away.theme  $+ %clr1 $+  $+ %clr2 Away  $+ %clr1 $+  $+ %Clr3 %away.message  $+ %clr1 $+  $+ %clr2 Pager %Clr3 $+ %away.pager }
  if ($readini Away.ini Themes Theme = Themetwo) { set %away.theme  $+ %clr1 $+  $+ %clr2 Away  $+ %clr1 $+  $+ %Clr3 %away.message  $+ %clr1 $+  $+ %clr2 P/ $+ %away.pager }
  if ($readini Away.ini Themes Theme = Themethree) { set %away.theme %Clr1 $+  $+ %clr2 $chr(91) $+ %Clr3 $+ Gone $+ %clr2 $+ $chr(93) $+ %Clr1  $+ %clr2 $chr(91) $+ %Clr3 $+ %away.message $+ %clr2 $+ $chr(93) $+ %Clr1  $+ %clr2 $chr(91) $+ %clr3 $+ Page $+ %clr1 $+ / $+ %Clr3 $+ %away.pager $+ %clr2 $+ $chr(93) }
  if ($readini Away.ini Themes Theme = Themefour) { set %away.theme  $+ %Clr1 $+ < $+ %clr2 $+ GONE $+ %clr1 $+ > $+ %Clr3   $+ %clr1 $+ < $+ %Clr3 $+ %away.Message $+  $+ %clr1 $+ > $+ %clr3   $+ %clr1 $+ < $+ %clr2 $+ Pager %away.pager $+  $+ %clr1 $+ > }
  if ($readini Away.ini Themes Theme = Themefive) { set %away.theme %clr1 $+  $+ %clr2 $+ AWAY $+ %clr1 $+  %clr3 $+  %clr1 $+  $+ %clr2 $+ %away.message $+ %clr1 $+  %clr3 $+  %clr1 $+  $+ %clr2 $+ Pager $+ %clr1 $chr(91) $+ %clr3 $+ %away.pager $+ %clr1 $+ $chr(93) $+  }
  if ($readini Away.ini Themes Theme = Themesix) { set %away.theme %Clr1 $+  $+ %clr2 $chr(91) $+ %Clr3 $+ Gone $+ %clr2 $+ $chr(93) $+ %Clr1  $+ %clr2 $chr(91) $+ %Clr3 $+  $+ %away.message $+  $+ %clr2 $+ $chr(93) $+ %Clr1  $+ %clr2 $chr(91) $+ %clr3 $+ Page $+ %clr1 $+ / $+ %Clr3 $+ %away.pager $+ %clr2 $+ $chr(93) }
  echo -s %away.theme
}
on 1:dialog:themes:sclick:36:.dialog -kx Themes | if ($group(#dialogs) = ON) { .dialog -ma masteraway masteraway }
;______________________________
;   Aliases 
;
alias waver set %away.pagerwave $dir="Pager Wave is ----> %away.pagerwav ... Select New?" [ $wavedir [ $+ [ %away.pagerwav ] ] ] | set %away.pagerwav $nopath(%away.pagerwave)
alias Checkpager {
  set %ckp 0 | set %ckfree 0
  :loop | inc %ckp 1
  if ($readini away.ini Pager pagen [ $+ [ %ckp ] ] = $null) { inc %ckfree 1 }
  if (%ckfree = $calc(%away.pnum + 1)) { unset %ckp %ckfree | .dialog -m clear clear | Halt }
  if (%ckp => $calc(%away.pnum + 1)) { unset %ckp %ckfree | halt }
  goto loop
}
