100 Plus Great Games 2/100PLUSV2.BIN/games/Cubed.dxr/00035_Enemy4-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, gHikerX, gHikerY, gEnemyX4, gEnemyY4, gEnemy4UpRight, gEnemy4UpLeft, gEnemy4DownRight, gEnemy4DownLeft, gMoveBady, gMoveBady2, gMoveBady3, gMoveBady4, gJumpSpeed, gPaused, gLevel

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

on exitFrame
  if gPaused = 0 then
    if gLevel = 99 then
      if the timer > (pGetTime + 75) then
        gMoveBady4 = 1
        pGetTime = the timer
        pNoChoice = 1
      end if
      if gMoveBady4 = 1 then
        if gEnemyX4 > 1 then
          if gEnemyY4 = 7 then
            if gLineFlip6[gEnemyX4 - 1] = 9 then
              EnemyUpLeft4()
              pNoChoice = 0
              exit
            end if
          else
            if gEnemyY4 = 6 then
              if gLineFlip5[gEnemyX4 - 1] = 9 then
                EnemyUpLeft4()
                pNoChoice = 0
                exit
              end if
            else
              if gEnemyY4 = 5 then
                if gLineFlip4[gEnemyX4 - 1] = 9 then
                  EnemyUpLeft4()
                  pNoChoice = 0
                  exit
                end if
              else
                if gEnemyY4 = 4 then
                  if gLineFlip3[gEnemyX4 - 1] = 9 then
                    EnemyUpLeft4()
                    pNoChoice = 0
                    exit
                  end if
                else
                  if gEnemyY4 = 3 then
                    if gLineFlip2[gEnemyX4 - 1] = 9 then
                      EnemyUpLeft4()
                      pNoChoice = 0
                      exit
                    end if
                  else
                    if gEnemyY4 = 2 then
                      if gLineFlip1[gEnemyX4 - 1] = 9 then
                        EnemyUpLeft4()
                        pNoChoice = 0
                        exit
                      end if
                    end if
                  end if
                end if
              end if
            end if
          end if
        else
          if ((gEnemyY4 = 7) and (gEnemyX4 < 7)) or ((gEnemyY4 = 6) and (gEnemyX4 < 6)) or ((gEnemyY4 = 5) and (gEnemyX4 < 5)) or ((gEnemyY4 = 4) and (gEnemyX4 < 4)) or ((gEnemyY4 = 3) and (gEnemyX4 < 3)) or ((gEnemyY4 = 2) and (gEnemyX4 < 2)) then
            if gEnemyY4 = 7 then
              if gLineFlip6[gEnemyX4] = 9 then
                EnemyUpRight4()
                pNoChoice = 0
                exit
              end if
            else
              if gEnemyY4 = 6 then
                if gLineFlip5[gEnemyX4] = 9 then
                  EnemyUpRight4()
                  pNoChoice = 0
                  exit
                end if
              else
                if gEnemyY4 = 5 then
                  if gLineFlip4[gEnemyX4] = 9 then
                    EnemyUpRight4()
                    pNoChoice = 0
                    exit
                  end if
                else
                  if gEnemyY4 = 4 then
                    if gLineFlip3[gEnemyX4] = 9 then
                      EnemyUpRight4()
                      pNoChoice = 0
                      exit
                    end if
                  else
                    if gEnemyY4 = 3 then
                      if gLineFlip2[gEnemyX4] = 9 then
                        EnemyUpRight4()
                        pNoChoice = 0
                        exit
                      end if
                    else
                      if gEnemyY4 = 2 then
                        if gLineFlip1[gEnemyX4] = 9 then
                          EnemyUpRight4()
                          pNoChoice = 0
                          exit
                        end if
                      end if
                    end if
                  end if
                end if
              end if
            end if
          else
            if gEnemyY4 < 7 then
              if gEnemyY4 = 6 then
                if gLineFlip7[gEnemyX4] = 9 then
                  EnemyDownLeft4()
                  pNoChoice = 0
                  exit
                end if
              else
                if gEnemyY4 = 5 then
                  if gLineFlip6[gEnemyX4] = 9 then
                    EnemyDownLeft4()
                    pNoChoice = 0
                    exit
                  end if
                else
                  if gEnemyY4 = 4 then
                    if gLineFlip5[gEnemyX4] = 9 then
                      EnemyDownLeft4()
                      pNoChoice = 0
                      exit
                    end if
                  else
                    if gEnemyY4 = 3 then
                      if gLineFlip4[gEnemyX4] = 9 then
                        EnemyDownLeft4()
                        pNoChoice = 0
                        exit
                      end if
                    else
                      if gEnemyY4 = 2 then
                        if gLineFlip3[gEnemyX4] = 9 then
                          EnemyDownLeft4()
                          pNoChoice = 0
                          exit
                        end if
                      else
                        if gEnemyY4 = 1 then
                          if gLineFlip2[gEnemyX4] = 9 then
                            EnemyDownLeft4()
                            pNoChoice = 0
                            exit
                          end if
                        end if
                      end if
                    end if
                  end if
                end if
              end if
            else
              if gEnemyY4 < 7 then
                if gEnemyY4 = 6 then
                  if gLineFlip7[gEnemyX4 + 1] = 9 then
                    EnemyDownLeft4()
                    pNoChoice = 0
                    exit
                  end if
                else
                  if gEnemyY4 = 5 then
                    if gLineFlip6[gEnemyX4 + 1] = 9 then
                      EnemyDownLeft4()
                      pNoChoice = 0
                      exit
                    end if
                  else
                    if gEnemyY4 = 4 then
                      if gLineFlip5[gEnemyX4 + 1] = 9 then
                        EnemyDownLeft4()
                        pNoChoice = 0
                        exit
                      end if
                    else
                      if gEnemyY4 = 3 then
                        if gLineFlip4[gEnemyX4 + 1] = 9 then
                          EnemyDownLeft4()
                          pNoChoice = 0
                          exit
                        end if
                      else
                        if gEnemyY4 = 2 then
                          if gLineFlip3[gEnemyX4 + 1] = 9 then
                            EnemyDownLeft4()
                            pNoChoice = 0
                            exit
                          end if
                        else
                          if gEnemyY4 = 1 then
                            if gLineFlip2[gEnemyX4 + 1] = 9 then
                              EnemyDownLeft4()
                              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 <= gEnemyX4) and (gHikerY <= gEnemyY4) then
            if gEnemyX4 > 1 then
              EnemyUpLeft4()
            end if
          else
            if (gHikerX >= gEnemyX4) and (gHikerY <= gEnemyY4) then
              if ((gEnemyY4 = 7) and (gEnemyX4 < 7)) or ((gEnemyY4 = 6) and (gEnemyX4 < 6)) or ((gEnemyY4 = 5) and (gEnemyX4 < 5)) or ((gEnemyY4 = 4) and (gEnemyX4 < 4)) or ((gEnemyY4 = 3) and (gEnemyX4 < 3)) or ((gEnemyY4 = 2) and (gEnemyX4 < 2)) then
                EnemyUpRight4()
              end if
            else
              if (gHikerX <= gEnemyX4) and (gHikerY >= gEnemyY4) then
                if gEnemyY4 < 7 then
                  EnemyDownLeft4()
                end if
              else
                if (gHikerX >= gEnemyX4) and (gHikerY >= gEnemyY4) then
                  if gEnemyY4 < 7 then
                    EnemyDownRight4()
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
      Enemy4Collision()
    end if
  end if
end

on EnemyUpRight4
  gEnemy4UpRight = 1
  gMoveBady4 = 0
end

on EnemyUpLeft4
  gEnemy4UpLeft = 1
  gMoveBady4 = 0
end

on EnemyDownRight4
  gEnemy4DownRight = 1
  gMoveBady4 = 0
end

on EnemyDownLeft4
  gEnemy4DownLeft = 1
  gMoveBady4 = 0
end