Script View — File Browser
ScriptViewv1.12 / ScriptViewv1.12 / sview2.mrc
sview2.mrc — 29.04 KB — Download this file
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路路路