Headbone Interactive/Headbone_Interactive_CD-ROM_Sampler_1995.iso/pc/demos/pants/intro.dxr/00102_main scripts.ls

Text File | 1995-09-15 | 3.8 KB | 123 lines

on startMovie
  if the frame = label("first time") then
    initPants()
  end if
  initIntro()
  set the keyDownScript to "checkKeyForQuit"
  set the exitLock to 1
end

on stopMovie
  ResetGameGlobals()
  set the timeoutScript to EMPTY
  set the mouseDownScript to EMPTY
  set the keyDownScript to EMPTY
end

on initPants
  global gvAskQuit, gvCharList, gvChar, gvLocaleList, gvCurLetter, gvTrack, gvCurNumber, IBM, DIR_SYM, MOV_EXT, SFX_EXT
  set gvAskQuit to 0
  InitPaths()
  set gvCharList to [#Velma, #Bunji, #Clyde, #King, #Sue]
  set gvChar to 4
  set gvCurNumber to 4
  set gvTrack to 1
  set gvLocaleList to ["B", "C", "D", "A", "G", "E", "F", "H", "J", "I"]
  set gvCurLetter to getAt(gvLocaleList, 1)
end

on initIntro
  global gvGoMain, gvfRealQuit, gLocaleSelected
  set the mouseDownScript to "handleMouseDown"
  set gvGoMain to 0
  set gLocaleSelected to 1
  initSprites()
  set gvfRealQuit to 0
end

on InitPaths
  global DIR_SYM, MOV_EXT, SFX_EXT, gChgObjPath, gvSNFPath, gCDPATH
  set gCDPATH to the pathName
  set gvSNFPath to gCDPATH & "3" & DIR_SYM
  set gChgObjPath to gvSNFPath & "SwampObj" & DIR_SYM
end

on initSprites
  global gvBackgroundSprite, gvFirstLocaleSprite, gvLastLocaleSprite, gvFirstKingSprite, gvVelmaSprite, gvFirstSueSprite, gvClydeSprite, gvBunjiSprite, gvQuitSprite, gvVolumeSprite, gvCreditSprite
  set gvBackgroundSprite to 1
  set gvFirstLocaleSprite to 2
  set gvLastLocaleSprite to 17
  set gvFirstKingSprite to 19
  set gvVelmaSprite to 28
  set gvFirstSueSprite to 29
  set gvClydeSprite to 32
  set gvBunjiSprite to 33
  set gvQuitSprite to 39
  set gvVolumeSprite to 40
  set gvCreditSprite to 41
end

on ResetGameGlobals
  global IBM, SFX_EXT, DIR_SYM, MOV_EXT, gCDPATH, gvLocale, gvLocaleList, gvCharList, gvTrack, gvClickedCast, gLocaleSelected, gvCurLetter, gvCurNumber, gvfRealQuit, gvAskQuit, gvOldSndLev, gvCDPath, gvSNFPath, gvGoMode, gChgObjPath, gvMoviePath, gvOldClrDpth, gvOldSndLevM, gvQuoteWait, gvfReturnToMain, gvVolume, gvRealQuit, gvCDHomePath, gvFadeSndOnExit, gvQuitSong, gvSelectWait
  set vIBM to IBM
  set vSFX_EXT to SFX_EXT
  set vLocale to gvLocale
  set vCDPATH to gCDPATH
  set vSNFPath to gvSNFPath
  set vDIR_SYM to DIR_SYM
  set vMOV_EXT to MOV_EXT
  set vLocaleList to gvLocaleList
  set vCharList to gvCharList
  set vTrack to gvTrack
  set vClickedCast to gvClickedCast
  set vCurLetter to gvCurLetter
  set vCurNumber to gvCurNumber
  set vfRealQuit to gvfRealQuit
  set vGoMode to gvGoMode
  set vChgObjPath to gChgObjPath
  set vMoviePath to gvMoviePath
  set vAskQuit to gvAskQuit
  set vLocaleSelected to gLocaleSelected
  set vOldSndLevM to gvOldSndLevM
  set vOldClrDpth to gvOldClrDpth
  set vVolume to gvVolume
  set vfRealQuit to gvfRealQuit
  set vFadeSndOnExit to gvFadeSndOnExit
  set vCDHomePath to gvCDHomePath
  set vQuoteWait to gvQuoteWait
  set vSelectWait to gvSelectWait
  set vfReturnToMain to gvfReturnToMain
  set vQuitSong to gvQuitSong
  clearGlobals()
  set IBM to vIBM
  set SFX_EXT to vSFX_EXT
  set gvLocale to vLocale
  set gCDPATH to vCDPATH
  set gvSNFPath to vSNFPath
  set DIR_SYM to vDIR_SYM
  set MOV_EXT to vMOV_EXT
  set gvLocaleList to vLocaleList
  set gvCharList to vCharList
  set gvTrack to vTrack
  set gvVolume to vVolume
  set gvClickedCast to vClickedCast
  set gvCurLetter to vCurLetter
  set gvCurNumber to vCurNumber
  set gvfRealQuit to vfRealQuit
  set gvGoMode to vGoMode
  set gChgObjPath to vChgObjPath
  set gvMoviePath to vMoviePath
  set gvAskQuit to vAskQuit
  set gLocaleSelected to vLocaleSelected
  set gvOldSndLevM to vOldSndLevM
  set gvOldClrDpth to vOldClrDpth
  set gvVolume to vVolume
  set gvfRealQuit to vfRealQuit
  set gvFadeSndOnExit to vFadeSndOnExit
  set gvCDHomePath to vCDHomePath
  set gvQuoteWait to vQuoteWait
  set gvSelectWait to vSelectWait
  set gvfReturnToMain to vfReturnToMain
  set gvQuitSong to vQuitSong
end