home *** CD-ROM | disk | FTP | other *** search
/ A Field Trip to the Sky (Demo) / Mac_Sunburst_AFieldTripToTheSky-Demo.iso / DIR / GAME.DIR / 00113_Script_doSurfaceTemp < prev    next >
Text File  |  1996-03-27  |  2KB  |  74 lines
  1. global gAttrList
  2. global gTempList, gTemp
  3. global gPower
  4.  
  5. on mouseDown
  6.   if( doButtonPress() ) then
  7.     
  8.     if( gTemp <> 0 OR gPower < 17 ) then
  9.       
  10.       -- if they've already been here or have enough, tell em what for
  11.       set theTemp to getProp(gAttrList,#surfaceTemp)
  12.       
  13.       -- play the sound
  14.       doPlaySound( "ST" & string(theTemp + 200) )
  15.       
  16.     else if gPower >= 17 then
  17.       -- else bark
  18.       doPlaySound( "Power3" )
  19.     end if
  20.     
  21.     if( gTemp = 0 AND gPower < 17) then
  22.       
  23.       -- set up the list to be animated
  24.       -- 312 is start, 349 is -200, 414 is 0, 473 is +200, 514 is end
  25.       if( theTemp = -200 ) then
  26.         set theEndPoint to 349
  27.         set m to 15
  28.       else if ( theTemp = 200 ) then
  29.         set theEndPoint to 473
  30.         set m to 20
  31.       else 
  32.         set theEndPoint to 414
  33.         set m to 18
  34.       end if
  35.       
  36.       -- set up the start of the animation
  37.       set gTempList to []
  38.       set theStart to 312
  39.       set theEnd to 514
  40.       
  41.       -- add the first part
  42.       repeat with i = 0 to (theEnd - theStart)/20 - 1
  43.         add gTempList, theStart + i*m 
  44.       end repeat
  45.       
  46.       -- sink back down to the right level
  47.       set i to getAt(gTempList,count(gTempList))
  48.       repeat while i > theEndPoint
  49.         add( gTempList, i )
  50.         set i to i - 14
  51.       end repeat
  52.       
  53.       -- finally, add in the flutter
  54.       add gTempList, theEndPoint - 4
  55.       add gTempList, theEndPoint - 2
  56.       add gTempList, theEndPoint
  57.       add gTempList, theEndPoint + 3
  58.       add gTempList, theEndPoint + 1
  59.       add gTempList, theEndPoint - 1
  60.       
  61.       -- set up the pointer to that list
  62.       set gTemp to 1
  63.       
  64.       decreasePower(2)
  65.       updateStage
  66.       
  67.     end if
  68.     
  69.     doFlush()
  70.     
  71.   end if
  72.   
  73. end
  74.