home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / RoboticInvaders.dxr / 00005.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  2.4 KB  |  116 lines
  1. on harvestInput
  2.   global inputString, selectedWeapon
  3.   inputString = [0, 0, 0, 0, 0, 0, 0]
  4.   if keyPressed(0) = 1 then
  5.     inputString[1] = 1
  6.   end if
  7.   if keyPressed(2) = 1 then
  8.     inputString[2] = 1
  9.   end if
  10.   if keyPressed(1) = 1 then
  11.     inputString[3] = 1
  12.   end if
  13.   if keyPressed(13) = 1 then
  14.     inputString[4] = 1
  15.   end if
  16.   if keyPressed(123) = 1 then
  17.     inputString[1] = 1
  18.   end if
  19.   if keyPressed(124) = 1 then
  20.     inputString[2] = 1
  21.   end if
  22.   if keyPressed(125) = 1 then
  23.     inputString[3] = 1
  24.   end if
  25.   if keyPressed(126) = 1 then
  26.     inputString[4] = 1
  27.   end if
  28.   if keyPressed(18) = 1 then
  29.     selectedWeapon = 1
  30.   end if
  31.   if keyPressed(19) = 1 then
  32.     selectedWeapon = 2
  33.   end if
  34.   if keyPressed(20) = 1 then
  35.     selectedWeapon = 3
  36.   end if
  37.   if keyPressed(21) = 1 then
  38.     selectedWeapon = 4
  39.   end if
  40.   if keyPressed(23) = 1 then
  41.     selectedWeapon = 5
  42.   end if
  43.   if keyPressed(22) = 1 then
  44.     selectedWeapon = 6
  45.   end if
  46.   if keyPressed(26) = 1 then
  47.     selectedWeapon = 7
  48.   end if
  49.   if keyPressed(28) = 1 then
  50.     selectedWeapon = 8
  51.   end if
  52.   if keyPressed(25) = 1 then
  53.     selectedWeapon = 9
  54.   end if
  55.   if keyPressed(29) = 1 then
  56.     selectedWeapon = 10
  57.   end if
  58.   if keyPressed(49) = 1 then
  59.     inputString[5] = 1
  60.   end if
  61.   if keyPressed(47) = 1 then
  62.     inputString[5] = 1
  63.   end if
  64.   if keyPressed(43) = 1 then
  65.     inputString[6] = 1
  66.   end if
  67. end
  68.  
  69. on findDistance pointA, pointB
  70.   hDistance = pointA[1] - pointB[1]
  71.   vDistance = pointA[2] - pointB[2]
  72.   finalDistance = sqrt((hDistance * hDistance) + (vDistance * vDistance))
  73.   return finalDistance
  74. end
  75.  
  76. on findAngle pointA, pointB
  77.   global watchThisAngle
  78.   xDist = pointB[1] - pointA[1]
  79.   yDist = pointB[2] - pointA[2]
  80.   if xDist <> 0 then
  81.     watchThisAngle = atan(1.0 * yDist / xDist) * 180 / PI
  82.     theAngle = atan(1.0 * yDist / xDist) * 180 / PI
  83.     if xDist > 0 then
  84.       theAngle = theAngle + 90
  85.     else
  86.       if xDist < 0 then
  87.         theAngle = theAngle - 90
  88.       else
  89.         if yDist < 0 then
  90.           theAngle = 0
  91.         else
  92.           if yDist > 0 then
  93.             theAngle = 180
  94.           end if
  95.         end if
  96.       end if
  97.     end if
  98.   else
  99.     if yDist < 0 then
  100.       theAngle = 0
  101.     else
  102.       if yDist > 0 then
  103.         theAngle = 180
  104.       end if
  105.     end if
  106.   end if
  107.   return theAngle
  108. end
  109.  
  110. on playSound whichSound, whichSlot
  111.   global lastClear
  112.   sound(whichSlot).stop()
  113.   sound(whichSlot).queue([#member: member(whichSound)])
  114.   sound(whichSlot).play()
  115. end
  116.