home *** CD-ROM | disk | FTP | other *** search
/ A Field Trip to the Sky (Demo) / Mac_Sunburst_AFieldTripToTheSky-Demo.iso / DIR / GAME.DIR / 00116_Script_doMoon < prev    next >
Text File  |  1996-03-27  |  2KB  |  64 lines
  1. global gAttrList
  2. global gMoons, gMoonsClicked
  3. global gPower
  4.  
  5. on mouseDown
  6.   set s to the clickOn
  7.   set c to the castNum of sprite s
  8.   
  9.   if( gMoonsClicked <> 0 OR gPower < 17 ) then
  10.     
  11.     -- if they've already been here or have enough, tell em what for
  12.     set theMoons to getProp(gAttrList,#moons)
  13.     
  14.     -- play the sound
  15.     doPlaySound( "MO" & string(theMoons) )
  16.     
  17.   else if gPower >= 17 then
  18.     -- else bark
  19.     doPlaySound( "Power3" )
  20.   end if
  21.   
  22.   if gMoonsClicked = 0 AND gPower < 17 then
  23.     if( doSwitch(the clickOn) ) then
  24.       
  25.       set s to 16
  26.       puppetSprite s, TRUE
  27.       
  28.       set c to the number of cast (string(theMoons) && "Moon")
  29.       
  30.       if theMoons = 1 then
  31.         set gMoons to random(9)
  32.         set the castNum of sprite s to (c + gMoons - 1)
  33.       else
  34.         set gMoons to 0
  35.         set the castNum of sprite s to c
  36.       end if
  37.       
  38.       
  39.       -- show this moon in the little window
  40.       --      set s to 8
  41.       --      if the name of cast (the castNum of sprite s) contains "static" then 
  42.       --        puppetSprite s, TRUE
  43.       --        if theMoons > 0 then
  44.       --          set c to getProp(gAttrList,#moonNum)
  45.       --        else
  46.       --          set c to the number of cast "Moonless"
  47.       --        end if
  48.       --        
  49.       --        set the castNum of sprite s to c
  50.       --      end if
  51.       
  52.       set gMoonsClicked to TRUE
  53.       -- and redraw
  54.       decreasePower(2)
  55.       updateStage
  56.       
  57.     end if
  58.     
  59.     doFlush()
  60.     
  61.   end if
  62.   
  63. end
  64.