Anonymous

alias debugger { window -dEK1 @Debugger }

on *:INPUT:@Debugger: { 
  if ($1 == Convert) {
    ; Space does not work yet...
    if ($2 == $null) { 
      aline @Debugger Please specify the character to convert over to ascii code. | halt 
    }
    else { 
      set %char $2
      aline @Debugger Char Code: %char
      aline @Debugger Ascii Code: $asc(%char)
    }
  }
  if ($1 == Help) {
    aline @Debugger Help Commands
    aline @Debugger 
    aline @Debugger Clear
    aline @Debugger Clears the debugging window
    aline @Debugger 
    aline @Debugger Convert <Char>
    aline @Debugger Convert CHAR to ASCII
    aline @Debugger 
    aline @Debugger Date       
    aline @Debugger Displays today's date
    aline @Debugger 
    aline @Debugger Show [Local|Global|All]
    aline @Debugger Display value(s) in variable(s)
    aline @Debugger       
    aline @Debugger Time  
    aline @Debugger Shows current time
  }
  if ($1- == Date) { aline @Debugger Today's Date is $adate }
  if ($1- == Time) { aline @Debugger Current time is $asctime(hh:nn TT) }
  if ($1- == Clear) { clear @Debugger }
  if ($1 == Show) {
    if ($2 == $null) { aline @Debugger Invalid Syntax. | aline @Debugger ? }
    if ($2 == Global) {
      var %r = 1
      var %t = $var(%*,0)
      aline @Debugger Global Variables       
      while (%r <= %t) {
        if ($var(%*,%r).local == $false) {
          aline @Debugger $var(%*,%r) $var(%*,%r).value
        }
        inc %r           
      } 
    }
    if ($2 == Local) {
      var %r = 1
      var %t = $var(%*,0)
      aline @Debugger Local Variables      
      while (%r <= %t) {
        if ($var(%*,%r).local) { 
          aline @Debugger $var(%*,%r) $var(%*,%r).value
        }        
        inc %r
      } 
    }
    if ($2 == All) || ($2 == all) {
      aline @Debugger Showing All Variables
      var %r = 1
      var %t = $var(%*,0)
      while (%r <= %t) {
        aline @Debugger $var(%*,%r) $var(%*,%r).value
        inc %r
      }
    }
  }
}