100 Plus Great Games 2/100PLUSV2.BIN/games/Cubed.dxr/00033_Enemy2-GoatAttacker.ls

Text File | 2002-01-25 | 8.7 KB | 269 lines

property pBadyDirection, pTimeLoop, pGetTime, pNoChoice, spriteNum
global gLine1, gLine2, gLine3, gLine4, gLine5, gLine6, gLine7, gLineFlip1, gLineFlip2, gLineFlip3, gLineFlip4, gLineFlip5, gLineFlip6, gLineFlip7, gEnemy2UpRight, gEnemy2UpLeft, gEnemy2DownRight, gEnemy2DownLeft, gHikerX, gHikerY, gEnemyX2, gEnemyY2, gMoveBady, gMoveBady2, gMoveBady3, gMoveBady4, gJumpSpeed, gPaused, gLevel, gEDelay

on beginSprite
  startTimer()
  pGetTime = 0
  pGetTime = the timer
  pNoChoice = 1
end

on exitFrame
  if gPaused = 0 then
    if (gLevel = 2) or (gLevel = 4) or (gLevel = 5) then
      if the timer > (pGetTime + gEDelay) then
        gMoveBady2 = 1
        pGetTime = the timer
        pNoChoice = 1
      end if
      if gMoveBady2 = 1 then
        if gEnemyX2 > 1 then
          if gEnemyY2 = 7 then
            if gLineFlip6[gEnemyX2 - 1] = 9 then
              EnemyUpLeft2()
              pNoChoice = 0
              exit
            end if
          else
            if gEnemyY2 = 6 then
              if gLineFlip5[gEnemyX2 - 1] = 9 then
                EnemyUpLeft2()
                pNoChoice = 0
                exit
              end if
            else
              if gEnemyY2 = 5 then
                if gLineFlip4[gEnemyX2 - 1] = 9 then
                  EnemyUpLeft2()
                  pNoChoice = 0
                  exit
                end if
              else
                if gEnemyY2 = 4 then
                  if gLineFlip3[gEnemyX2 - 1] = 9 then
                    EnemyUpLeft2()
                    pNoChoice = 0
                    exit
                  end if
                else
                  if gEnemyY2 = 3 then
                    if gLineFlip2[gEnemyX2 - 1] = 9 then
                      EnemyUpLeft2()
                      pNoChoice = 0
                      exit
                    end if
                  else
                    if gEnemyY2 = 2 then
                      if gLineFlip1[gEnemyX2 - 1] = 9 then
                        EnemyUpLeft2()
                        pNoChoice = 0
                        exit
                      end if
                    end if
                  end if
                end if
              end if
            end if
          end if
        else
          if ((gEnemyY2 = 7) and (gEnemyX2 < 7)) or ((gEnemyY2 = 6) and (gEnemyX2 < 6)) or ((gEnemyY2 = 5) and (gEnemyX2 < 5)) or ((gEnemyY2 = 4) and (gEnemyX2 < 4)) or ((gEnemyY2 = 3) and (gEnemyX2 < 3)) or ((gEnemyY2 = 2) and (gEnemyX2 < 2)) then
            if gEnemyY2 = 7 then
              if gLineFlip6[gEnemyX2] = 9 then
                EnemyUpRight2()
                pNoChoice = 0
                exit
              end if
            else
              if gEnemyY2 = 6 then
                if gLineFlip5[gEnemyX2] = 9 then
                  EnemyUpRight2()
                  pNoChoice = 0
                  exit
                end if
              else
                if gEnemyY2 = 5 then
                  if gLineFlip4[gEnemyX2] = 9 then
                    EnemyUpRight2()
                    pNoChoice = 0
                    exit
                  end if
                else
                  if gEnemyY2 = 4 then
                    if gLineFlip3[gEnemyX2] = 9 then
                      EnemyUpRight2()
                      pNoChoice = 0
                      exit
                    end if
                  else
                    if gEnemyY2 = 3 then
                      if gLineFlip2[gEnemyX2] = 9 then
                        EnemyUpRight2()
                        pNoChoice = 0
                        exit
                      end if
                    else
                      if gEnemyY2 = 2 then
                        if gLineFlip1[gEnemyX2] = 9 then
                          EnemyUpRight2()
                          pNoChoice = 0
                          exit
                        end if
                      end if
                    end if
                  end if
                end if
              end if
            end if
          else
            if gEnemyY2 < 7 then
              if gEnemyY2 = 6 then
                if gLineFlip7[gEnemyX2] = 9 then
                  EnemyDownLeft2()
                  pNoChoice = 0
                  exit
                end if
              else
                if gEnemyY2 = 5 then
                  if gLineFlip6[gEnemyX2] = 9 then
                    EnemyDownLeft2()
                    pNoChoice = 0
                    exit
                  end if
                else
                  if gEnemyY2 = 4 then
                    if gLineFlip5[gEnemyX2] = 9 then
                      EnemyDownLeft2()
                      pNoChoice = 0
                      exit
                    end if
                  else
                    if gEnemyY2 = 3 then
                      if gLineFlip4[gEnemyX2] = 9 then
                        EnemyDownLeft2()
                        pNoChoice = 0
                        exit
                      end if
                    else
                      if gEnemyY2 = 2 then
                        if gLineFlip3[gEnemyX2] = 9 then
                          EnemyDownLeft2()
                          pNoChoice = 0
                          exit
                        end if
                      else
                        if gEnemyY2 = 1 then
                          if gLineFlip2[gEnemyX2] = 9 then
                            EnemyDownLeft2()
                            pNoChoice = 0
                            exit
                          end if
                        end if
                      end if
                    end if
                  end if
                end if
              end if
            else
              if gEnemyY2 < 7 then
                if gEnemyY2 = 6 then
                  if gLineFlip7[gEnemyX2 + 1] = 9 then
                    EnemyDownLeft2()
                    pNoChoice = 0
                    exit
                  end if
                else
                  if gEnemyY2 = 5 then
                    if gLineFlip6[gEnemyX2 + 1] = 9 then
                      EnemyDownLeft2()
                      pNoChoice = 0
                      exit
                    end if
                  else
                    if gEnemyY2 = 4 then
                      if gLineFlip5[gEnemyX2 + 1] = 9 then
                        EnemyDownLeft2()
                        pNoChoice = 0
                        exit
                      end if
                    else
                      if gEnemyY2 = 3 then
                        if gLineFlip4[gEnemyX2 + 1] = 9 then
                          EnemyDownLeft2()
                          pNoChoice = 0
                          exit
                        end if
                      else
                        if gEnemyY2 = 2 then
                          if gLineFlip3[gEnemyX2 + 1] = 9 then
                            EnemyDownLeft2()
                            pNoChoice = 0
                            exit
                          end if
                        else
                          if gEnemyY2 = 1 then
                            if gLineFlip2[gEnemyX2 + 1] = 9 then
                              EnemyDownLeft2()
                              pNoChoice = 0
                              exit
                            end if
                          end if
                        end if
                      end if
                    end if
                  end if
                end if
              end if
            end if
          end if
        end if
        if pNoChoice = 1 then
          if (gHikerX <= gEnemyX2) and (gHikerY <= gEnemyY2) then
            if gEnemyX2 > 1 then
              EnemyUpLeft2()
            end if
          else
            if (gHikerX >= gEnemyX2) and (gHikerY <= gEnemyY2) then
              if ((gEnemyY2 = 7) and (gEnemyX2 < 7)) or ((gEnemyY2 = 6) and (gEnemyX2 < 6)) or ((gEnemyY2 = 5) and (gEnemyX2 < 5)) or ((gEnemyY2 = 4) and (gEnemyX2 < 4)) or ((gEnemyY2 = 3) and (gEnemyX2 < 3)) or ((gEnemyY2 = 2) and (gEnemyX2 < 2)) then
                EnemyUpRight2()
              end if
            else
              if (gHikerX <= gEnemyX2) and (gHikerY >= gEnemyY2) then
                if gEnemyY2 < 7 then
                  EnemyDownLeft2()
                end if
              else
                if (gHikerX >= gEnemyX2) and (gHikerY >= gEnemyY2) then
                  if gEnemyY2 < 7 then
                    EnemyDownRight2()
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
      Enemy2Collision()
    end if
  end if
end

on EnemyUpRight2
  gEnemy2UpRight = 1
  gMoveBady2 = 0
end

on EnemyUpLeft2
  gEnemy2UpLeft = 1
  gMoveBady2 = 0
end

on EnemyDownRight2
  gEnemy2DownRight = 1
  gMoveBady2 = 0
end

on EnemyDownLeft2
  gEnemy2DownLeft = 1
  gMoveBady2 = 0
end