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