home *** CD-ROM | disk | FTP | other *** search
/ תקליטור אוסף נבחרי 95 / Top_95.iso / TOP95 / FUN / SHOOT / SHOOT.DXR / 00015.ls < prev    next >
Encoding:
Text File  |  1997-09-23  |  519 b   |  24 lines
  1. on startMovie
  2.   global gun
  3.   set gun to 1
  4.   cursor([10, 9])
  5. end
  6.  
  7. on mouseDown
  8.   global v, h, pGood
  9.   set V1 to the mouseV
  10.   set H1 to the mouseH
  11.   set the locV of sprite 6 to V1
  12.   set the locH of sprite 6 to H1
  13.   updateStage()
  14.   puppetSound("gunhot1")
  15.   if ((V1 - 10) < v) and ((V1 + 10) > v) and ((H1 - 10) < h) and ((H1 + 10) > h) then
  16.     puppetSound("scream")
  17.     sound playFile 1, "scream"
  18.     set pGood to pGood + 5
  19.     set s to string(pGood)
  20.     set the text of cast "points" to s
  21.     updateStage()
  22.   end if
  23. end
  24.