home *** CD-ROM | disk | FTP | other *** search
/ A Field Trip to the Sky (Demo) / Mac_Sunburst_AFieldTripToTheSky-Demo.iso / DIR / GAME.DIR / 00114_Script_doWeight < prev    next >
Text File  |  1996-03-27  |  2KB  |  69 lines
  1. global gAttrList
  2. global gWeightList, gWeight
  3. global gPower
  4.  
  5. on mouseDown
  6.   if( doButtonPress() ) then
  7.     
  8.     set theWeight to getProp(gAttrList,#gravity)
  9.     
  10.     if( gWeight <> 0 OR gPower < 17 ) then
  11.       
  12.       -- if they've already been here or have enough, tell em what for
  13.       doPlaySound( "WE" & string(theWeight+1) )
  14.       
  15.     else if gPower >= 17 then
  16.       -- else bark
  17.       doPlaySound( "Power3" )
  18.     end if
  19.     
  20.     if( gWeight = 0 AND gPower < 17) then
  21.       
  22.       -- set up the list to be animated
  23.       -- 293 is start, 293 is same, 271 is less, 314 is more
  24.       set theStart to 240 + the Top of sprite 11
  25.       if( theWeight = -1 ) then
  26.         set theEndPoint to 228 + the Top of sprite 11
  27.       else if ( theWeight = 1 ) then
  28.         set theEndPoint to 261 + the Top of sprite 11
  29.       else 
  30.         set theEndPoint to theStart
  31.       end if
  32.       
  33.       -- set up the start of the animation
  34.       set gWeightList to []
  35.       
  36.       -- add the first part
  37.       set i to 0
  38.       set m to theWeight * 2
  39.       put m
  40.       repeat while abs(i) < abs(theEndPoint - theStart)
  41.         
  42.         add gWeightList, theStart + i
  43.         
  44.         set i = i + m
  45.         
  46.       end repeat
  47.       
  48.       -- finally, add in the flutter
  49.       add gWeightList, theEndPoint - 2
  50.       add gWeightList, theEndPoint - 1
  51.       add gWeightList, theEndPoint
  52.       add gWeightList, theEndPoint + 2
  53.       add gWeightList, theEndPoint + 1
  54.       add gWeightList, theEndPoint 
  55.       
  56.       -- set up the pointer to that list
  57.       set gWeight to 1      
  58.       
  59.       decreasePower(2)
  60.       updateStage
  61.       
  62.     end if
  63.     
  64.     doFlush()
  65.     
  66.   end if
  67.   
  68. end
  69.