home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / MachineWar.dxr / 00001_Main.ls next >
Encoding:
Text File  |  2002-01-25  |  9.8 KB  |  338 lines
  1. property pTargetX, pTargetY, pEneTimeStart, pEneTimeStart2, pShootMeter, pShootMeter1, pShootMeter2, pShootMeter3, pThePointX, pThePointY, pPointTimer, chopperFrame
  2. global gCurrentLevel, gSelectedSprite, gBombList, gPlayer3, gPlayer1Points, gPlayer2Points, gPlayer3Points, gPlayer4Points, gEnemy1, gEnemy2, gEnemy3, gPath, gInfluence, gTotalScore, gThePad, gFlagSeised, pThePoint, doChopper
  3.  
  4. on new
  5.   init_ParticleConstants()
  6.   init_Particles()
  7.   doChopper = 0
  8.   gThePad = 4
  9.   sprite(20).visible = 1
  10.   sprite(66).locZ = 50
  11.   pPointTimer = the ticks
  12.   pThePoint = 66
  13.   gPlayer1Points = 0
  14.   gPlayer2Points = 0
  15.   gPlayer3Points = 0
  16.   gPlayer4Points = 0
  17.   member("Player1Points").text = string(gPlayer1Points)
  18.   member("Player2Points").text = string(gPlayer2Points)
  19.   member("Player3Points").text = string(gPlayer3Points)
  20.   member("Player4Points").text = string(gPlayer4Points)
  21.   gFlagSeised = 0
  22.   pShootMeter = 120
  23.   pShootMeter1 = 120
  24.   pShootMeter2 = 120
  25.   pShootMeter3 = 120
  26.   sprite(67).width = pShootMeter
  27.   pGettingSickOfUsingTimersForEverything = the ticks
  28.   pCheezeHasBeenMoved = 1
  29.   pEneTimeStart = the ticks
  30.   pEneTimeStart2 = the ticks
  31.   pSpace = 0
  32.   pConfusing = 0
  33.   gBombList = []
  34.   gSelectedSprite = 0
  35.   sprite(16).blend = 0
  36.   gCurrentLevel = gCurrentLevel + 1
  37.   newLevel(gCurrentLevel)
  38.   gPlayer3 = new(script("AntScript"), 1, 0, 3, 100, 70, "wheel1", 52)
  39.   gEnemy1 = new(script("EnemyScript"), 1, 4, 3, 70, 370, "wheel2", 54)
  40.   gEnemy2 = new(script("EnemyScript"), 1, 4, 3, 550, 400, "wheel3", 55)
  41.   gEnemy3 = new(script("EnemyScript"), 1, 4, 3, 520, 50, "wheel4", 56)
  42.   gSelectedSprite = 52
  43.   doTitle()
  44.   doChopper = 0
  45.   chopperFrame = 1
  46. end
  47.  
  48. on exitFrame me
  49.   gPlayer3.moveAnt()
  50.   if pShootMeter <= 120 then
  51.     pShootMeter = pShootMeter + 2
  52.     if pShootMeter < 30 then
  53.       sprite(255).member = "power1"
  54.     else
  55.       if pShootMeter < 60 then
  56.         sprite(255).member = "power2"
  57.       else
  58.         if pShootMeter < 90 then
  59.           sprite(255).member = "power3"
  60.         else
  61.           sprite(255).member = "power4"
  62.         end if
  63.       end if
  64.     end if
  65.   end if
  66.   doInput()
  67.   repeat with counter = 1 to count(gBombList)
  68.     gBombList[counter].updateBomb()
  69.   end repeat
  70.   gEnemy1.updateAnt()
  71.   gEnemy2.updateAnt()
  72.   gEnemy3.updateAnt()
  73.   checkColisions()
  74.   if doChopper = 1 then
  75.     doChopperAnimation()
  76.   end if
  77.   moveParticles()
  78.   go(the frame)
  79. end
  80.  
  81. on doInput
  82.   if keyPressed(123) then
  83.     gPlayer3.setAngle(gPlayer3.pAngle + 8)
  84.   else
  85.     if keyPressed(124) then
  86.       gPlayer3.setAngle(gPlayer3.pAngle - 8)
  87.     end if
  88.   end if
  89.   if keyPressed(126) then
  90.     gPlayer3.setSpeed(gPlayer3.pMovementSpeed + 0.29999999999999999)
  91.   else
  92.     gPlayer3.setSpeed(gPlayer3.pMovementSpeed - 0.29999999999999999)
  93.   end if
  94.   if keyPressed(125) then
  95.     gPlayer3.setSpeed(gPlayer3.pMovementSpeed - 1)
  96.   end if
  97.   if (the mouseDown = 1) and (pShootMeter >= 120) then
  98.     if not (gPlayer3.pState = 6) then
  99.       pShootMeter = 10
  100.       sprite(67).width = pShootMeter
  101.       gPlayer3.startBombThrow()
  102.     end if
  103.   end if
  104. end
  105.  
  106. on newLevel theLevel
  107.   gTotalHealth = 150
  108.   sprite(281).visible = 0
  109.   sprite(282).visible = 0
  110. end
  111.  
  112. on doTitle
  113.   sprite(285).puppet = 1
  114.   sprite(285).member = "title10"
  115.   sprite(285).loc = point(290, 220)
  116.   sprite(285).blend = 0
  117.   aTimer = the ticks
  118.   repeat while sprite(285).blend <= 80
  119.     if (aTimer + 2) < the ticks then
  120.       aTimer = the ticks
  121.       sprite(285).blend = sprite(285).blend + 20
  122.       updateStage()
  123.     end if
  124.   end repeat
  125.   sprite(285).blend = 100
  126.   aTimer = the ticks
  127.   repeat while (aTimer + 60) > the ticks
  128.   end repeat
  129.   aTimer = the ticks
  130.   repeat while sprite(285).blend >= 20
  131.     if (aTimer + 2) < the ticks then
  132.       aTimer = the ticks
  133.       sprite(285).blend = sprite(285).blend - 20
  134.       updateStage()
  135.     end if
  136.   end repeat
  137.   sprite(285).blend = 0
  138.   sprite(285).puppet = 0
  139. end
  140.  
  141. on checkColisions
  142.   if gFlagSeised = 0 then
  143.     if sprite(52).intersects(20) and not (gPlayer3.pState = 6) then
  144.       puppetSound(4, "pick up")
  145.       gFlagSeised = 1
  146.       gPlayer3.pIsHoldingObject = 1
  147.       gEnemy1.pHoldingFlag = 0
  148.       gEnemy2.pHoldingFlag = 0
  149.       gEnemy3.pHoldingFlag = 0
  150.     end if
  151.     if sprite(54).intersects(20) and (gEnemy1.stundTime >= 120) then
  152.       puppetSound(4, "pick up")
  153.       gFlagSeised = 1
  154.       gPlayer3.pIsHoldingObject = 0
  155.       gEnemy1.pHoldingFlag = 1
  156.       gEnemy2.pHoldingFlag = 0
  157.       gEnemy3.pHoldingFlag = 0
  158.     end if
  159.     if sprite(55).intersects(20) and (gEnemy2.stundTime >= 120) then
  160.       puppetSound(4, "pick up")
  161.       gFlagSeised = 1
  162.       gPlayer3.pIsHoldingObject = 0
  163.       gEnemy1.pHoldingFlag = 0
  164.       gEnemy2.pHoldingFlag = 1
  165.       gEnemy3.pHoldingFlag = 0
  166.     end if
  167.     if sprite(56).intersects(20) and (gEnemy3.stundTime >= 120) then
  168.       puppetSound(4, "pick up")
  169.       gFlagSeised = 1
  170.       gPlayer3.pIsHoldingObject = 0
  171.       gEnemy1.pHoldingFlag = 0
  172.       gEnemy2.pHoldingFlag = 0
  173.       gEnemy3.pHoldingFlag = 1
  174.     end if
  175.   end if
  176.   if sprite(52).intersects(pThePoint) and (gPlayer3.pIsHoldingObject = 1) then
  177.     puppetSound(1, "player score")
  178.     gPlayer1Points = gPlayer1Points + 1
  179.     member("Player1Points").text = string(gPlayer1Points)
  180.     gPlayer3.pIsHoldingObject = 0
  181.     doChopper = 1
  182.     sprite(76).loc = sprite(20).loc
  183.     gFlagSeised = 0
  184.     pThePoint = 300
  185.     updateStage()
  186.   end if
  187.   if sprite(54).intersects(pThePoint) and (gEnemy1.pHoldingFlag = 1) then
  188.     puppetSound(1, "enemy score")
  189.     gPlayer2Points = gPlayer2Points + 1
  190.     member("Player2Points").text = string(gPlayer2Points)
  191.     gEnemy1.pHoldingFlag = 0
  192.     doChopper = 1
  193.     sprite(76).loc = sprite(20).loc
  194.     gFlagSeised = 0
  195.     pThePoint = 300
  196.     updateStage()
  197.   end if
  198.   if sprite(55).intersects(pThePoint) and (gEnemy2.pHoldingFlag = 1) then
  199.     puppetSound(1, "enemy score")
  200.     gPlayer3Points = gPlayer3Points + 1
  201.     member("Player3Points").text = string(gPlayer3Points)
  202.     gEnemy2.pHoldingFlag = 0
  203.     doChopper = 1
  204.     sprite(76).loc = sprite(20).loc
  205.     gFlagSeised = 0
  206.     pThePoint = 300
  207.     updateStage()
  208.   end if
  209.   if sprite(56).intersects(pThePoint) and (gEnemy3.pHoldingFlag = 1) then
  210.     puppetSound(1, "enemy score")
  211.     gPlayer4Points = gPlayer4Points + 1
  212.     member("Player4Points").text = string(gPlayer4Points)
  213.     gEnemy3.pHoldingFlag = 0
  214.     doChopper = 1
  215.     sprite(76).loc = sprite(20).loc
  216.     gFlagSeised = 0
  217.     pThePoint = 300
  218.     updateStage()
  219.   end if
  220. end
  221.  
  222. on setTarget guyId
  223.   if gPlayer3.pIsHoldingObject = 1 then
  224.     pTargetX = gPlayer3.pPositionX
  225.     pTargetY = gPlayer3.pPositionY
  226.   else
  227.     if gEnemy1.pIsHoldingObject = 1 then
  228.       pTargetX = gEnemy1.pPositionX
  229.       pTargetY = gEnemy1.pPositionY
  230.     else
  231.       if gEnemy2.pIsHoldingObject = 1 then
  232.         pTargetX = gEnemy2.pPositionX
  233.         pTargetY = gEnemy2.pPositionY
  234.       else
  235.         if gEnemy3.pIsHoldingObject = 1 then
  236.           pTargetX = gEnemy3.pPositionX
  237.           pTargetY = gEnemy3.pPositionY
  238.         else
  239.           pTargetX = -1
  240.           pTargetY = -1
  241.         end if
  242.       end if
  243.     end if
  244.   end if
  245. end
  246.  
  247. on getNextPoint
  248.   case random(4) of
  249.     1:
  250.       sprite(66).locH = 508
  251.       sprite(66).locV = 87
  252.       gThePad = 1
  253.     2:
  254.       sprite(66).locH = 518
  255.       sprite(66).locV = 410
  256.       gThePad = 2
  257.     3:
  258.       sprite(66).locH = 262
  259.       sprite(66).locV = 404
  260.       gThePad = 3
  261.     4:
  262.       sprite(66).locH = 29
  263.       sprite(66).locV = 185
  264.       gThePad = 4
  265.   end case
  266.   updateStage()
  267.   pThePointX = sprite(66).locH / 20
  268.   pThePointY = sprite(66).locV / 20
  269.   return 66
  270. end
  271.  
  272. on doChopperAnimation
  273.   chopperFrame = chopperFrame + 1
  274.   sprite(76).member = "chopper" & string(chopperFrame)
  275.   if chopperFrame < 20 then
  276.     sprite(76).loc = point(sprite(20).locH, sprite(20).locV)
  277.   end if
  278.   if chopperFrame > 30 then
  279.     sprite(20).visible = 0
  280.     if gPlayer1Points >= 10 then
  281.       sprite(76).loc = point(800, 800)
  282.       member("Win/Lose").text = "You Win!"
  283.       member("Player1Score").text = "Player 1:" && string(gPlayer1Points)
  284.       member("Player2Score").text = "Player 2:" && string(gPlayer2Points)
  285.       member("Player3Score").text = "Player 3:" && string(gPlayer3Points)
  286.       member("Player4Score").text = "Player 4:" && string(gPlayer4Points)
  287.       puppetSound(5, "win10")
  288.       go(19)
  289.     end if
  290.     if gPlayer2Points >= 10 then
  291.       sprite(76).loc = point(800, 800)
  292.       member("Win/Lose").text = "Try Again"
  293.       member("Player1Score").text = "Player 1:" && string(gPlayer1Points)
  294.       member("Player2Score").text = "Player 2:" && string(gPlayer2Points)
  295.       member("Player3Score").text = "Player 3:" && string(gPlayer3Points)
  296.       member("Player4Score").text = "Player 4:" && string(gPlayer4Points)
  297.       puppetSound(5, "lose")
  298.       go(19)
  299.     end if
  300.     if gPlayer3Points >= 10 then
  301.       sprite(76).loc = point(800, 800)
  302.       member("Win/Lose").text = "Try Again"
  303.       member("Player1Score").text = "Player 1:" && string(gPlayer1Points)
  304.       member("Player2Score").text = "Player 2:" && string(gPlayer2Points)
  305.       member("Player3Score").text = "Player 3:" && string(gPlayer3Points)
  306.       member("Player4Score").text = "Player 4:" && string(gPlayer4Points)
  307.       puppetSound(5, "lose")
  308.       go(19)
  309.     end if
  310.     if gPlayer4Points >= 10 then
  311.       sprite(76).loc = point(800, 800)
  312.       member("Win/Lose").text = "Try Again"
  313.       member("Player1Score").text = "Player 1:" && string(gPlayer1Points)
  314.       member("Player2Score").text = "Player 2:" && string(gPlayer2Points)
  315.       member("Player3Score").text = "Player 3:" && string(gPlayer3Points)
  316.       member("Player4Score").text = "Player 4:" && string(gPlayer4Points)
  317.       puppetSound(5, "lose")
  318.       go(19)
  319.     end if
  320.   end if
  321.   if chopperFrame >= 59 then
  322.     gPlayer3.pIsHoldingObject = 0
  323.     gEnemy1.pHoldingFlag = 0
  324.     gEnemy2.pHoldingFlag = 0
  325.     gEnemy3.pHoldingFlag = 0
  326.     gFlagSeised = 0
  327.     sprite(20).visible = 1
  328.     sprite(76).member = "chopper0"
  329.     sprite(20).loc = point(197, 65)
  330.     sprite(20).blend = 100
  331.     doChopper = 0
  332.     chopperFrame = 1
  333.     updateStage()
  334.     pThePoint = 66
  335.     getNextPoint()
  336.   end if
  337. end
  338.