Script View ©1998© Part II by Pain <hlessing@iafrica.com>
This file is needed for Script View to run 
***********************************************
on 1:LOAD:{ .timersview2anounceONE00 1 1 echo -s - | .timersview2anounceONE01 1 1 echo -s sview2.mrc Loaded!  | .timersview2introloas -m 1 1400 sview.intro.onload0  }
alias sview.search.dialog {
  if ($1 == $null) { set %sview.searchwin SV }
  if ($1 == nwin) { set %sview.searchwin NWin }
  set %sview.sg.who Search
  window -c @SV.TextBox  
  sview.draw.win @SV_Search 250 150 250 100
  drawtext -rc @SV_Search $rgb(255,255,255) 100 1 150 20 Search 
  drawtext -rc @SV_Search $rgb(0,0,0) Arial 14 20 25 500 20 Enter text to search for and click on OK
  ;TextBox
  sview.draw.textbox @SV_Search 20 40 190
  ;--
  sview.draw.but @SV_Search 49 67 50 20 Out
  drawtext -rc @SV_Search $rgb(0,0,0) Arial 15 65 71 100 20 OK
  sview.draw.but @SV_Search 129 67 50 20 Out
  drawtext -rc @SV_Search $rgb(0,0,0) Arial 15 136 71 100 20 Cancel
  window -eh +b @SV.TextBox 274 194 188 19
  window -ra @SV.TextBox  
}
menu @SV_Search {
  sclick {
    window -c @SV.TextBox
    if ($inrect($mouse.x,$mouse.y,20,40,190,20) == $true) {
      window -eh +b @SV.TextBox 274 194 188 19
      window -ra @SV.TextBox      
    }
    if ($inrect($mouse.x,$mouse.y,49,67,50,20) == $true ) {
      sview.draw.but @SV_Search 49 67 50 20 In
      .timersearchclosetempyes00 -m 1 200 window -c @SV_Search      
      .timersearchclosetempyes01 -m 1 200 window -c @SV.Textbox
      sview.search %sview.searchwin
    }
    if ($inrect($mouse.x,$mouse.y,129,67,50,20) == $true ) {
      sview.draw.but @SV_Search 129 67 50 20 In    
      .timersearchclosetemp00 -m 1 200 window -c @SV_Search  
      .timersearchclosetemp01 -m 1 200 window -c @SV.Textbox
  } }
}
on 1:INPUT:@SV.TextBox* {
  if (%sview.sg.who == Search) {
    set %sview.stext * $+ $1- $+ *
    window -c @SV.TextBox
    drawrect -fr @SV_Search $rgb(255,255,255) 1 22 42 186 16 
    drawtext -rc @SV_Search $rgb(0,0,0) 24 43 500 30 $mid(%sview.stext,2,$calc($len(%sview.stext) - 2))
    drawrect -fr @SV_Search $rgb(192,192,192) 1 211 42 166 16 
    drawline -r @SV_Search $rgb(255,255,255) 1 210 40 210 61
    window -a @SV_Search
    halt
  }
  if (%sview.sg.who == Goto) {
    set %sview.gotoline $1-
    window -c @SV.TextBoxG
    drawrect -fr @SV_Goto $rgb(255,255,255) 1 22 42 166 16 
    drawtext -rc @SV_Goto $rgb(0,0,0) 24 43 300 20 %sview.gotoline
    drawrect -fr @SV_Goto $rgb(192,192,192) 1 191 42 166 16 
    drawline -r @SV_Goto $rgb(255,255,255) 1 190 40 190 61
    window -c @SV_Goto
    sview.gotoline %sview.gotowin
    ;window -a @SV_Goto
    halt
  }
  if (%sview.sg.who == sFiles) {
    set %sview.sFiles $1-
    window -c @SV.TextBoxFS
    window -a @SView.slistbox
    drawrect -fr @SView.slistbox $rgb(255,255,255) 1 22 42 166 16 
    drawtext -rc @SView.slistbox $rgb(0,0,0) 24 43 200 30 %sview.sFiles
    drawrect -fr @SView.slistbox $rgb(192,192,192) 1 191 42 166 16 
    drawline -r @SView.slistbox $rgb(255,255,255) 1 190 40 190 61
    if (%sview.sfiles == $null)  { window -c @SV.TextboxSF | window -c @SView.slistbox | halt }
    set %sview.sfile_line $fline(@Script_View,%sview.sfiles,1,1) 
    sview.draw.but @SView.slistbox 49 67 50 20 In
    .timersviewfilesearch_00 -m 1 200 window -c @SV.TextboxSF
    .timersviewfilesearch_01 -m 1 200 window -c @SView.slistbox
    if (%sview.sfile_line == $null) { echo -se 4SV> 2Sorry, no match found ! | halt }
    sline -l @Script_View %sview.sfile_line
    halt    
  }
}
alias sview.goto.dialog {
  if ($1 == nwin) { set %sview.gotowin nwin }
  if ($1 == $null) { set %sview.gotowin @Script_View }
  set  %sview.sg.who Goto
  sview.draw.win @SV_Goto 200 170 250 100
  drawtext -rc @SV_Goto $rgb(255,255,255) 90 1 200 20 Goto Line
  drawtext -rc @SV_Goto $rgb(0,0,0) Arial 14 20 25 500 20 Enter line number 
  sview.draw.textbox @SV_Goto 20 40 170
  sview.draw.but @SV_Goto 49 67 50 20 Out
  drawtext -rc @SV_Goto $rgb(0,0,0) Arial 15 65 71 100 20 OK
  sview.draw.but @SV_Goto 110 67 50 20 Out
  drawtext -rc @SV_Goto $rgb(0,0,0) Arial 15 116 71 150 20 Cancel
  window -eh +b @SV.TextboxG 224 214 168 19
  window -ra @SV.TextboxG
}
menu @SV_Goto {
  sclick {
    window -c @SV.TextBoxG
    if ($inrect($mouse.x,$mouse.y,20,40,170,20) == $true) {
      window -eh +b @SV.TextboxG 224 214 168 19
      window -ra @SV.TextboxG      
    }
    if ($inrect($mouse.x,$mouse.y,49,67,50,20) == $true ) {
      sview.draw.but @SV_Goto 49 67 50 20 In
      .timergotoclosetempyes00 -m 1 200 window -c @SV_Goto      
      .timergotoclosetempyes01 -m 1 200 window -c @SV.TextboxG
      sview.gotoline %sview.gotowin
    }
    if ($inrect($mouse.x,$mouse.y,110,67,50,20) == $true ) {
      sview.draw.but @SV_Goto 110 67 50 20 In    
      .timergotoclosetemp00 -m 1 200 window -c @SV_Goto
      .timergotoclosetemp01 -m 1 200 window -c @SV.TextboxG
  } }
}
alias sview.draw.textbox {
  ;The following is a copy of what a guy called EAE has done 
  ;Go get his brilliant GUI script at ircweb.net/eae
  drawrect -r $1 $rgb(255,255,255) 1 $2 $3 $4 20
  drawrect -rf $1 $rgb(255,255,255) 1 $calc( $2 + 2 ) $calc( $3 + 2 ) $calc( $4 - 4 ) 16
  drawline -r $1 $rgb(127,127,127) 1 $2 $3 $calc( $2 + $4 ) $3
  drawline -r $1 $rgb(127,127,127) 1 $2 $3 $2 $calc( $3 + 21 )
  drawline -r $1 $rgb(0,0,0) 1 $calc( $2 + 1 ) $calc( $3 + 1 ) $calc( $2 + $4 - 1 ) $calc( $3 + 1 )
  drawline -r $1 $rgb(0,0,0) 1 $calc( $2 + 1 ) $calc( $3 + 1 ) $calc( $2 + 1 ) $calc( $3 +  20 )
}
;DRAW Button:
alias sview.draw.but {
  ;The following is a copy of what a guy called EAE has done 
  ;Go get his brilliant GUI script at ircweb.net/eae
  if ($1 == $null) || ($2 == $null) || ($3 == $null) || ($4 == $null) || ($5 == $null) || ($6 == $null) { echo -se 2** Too few parameters : sview.draw.but @Window x y w h Out/In }
  if ($6 == Out) {
    drawline -r $1 $rgb(255,255,255)  1 $2 $3 $2 $calc($3 + ($5 + 3))
    drawline -r $1 $rgb(255,255,255)  1 $2 $3 $calc($2 + ($4 + 3)) $3
    drawline -r $1 $rgb(0,0,0) 1 $calc($2 + ($4 + 2)) $3 $calc($2 + ($4 + 2)) $calc($3 + ($5 + 3))
    drawline -r $1 $rgb(0,0,0) 1 $2 $calc($3 + ($5 + 2)) $calc($2 + ( $4 + 3)) $calc($3 + ($5 + 2))
    drawline -r $1 $rgb(127,127,127) 1 $2 $calc($3 + ($5 + 1)) $calc($2 + ($4 + 2)) $calc($3 + ($5 + 1))
    drawline -r $1 $rgb(127,127,127) 1 $calc($2 + ($4 + 1)) $3 $calc($2 + ($4 + 1)) $calc($3 + ($5 + 2))
    drawline -r $1 $rgb(220,220,220) 1 $calc($2 + 1)  $calc($3 + 1) $calc($2 + 1) $calc($3 + ($5 +1))
    drawline -r $1 $rgb(220,220,220) 1 $calc($2 + 1)  $calc($3 + 1) $calc($2 + ($4 + 1)) $calc($3 + 1)
  }
  if ($6 == In) {
    drawline -r $1 $rgb(0,0,0)  1 $2 $3 $2 $calc($3 + ($5 + 3))
    drawline -r $1 $rgb(0,0,0)  1 $2 $3 $calc($2 + ($4 + 3)) $3
    drawline -r $1 $rgb(255,255,255) 1 $calc($2 + ($4 + 2)) $3 $calc($2 + ($4 + 2)) $calc($3 + ($5 + 3))
    drawline -r $1 $rgb(255,255,255) 1 $2 $calc($3 + ($5 + 2)) $calc($2 + ( $4 + 3)) $calc($3 + ($5 + 2))
    drawline -r $1 $rgb(192,192,192) 1 $2 $calc($3 + ($5 + 1)) $calc($2 + ($4 + 2)) $calc($3 + ($5 + 1))    
    drawline -r $1 $rgb(192,192,192) 1 $calc($2 + ($4 + 1)) $3 $calc($2 + ($4 + 1)) $calc($3 + ($5 + 2))
    drawline -r $1 $rgb(192,192,192) 1 $calc($2 + 1)  $calc($3 + 1) $calc($2 + ($4 + 1)) $calc($3 + 1)
  }    
}
;Search File in sListbox:
alias sview.slistbox.dialog {
  set  %sview.sg.who sFiles
  sview.draw.win @SView.slistbox 200 170 250 100
  sview.draw.textbox @SView.slistbox 20 40 170 
  drawtext -rc @SView.slistbox $rgb(255,255,255) 75 1 300 20 Search for File
  drawtext -rc @SView.slistbox $rgb(0,0,0) Arial 14 20 25 400 20 Enter file name
  sview.draw.but @SView.slistbox 49 67 50 20 Out
  drawtext -rc @SView.slistbox $rgb(0,0,0) Arial 15 65 71 100 20 OK
  sview.draw.but @SView.slistbox 110 67 50 20 Out
  drawtext -rc @SView.slistbox $rgb(0,0,0) Arial 15 116 71 150 20 Cancel
  window -eh +b @SV.TextBoxSF 224 214 168 19
  window -a @SV.TextBoxSF  
}
menu @SView.slistbox {
  sclick {
    window -c @SV.TextBoxSF
    if ($inrect($mouse.x,$mouse.y,20,40,170,20) == $true) {
      window -eh +b @SV.TextBoxSF 224 214 168 19
      window -a @SV.TextBoxSF  
    }
    if ($inrect($mouse.x,$mouse.y,49,67,50,20) == $true ) {
      if (%sview.sfiles == $null)  { window -c @SV.TextboxSF | window -c @SView.slistbox | halt }
      set %sview.sfile_line $fline(@Script_View,%sview.sfiles,1,1)
      sview.draw.but @SView.slistbox 49 67 50 0 In
      .timersviewfilesearch_00 -m 1 200 window -c @SV.TextboxSF
      .timersviewfilesearch_01 -m 1 200 window -c @SView.slistbox
      if (%sview.sfile_line == $null) { echo -se 4SV> 2Sorry, no match found ! | halt }
      sline -l @Script_View %sview.sfile_line
    }
    if ($inrect($mouse.x,$mouse.y,110,67,50,20) == $true ) {
      sview.draw.but @SView.slistbox 110 67 50 20 In    
      .timersviewfsearchclose -m 1 150 window -c @SView.slistbox
    }
  }
}
alias _sview.unload {
  _quit.sview
  sview.draw.win @SView_Unload 200 150 250 120
  drawtext -rc @SView_Unload $rgb(255,255,255) 60 1 500 20 Unload Script View
  drawtext -rc @SView_Unload $rgb(0,0,0) Arial 14 10 25 500 20 Please make sure that all Script View windows 
  drawtext -rc @SView_Unload $rgb(0,0,0) Arial 14 10 40 500 20 are closed before continuing
  drawtext -rc @SView_Unload $rgb(0,0,0) Arial 14 100 62 200 20 Continue?
  drawtext -rc @SView_Unload $rgb(0,0,0)  64 83 100 20 OK
  drawtext -rc @SView_Unload $rgb(0,0,0)  145 83 150 20 Cancel
  sview.draw.but @Sview_Unload 50 80 50 20 Out
  sview.draw.but @Sview_Unload 140 80 50 20 Out
  halt
}
menu @SView_Unload {
  sclick {
    if ($inrect($mouse.x,$mouse.y,50,80,50,20) == $true) {
      sview.draw.but @Sview_Unload 50 80 50 20 In
      .timersviewunloadok00 -m 1 300 sview.draw.but @Sview_Unload 50 80 50 20 Out
      .timersviewunloadok01 -m 1 400 window -c @SView_Unload
      .timersviewan00 -m 1 700 echo -se 4SV> 6Script View 8,1Unloaded !
      .timerssviewu1 -m 1 1000  .unload -rs $shortfn($scriptdirsview.mrc)
      .timerssviewu2 -m 1 1200  .unload -rs $shortfn($scriptdirsview2.mrc)
      unset %sview.*    
    }
    if ($inrect($mouse.x,$mouse.y,140,80,50,20) == $true) {   
      sview.draw.but @Sview_Unload 140 80 50 20 In
      .timersviewunloadcancel00 -m 1 300 sview.draw.but @Sview_Unload 140 80 50 20 Out
      .timersviewunloadcancel00 -m 1 310 window -c @SView_Unload
  } }
}
alias sview.draw.win {
  ;Idea out of RR-GUI v3.0 by EAE
  if ($7 == Titlebar) { 
    set %sview.draw.win_size 25
  }
  else { set %sview.draw.win_size 15 }
  set %sview.draw.win_col 230
  set %sview.draw.win_col2 110
  set %sview.draw.win.x 0
  if ($6 == _title) { goto fade }
  window -ph +f $1 $2 $3 $4 $5
  window -a $1
  drawrect -fr $1 $rgb(192,192,192) 1 0 0 $4 $5
  :fade  
  if (%sview.draw.win.x >= $4) { drawdot $1 | return }
  drawrect -frn $1 $rgb(0,%sview.draw.win_col2,%sview.draw.win_col) 1 %sview.draw.win.x 1 $calc($4 / 150)  %sview.draw.win_size 
  dec %sview.draw.win_col 1
  if (%sview.draw.win_col2 == 0) { set %sview.draw.win_col2 0 }
  if (%sview.draw.win_col2 > 0 ) { dec %sview.draw.win_col2 1 }
  inc %sview.draw.win.x $calc($4 / 150)
  goto fade
  :done
}
alias sview.small.but {
  if ($4 == Out) {
    drawline -r $1 $rgb(255,255,255)  1 $2 $3 $2 $calc($3 + 15)
    drawline -r $1 $rgb(255,255,255)  1 $2 $3 $calc($2 + 14) $3
    drawline -r $1 $rgb(0,0,0) 1 $calc($2 + 15) $3 $calc($2 + 15) $calc($3 + 15)
    drawline -r $1 $rgb(0,0,0) 1 $2 $calc($3 + 14) $calc($2 + 15) $calc($3 + 14)  
  }
  if ($4 == In) {
    drawline -r $1 $rgb(0,0,0)  1 $2 $3 $2 $calc($3 + 15)
    drawline -r $1 $rgb(0,0,0)  1 $2 $3 $calc($2 + 15) $3
    drawline -r $1 $rgb(255,255,255) 1 $calc($2 + 15) $3 $calc($2 + 15) $calc($3 + 15)
    drawline -r $1 $rgb(255,255,255) 1 $2 $calc($3 + 14) $calc($2 + 15) $calc($3 + 14)  
  }
}
;TBAR:
alias sview.titlebar {
  sview.draw.win @SView.Titlebar 1 0 799 25 Titlebar
  window -ph @SView.Titlebar
  window -a @SView.TitleBar
  drawrect -fr @SView.Titlebar $rgb(192,192,192) 1 758 3 12 12
  drawrect -fr @SView.Titlebar $rgb(192,192,192) 1 776 3 12 12
  sview.small.but @SView.TitleBar 757 2 Out
  sview.small.but @SView.TitleBar 775 2 Out
  drawline -r @SView.TitleBar $rgb(0,0,0) 2 761 14 766 14
  drawtext -rc @SView.TitleBar $rgb(0,0,0) Marlett 10 777 4 50 20 r 
  window -a @Script_View
  .timersviewcheck_statewin00 -m 0 5 _sview_check.win_state
}
menu @SView.Titlebar {
  sclick { 
    if ($inrect($mouse.x,$mouse.y,1,1,16,16) == $true) { _sview.titlebar_popup }
    if ($inrect($mouse.x,$mouse.y,757,2,15,15) == $false) && ($inrect($mouse.x,$mouse.y,775,2,15,15) == $false) && ($inrect($mouse.x,$mouse.y,1,1,16,16) == $false) { window -a @Script_View }
    if ($inrect($mouse.x,$mouse.y,757,2,15,15) == $true) { 
      sview.small.but @SView.Titlebar 757 2 In
      .timersviewmini01 -m 1 350 sview.small.but @SView.TitleBar 757 2 Out
      .timersviewmini001 -m 1 420  window -n @SView.Titlebar
      .timersviewmini002 -m 1 430  window -n @Script_View
      .timersviewmini003 -m 1 450  window -n @sview_status
      .timersviewcheckmini00 -m 1 500 .timersviewstate -m 0 1 sview.win.state
    }
    if ($inrect($mouse.x,$mouse.y,775,2,15,15) == $true) { 
      sview.small.but @SView.Titlebar 775 2 In
      .timersviewclosetitle01 -m 1 350 sview.small.but @SView.Titlebar 775 2 Out
      .timersviewshine* off
      .timersviewcheck_statewin00 off
      .timersviewstate off
      .timersviewcheckwin_titlebar_ontop off
      .timersviewclosetitle02 -m 1 400 window -c @SView.Titlebar
      .timersviewclosetitle03 -m 1 405 window -c @Script_View
      .timersviewclosetitle04 -m 1 420 window -c @sview_status
    }
  }
  dclick { 
    if ($inrect($mouse.x,$mouse.y,1,1,16,16) == $true) { window -c @SView.TitlePop | _quit.sview | halt }
    if ($inrect($mouse.x,$mouse.y,757,2,15,15) == $false) && ($inrect($mouse.x,$mouse.y,775,2,15,15) == $false) { window -a @Script_View } 
  }
}
alias sview.win.state {
  if ($window(@Script_View).state != minimized) { window -a @SView.Titlebar | window -a @sview_status | window -a @Script_View | .timersviewstate off }
}
alias _sview_check.win_state {
  if ($active == @Script_View)  && ($window(@Sview.Titlebar).state != normal)  { 
    window -a @SView.titlebar
    window -a @Script_View
  }
  if ($active == @SView.Titlebar )  { window -a @Script_View }
  if ($active != @Script_View) { .timersviewcheckwin_titlebar_ontop -m 0 5 _sview.titlebar.ontop }
  if ($active == @sview_status) { window -a @Script_View }
}
alias _sview.titlebar.ontop {
  if ($active == @Script_View) {
    window -a @SView.Titlebar
    window -a @sview_status
    window -a @Script_View
    .timersviewcheckwin_titlebar_ontop off
  }
}
alias _sview.draw.titlebar {
  drawpic @SView.Titlebar 2 1 $shortfn($scriptdirsview.bmp)
  sview.small.but @SView.TitleBar 757 2 Out
  sview.small.but @SView.TitleBar 775 2 Out
  drawrect -fr @SView.Titlebar $rgb(192,192,192) 1 758 3 12 12
  drawrect -fr @SView.Titlebar $rgb(192,192,192) 1 776 3 12 12
  drawline -r @SView.TitleBar $rgb(0,0,0) 2 761 14 766 14  
  drawtext -rc @SView.TitleBar $rgb(0,0,0) Marlett 10 777 4 50 20 r 
  drawline -r @SView.Titlebar $rgb(127,127,127) 1 770 2 770 16
  drawline -r @SView.Titlebar $rgb(127,127,127) 1 757 15 770 15
  drawline -r @SView.Titlebar $rgb(127,127,227) 1 788 2 788 16
  drawline -r @SView.Titlebar $rgb(127,127,127) 1 775 15 789 15
  sview.intro.shine
}
;Titlebar Popup:
alias  _sview.titlebar_popup {
  window -ph +f @SView.TitlePop 0 20 100 62
  set %sview.titlepop_about.x 0
  set %sview.titlepop_help.x 0
  set %sview.titlepop_close.x 0
  drawrect -fr @SView.TitlePop $rgb(192,192,192) 1 0 0 120 120
  drawtext -rc @SView.TitlePop $rgb(0,0,0) Arial 14 20 2 200 20 About
  drawtext -rc @SView.TitlePop $rgb(0,0,0) Arial 14 20 17 200 50 Help
  drawline -r @SView.TitlePop $rgb(155,155,155) 1 0 35 120 35
  drawline -r @SView.TitlePop $rgb(255,255,255) 1 0 36 120 36
  drawtext -roc @SView.TitlePop $rgb(0,0,0) Arial 14 20 40 200 20 Close
  window -a @SView.Titlebar
  window -a @Script_View
  window -a @SView.TitlePop
  .timersviewtitlepop -m 0 1 _sview.titlepopwin
}
menu @SView.TitlePop {
  mouse {
    ;about    
    if ($inrect($mouse.x,$mouse.y,0,0,100,15) == $true) {  
      if ($getdot(@SView.Titlepop,$mouse.x,$mouse.y) != 8388608) { drawrect -fr @SView.TitlePop $rgb(0,0,127) 1 0 0 100 15 }
      drawtext -rc @SView.TitlePop $rgb(255,255,255) Arial 14 20 2 200 20 About
      if ( %sview.titlepop_about.x == 0 ) {
        drawrect -fr @sview_status $rgb(191,191,191) 1 601 3 109 14 | set %sview.status_titlepop 
        drawtext -rc @sview_status $rgb(110,110,110) 605 2 200 20 About
      }
      set %sview.titlepop_about.x 1
    }
    else {    
      if ($getdot(@SView.Titlepop,5,5) != 12632256) && ($getdot(@SView.Titlepop,$mouse.x,$mouse.y) != 16777215) { drawrect -fr @SView.TitlePop $rgb(192,192,192) 1 0 0 100 15 }
      drawtext -rc @SView.TitlePop $rgb(0,0,0) Arial 14 20 2 200 20 About
      set %sview.titlepop_about.x 0  
    }
    ;help
    if ($inrect($mouse.x,$mouse.y,0,17,100,15) == $true) {  
      if ($getdot(@SView.Titlepop,$mouse.x,$mouse.y) != 8388608) && ($getdot(@SView.Titlepop,$mouse.x,$mouse.y) != 16777215) { drawrect -fr @SView.TitlePop $rgb(0,0,127) 1 0 17 100 15 }
      drawtext -rc @SView.TitlePop $rgb(255,255,255) Arial 14 20 17 200 20 Help
      if ( %sview.titlepop_help.x == 0 ) {
        drawrect -fr @sview_status $rgb(191,191,191) 1 601 3 109 14 | set %sview.status_titlepop 
        drawtext -rc @sview_status $rgb(110,110,110) 605 2 200 20 Help   
      }
      set %sview.titlepop_help.x 1
    }
    else {
      if ($getdot(@SView.Titlepop,5,17) != 12632256) && ($getdot(@SView.Titlepop,$mouse.x,$mouse.y) != 16777215) { drawrect -fr @SView.TitlePop $rgb(192,192,192) 1 0 17 100 15 }
      drawtext -rc @SView.TitlePop $rgb(0,0,0) Arial 14 20 17 200 20 Help
      set %sview.titlepop_help.x 0   
    }    
    ;close    
    if ($inrect($mouse.x,$mouse.y,0,40,100,17) == $true) {  
      if ($getdot(@SView.Titlepop,$mouse.x,$mouse.y) != 8388608) { drawrect -fr @SView.TitlePop $rgb(0,0,127) 1 0 40 100 15 } 
      drawtext -roc @SView.TitlePop $rgb(255,255,255) Arial 14 20 40 200 20 Close 
      if ( %sview.titlepop_close.x == 0 ) {
        drawrect -fr @sview_status $rgb(191,191,191) 1 601 3 109 14 | set %sview.status_titlepop 
        drawtext -rc @sview_status $rgb(110,110,110) 605 2 500 20 Exit Script View
      }
      set %sview.titlepop_close.x 1 
    }
    else {
      if ($getdot(@SView.Titlepop,5,50) != 12632256) { drawrect -fr @SView.TitlePop $rgb(192,192,192) 1 0 40 100 15 }     
      drawtext -roc @SView.TitlePop $rgb(0,0,0) Arial 14 20 40 200 20 Close 
      set %sview.titlepop_close.x   0
    }
    if ($inrect($mouse.x,$mouse.y,0,33,100,6) == $true) { drawrect -fr @sview_status $rgb(191,191,191) 1 601 3 109 14 }
  }
  sclick {
    if ($inrect($mouse.x,$mouse.y,0,0,100,15) == $true) {      
      window -c @SView.TitlePop 
      window -a @SView.Titlebar
      window -a @Script_View
      sview.about
    }      
    if ($inrect($mouse.x,$mouse.y,0,17,100,15) == $true) {  
      window -c @SView.TitlePop 
      window -a @SView.Titlebar
      window -a @Script_View
      sview.help
    }
    if ($inrect($mouse.x,$mouse.y,0,40,100,15) == $true) {  window -c @SView.TitlePop | _quit.sview  }
  }
}
alias _sview.titlepopwin {
  if ($active != @SView.TitlePop) { .timersviewtitlepop off | window -c @SView.TitlePop | if ($window(@Script_View).state != $null ) { drawrect -fr @sview_status $rgb(191,191,191) 1 601 3 109 14 } }
}
;Intro onLOAD:
alias sview.intro.onLOAD0 {
  set %sview.load_ up
  set %sview.load.col 20
  window -p +f @SView.Intro 220 50 330 150
  drawrect -rf @SView.Intro $rgb(0,0,0) 1 0 0 330 200
  drawtext -rc @SView.Intro $rgb(100,100,100) Arial 50 48 20 300 100 Script View
  drawtext -rc @SView.Intro $rgb(230,0,0) Arial 50 50 20 300 100 Script View
  .timersviewintroFLASH -m  0 1 sview.intro.onLOAD
  drawtext -rc @SView.Intro $rgb(220,250,120) 50 90 200 20 Run
  drawtext -rc @SView.Intro $rgb(220,250,120) 150 90 200 20 About
  drawtext -rc @SView.Intro $rgb(220,250,120) 250 90 200 20 Exit
  .timersviewintroTEXT -mo 0 50  sview.intro.onLOADtext
  drawtext -rc @SView.Intro $rgb(250,50,0) Arial 12 200 70 200 20 Pain
  drawtext -rc @SView.Intro $rgb(150,150,50) Arial 12 230 70 500 20 hlessing@iafrica.com
  .timersviewintroTEXT00  0 6  drawtext -rc @SView.Intro $rgb(250,50,0) Arial 12 200 70 200 20 Pain
  .timersviewintroTEXT01 0 6  drawtext -rc @SView.Intro $rgb(150,150,50) Arial 12 230 70 500 20 hlessing@iafrica.com
  sview.intro.ani  
  .timersviewintrocool -m 0 100 drawscroll  @Sview.intro -4 0 0 65 330 5
}
alias sview.intro.onLOAD {
  if (%sview.load.col  == 255) { set %sview.load_ down }
  if (%sview.load.col  == 20) { set %sview.load_ up }
  if (%sview.load_ == up) { 
    drawtext -rc @SView.Intro $rgb(%sview.load.col,0,0) Arial 50 50 20 500 100 Script View
    inc %sview.load.col  5
  }
  if (%sview.load_ == down) {
    dec %sview.load.col  5
    drawtext -rc @SView.Intro $rgb(%sview.load.col,0,0) Arial 50 50 20 500 100 Script View
  }
}
alias sview.intro.onLOADtext {
  .timersviewintroscrollver100 -m 90 50  drawscroll  @Sview.intro -3 0 0 70 330 15
}
on 1:CLOSE:@SView.Intro:{ .timersviewscrollver* off | .timersviewintro* off | unset %sview.intro.textflowX1 |  unset %sview.intro.textflowX2 }
menu @SView.Intro {
  drop { window @SView.Intro $mouse.x $mouse.y }
  mouse {
    if ($inrect($mouse.x,$mouse.y,40,88,50,20) == $true) {
      drawrect -r @Sview.Intro $rgb(0,240,0) 1 40 88 50 20
    }
    else { drawrect -r @Sview.Intro $rgb(0,0,0) 1 40 88 50 20 }
    if ($inrect($mouse.x,$mouse.y,145,88,50,20) == $true) {
      drawrect -r @Sview.Intro $rgb(200,40,200) 1 145 88 50 20
    }
    else { drawrect -r @Sview.Intro $rgb(0,0,0) 1 145 88 50 20 }
    if ($inrect($mouse.x,$mouse.y,240,88,50,20) == $true) {
      drawrect -r @Sview.Intro $rgb(0,240,230) 1 240 88 50 20
    }
    else { drawrect -r @Sview.Intro $rgb(0,0,0) 1 240 88 50 20 }
  }
  sclick {
    if ($inrect($mouse.x,$mouse.y,40,88,50,20) == $true) {
      .timersviewintro* off    
      .timersviewscrollver* off
      window -c @SView.Intro
      sview
    }
    if ($inrect($mouse.x,$mouse.y,145,88,50,20) == $true) {
      run $shortfn($scriptdirsview.txt)
    }
    if ($inrect($mouse.x,$mouse.y,240,88,50,20) == $true) {
      .timersviewintro* off
      .timersviewscrollver* off    
      window -c @SView.Intro
  } }
}
;Intro Scrolling Part (bottom)
alias sview.intro.ani {  .timersviewscrollver0 -m 0 50 sview.intro.anix | drawtext -rc @SView.intro $rgb(120,200,220) Arial 13 10 120 300 20 v1.12 |   .timersviewscrollver02 -m 0 5500 drawtext -rc @SView.intro $rgb(120,200,220) Arial 13 10 120 200 20 v1.12 }
alias sview.intro.anix {  
  .timersviewscrollver -m 110 50  drawscroll @Sview.intro 3 0 5 115 300 20
}
;Status Bar :
alias sview.status { 
  if ($1 == skip) { goto draw }
  window -ph +b @sview_status 0 460 799 22
  window -a @sview_status
  :draw
  drawrect -fr @sview_status $rgb(191,191,191) 1 0 1 798 19  
  drawline -r @sview_status $rgb(255,255,255) 1 0 0 0 20    
  drawline -r @sview_status $rgb(255,255,255) 1 1 0 1 20
  drawrect -r @sview_status $rgb(255,255,255) 1 3 2 593 16
  drawline -r @sview_status $rgb(150,150,150) 1 3 2 597 2
  drawline -r @sview_status $rgb(150,150,150) 1  3 2 3 18
  drawrect -r @sview_status $rgb(255,255,255) 1 600 2 112 16
  drawline -r @sview_status $rgb(150,150,150) 1 601 2 712 2
  drawline -r @sview_status $rgb(150,150,150) 1 600 2 600 18
  drawrect -r @sview_status $rgb(255,255,255) 1 717 2 75 16
  drawline -r @sview_status $rgb(150,150,150) 1 718 2 792 2
  drawline -r @sview_status $rgb(150,150,150) 1 717 2 717 18
  drawrect -r @sview_status $rgb(191,191,191) 1 781 7 11 11
  drawline -r @sview_status $rgb(255,255,255) 1  791 7 780 18
  drawline -r @sview_status $rgb(127,127,127) 1  781 18 792 7
  drawline -r @sview_status $rgb(127,127,127) 1  782 18 792 8
  drawline -r @sview_status $rgb(255,255,255) 1  784 18 792 10
  drawline -r @sview_status $rgb(127,127,127) 1  785 18 792 11
  drawline -r @sview_status $rgb(127,127,127) 1  786 18 792 12
  drawline -r @sview_status $rgb(255,255,255) 1  788 18 792 14
  drawline -r @sview_status $rgb(127,127,127) 1  789 18 792 15
  drawline -r @sview_status $rgb(127,127,127) 1  790 18 792 16
  
  drawpic -t @sview_status $rgb(0,0,150) 719 3 $shortfn($scriptdirsview2.bmp)
  drawpic -t @sview_status $rgb(0,0,150) 735 3 $shortfn($scriptdirmail.bmp)
}
menu @sview_status {
  sclick {
    if ($inrect($mouse.x,$mouse.y,719,4,16,16) == $true) { 
    run $shortfn($scriptdirsview.txt) } 
    if ($inrect($mouse.x,$mouse.y,735,4,16,16) == $true) {
      run mailto:hlessing@iafrica.com
  } }
}
alias _sview.credits {
  set %sview.credits.stemp false
  set %sview.credits.y 150
  window -p +f @Sview.credits 200 100 300 200
  drawrect -rf @Sview.credits $rgb(0,0,0) 1 0 0 300 200
  drawtext -rc @Sview.credits $rgb(100,150,200) "Courier New" 40 70 %sview.credits.y 200 100 Credits
  .timersviewcreditsscroll01 -m 14 10 drawscroll @sview.credits 0 -10 60 10 300 300
  .timersviewcreditsscroll02 -m 1 1000 sview.credits.next
}
alias sview.credits.next {
  drawtext -rc @Sview.credits $rgb(200,0,50) "Courier New" 14 20 60 200 20 Author:
  drawtext -rc @Sview.credits $rgb(200,0,50) "Courier New" 14 20 75 200 20 Email:
  drawtext -rc @Sview.credits $rgb(50,100,200) "Courier New" 14 75 60 200 20 Pain
  drawtext -rc @Sview.credits $rgb(50,100,200) "Courier New" 14 75 75 500 20 hlessing@iafrica.com
  drawtext -roc @Sview.credits $rgb(200,0,50) "Courier New" 14 10 110 300 20 Thanks to:
  drawtext -rc @Sview.credits $rgb(50,200,150) "Courier New" 14 10 130 200 20 EAE 
  drawtext -rc @Sview.credits $rgb(50,200,150) "Courier New" 14 10 145 200 20 plaza
  drawtext -rc @Sview.credits $rgb(50,150,250) "Courier New" 14 50 130 200 20 eae.net
  drawtext -rc @Sview.credits $rgb(50,200,150) "Courier New" 14 10 160 200 20 vague
  set %sview.credits.vtemp true
  drawtext -rc @Sview.credits $rgb(250,200,150) "Courier New" 14 10 180 800 20 You all helped a lot! =Þ
  sview.draw.but @Sview.credits 200 150 70 40 Out
  drawrect -fr @Sview.credits $rgb(192,192,192) 1 201 151 69 39
  drawtext -rc @Sview.credits $rgb(0,0,0) 225 163 100 20 OK
  set %sview.credits.stemp true
}
menu @Sview.credits {
  sclick {
    if ($inrect($mouse.x,$mouse.y,200,150,70,40) == $true) {  
      sview.draw.but @Sview.credits 200 150 70 40 In
      .timersviewcreditclose -m 1 200 window -c @sview.credits
      unset %sview.credits.*
    } 
    if ($inrect($mouse.x,$mouse.y,10,130,20,12) == $true) { run mailto:eae@eae.net }
    if ($inrect($mouse.x,$mouse.y,10,145,35,12) == $true) { run mailto:Plaza@EAE.net }
    if ($inrect($mouse.x,$mouse.y,50,130,50,12) == $true) { run http://www.eae.net }
    if ($inrect($mouse.x,$mouse.y,10,163,35,12) == $true) { run mailto:msandin@hotmail.com }
  }
  mouse {
    if ($timer(sviewcreditsscroll01) != $null) { halt }
    if ($inrect($mouse.x,$mouse.y,10,130,20,12) == $true) {  drawline -r @sview.credits $rgb(50,200,150) 1 10 142 32 142 } 
    else { drawline -r @sview.credits $rgb(0,0,0) 1 10 142 32 142 }
    if ($inrect($mouse.x,$mouse.y,10,145,35,12) == $true) { drawline -r @sview.credits $rgb(50,200,150) 1 10 157 47 157 | set %sview.credits.vtemp false }
    else { 
      if (%sview.credits.vtemp != true) { drawline -r @sview.credits $rgb(0,0,0) 1 10 157 47 157 | set %sview.credits.vtemp true } 
      if (%sview.credits.stemp == true) { drawtext -rc @Sview.credits $rgb(50,200,150) "Courier New" 14 10 145 300 20 plaza }   
    } 
    if ($inrect($mouse.x,$mouse.y,10,163,35,12) == $true) { drawline -r @sview.credits $rgb(50,200,150) 1 10 172 45 172 }
    else { drawline -r @sview.credits $rgb(0,0,0) 1 10 172 45 172 | drawtext -rc @Sview.credits $rgb(50,200,150) "Courier New" 14 10 160 200 20 vague }
    if ($inrect($mouse.x,$mouse.y,50,130,50,12) == $true) { drawline -r @sview.credits $rgb(50,150,250) 1 50 142 100 142 } 
    else { drawline -r @sview.credits $rgb(0,0,0) 1 50 142 100 142 }
  }
}
;Quit Script View
alias _quit.sview {
  .timersviewcheckwin_titlebar_ontop off
  .timersviewshine* off
  .timersviewcheck_statewin00 off
  .timersviewstate off
  window -c @Script_View
  window -c @Sview.Titlebar
  window -c @sview_status
}
alias sstart {
  window -ph +f @sview.shortcut 680 420 35 35
  window -a @sview.shortcut
  drawpic -s @sview.shortcut 0 0 30 30 $shortfn($scriptdirsview.bmp)
}
menu @sview.shortcut {
  sclick { sview }
  dclick { sview }
}
alias sview.nogo.done {
  if (%sview.nogo.ext == *.mrc) && (%sview.nogo.ext_ini == °) { set %sview.nogo.ext *.ini | sview.nogo.scripts }
  else {
    iline @SView 1 4,1 Script View $str($chr(160),15) 8Unloaded Scripts  $str($chr(160),20) 9Double Click to Load  $str($chr(160),200) 
    iline @SView $calc($line(@SView,0,0) + 1) 8,1 EOL - 4Found $calc($line(@Sview,0,0) - 1) Unloaded Scripts $str($chr(160),200)
    
    set %sview.nogo.ext *.mrc
    titlebar @SView - Scripts
    sline @SView 15
  }
}
···EOF···