home *** CD-ROM | disk | FTP | other *** search
/ A Field Trip to the Sky (Demo) / Mac_Sunburst_AFieldTripToTheSky-Demo.iso / DIR / GAME.DIR / 00115_Script_doRings < prev    next >
Text File  |  1996-03-27  |  823b  |  39 lines
  1. global gAttrList
  2. global gPower
  3.  
  4. on mouseDown
  5.   set s to the clickOn
  6.   set c to the castNum of sprite s
  7.   
  8.   if( the name of cast c = "Switch Right" OR gPower < 17 ) then
  9.     
  10.     -- if they've already been here or have enough, tell em what for
  11.     set theRings to getProp(gAttrList,#rings)
  12.     
  13.     -- play the sound
  14.     doPlaySound( "RI" & string(theRings) ) 
  15.     
  16.   else if gPower >= 17 then
  17.     -- else bark
  18.     doPlaySound( "Power3" )
  19.   end if
  20.   
  21.   if the name of cast c <> "Switch Right" AND gPower < 17 then
  22.     doSwitch(the clickOn)
  23.     
  24.     set s to 10
  25.     puppetSprite s, TRUE
  26.     
  27.     set c to the number of cast (string(theRings) && "Ring")
  28.     set the castNum of sprite s to c
  29.     
  30.     -- and redraw
  31.     decreasePower(2)
  32.     updateStage
  33.     
  34.   end if
  35.   
  36.   doFlush()
  37.   
  38. end
  39.