[The Ranger Away1.mrc]
;______________________________
;      Away System 
;
#popups off
menu channel {
  Away System
  . %away.silver:{
    if (%away.displayAway = Verbal) { 
      set %away.silver Silent
      set %away.displayaway Silent
      writeini Away.ini "Silent Away" Silver Silent
      writeini Away.ini "Silent Away" DisplayAway Silent
      $etheme(Away System,Now Set At,Silent) 
    } 
    else {
      set %away.silver Verbal
      set %away.displayaway Verbal
      writeini Away.ini "Silent Away" Silver Verbal 
      writeini Away.ini "Silent Away" DisplayAway Verbal
      $etheme(Away System,Now Set At,Verbal)
    } 
  }
  .-
  .Preset Aways
  .. %away.preset1 { set %away.message %away.pset1 | display }
  .. %away.preset2 { set %away.message %away.pset2 | display }
  .. %away.preset3 { set %away.message %away.pset3 | display }
  .. %away.preset4 { set %away.message %away.pset4 | display }
  .. %away.preset5 { set %away.message %away.pset5 | display }
  .. %away.preset6 { set %away.message %away.pset6 | display }
  ..-
  ..Add a Preset: {
    if (%away.preset1 = $null) { set %away.preset1 $$?="Enter Popup Name" | writeini Away.ini Presets Preset1 %away.preset1 | Set %away.pset1 $$?="Enter your preset Away Message" | writeini Away.ini Presets pset1 %away.pset1 }
    elseif (%away.preset2 = $null) { set %away.preset2 $$?="Enter Popup Name" | writeini Away.ini Presets Preset2 %away.preset2 | Set %away.pset2 $$?="Enter your preset Away Message" | writeini Away.ini Presets pset2 %away.pset2 }
    elseif (%away.preset3 = $null) { set %away.preset3 $$?="Enter Popup Name" | writeini Away.ini Presets Preset3 %away.preset3 | Set %away.pset3 $$?="Enter your preset Away Message" | writeini Away.ini Presets pset3 %away.pset3 }
    elseif (%away.preset4 = $null) { set %away.preset4 $$?="Enter Popup Name" | writeini Away.ini Presets Preset4 %away.preset4 | Set %away.pset4 $$?="Enter your preset Away Message" | writeini Away.ini Presets pset4 %away.pset4 }
    elseif (%away.preset5 = $null) { set %away.preset5 $$?="Enter Popup Name" | writeini Away.ini Presets Preset5 %away.preset5 | Set %away.pset5 $$?="Enter your preset Away Message" | writeini Away.ini Presets pset5 %away.pset5 }
    elseif (%away.preset6 = $null) { set %away.preset6 $$?="Enter Popup Name" | writeini Away.ini Presets Preset6 %away.preset6 | Set %away.pset6 $$?="Enter your preset Away Message" | writeini Away.ini Presets pset6 %away.pset6 }
    else { dialog -m Error-Preset Error-Preset }
  }
  ..Edit Presets
  ...Change Messages
  .... %away.preset1 { set %away.preset1 $$?="Enter new Popup Name" | writeini Away.ini Presets Preset1 %away.preset1 | Set %away.pset1 $$?="Enter your new preset Away Message" | writeini Away.ini Presets pset1 %away.pset1 }
  .... %away.preset2 { set %away.preset2 $$?="Enter new Popup Name" | writeini Away.ini Presets Preset2 %away.preset2 | Set %away.pset2 $$?="Enter your new preset Away Message" | writeini Away.ini Presets pset2 %away.pset2 }
  .... %away.preset3 { set %away.preset3 $$?="Enter new Popup Name" | writeini Away.ini Presets Preset3 %away.preset3 | Set %away.pset3 $$?="Enter your new preset Away Message" | writeini Away.ini Presets pset3 %away.pset3 }
  .... %away.preset4 { set %away.preset4 $$?="Enter new Popup Name" | writeini Away.ini Presets Preset4 %away.preset4 | Set %away.pset4 $$?="Enter your new preset Away Message" | writeini Away.ini Presets pset4 %away.pset4 }
  .... %away.preset5 { set %away.preset5 $$?="Enter new Popup Name" | writeini Away.ini Presets Preset5 %away.preset5 | Set %away.pset5 $$?="Enter your new preset Away Message" | writeini Away.ini Presets pset5 %away.pset5 }
  .... %away.preset6 { set %away.preset6 $$?="Enter new Popup Name" | writeini Away.ini Presets Preset6 %away.preset6 | Set %away.pset6 $$?="Enter your new preset Away Message" | writeini Away.ini Presets pset6 %away.pset6 }
  ...Delete Messages
  .... %away.preset1 { unset %away.preset1 %away.pset1 | remini away.ini Presets Preset1 %away.preset1 | remini Away.ini Presets pset1 %away.pset1 } 
  .... %away.preset2 { unset %away.preset2 %away.pset2 | remini away.ini Presets Preset2 %away.preset2 | remini Away.ini Presets pset2 %away.pset2 }  
  .... %away.preset3 { unset %away.preset3 %away.pset3 | remini away.ini Presets Preset3 %away.preset3 | remini Away.ini Presets pset3 %away.pset3 }  
  .... %away.preset4 { unset %away.preset4 %away.pset4 | remini away.ini Presets Preset4 %away.preset4 | remini Away.ini Presets pset4 %away.pset4 }  
  .... %away.preset5 { unset %away.preset5 %away.pset5 | remini away.ini Presets Preset5 %away.preset5 | remini Away.ini Presets pset5 %away.pset5 }  
  .... %away.preset6 { unset %away.preset6 %away.pset6 | remini away.ini Presets Preset6 %away.preset6 | remini Away.ini Presets pset6 %away.pset6 }  
  ..-
  ..Help: set %help.topic prepopups | dialog -m help help
  .Set Away { set %away.message $b $$?="Type your Away Message" | display }
  .Set Back { redisplay }
  .-
  . %away.pagerturn :{
    if (%away.pager = On) { 
      set %away.pager Off
      set %away.pagerturn Pager Off 
      Writeini Away.ini "Away Pager" Pager OFF
      Writeini Away.ini "Away Pager" PagerTurn Pager Off
      $etheme(Away Pager,Now Set At,Off)
    }
    else { 
      set %away.pager On
      set %away.Pagerturn Pager On
      Writeini Away.ini "Away Pager" Pager On
      Writeini Away.ini "Away Pager" PagerTurn Pager On
      $etheme(Away Pager,Now Set At,On)
    }
  }
  . %away.idleturn :{
    if (%away.idle = On) {
      set %away.idle Off
      set %away.idleturn Idle Off
      .timeridle Off
      writeini Away.ini "Idle Away" Idle Off
      writeini Away.ini "Idle Away" Idleturn Idle Off
      $etheme(Idle Away,Now Set At,Off)
    }
    else { 
      set %away.idle On 
      set %away.idleturn Idle On 
      .timeridle 0 10 Away.idle
      writeini Away.ini "Idle Away" Idle On
      writeini Away.ini "Idle Away" Idleturn Idle On
      $etheme(Idle Away,Now Set At,On) 
    }
  } 
  .NickChg- $+ %away.ncg:{
    if (%away.ncg = On) { 
      set %away.ncg Off
      writeini Away.ini "Nick Change" ncg Off 
      $etheme(Away NickChange,Now Set At,Off)
    }
    else { 
      set %away.ncg On 
      writeini Away.ini "Nick Change" ncg On
      $etheme(Away NickChange,Now Set At,On) 
    }
  }
  .-
  .Settings
  ..Set AwayNick ( $+ %away.awaynick $+ ):{
    set %away.regnick $me 
    Set %away.awaynick $$?="Enter New AwayNick ( %away.awaynick )" 
    writeini Away.ini "Away Setting" AwayNick %away.awaynick 
    vtheme Away NickName Now set at %away.awaynick
  }
  ..Set IdleNick ( $+ %away.idlenick $+ ):{
    set %away.regnick $me
    Set %away.idlenick $$?="Enter New IdleNick ( %away.idlenick )"
    writeini Away.ini "Away Setting" Idlenick %away.idlenick 
    vtheme Away IdleNick Now set at %away.idlenick
  }
  ..Set AwayRepeat- $+ %away.awr $+ mins:{
    set %away.awrep $$?="Enter Away Message Repeat Time in Minutes" * 60 | set %away.awr $! 
    writeini Away.ini "Away Setting" Minutes %away.awr 
    Writeini Away.ini "Away Setting" Seconds %away.awrep
    vtheme Repeat Away-Message Now set to %away.awr $+ mins
  }

  ..Set AwayIdle- $+ $duration(%away.idletime) :{
    set %away.idletime $$?="Enter Minutes of Idle Time Before Setting Away" * 60 | set %away.Iwr $calc(%away.idletime / 60) 
    writeini Away.ini "Away Setting" Idle %away.Iwr
    writeini Away.ini "Away Setting" Idle %away.idletime 
    vtheme Idle Time Now set to %away.Iwr $+ mins
  }
  ..Set PagerWav ( $+ %away.pagerwav $+ ):{
    set %away.pagerwave $dir="Pager Wave is ----> %away.pagerwav ... Select New?" $wavedir $+ [ [ %away.pagerwav ] ]
    set %away.pagerwav $nopath(%away.pagerwave)
    $etheme(Pager Wav,Now set to,$nopath(%away.pagerwave))
  }
  ..Set Themes:dialog -m themes themes
  ..View Pager:.dialog -m pager pager
  ..Uninstall Away System: Uninsta
  ..-
  ..Help: set %help.topic popsettings | dialog -m help help
  .-
  .Dialog Mode:.disable #popups | .enable #Dialogs | Dialog -m MasterAway MasterAway
  .Help: { 
    set %help.topic popups
    dialog -m help help
  }
}
#Popups end

#Dialogs on
menu channel {
  Ranger Away: dialog -m MasterAway MasterAway
}
#Dialogs end

alias Display {
  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) }
  if (%away.ncg = On) { 
    set %away.regnick $me
    if (Idle isin %away.message) { if (%away.idlenick = $null) { nick $idlenick } | else { nick %away.idlenick } } 
    elseif (Idle !isin %away.message) { if (%away.awaynick = $null) { nick $awaynick } | else { nick %away.awaynick } } 
  }
  if (%away.displayaway = Verbal) { 
    away %away.theme | ame %away.theme | .disable #Msgfilter
    .enable #MsgAway-filter
    .timer35 0 %away.awrep ame %away.theme
    if ($readini Away.ini Pager pagen1 != $null) { .dialog -m clearpages clearpages }
  }
  elseif (%away.displayaway = Silent) { 
    $etheme(Currently,Set Away,Silently) | away %away.theme | .disable #Msgfilter
    .enable #MsgAway-filter | if ($exists($mircdirpager.txt) = $true) { set %away.true $$?!="Current Pager File Still Active $crlf Save Current Pages?" |  if (%away.true = $true) { save-all | unset %away.true } | else { delete-all | unset %away.true } } 
  }
}
alias ReDisplay {
  Unset %away.theme %away.message 
  .disable #MsgAway-filter
  if (%away.ncg = On) { nick %away.regnick }
  away | resetidle 0 | .timer35 off
  if (%away.displayaway = Verbal) { ame 6I am 13No Longer 4Away } | else { $etheme(Back,from Being,Away) }
  if (%away.pnum = $null) { vtheme Pages Received During Your Away None } | else { dialog -m pageview pageview }
}
ctcp 1:page*:?:{
  if (%away.pager = On) { 
    .splay %away.pagerwav 
    if (%away.pnum = $null) { set %away.pnum 1 } | else { inc %away.pnum 1 }
    writeini Away.ini Pager pagen $+ %away.pnum $nick
    writeini Away.ini Pager paget $+ %away.pnum $atime $adate
    if ($2- = $null) { writeini Away.ini Pager pagem $+ %away.pnum No message Was left! } | else { writeini Away.ini Pager pagem $+ %away.pnum $2- }
    Notice $nick $xl 1,13 $+ $chr(160) $+ Page Received and Recorded $+ $chr(160) $+  $xl
    .ignore -tu12 *
  }
}
;______________________________
;   Error Preset 
;
dialog Error-Preset {
  title "-=[..ERROR..]=-"
  size -1 -1 250 150
  icon 1,20 15 100 100,
  text "SORRY ...( Preset Buffer Full )",2,70 25 150 20
  Box "",3,20 50 210 50,
  text "Can Not Enter Additional Presets",4,45 65 200 20
  text "You May Edit Existing Presets!",5,55 80 150 20
  button "Cancel",6,60 110 55 30,ok
  button "Edit",7,135 110 55 30,ok
}
on 1:dialog:Error-Preset:sclick:7: .dialog -k Error-preset | .dialog -am Presets Presets
on 1:dialog:Error-Preset:sclick:6: .dialog -k Error-preset


;______________________________
;   Clear Pages 
;
dialog ClearPages {
  title "-=[..ERROR..]=-"
  size -1 -1 250 150
  icon 1,20 15 100 100,
  text "SORRY ...( Active Pages in Pager )",2,60 25 170 20
  Box "",3,20 50 210 50,
  text "Must Save or Delete current Pages",4,45 70 200 20
  button "Save",6,60 110 55 30,ok
  button "Delete",7,135 110 55 30,ok
}
on 1:text:%awy1:#:{
  if ($away = $true) {
    if (($left($me,3) isin $1-) || ($me isin $1-)) {
      if (%away.theme != $null) { .Notice $nick %away.theme 4... To Send Me a Message type /ctcp $me Page <message> } | else { halt }
      set %awy1 off | .timer 1 10 set %awy1 $chr(42)
    }
    else { halt }
  }
}
#MsgAway-filter off
on 1:open:?:{
  if (($nick = $me) || ($nick isin %exempt)) { halt }
  set %msgaway.nick $nick
  if (($away = $true) && (%away.pager = On)) {   
    .msg %msgaway.nick $hiline(Currently,*,Away) 
    .msg %msgaway.nick $xl $d $+ I am only accepting Pager Messages 
    .msg %msgaway.nick $xl $d $+ Use /ctcp $me page <Your*Message> 
    .msg %msgaway.nick $lowline
    .close -m %msgaway.nick
    .timer 1 5 unset %msgaway.nick
  }
  elseif (($away = $true) && (%away.pager = Off)) {
    .msg %msgaway.nick $hiline(Currently,*,Away)
    .msg %msgaway.nick $xl $d $+ I am Not Available $xl $+ $a MSG's Disabled
    .msg %msgaway.nick $lowline
    .close -m %msgaway.nick
    .timer 1 5 unset %msgaway.nick
  }
  :end 
}
#MsgAway-filter end

on 1:input:?: {
  if (($away = $true) && ($nick !isin %Exempt)) {
    set %exempt %exempt $nick
  }
}

Raw 301:*: if ($me isin $2) { Halt } | elseif (($group(#whoiss) != On) && ($group(#whoisc) != On)) { echo $d $2 is AWAY: $3- | halt }
Raw 306:*: echo 4 -s Now Away | halt
Raw 305:*: echo 3 -s Now Back | halt
on 1:connect: {
  .enable #click #Unclick
  if (%away.idle = On) { .timeridle 0 10 Away.idle }
}

#Idle off
on 1:input:#:.disable #Idle | Redisplay
#Idle end

alias Away.idle {
  if (%away.idle = Off) { halt }
  if ($away = $true) { halt }
  elseif ($idle > %away.idletime) { set %away.message Idle After $duration(%away.idleTime) | .enable #Idle | Display }
}
alias etheme {
  if ($readini Away.ini Themes Theme = Themeone) { set %etheme echo -s  $+ %clr1 $+  $+ %clr2 $1  $+ %clr1 $+  $+ %Clr3 $2  $+ %clr1 $+  $+ %clr2 $3 }
  if ($readini Away.ini Themes Theme = Themetwo) { set %etheme echo -s  $+ %clr1 $+  $+ %clr2 $1  $+ %clr1 $+  $+ %Clr3 $2  $+ %clr1 $+  $+ %clr2 $3 }
  if ($readini Away.ini Themes Theme = Themethree) { set %etheme echo -s %Clr1 $+  $+ %clr2 $chr(91) $+ %Clr3 $+ $1 $+ %clr2 $+ $chr(93) $+ %Clr1  $+ %clr2 $chr(91) $+ %Clr3 $+ $2 $+ %clr2 $+ $chr(93) $+ %Clr1  $+ %clr2 $chr(91) $+ %clr3 $+ $3 $+ %clr2 $+ $chr(93) }
  if ($readini Away.ini Themes Theme = Themefour) { set %etheme echo -s  $+ %Clr1 $+ < $+ %clr2 $+ $1 $+  $+ %clr1 $+ > $+ %Clr3   $+ %clr1 $+ < $+ %Clr3 $+ $2 $+  $+ %clr1 $+ > $+ %clr3   $+ %clr1 $+ < $+ %clr2 $+ $3 $+  $+ %clr1 $+ > }
  if ($readini Away.ini Themes Theme = Themefive) { set %etheme echo -s %clr1 $+  $+ %clr2 $+  $+ $1 $+  $+ %clr1 $+  %clr3 $+  %clr1 $+  $+ %clr2 $+ $2 $+ %clr1 $+  %clr3 $+  %clr1 $+  $+ %clr3 $3 %clr1 $+  }
  if ($readini Away.ini Themes Theme = Themesix) { set %etheme echo -s %Clr1 $+  $+ %clr2 $chr(91) $+ %Clr3 $+ $1 $+ %clr2 $+ $chr(93) $+ %Clr1  $+ %clr2 $chr(91) $+ %Clr3 $+  $+ $2 $+  $+ %clr2 $+ $chr(93) $+ %Clr1  $+ %clr2 $chr(91) %clr3 $+ $3 $+ %clr2 $chr(93) }  
  return %etheme
}
alias vtheme {
  if ($readini Away.ini Themes Theme = Themeone) { echo -s  $+ %clr1 $+  $+ %clr2 $1 $2  $+ %clr1 $+  $+ %Clr3 $3 $4 $5  $+ %clr1 $+  $+ %clr2 [ [ $6- ] ] }
  if ($readini Away.ini Themes Theme = Themetwo) { echo -s  $+ %clr1 $+  $+ %clr2 $1 $2  $+ %clr1 $+  $+ %Clr3 $3 $4 $5  $+ %clr1 $+  $+ %clr2 $6 }
  if ($readini Away.ini Themes Theme = Themethree) { echo -s %Clr1 $+  $+ %clr2 $chr(91) $+ %Clr3 $+ $1 $2 $+ %clr2 $+ $chr(93) $+ %Clr1  $+ %clr2 $chr(91) $+ %Clr3 $+ $3 $4 $5 $+ %clr2 $+ $chr(93) $+ %Clr1  $+ %clr2 $chr(91) $+ %clr3 $+ $6 $+ %clr2 $+ $chr(93) }
  if ($readini Away.ini Themes Theme = Themefour) { echo -s  $+ %Clr1 $+ < $+ %clr2 $+ $1 $2 $+  $+ %clr1 $+ > $+ %Clr3   $+ %clr1 $+ < $+ %Clr3 $+ $3 $4 $5 $+  $+ %clr1 $+ > $+ %clr3   $+ %clr1 $+ < $+ %clr2 $+ $6 $+  $+ %clr1 $+ > }
  if ($readini Away.ini Themes Theme = Themefive) { echo -s %clr1 $+  $+ %clr2 $+  $+ $1 $2 $+  $+ %clr1 $+  %clr3 $+  %clr1 $+  $+ %clr2 $+ $3 $4 $5 $+ %clr1 $+  %clr3 $+  %clr1 $+  $+ %clr3 $6 %clr1 $+  }
  if ($readini Away.ini Themes Theme = Themesix) { echo -s %Clr1 $+  $+ %clr2 $chr(91) $+ %Clr3 $+ $1 $2 $+ %clr2 $+ $chr(93) $+ %Clr1  $+ %clr2 $chr(91) $+ %Clr3 $+  $+ $3 $4 $5 $+  $+ %clr2 $+ $chr(93) $+ %Clr1  $+ %clr2 $chr(91) %clr3 $+ $6 $+ %clr2 $chr(93) }  
}
alias hiline set %hiline $calc(41 - ($len($1-2) +17)) | return 6 $+ $str($chr(95),4) $+  $+ $chr(171) $+ $chr(123) $+  $+ 13 $1-3 6 $+  $+ $chr(125) $+ $chr(187) $+  $+ $str($chr(95),%hiline)
alias lowline return 6 $+ $str($chr(175),38)
alias atime {
  set %atime.hr $token(1,58,$time)
  set %atime.min $token(2,58,$time)
  if (%atime.hr == 0) { set %atime.hr 12 | set %atime.sub am }
  elseif (%atime.hr < 12) { set %atime.sub am }
  elseif (%atime.hr == 12) { set %atime.sub pm }
  else { %atime.hr = %atime.hr - 12 | set %atime.sub pm }
  .timer 1 5 unset %atime*
  return %atime.hr $+ : $+ %atime.min $+ %atime.sub
}
;______________________________
;   Help Table 
;

Dialog Help { 
  title "-=[..HELP Ranger Away System..]=-"
  size -1 -1 250 200
  icon 1,170 30 100 100,
  text "Help Topics",2,40 10 100 20
  List 3,25 30 100 150,vsbar,extsel
  button "VIEW",4,160 120 60 25,ok
  button "OK",6,160 155 60 25,ok
}
on 1:dialog:Help:init:0: {
  if (%help.topic = popups) {
    did -i Help 3 1 Silent
    did -i Help 3 2 Verbal
    did -i Help 3 3 Preset-Aways
    did -i Help 3 4 Set-Away
    did -i Help 3 5 Set-Back
    did -i Help 3 6 Pager
    did -i Help 3 7 Idle
    did -i Help 3 8 NickChg
    did -i Help 3 9 Settings
    did -i Help 3 10 Dialog-Mode
    did -i Help 3 11 Aliases
  }
  elseif (%help.topic = Prepopups) {
    did -i Help 3 1 Presets
    did -i Help 3 2 Add-Presets
    did -i Help 3 3 Edit-Presets
  }
  elseif (%help.topic = popsettings) {
    did -i Help 3 1 AwayNick
    did -i Help 3 2 IdleNick
    did -i Help 3 3 AwayRepeat
    did -i Help 3 4 AwayIdle
    did -i Help 3 5 Pagerwav
    did -i Help 3 6 Themes
    did -i Help 3 7 Uninstall
  }
  elseif (%help.topic = Maindia) {
    did -i Help 3 1 PresetAways
    did -i Help 3 2 ManualAway
    did -i Help 3 3 Pager.
    did -i Help 3 4 ?-Button
    did -i Help 3 5 !-Button
    did -i Help 3 6 View
    did -i Help 3 7 AwayOnIdle
    did -i Help 3 8 NickChange
    did -i Help 3 9 Settings.
    did -i Help 3 10 Uninstall
    did -i Help 3 11 SetAway
    did -i Help 3 12 SetBack
    did -i Help 3 13 PopupMode
    did -i Help 3 14 SilentMode
    did -i Help 3 15 Themes.
    did -i Help 3 16 Aliases
  }
  elseif (%help.topic = Presets) {
    did -i Help 3 1 Titles
    did -i Help 3 2 Messages
  }
  elseif (%help.topic = Settings) {
    did -i Help 3 1 AwayNickName 
    did -i Help 3 2 IdleNickName
    did -i Help 3 3 Away-Repeat
    did -i Help 3 4 Idle-Away-Time
    did -i Help 3 5 Aliases
  }
  elseif (%help.topic = Pager) {
    did -i Help 3 1 Next
    did -i Help 3 2 Back
    did -i Help 3 3 Save
    did -i Help 3 4 Delete
    did -i Help 3 5 Archive
    did -i Help 3 6 SaveAll
    did -i Help 3 7 DeleteAll
    did -i Help 3 8 Whois
    did -i Help 3 9 Aliases
  }
  elseif (%help.topic = Themes) {
    did -i Help 3 1 Choose-Theme
    did -i Help 3 2 Choose-Colors
    did -i Help 3 3 Preview
    did -i Help 3 11 Aliases
  }
}
on 1:dialog:Help:sclick:6:if ($group(#dialogs) = on) { .dialog -k Help | dialog -am Masteraway Masteraway } | else { .dialog -k Help }
on 1:dialog:Help:sclick:4: {
  set %seltop $did(Help,3,$did(help,3,1).sel)).text
  if (%seltop = $null) { set %helpline Error You Must Select a Topic First! }
  dialog -k help | .dialog -am Helpscrn Helpscrn
}
on 1:dialog:Help:dclick:3: {
  set %seltop $did(Help,3,$did(help,3,1).sel)).text
  if (%seltop = $null) { set %helpline Error You Must Select a Topic First! }
  dialog -k help | .dialog -am Helpscrn Helpscrn
}
Dialog Helpscrn { 
  title "-=[..Ranger Help Screen..]=-"
  size -1 -1 250 200
  list 2,20 20 210 140,
  button "OK",6,100 165 60 25,ok
}
on 1:dialog:Helpscrn:init:0: {
  if (Error isin %Helpline) { goto error }
  set %helpline $readini Away.ini "Help Popups" %seltop
  dialog -t Helpscrn Help $str($chr(160),6) *** $str($chr(160),2) %seltop $str($chr(160),2) *** 
  :error
  did -a Helpscrn 2 $gettok(%helpline,1,32)
  did -a Helpscrn 2 $gettok(%helpline,2-7,32)
  did -a Helpscrn 2 $gettok(%helpline,8-13,32)
  did -a Helpscrn 2 $gettok(%helpline,14-19,32)
  did -a Helpscrn 2 $gettok(%helpline,20-25,32)
  did -a Helpscrn 2 $gettok(%helpline,26-31,32)
  did -a Helpscrn 2 $gettok(%helpline,32-37,32)
  did -a Helpscrn 2 $gettok(%helpline,38-43,32)
  did -a Helpscrn 2 $gettok(%helpline,44-49,32)
  unset %helpline
}
on 1:dialog:Helpscrn:sclick:6:dialog -k Helpscrn | dialog -am Help Help

dialog pageview {
  title "View Pages"
  size 0 0 125 75
  edit "",1,10 10 30 25,read
  text "PAGES",2,60 8 40 25
  text "VIEW?",3,60 22 50 25
  button "Now",4,10 45 45 25,ok
  button "Later",5,70 45 45 25,ok
}
on 1:dialog:pageview:init:0: did -a pageview 1 %away.pnum
on 1:dialog:pageview:sclick:4: dialog -k pageview | dialog -m Pager Pager
alias BRB set %away.message Be Right Back | Display
alias IB ReDisplay
alias QA set %away.message $1- | if ($1- = $null) { set %away.message Had to Go | Display } | else { Display }
alias Pager dialog -m Pager Pager
alias Themes dialog -m Themes Themes
alias Settings dialog -m Settings Settings
alias Ark run notepad $mircdirAwaySys\pagerark.txt
alias clearark write -c $mircdirAwaysys\pagerark.txt | $etheme(Pager Archive,Has Now Been,Deleted)
menu nicklist,query {
  Paging
  .Message:.ctcp $$1 Page $$?="Enter Your Page Message" | echo 14 -s Pager Message to $$1
  .No-Message:.ctcp $$1 Page | echo 14 -s Paged $$1 No-Message
}
