home *** CD-ROM | disk | FTP | other *** search
/ Curio City 11 / CURIO11.bin / pc / movie / game / space.dir / 00296.ls < prev    next >
Encoding:
Text File  |  1998-01-01  |  2.1 KB  |  104 lines
  1. global gpicl, gpicno, gshootpic, glife
  2.  
  3. on setpalam
  4.   set gpicl to [#aa1: #aa2, #ab1: #ab2, #ac1: #ac2, #ad1: #ad2, #ae1: #ae2, #ba1: #ba2, #bb1: #bb2, #bc1: #bc2, #bd1: #bd2, #be1: #be2, #ca1: #ca2, #cb1: #cb2, #cd1: #cd2, #ce1: #ce2, #ufo1: #ufo2]
  5.   set the visible of sprite 4 to 0
  6.   set gshootpic to 0
  7.   set glife to 8
  8. end
  9.  
  10. on initialize
  11.   puppetSprite(5, 1)
  12.   puppetSprite(8, 1)
  13.   updateStage()
  14. end
  15.  
  16. on appearpic
  17.   set gpicno to getPropAt(gpicl, random(15))
  18.   go(string(gpicno))
  19. end
  20.  
  21. on returnexchange
  22.   go("exchange")
  23. end
  24.  
  25. on idle
  26.   set the locH of sprite 4 to the mouseH
  27.   set the locV of sprite 4 to the mouseV
  28.   if not soundBusy(1) and the mouseDown then
  29.     puppetSound("Blast")
  30.   end if
  31.   if soundBusy(1) then
  32.     set the visible of sprite 4 to 1
  33.   else
  34.     set the visible of sprite 4 to 0
  35.   end if
  36.   updateStage()
  37. end
  38.  
  39. on shoot
  40. end
  41.  
  42. on hitpic
  43.   puppetSound(3, "189")
  44.   updateStage()
  45.   go(string(getaProp(gpicl, gpicno)))
  46. end
  47.  
  48. on hitufo
  49.   puppetSound(3, "666")
  50.   updateStage()
  51.   go(string(getaProp(gpicl, gpicno)))
  52. end
  53.  
  54. on damagechk
  55.   set glife to glife - 1
  56.   set barh to the locH of sprite 5
  57.   set the locH of sprite 5 to barh - 47
  58.   updateStage()
  59.   if glife <= 0 then
  60.     wait(60)
  61.     puppetSprite(4, 0)
  62.     puppetSprite(5, 0)
  63.     puppetSprite(8, 0)
  64.     set the visible of sprite 4 to 1
  65.     go("over")
  66.     exit
  67.   end if
  68. end
  69.  
  70. on damagechkufo
  71.   set glife to glife - 2
  72.   if glife <= 0 then
  73.     wait(60)
  74.     set barh to the locH of sprite 5
  75.     set the locH of sprite 5 to 396
  76.     updateStage()
  77.     puppetSprite(4, 0)
  78.     puppetSprite(5, 0)
  79.     puppetSprite(8, 0)
  80.     set the visible of sprite 4 to 1
  81.     go("over")
  82.     exit
  83.   else
  84.     set barh to the locH of sprite 5
  85.     set the locH of sprite 5 to barh - 94
  86.     updateStage()
  87.   end if
  88. end
  89.  
  90. on hitpointchk
  91.   set gshootpic to gshootpic + 1
  92.   set the memberNum of sprite 8 to the number of member "clear0" + gshootpic
  93.   updateStage()
  94.   if gshootpic >= 12 then
  95.     set the memberNum of sprite 8 to the number of member "clear12"
  96.     puppetSprite(4, 0)
  97.     puppetSprite(5, 0)
  98.     puppetSprite(8, 0)
  99.     set the visible of sprite 4 to 1
  100.     go("clear")
  101.     exit
  102.   end if
  103. end
  104.