100 Plus Great Games 2/100PLUSV2.BIN/games/RepairScare.dxr/00004_Main.ls

Text File | 2002-01-25 | 14.1 KB | 460 lines

property pTempX, pTempY, pFrameCount, pEmptyAlpha, pViewPortal, pViewRect, pMouseOffset, pSpace, pSpaceStart, pForPower, pTheDamagedSprite, pLaserDoors, pPhase1, pDying, pPhase2, pFixing, eCounter, fcounter, gCounter
global gLevelSeconds, gTotalSeconds, gCurrentLevel, gLevelScore, gTotalScore, gStartTime, gWon, gMapChannel, gNumLives, gBombList, pEneBombList, pEneObject, pEneObject2, pEneObject3, pEneObject4, pEneObject5, pAntObject

on new me
  pEneObject = 0
  pEneObject2 = 0
  pEneObject3 = 0
  pEneObject4 = 0
  pEneObject5 = 0
  sprite(35).puppet = 0
  sprite(36).puppet = 0
  sprite(37).puppet = 0
  sprite(38).puppet = 0
  sprite(39).puppet = 0
  displayScore()
  pFixing = 0
  eCounter = 0
  fcounter = 0
  pPhase1 = 1
  pLaserDoors = 0
  pDying = 0
  pPhase2 = 1
  pForPower = 48
  sprite(7).visible = 0
  sprite(10).visible = 0
  sprite(11).visible = 0
  sprite(12).visible = 0
  sprite(13).visible = 0
  sprite(14).visible = 0
  sprite(16).visible = 0
  pSpace = 0
  pEnter = 0
  gBombList = [0, 0]
  pAntObject = new(script("AntScript"), 1, 4, 5, 200, 90, 8)
  sprite(8).locZ = 250
  sprite(278).locZ = 251
  gCurrentLevel = gCurrentLevel + 1
  loadLevelData(gCurrentLevel)
  displayLevel()
  pTheDamagedSprite = random(17) + 99
  sprite(11).loc = sprite(8).loc
end

on exitFrame me
  if (sprite(8).blend < 100) and (pDying = 0) then
    sprite(8).blend = sprite(8).blend + 1
    if sprite(8).blend > 100 then
      sprite(8).blend = 100
    end if
  end if
  if (random(250) = 1) and ((gCurrentLevel = 2) or (gCurrentLevel = 3)) then
    pLaserDoors = 1
  end if
  if (pFixing = 1) and (pDying = 0) then
    doFixingAnimation()
  end if
  if sprite(8).blend >= 90 then
    if not (pEneObject = 0) then
      if (sprite(11).intersects(pEneObject.getEnemyChannel()) = 1) or (sprite(11).intersects(pEneObject2.getEnemyChannel()) = 1) then
        if pDying = 0 then
          sprite(8).member = "alienhit"
          puppetSound(1, "player hit")
          sprite(8).locZ = 8
          pDying = 1
          pPhase = 1
        end if
      end if
    end if
    if not (pEneObject3 = 0) then
      if sprite(11).intersects(pEneObject3.getEnemyChannel()) then
        if pDying = 0 then
          sprite(8).member = "alienhit"
          puppetSound(1, "player hit")
          sprite(8).locZ = 8
          pDying = 1
          pPhase = 1
        end if
      end if
    end if
    if not (pEneObject4 = 0) then
      if sprite(11).intersects(pEneObject4.getEnemyChannel()) then
        if pDying = 0 then
          sprite(8).member = "alienhit"
          puppetSound(1, "player hit")
          sprite(8).locZ = 8
          pDying = 1
          pPhase = 1
        end if
      end if
    end if
    if not (pEneObject5 = 0) then
      if sprite(11).intersects(pEneObject5.getEnemyChannel()) then
        if pDying = 0 then
          sprite(8).member = "alienhit"
          puppetSound(1, "player hit")
          sprite(8).locZ = 8
          pDying = 1
          pPhase = 1
        end if
      end if
    end if
    if sprite(11).intersects(17) then
      if pDying = 0 then
        sprite(8).member = "alienhit2"
        puppetSound(1, "player hit")
        pDying = 1
        pPhase = 2
      end if
    end if
  end if
  if pDying = 1 then
    doDyingAnimation()
  end if
  if pLaserDoors = 1 then
    if not ((pDying = 1) and (pPhase2 = 4)) then
      doDoorAnimation()
    end if
  end if
  if not ((pDying = 1) and (pPhase2 = 4)) then
    doDamagedSpriteEffect(pTheDamagedSprite)
  end if
  if (pDying = 0) and (pFixing = 0) then
    checkInput()
  end if
  if not ((pDying = 1) and (pPhase2 = 4)) then
    if not (pEneObject = 0) then
      pEneObject.moveEnemy()
    end if
    if not (pEneObject2 = 0) then
      pEneObject2.moveEnemy()
    end if
    if not (pEneObject3 = 0) then
      pEneObject3.moveEnemy()
    end if
    if not (pEneObject4 = 0) then
      pEneObject4.moveEnemy()
    end if
    if not (pEneObject5 = 0) then
      pEneObject5.moveEnemy()
    end if
  end if
  go(the frame)
end

on checkInput
  antDirection = pAntObject.getAntDirection()
  if keyPressed(126) and keyPressed(123) then
    if antDirection = 5 then
      pAntObject.moveAnt()
    else
      pAntObject.setAntDirection(5)
    end if
  else
    if keyPressed(126) and keyPressed(124) then
      if antDirection = 6 then
        pAntObject.moveAnt()
      else
        pAntObject.setAntDirection(6)
      end if
    else
      if keyPressed(125) and keyPressed(123) then
        if antDirection = 7 then
          pAntObject.moveAnt()
        else
          pAntObject.setAntDirection(7)
        end if
      else
        if keyPressed(125) and keyPressed(124) then
          if antDirection = 8 then
            pAntObject.moveAnt()
          else
            pAntObject.setAntDirection(8)
          end if
        else
          if keyPressed(123) then
            if antDirection = 4 then
              pAntObject.moveAnt()
            else
              pAntObject.setAntDirection(4)
            end if
          else
            if keyPressed(124) then
              if antDirection = 2 then
                pAntObject.moveAnt()
              else
                pAntObject.setAntDirection(2)
              end if
            else
              if keyPressed(126) then
                if antDirection = 1 then
                  pAntObject.moveAnt()
                else
                  pAntObject.setAntDirection(1)
                end if
              else
                if keyPressed(125) then
                  if antDirection = 3 then
                    pAntObject.moveAnt()
                  else
                    pAntObject.setAntDirection(3)
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
  if keyPressed(SPACE) then
    if (pAntObject.getAntPositionX() < (sprite(98).locH + 20)) and (pAntObject.getAntPositionX() > (sprite(98).locH - 20)) and (pAntObject.getAntPositionY() < (sprite(98).locV + 20)) and (pAntObject.getAntPositionY() > (sprite(98).locV - 20)) then
      puppetSound(1, "electric_fixing")
      pFixing = 1
      sprite(8).member = "fixing_up_1"
      if (pTheDamagedSprite = 100) or (pTheDamagedSprite = 102) then
        sprite(8).member = "fixing_right_1"
      end if
      if (pTheDamagedSprite = 101) or (pTheDamagedSprite = 107) then
        sprite(8).member = "fixing_left_1"
      end if
    end if
  end if
end

on loadLevelData levelNum
  repeat with counter = 100 to 136
    sprite(counter).visible = 0
  end repeat
  repeat with counter = 100 to 270
    sprite(counter).puppet = 0
  end repeat
  case levelNum of
    1:
      pEneObject = new(script("EnemyScript"), 4, 3, 3, 590, 70, "truck", 35)
      pEneObject.setIntelligence(0)
      pEneObject2 = new(script("EnemyScript"), 2, 3, 3, -20, 200, "truck2", 36)
      pEneObject2.setIntelligence(0)
      pEneObject3 = new(script("EnemyScript"), 3, 2, 2, 100, 220, "truck3", 37)
      pEneObject3.setIntelligence(0)
      pEneObject3.setPatrolePoints(80, 290, 250, 340)
      sprite(5).visible = 1
      sprite(7).member = "Alpha1"
    2:
      pEneObject = new(script("EnemyScript"), 4, 3, 3, 590, 70, "truck", 35)
      pEneObject.setIntelligence(0)
      pEneObject2 = new(script("EnemyScript"), 2, 3, 3, -20, 200, "truck2", 36)
      pEneObject2.setIntelligence(0)
      pEneObject4 = new(script("EnemyScript"), 2, 5, 5, 590, 95, "truck4", 38)
      pEneObject4.setIntelligence(0)
      pEneObject3 = new(script("EnemyScript"), 3, 2, 2, 100, 220, "truck3", 37)
      pEneObject3.setIntelligence(0)
      pEneObject3.setPatrolePoints(80, 290, 250, 340)
      sprite(5).visible = 1
      sprite(7).member = "Alpha1"
    3:
      pEneObject = new(script("EnemyScript"), 4, 3, 3, 590, 70, "truck", 35)
      pEneObject.setIntelligence(0)
      pEneObject2 = new(script("EnemyScript"), 2, 3, 3, -20, 200, "truck2", 36)
      pEneObject2.setIntelligence(0)
      pEneObject4 = new(script("EnemyScript"), 2, 5, 5, 590, 95, "truck4", 38)
      pEneObject4.setIntelligence(0)
      pEneObject3 = new(script("EnemyScript"), 3, 3, 3, 100, 220, "truck3", 37)
      pEneObject3.setIntelligence(0)
      pEneObject3.setPatrolePoints(80, 290, 250, 340)
      pEneObject5 = new(script("EnemyScript"), 3, 2, 2, 275, 290, "truck5", 39)
      pEneObject5.setIntelligence(0)
      pEneObject5.setPatrolePoints(275, 340, 500, 340)
      sprite(5).visible = 1
      sprite(7).member = "Alpha1"
    4:
      pEneObject = new(script("EnemyScript"), 4, 3, 3, 460, 70, "truck", 35)
      pEneObject.setIntelligence(0)
      pEneObject2 = new(script("EnemyScript"), 2, 3, 3, 300, 200, "truck2", 36)
      pEneObject2.setIntelligence(0)
      pEneObject4 = new(script("EnemyScript"), 2, 3, 3, 460, 95, "truck4", 38)
      pEneObject4.setIntelligence(0)
      pEneObject3 = new(script("EnemyScript"), 3, 3, 3, 100, 220, "truck3", 37)
      pEneObject3.setIntelligence(0)
      pEneObject3.setPatrolePoints(80, 290, 250, 340)
      pEneObject5 = new(script("EnemyScript"), 3, 3, 3, 275, 290, "truck5", 39)
      pEneObject5.setIntelligence(0)
      pEneObject5.setPatrolePoints(275, 340, 500, 340)
      sprite(5).visible = 1
      sprite(7).member = "Alpha1"
  end case
end

on doDamagedSpriteEffect spriteNumber
  if sprite(98).puppet = 0 then
    sprite(98).puppet = 1
    sprite(98).member = "spark_1"
    sprite(98).backColor = 6
    sprite(98).ink = 36
    sprite(98).loc = sprite(spriteNumber).loc
    sprite(98).locZ = 6
  end if
  stringLength = length(string(member(sprite(98).member).name))
  currFrame = chars(string(member(sprite(98).member).name), stringLength, stringLength)
  currFrame = integer(currFrame) + 1
  if currFrame > 9 then
    currFrame = 1
  end if
  sprite(98).member = chars(string(member(sprite(98).member).name), 1, stringLength - 1) & string(currFrame)
end

on doDoorAnimation
  if pPhase1 = 1 then
    if (sprite(2).locH - sprite(3).locH) > 100 then
      if ((pEneObject.getEnemyPositionX() > (290 + 130)) or (pEneObject.getEnemyPositionX() < (290 - 20))) and ((pEneObject2.getEnemyPositionX() > (290 + 20)) or (pEneObject2.getEnemyPositionX() < (290 - 120))) then
        pPhase1 = 2
        sprite(17).loc = point(289, 41)
        sprite(17).height = 1
      end if
    else
      sprite(3).locH = sprite(3).locH - 1
      sprite(2).locH = sprite(2).locH + 1
    end if
  else
    if pPhase1 = 2 then
      puppetSound(3, "particleblaster")
      sprite(17).height = sprite(17).height + 50
      if sprite(17).height >= 334 then
        sprite(17).height = 334
        pPhase1 = 3
      end if
    else
      if pPhase1 = 3 then
        if not (((pEneObject.getEnemyPositionX() > (290 + 150)) or (pEneObject.getEnemyPositionX() < (290 - 20))) and ((pEneObject2.getEnemyPositionX() > (290 + 20)) or (pEneObject2.getEnemyPositionX() < (290 - 120)))) then
          pPhase1 = 4
        end if
        if sprite(17).blend = 100 then
          sprite(17).blend = 50
        else
          sprite(17).blend = 100
        end if
        eCounter = eCounter + 1
        if eCounter > 500 then
          eCounter = 0
          pPhase1 = 4
        end if
      else
        if pPhase1 = 4 then
          if sprite(17).blend = 100 then
            sprite(17).blend = 50
          else
            sprite(17).blend = 100
          end if
          sprite(17).height = sprite(17).height - 20
          if sprite(17).height <= 0 then
            sprite(17).height = 1
            pPhase1 = 5
          end if
        else
          if pPhase1 = 5 then
            sprite(3).locH = sprite(3).locH + 1
            sprite(2).locH = sprite(2).locH - 1
            if (sprite(2).locH - sprite(3).locH) < 30 then
              pPhase1 = 1
              pLaserDoors = 0
            end if
          end if
        end if
      end if
    end if
  end if
end

on doDyingAnimation
  if pPhase2 = 1 then
    fcounter = fcounter + 1
    if fcounter > 35 then
      fcounter = 0
      pPhase2 = 3
    end if
  else
    if pPhase2 = 2 then
      fcounter = fcounter + 1
      if fcounter > 35 then
        fcounter = 0
        pPhase2 = 3
      end if
    else
      if pPhase2 = 3 then
        sprite(8).blend = sprite(8).blend - 5
        if sprite(8).blend < 10 then
          sprite(8).blend = 1
          gNumLives = gNumLives - 1
          displayTries()
          pPhase2 = 4
          if gNumLives < 0 then
            gNumLives = 0
            displayTries()
            member("WinOrLoose1").text = "Better Luck" & RETURN & " Next Time"
            member("WinOrLoose2").text = "Better Luck" & RETURN & " Next Time"
            puppetSound(4, "lose")
            go(24)
            exit
          else
            sprite(283).puppet = 1
            sprite(283).member = "Hitspace"
            sprite(283).loc = point(287, 216)
            sprite(283).ink = 36
          end if
        end if
      else
        if pPhase2 = 4 then
          sprite(8).blend = 0
          if keyPressed(SPACE) then
            pPhase2 = 1
            pDying = 0
            pAntObject = new(script("AntScript"), 1, 4, 5, 200, 90, 8)
            sprite(11).loc = sprite(8).loc
            sprite(8).blend = 50
            sprite(283).puppet = 0
            sprite(8).locZ = 250
            pFixing = 0
            gCounter = 0
          end if
        end if
      end if
    end if
  end if
end

on doFixingAnimation
  gCounter = gCounter + 1
  if gCounter > 50 then
    puppetSound(1, "fixed")
    pFixing = 0
    gCounter = 0
    gTotalScore = gTotalScore + 100
    displayScore()
    if (gTotalScore mod 1000) = 0 then
      if gCurrentLevel = 3 then
        puppetSound(4, "win10")
        go(24)
      else
        member("WinOrLoose1").text = "  You Win"
        member("WinOrLoose2").text = "  You Win"
        go(44)
        puppetSound(4, "levelcomplete10")
      end if
      exit
    end if
    justANum = random(17) + 99
    repeat while justANum = pTheDamagedSprite
      justANum = random(17) + 99
    end repeat
    pTheDamagedSprite = justANum
    sprite(98).loc = sprite(pTheDamagedSprite).loc
  end if
  stringLength = length(string(member(sprite(8).member).name))
  currFrame = chars(string(member(sprite(8).member).name), stringLength, stringLength)
  currFrame = integer(currFrame) + 1
  if currFrame > 4 then
    currFrame = 1
  end if
  sprite(8).member = chars(string(member(sprite(8).member).name), 1, stringLength - 1) & string(currFrame)
end