home *** CD-ROM | disk | FTP | other *** search
/ A Field Trip to the Sky (Demo) / Mac_Sunburst_AFieldTripToTheSky-Demo.iso / DIR / GAME.DIR / 00117_Script_doAtmosphere < prev    next >
Text File  |  1996-03-27  |  291b  |  20 lines
  1. global gPower
  2.  
  3. on mouseDown
  4.   
  5.   if( doButtonPress() ) then
  6.     if( gPower < 17) then
  7.       decreasePower(1)
  8.       doPlaySound( "AT00" )
  9.       go to the frame + 1
  10.     else
  11.       -- else bark
  12.       doPlaySound( "Power3" )
  13.     end if
  14.     
  15.     doFlush()
  16.     
  17.   end if
  18.   
  19. end
  20.