home *** CD-ROM | disk | FTP | other *** search
/ A Field Trip to the Sky (Demo) / Mac_Sunburst_AFieldTripToTheSky-Demo.iso / DIR / GAME.DIR / 00120_Script_doChoosePlanet < prev    next >
Text File  |  1996-03-27  |  2KB  |  61 lines
  1. on mouseDown
  2.   
  3.   global gAttrList, gTries
  4.   
  5.   if( doButtonPress() ) then
  6.     -- are we asking or transmitting?
  7.     set whichName to the name of cast (the castNum of sprite (the clickOn))
  8.     
  9.     -- what planet do we have?
  10.     set theId to char 1 to 2 of getProp(gAttrList,#name)
  11.     
  12.     if whichName contains "radio" then
  13.       
  14.       -- play the transmit sound
  15.       doPlaySound "transloc"
  16.       
  17.       -- set up the transmit button
  18.       set s to the clickOn
  19.       puppetSprite s, TRUE
  20.       set the castNum of sprite s to the number of cast "Transmit Up"
  21.       puppetSprite s, FALSE
  22.       
  23.       -- set up the planet chooser
  24.       set s to 8
  25.       puppetSprite s, TRUE
  26.       set the castNum of sprite s to the number of cast "meyes.pict"
  27.       puppetSprite s, FALSE
  28.       
  29.       -- show the arrows
  30.       spriteShow 45
  31.       spriteShow 46
  32.       
  33.       set gTries to 0
  34.       
  35.     else if whichName contains "transmit" then
  36.       
  37.       set gTries to gTries + 1
  38.       
  39.       -- check if we're right
  40.       set theName to char 1 to 2 of the name of cast (the castNum of sprite 8)
  41.       
  42.       if theName = char 1 to 2 of getProp(gAttrList,#name) then
  43.         -- we're right
  44.         doPlaySeries( (theId & "right"), "help", "", FALSE, TRUE )
  45.         go to frame "Reset"
  46.       else if gTries = 1 OR gTries = 2 then
  47.         -- we're wrong, but in first two guesses
  48.         doPlaySeries( (theName & "wrong1"), "check", "", FALSE, TRUE )
  49.       else 
  50.         -- we've been wrong for a while
  51.         doPlaySeries( "luck", (theId & "wrong2"), "help", FALSE, TRUE )
  52.         go to frame "Reset"
  53.       end if
  54.       
  55.     end if
  56.   end if
  57.   
  58.   doFlush()
  59.   
  60. end
  61.