<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>289</cardCount>
<cardID>2867</cardID>
<listID>83681</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>640</width>
<height>480</height>
</cardSize>
<script>-------------------------------------------------------------------------- Stack: National Parks of America ---- Created by Eureka Software ---- ©1993 Multicom, Inc. ---- ---- June 30, 1993 ---- Version: Golden Master ---------------------------------------------------------------------------- XCMDs to follow:-- # 4321 QTMovie © Apple Computer, Inc.-- # 2629 ColorizeHC © BungDabba Productions-- XFCNs to follow:-- # 12154 ApplicationList © Apple Computer, Inc.-- # 14000 ApplMemory © Apple Computer, Inc.-- # 4008 DeleteFile © Apple Computer, Inc.-- # 13006 FileExists © Apple Computer, Inc.-- # 12040 MFIsRunning © Apple Computer, Inc.-- # 512 ShowList © Apple Computer, Inc.-- # 12045 sysEnvironment © Apple Computer, Inc.-- # 12084 SystemPath © Apple Computer, Inc.-- # 12053 TotalRAM © Apple Computer, Inc.-- # 12067 VolumeList © Apple Computer, Inc.-- # 13017 MaxDepth © BungDabba Productions-- # 13016 colorPicker © BungDabba Productions------------------------------------------------------------------------on startupshow cd btn "Welcome to National Parks..."initGlobals--checkSystempass startupend startupon checkSystemglobal sysEnvput sysEnvironment() into sysEnvif sysEnv contains "error" thenexit checkSystemend if-- Check for >=68020 processorput word 2 of item 3 of line 1 of sysEnv into cpuProcessorif cpuProcessor = 68000 thenanswer "You will need a 68020 processor or higher to use this stack."else-- Check for system >=6.07put item 2 of sysEnv into sysVersionif char 1 to 4 of sysVersion < 6.07 thenanswer "You will need system 6.0.7 or later to use this stack" ¬"Your system version is " & sysVersion & "."else-- Check for Color QuickDrawput item 5 of line 1 of sysEnv into colorQDif colorQD <> "Color Quick Draw" thenanswer "You will need Color QuickDraw to use this stack."elseend ifend ifend if-- Check Total RAM & Monitor Settingsput MaxDepth() into TheDepthput (totalRam()/1024)/1024 into RAMif RAM < 8 and theDepth > 4 thenbeepanswer "This CD-ROM has been optimized to run with 8 megabytes of" ¬&& "RAM and 8 bit color or greater. To run this CD-ROM with less" ¬&& "memory please refer to the “READ ME FIRST” file."doMenu "Quit HyperCard"end ifend checkSystemon SpinCursorglobal CursIDadd 1 to CursIDif CursID > 5007 or CursID < 5001 then put 5001 into CursIDset cursor to CursIDend SpinCursoron openStackif wrongStack() then pass openStackglobal gGlobalsOK,gMultiFinder,LastHilitesif gGlobalsOK is not true or LastHilites = "" then initGlobalsspinCursorcHCinstallhide menubarhide titlebarpass openStackend openStackon initGlobalsglobal gGlobalsOK,gCdNameList,gCdIDList,gMultiFinder,gMasterStack,gHasSound,gNATION,gREGION,gSTATEglobal gCDVolume1,gNoLaunch,LastHilites,gMasterCd,gPath,gBackTrackStack,gBackTrackNormalif gGlobalsOK is true then exit initGlobalsspinCursorif LastHilites = "" then put "0,0,0,0,0,0,0" &return &"0"&return&"1" into LastHilitesput "National Parks of America:PARKS:" into gCDVolume1put "National Parks of America:PARKS:RESOURC:" into gPathput gPath & "SOUNDS" into tempif FileExists(temp) thenstart using stack tempend ifput cd fld 1 of cd CdIDs into gCdNameListput cd fld 2 of cd CdIDs into gCdIDListput long name of this stack into gMasterStackput long id of this card into gMasterCdput "card OLYMPIC," into gBackTrackStackput "true" into gBackTrakNormalput "true" into gHasSoundput "true" into gNATIONput "true" into gREGIONput "true" into gSTATE--•• Set MFinderput MFIsRunning() into gMultiFinderput true into gGlobalsOKend initGlobals---------------------------Check Environment Handlers----------------------on cHCinstall-- Check for correct environmentset cursor to busy--if checkEnviron() is not "OK" thengo HomegetHomeInfoexit to HyperCardend ifset cursor to busy--repeat until the lockScreen is falseunlock screenend repeat--end cHCinstallfunction checkEnviron-- The heapspace requirements may vary depending on your stackput MaxDepth() into TheDepthif TheDepth < 4 then errBitDepthif (TheDepth = 1) ¬and (the heapSpace < 2600) then errMemory TheDepth,"1100K"else if (TheDepth = 2) ¬and (the heapSpace < 117200) then errMemory TheDepth,"1200K"else if (TheDepth = 4) ¬and (the heapSpace < 205000) then errMemory TheDepth,"1250K"else if (TheDepth = 8) ¬and (the heapSpace < 384000) then errMemory TheDepth,"1300K"else if (TheDepth = 16) ¬and (the heapSpace < 721000) then errMemory TheDepth,"2400K"else if (TheDepth ≥ 24) ¬and (the heapSpace < 1421000) then errMemory TheDepth,"3000K"else if stackActivate() is not empty thenerrColorreturn "OK"else return "OK"end checkEnvironon errMemory TheDepth,PartitionSize-- The PartitionSize required may vary depending on your stackput lastItem(":",the long name of HyperCard) into TheHyperCardanswer "Not enough memory to run" && "“" & short name of this stack & "”" ¬&& "in" && TheDepth & "bit mode. The current memory size of" && ¬TheHyperCard && "should be at least" && PartitionSize & "."end errMemoryfunction lastItem TheDelimiter,String-- given the delimiter <TheDelimiter>, return the portion of <String> that-- follows the LAST occurance of <TheDelimiter>if TheDelimiter is in Stringthen put lastItem(TheDelimiter,char offset(TheDelimiter,String) + 1 to length(String) of String) into Stringreturn Stringend lastItemon errBitDepthanswer "This stack requires a color system set to at least 16 colors" && ¬"(4 bit-depth) to display color." --∆end errBitDepthon colorizeHCglobal gOKToColorizeif (gOKToColorize is empty) then pass colorizeHCend colorizeHCfunction stackActivateglobal gOKToColorize--put empty into gOKToColorize--colorizeHC "assignToFront"if the result is not empty thenput the result into gOKToColorizereturn gOKToColorizeend ifend stackActivateon errColorglobal gOKToColorizeanswer "Warning: The environment this stack is currently running in is not" && ¬"able to support color." & return & "Reason:" && gOKToColorizeend errColoron cHCdispose-- closing the stack, get rid of the Colorize stufflock screenColorizeHC "Dispose"if the result is not empty then answer the resultunlock screen -- force a screen updateend cHCdisposefunction wrongStackput the value of word 2 of the long name of me into TheStackNamereturn (TheStackName is not line 1 of the stacks)end wrongStackon openStackif wrongStack() then pass openStackcHCinstallpass openStackend openStackon closeStackif wrongStack() then pass closeStackcHCdisposepass closeStackend closeStackon resumeif wrongStack() then pass resumecHCinstallpass resumeend resumeon suspendif wrongStack() then pass suspendcHCdisposepass suspendend suspendon resumeStackif wrongStack() then pass resumeStackcHCinstallpass resumeStackend resumeStackon suspendStackif wrongStack() then pass suspendStackcHCdisposepass suspendStackend suspendStack-------------------------------------------------------on UpdateCdIDsglobal gCdNameList,gCdIDListput "" into gCdNameListput "" into gCdIDListpush cdset lockmessages to trueset lockscreen to truerepeat with z = 1 to number of cdsgo cd zif z mod 6 = 0 then set cursor to busyput (short name of this cd) & return after gCdNameListput (short id of this cd) & return after gCdIDListend repeatgo cd CdIDsput gCdNameList into cd fld 1put gCdIDList into cd fld 2pop cdset lockmessages to falseset lockscreen to falseend UpdateCdIDsfunction DoubleClickSpinCursorwait 20return the mouseClickend DoubleClick------ SCRIPTS FOR BASIC NAVIGATION ------on goCard cardName-- Jumps to a card by name, making sure to truncate the name-- to 28 chars. All card names are truncated already.set cursor to watchif cardName is empty then exit goCardput truncateName(cardName) into tempgo card truncateName(cardName)if the mouse is down then exit goCard -- trap double clickend goCardon goTopicplay "Click"SpinCursorselectWholeLine word 2 of the clickLine, the targetvisual effect zoom outgoCard the selectionend goTopicon returnToMainTopics-- Goes to the first card and highlights the name of the topic-- the user just came from.lock screenspinCursorget topicInfo()put item 1 of it into sectionNumberput item 2 of it into topicNumber-- visual effect zoom ingo first card of background "Double List"if sectionNumber is not empty then showSection sectionNumberunlock screen-- Highlight the current topic:if topicNumber is not empty thenselectWholeLine topicNumber, ¬the name of card field ("Section" && sectionNumber)end ifend returnToMainTopicsfunction topicInfo-- Item 1 is the section number, item 2 the topic numberreturn line 1 of bkgnd field "Info"end topicInfo------ GENERAL HANDLERS ------on selectWholeLine lineNumber, theField-- This handler selects a whole line of text, including the final-- return character, in the field. Requires a complete field record-- as in “the target” or “the name of,” not just the field name.put line lineNumber of the value of theField into theTextif theText is not empty thenput (number of chars of line 1 to lineNumber of ¬the value of theField) + 1 into endChardo "select char (endChar - length(theText)) to endChar of" ¬&& theFieldend ifend selectWholeLine------ GENERAL FUNCTION HANDLERS ------function convertLineNumbersToLines theNumbers,theContainer-- given a line of words equal to numbers, returns the sorted-- list of lines they correspond to in some container.if word 1 of theNumbers is empty then return emptyput the number of words of theNumbers into totalrepeat with i = 1 to totalSpinCursorget word i of theNumbersput line it of theContainer & return after theResultend repeatsort theResultreturn theResultend convertLineNumbersToLinesfunction deleteSpaces someTextreturn word 1 to (the number of words of someText) of someTextend deleteSpacesfunction textToLineNum theText,theContainer-- Given some text and a container, returns the line number-- of the text in the container, or 0 if not found.-- (thanks to Ken Laws)put return & theContainer & return into theContainerreturn the number of lines of char 1 to ¬offset(return & theText & return,theContainer) of theContainerend textToLineNumfunction truncateName theCard-- Removes spaces from a card name, truncates it, and removes-- spaces again. To use with navigation, you should set-- the name of all the cards in a stack with truncateName.return deleteSpaces(char 1 to 28 of deleteSpaces(theCard))end truncateName------ SCRIPTS FOR MANAGING THE MAIN TOPICS CARD -------- These handlers work the two lists on the Main Topics card-- They are also called when returning to the Main Topics card-- in order to hilite the card the user just came from.on resetMainTopicsCard-- Requires hidden card field on card 1 of background "Double List"spinCursorresetProjectMenulock screenshowRightList falsehideOldSectionput empty into card field "Current Section" of card 1 of background "Double List"unlock screenend resetMainTopicsCardon showRightList trueOrFalse-- Show or hide all objects need for displaying the right-hand list-- Requires hidden card field on card 1 of background "Double List"set visible of card button "Hiliter" of card 1 of background "Double List" to trueOrFalseset visible of card button "Pointer" of card 1 of background "Double List" to trueOrFalseset visible of card field "Right Shadow" of card 1 of background "Double List" to trueOrFalseset visible of card field "Instructions 2" of card 1 of background "Double List"to trueOrFalseget card field "Current Section" of card 1 of background "Double List"if it is not emptythen set visible of card field ("Section" && it) of card 1 of background "Double List" to trueOrFalseend showRightListon showSection lineNumber-- Requires hidden card field on card 1 of background "Double List"spinCursorput "Sections" into fieldNameif line lineNumber of card field fieldName is empty thenresetMainTopicsCardelseif (card field "Current Section" of card 1 of background "Double List") ≠ lineNumber thenlock screen-- only show right-hand list objects if not already visible:play "Clicks"if not (the visible of button "Hiliter") then showRightList trueput (top of card field fieldName + (lineNumber * ¬the textHeight of card field fieldName)) + 6 into theBottomset the bottom of card button "Hiliter" to theBottomset the bottom of card button "Pointer" to theBottomhideOldSectionshowNewSection lineNumber-- unlock screen-- lock screenput lineNumber into card field "Current Section" -- what's showingput line lineNumber of cd field fieldName into theProjectcolorizeHC "Add", theProject, topLeft of background button "Project Icon"put theProject into line 2 of background field "Menu Title"SpinCursor-- Set the Date button to greycolorizeHC "ColorFill", rect of background Button "Projects","52428,52428,52428"colorizeHC "Add", GNextButton, topleft of card button "NextProject"colorizeHC "Add", GPrevButton, topleft of card button "PrevProject"put line lineNumber of cd field "Dates" into cd field "Date Display" -- What's the dateset the visible of card button "NextProject" to trueset the visible of card button "PrevProject" to trueunlock screenend ifend ifend showSectionon showNewSection lineNumberget "Section" && lineNumbershow card field itset the scroll of card field it to 0end showNewSectionon hideOldSection-- Requires hidden card field on card 1 of background "Double List"get card field "Current Section" of card 1 of background "Double List"if it is not empty then hide card field ("Section" && it) of card 1 of background "Double List"end hideOldSectionunlock screenend resetProjectMenuon AllClipQTPict ClipTo, "0,0,1280,1280"end AllClipon NoClipQTPict ClipTo, "0,0,0,0"end NoClipon returnToFinderplay "Click"answer "Do you really want to quit National Parks of America?"¬with "Cancel" or "OK"if it is "OK" then doMenu "Quit HyperCard"end returnToFinderfunction DoubleClickSpinCursorwait 20return the mouseClickend DoubleClick</script>
