CD-ROM Today - The Disc! 22/cdrt22.iso/pc/bugbook/map.dir/00077_Script_StartScript

Text File | 1995-06-26 | 14KB | 424 lines

-- -- /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
-- -- Title:Bug Book
-- -- File:Map.dir
-- -- Script by:
-- -- Script by: Scott Wasserman, Katherine Houghton
-- -- ⌐1994: Swfte International, Ltd. All Rights Reserved
-- -- Created: March 4, 1995
-- -- Modified: May 2, 1995
-- -- /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\







-- -- *********************************************************
-- -- SYSTEM HANDLERS
-- -- *********************************************************
------------------------------------------------------------------------
-- CODE STARTUP
------------------------------------------------------------------------
on startMovie
  -------------------------
  -- GAME GLOBALS
  -------------------------
  global userInfo,catchList,bugEscape,AnsonIntro,helpPhrases,AnsonSprite,AnsonAnims,AnsonActive,bugName,bugCast,currBut,currButDistance,spriteList,timeCheck,animNum,bugInHabitat, currRock,currRockDistance, currLoc,whatMarker,localDir,homeDir,AnnouncerTM,ansonButtonHelp

  -------------------------

  -------------------------
  --bug Aniamations
  -------------------------
  -- set AnsonAnims = [101, 459, "A-1", 101, 459, "An-2", 101, 459, "A-3", 101, 459, "An-4", 101, 459, "A-1", 101, 459, "An-2", 101, 459, "A-3", 101, 459, "An-4", 101, 459, "A-3"]


  set bugInHabitat=[[1,4,5,11,12,13,20,24,39,42],[8,9,25,26,27,28,35,38,41,45],[10,18,23,30,36,37,40,43,44,50],[2,6,14,19,22,29,31,32,33,34],[3,7,15,16,17,21,46,47,48,49]]


  -------------------------
  --INIT MOVIE
  -------------------------
  set AnsonSprite = 48
  --puppetSprite AnsonSprite,TRUE
  set lastMapRandom=0
  set AnsonActive=FALSE
  set catchList=getAt(userInfo,6)
  set bugEscape=getAt(userInfo,2)
  --set bugName = 26
  --set bugCast=25
  --puppetSprite bugCast,TRUE
  --puppetSprite bugName,TRUE

  set downSprite=47
  puppetSprite downSprite,TRUE
  puppetSprite 44, TRUE
  puppetSprite 43, TRUE


  set timeCheck=60*4
  set animNum=1
  createHabitatAnims()

  -------------------------
  --BUTTON LOCATIONS
  -------------------------

  set currBut=[point(21, 460), point(101, 460), point(554, 462), point(620, 460)]
  set currButDistance=[point(18, 18), point(37, 21), point(28,17), point(18, 18)]


  --------------------------
  -- SOUND CODE TIMEOUT SET-UP--needs to change timeOut message 6=bottles
  --------------------------
--  set timeOutMessages = ["TM_MS1"]
--  set whatMarker="timeOutMap"
  set the timeoutScript to "doTimeOut()"
  set the timeoutLength to 60 * 60

  --------------------------
  -- SOUND CODE ANSON HELP--needs to change help message
  --------------------------
  set helpPhrases = ["AH_MS1","AH_MS2","AH_MS3"]

  --------------------------
  -- SOUND CODE ANSON INTRO--needs to change intro message
  --------------------------
  set AnsonIntro = "AH_CH1"

  -------------------------
  --PRELOADS-selected preloads of all buttons
  -------------------------

--  repeat with x in ["help","back","DownProj","UpProj","ReturnDown","?Down","Lid","H-35"]
--    preLoadCast x
--  end repeat
end startMovie
------------------------------------------------------------------------

on PuppetSoundStop
  updateStage
  repeat while SoundBusy(1)
    --
  end repeat
  puppetSound 0
end  puppetSoundStop

------------------------------------------------------------------------
-- CODE STOPMOVIE
------------------------------------------------------------------------
on stopMovie
  -------------------------
  --PRELOADS-selected preloads of all buttons
  -------------------------
--  repeat with x in ["help","back","DownProj","UpProj","ReturnDown","?Down","Lid","H-35"]
--    unLoadCast x
--  end repeat

end stopMovie
------------------------------------------------------------------------




-- -- *********************************************************
-- -- LINGO USED AGAIN & AGAIN
-- -- *********************************************************

------------------------------------------------------------------------
-- CODE FOR TIMEOUT SCRIPT
------------------------------------------------------------------------
on doTimeOut
  global timeOutMessages,localDir
--  --  go whatMarker
--  sound stop 1
--  --  set count=length(timeOutMessages)
--  if the machineType=256 then
--    set fileName=localDir&"ANNTM\"&(getAt(timeOutMessages,1))&".aif"
--  else
--    set fileName=localDir&"ANNTM:"&(getAt(timeOutMessages,1))&".aif"
--  end if
--
--  --  repeat with  playNum = 1 to (count(timeOutMessages))
--  --    if the machineType=256 then
--  --      set fileName=localDir&"ANNTM\"&(getAt(timeOutMessages,1))&".aif"
--  --    else
--  --      set fileName=localDir&"ANNTM:"&(getAt(timeOutMessages,1))&".aif"
--  --    end if
--
--  puppetSound "TM_MS1"
--  updateStage
--  --  sound playFile 1,fileName
--
--  repeat while soundBusy(1)
--    --
--  end repeat
--
--  --  end repeat
--  puppetsound 0

   go movie localDir&"BugDemo.dir"
end doTimeOut
------------------------------------------------------------------------

------------------------------------------------------------------------
-- CODE FOR ESCAPE SCRIPT TIME PUT TIME INTO CALCULATION
------------------------------------------------------------------------
on TimeCalculation
  put the time into tempTime
  set tempHour=""
  set tempMin=""
  repeat with x = 1 to 3
    if char x of tempTime = ":" then
      repeat with y = 1 to 2
        put tempMin & char y+x of tempTime  into tempMin
      end repeat
      EXIT REPEAT
    else
      put tempHour & char x of tempTime into tempHour
    end if
  end repeat
  RETURN (tempHour*60) +tempMin
end
----------------------------------------------------------------------


--------------------------------------------------------------------------
-- CODEPUT ESCAPE TIME INTO MINUTES
------------------------------------------------------------------------
on EscapeCalculation
  global startEscapeTime
  return  integer(TimeCalculation()-startEscapeTime)
end checkTimeEscape
----------------------------------------------------------------------


------------------------------------------------------------------------
-- CODE FOR CHECK ESCAPE TIME SCRIPT PUT TIME & CHECK
------------------------------------------------------------------------
on checkTimeEscape
  global startEscapeTime, catchList,escapeTime,homeDir
  if count(catchList)<1 then EXIT
  if EscapeCalculation()>escapeTime then  go "escape"


end checkTimeEscape




------------------------------------------------------------------------
-- CODE FOR ? BUTTONS & SOUND
------------------------------------------------------------------------
on questionDown
  global downSprite
  set downSprite=47
  sound stop 1
  puppetSound "help"
  puppetSprite downSprite, TRUE
  set the castNum of sprite downSprite = the number of cast "?Down"
  set the loch of sprite downSprite = 20
  set the locv of sprite downSprite = 459
  PuppetSoundStop()
  set the loch of sprite downSprite = -100
  set the locv of sprite downSprite = -100
  updateStage
end questionDown

------------------------------------------------------------------------
-- CODE FOR DEPRESSED BACK BUTTON & SOUND
------------------------------------------------------------------------
on backDown
  global downSprite
  set downSprite=47
  sound stop 1
  puppetSound "back"

  set the castNum of sprite downSprite = the number of cast "returnDown"
  set the loch of sprite downSprite = 619
  set the locv of sprite downSprite = 459
  PuppetSoundStop()
  set the loch of sprite downSprite = -100
  set the locv of sprite downSprite = -100
  updateStage

end  backDown
------------------------------------------------------------------------

------------------------------------------------------------------------
-- CODE FOR DEPRESSED BACK BUTTON & SOUND
------------------------------------------------------------------------
on DepressedButton NeedbuttonName,NeedSpriteNum,NeedSound
  sound stop 1
  puppetSound NeedSound
  puppetSprite NeedSpriteNum,TRUE
  set the castNum of sprite NeedSpriteNum = the number of cast NeedbuttonName
  PuppetSoundStop()
  puppetSprite NeedSpriteNum,FALSE
  updateStage
end  backDown
------------------------------------------------------------------------

------------------------------------------------------------------------
-- CODE TO MOVE ANSON(BUTTON)
------------------------------------------------------------------------



------------------------------------------------------------------------
-- CODE TO MOVE ANSON(BUTTON)
------------------------------------------------------------------------





-- -- *********************************************************
-- -- HINT AND BUGS
-- -- *********************************************************
------------------------------------------------------------------------
-- HINT ACTIVATE
------------------------------------------------------------------------
on screenButActive where, whereTo
  global toFrame
  put whereTo into toFrame
  puppetSprite 36,TRUE
  set the cursor of sprite 42 to 4
  puppetSound "lid.aif"
  PuppetSoundStop()


  go where

end
------------------------------------------------------------------------

------------------------------------------------------------------------
-- HINT END ACTIVE
------------------------------------------------------------------------
on screenButNotActive
  global toFrame
  sound stop 1
  set the locH of sprite 44= -100
  set the locV of sprite 44= -100
  set the locH of sprite 43= -100
  set the locV of sprite 43= -100
  --set the visible of sprite 47 to FALSE
  puppetSound "UpProj"
  puppetTransition 4,3,8,TRUE

  PuppetSoundStop()
  go toFrame
  puppetSound "lid.aif"
  PuppetSoundStop()

  puppetSprite 36,FALSE
  set the cursor of sprite 42 to 0
  startTimer
end
------------------------------------------------------------------------

------------------------------------------------------------------------
-- SAVE USER INFO
------------------------------------------------------------------------
on saveUserInfo userInfo
  global homeDir
  set userFileName=homeDir&(getAt(userInfo,3))&".bug"

  set file = FileIO(mNew,"write",userFileName)
  if objectp(file) then
    file( mWriteString,string(userInfo))
    file(mDispose)
  else
    alert("Unable to Create User File Because of Error#"&file)
  end if
end saveUserInfo
------------------------------------------------------------------------
------------------------------------------------------------------------
-- CREATE HABITAT LIST
------------------------------------------------------------------------
on createHabitatAnims
  global habitatList
  set HabitatList=[10,18,23,30,36,37,40,43,44,50]
  set tempList=[]
  repeat while count(HabitatList)>0
    set tempranNum= random(count(HabitatList))
    add(tempList,getAt(HabitatList,tempranNum))
    deleteAt(HabitatList,tempranNum)
  end repeat
  put tempList into HabitatList
end createHabitatAnims
------------------------------------------------------------------------
------------------------------------------------------------------------
-- ANSON BACK
------------------------------------------------------------------------
on AnsonDone
  global toFrame
  sound stop 1
  set the cursor of sprite 42 to 0

  go toFrame
  startTimer
  puppetSprite 36, FALSE
  set the mouseDownScript to EMPTY
end

-- -- *********************************************************
-- -- SOUNDS
-- -- *********************************************************
------------------------------------------------------------------------
-- PLAYS PUPPETSOUND
------------------------------------------------------------------------
on playPuppet soundName
  puppetSound soundName
  updateStage
  repeat while soundBusy(1)
    --
  end repeat
  puppetSound 0
end playPuppet
------------------------------------------------------------------------


------------------------------------------------------------------------
-- PLAYS AIF FILE IN CHANNEL 1
------------------------------------------------------------------------
on playAnsonSound FileNme,FolderNme
  global localDir
  if the machineType=256 then
    sound playFile 1,localDir& FolderNme&"\" &FileNme&".aif"
  else
    sound playFile 1,localDir& FolderNme& ":" &FileNme&".aif"
  end if

end  playAnsonSound


------------------------------------------------------------------------
-- PLAYS ANY FILE IN CHANNEL 2
------------------------------------------------------------------------
on playAif fileName
  sound playFile 2,fileName&".aif"
end playAif
------------------------------------------------------------------------

------------------------------------------------------------------------
-- PLAYS ANY FILE IN CHANNEL 2
------------------------------------------------------------------------
on HighLight Color
  global spriteOn, oldColor,lastMapRandom
  put the clickOn into spriteOn
  put (spriteOn-23) into lastMapRandom
  puppetSprite (spriteOn), TRUE
  put the foreColor of sprite (spriteOn) into oldColor
  set the foreColor of sprite (spriteOn) to Color
  updateStage
  go (lastMapRandom &".Run")
  puppetSprite (spriteOn), FALSE
  updateStage
  cursor 4
end HighLight

------------------------------------------------------------------------