home *** CD-ROM | disk | FTP | other *** search
/ A Field Trip to the Sky (Demo) / Mac_Sunburst_AFieldTripToTheSky-Demo.iso / DIR / GAME.DIR / 00104_Script_alerts < prev    next >
Text File  |  1996-03-27  |  1KB  |  65 lines
  1. global gAttrList, gChoosing
  2.  
  3. -- ïï show an alert to allow the user to select a planetz ïï
  4. on planetChoiceAlert
  5.   
  6.   set gChoosing to TRUE
  7.   open window "GAME1.DIR"
  8.   set the windowType of window "GAME1.DIR" to 2
  9.   
  10. end
  11.  
  12. -- ïï choosePlanet ïï
  13. -- the user choose a planet
  14. on choosePlanet pNum
  15.   put pNum
  16.   if pNum = getProp(gAttrList,#planet) then
  17.     doneAlert()
  18.   else
  19.     beep(0)
  20.   end if
  21.   
  22. end
  23.  
  24. --ïï congratulate user and go ïï
  25. on doneAlert
  26.   
  27.   close window "GAME1.DIR"
  28.   forget window "GAME1.DIR"
  29.   
  30.   open window "GAME2.DIR"
  31.   set the windowType of window "GAME2.DIR" to 2
  32.   
  33. end
  34.  
  35.  
  36. -- go to an albume
  37. on chooseAlbum
  38.   
  39.   global gMercuryObject, gVenusObject, gMoonObject, gMarsObject, gJupiterObject
  40.   global gSaturnObject, gUranusObject, gNeptuneObject, gPlutoObject
  41.   global gCurObject
  42.   
  43.   set i to the clickOn - 35
  44.   
  45.   
  46.   set theList to [gMercuryObject, gVenusObject, gMoonObject, gMarsObject, gJupiterObject,¬
  47. gSaturnObject, gUranusObject, gNeptuneObject, gPlutoObject]
  48.   
  49.   -- make it the current object
  50.   set gCurObject to getAt(theList,i)
  51.   set theId to getProp(gCurObject,#id)
  52.   
  53.   doInitGeneralButtons theId
  54.   
  55.   -- copy game retun over it
  56.   duplicate cast "BACKUP.PICT", 1164
  57.   duplicate cast "BACKDN.PICT", 1163
  58.   
  59.   -- and get out of here
  60.   
  61.   go to frame "T1" of movie (theId & "O")
  62.   
  63. end
  64.  
  65.