home *** CD-ROM | disk | FTP | other *** search
/ A Field Trip to the Sky (Demo) / Mac_Sunburst_AFieldTripToTheSky-Demo.iso / DIR / GAME.DIR / 00118_Script_doElement < prev    next >
Text File  |  1996-03-27  |  1KB  |  53 lines
  1. global gAttrList
  2. global gPower
  3. global gElementClicked
  4.  
  5. on mouseDown
  6.   
  7.   
  8.   if( doButtonPress() ) then
  9.     
  10.     set c to the castNum of sprite the clickOn
  11.     set eleNum to (c-75)/2
  12.     
  13.     put eleNum
  14.     
  15.     if( getAt(gElementClicked,eleNum) OR gPower < 17 ) then
  16.       
  17.       -- if they've already been here or have enough, tell em what for
  18.       set bOn to getProp(gAttrList,the name of cast c)
  19.       
  20.       set theSoundStub to "AT" & (char 1 to 3 of the name of cast c)
  21.       if( bOn = 0) then set theSoundStub to theSoundStub & "N"
  22.       
  23.       doPlaySound( theSoundStub )
  24.       
  25.     else if gPower >= 17 then
  26.       -- else bark
  27.       doPlaySound( "Power3" )
  28.     end if
  29.     
  30.     if ( getAt(gElementClicked,eleNum) = 0 AND gPower < 17 ) then
  31.       
  32.       setAt(gElementClicked,eleNum,1)
  33.       
  34.       decreasePower(1)
  35.       updateStage
  36.       
  37.       set s to the clickOn - 11
  38.       
  39.       puppetSprite s, TRUE
  40.       set the castNum of sprite s to the number of cast ("Element" && bOn)
  41.       
  42.       --puppetTransition 50, 0, 4, TRUE
  43.       
  44.       updateStage
  45.       
  46.     end if
  47.     
  48.     doFlush()
  49.     
  50.   end if
  51.   
  52. end
  53.