#!/bin/sh # MetaCard 2.4 stack # The following is not ASCII text, # so now would be a good time to q out of more exec mc $0 "$@" Simple PlayerBMTabsfalse Ums sans serif"Ums sans serif"Wms sans serif @Ums sans serif cREVGeneral bookmarks handlerList tempScript prevHandlerscriptSelection char 1 to 0script @M cREVGeneral bookmarks handlerList tempScript prevHandlerscriptSelection char 1 to 0script List)p1on mouseUp set the cursor to watch put (the defaultFolder & slash & the selectedText of me) into thePath if char -3 to -1 of thePath is ".gz" then put the decompress of URL ("binfile:" & thePath) into \ URL ("binfile:" & char 1 to -4 of thePath & ".rev") put char 1 to -4 of thePath & ".rev" into thePath end if if there is a file thePath then go to stack thePath in a new window else beep put "No such file" into me end if send mouseUp to button "Update List" of stack "SimplePlayer" in 1.5 seconds end mouseUp LTabsfalse cREVGeneralscriptChecksumKL8lz? U B bookmarks revUniqueID 1043264633356 handlerListmouseUpscriptSelectionchar 353 to 352 prevHandlermouseUp tempScriptscript'

on mouseUp

set the cursor to watch

put (the defaultFolder & slash & the selectedText of me) into thePath

if char -3 to -1 of thePath is ".gz" then

put the decompress of URL ("binfile:" & thePath) into \

URL ("binfile:" & char 1 to -4 of thePath & ".rev")

put char 1 to -4 of thePath & ".rev" into thePath

end if

if there is a file thePath then

go to stack thePath in a new window

else

beep

put "No such file" into me

end if

send mouseUp to button "Update List" of stack "SimplePlayer" in 1.5 seconds

end mouseUp

 or Revolution stack file. It also automatically decrompesses 'GNU-ziped files and tries to run them. AJust put stacks into the same directory as this application and >press the "Update List" button, then choose the stack to run from the list.`@<HelpEpBon mouseUp put the thehelp of me into field "list" end mouseUp rkthehelp.This is an Application which can open and run any Metacard or Revolution stack file. It also automatically decrompesses GNU-ziped files and tries to run them. Just put stacks into the same directory as this application and press the "Update List" button, then choose the stack to run from the list.Show a little help text cREVGeneralscriptChecksum\bq4CW revUniqueID 1043264686067 bookmarks handlerListmouseUp tempScript prevHandlermouseUpscriptSelection char 53 to 52script

on mouseUp

put the thehelp of me into field "list"

end mouseUp

QuitEp on mouseUp quit end mouseUp iQuit the SimplePlayer cREVGeneralscriptChecksumɬ}U] bookmarks revUniqueID 1043424432833 handlerListmouseUpscriptSelection char 19 to 18 prevHandlermouseUp tempScriptscriptx

on mouseUp

quit

end mouseUp

 Update ListEpon mouseUp set the cursor to watch set the itemDelimiter to slash -- slash = "/" set the defaultfolder to char 2 to -1 of \ word 2 of item 1 to -2 the long name of this stack --prety long, could instead be: --put item 1 to -2 of the long name of this stack into temp --put word 2 of temp into temp --put char 2 to -1 of temp into temp --set the defaultfolder to temp put the files into theList repeat for each line theLine in theList --filter non rev and non gzip files if char -3 to -1 of theLine is ".gz" OR \ char -4 to -1 of theLine is ".rev" then put theLine & return after theResult end if end repeat put char 1 to -2 of theResult into field "list" end mouseUp kTabsfalseUpdate the List of Stacks cREVGeneralscriptChecksum) bDܷ bookmarks revUniqueID 1046047140220 handlerListmouseUpscriptSelectionchar 496 to 495 prevHandlermouseUp tempScriptscript

on mouseUp

set the cursor to watch

set the itemDelimiter to slash -- slash = "/"

set the defaultfolder to char 2 to -1 of \

word 2 of item 1 to -2 the long name of this stack

--prety long, could instead be:

--put item 1 to -2 of the long name of this stack into temp

--put word 2 of temp into temp

--put char 2 to -1 of temp into temp

--set the defaultfolder to temp

put the files into theList

repeat for each line theLine in theList --filter non rev and non gzip files

if char -3 to -1 of theLine is ".gz" OR \

char -4 to -1 of theLine is ".rev" then

put theLine & return after theResult

end if

end repeat

put char 1 to -2 of theResult into field "list"

end mouseUp