100 Plus Great Games 2/100PLUSV2.BIN/games/Cubed.dxr/00034_Enemy3-GoatStupid.ls

Text File | 2002-01-25 | 8.6 KB | 270 lines

property pBadyDirection, pTimeLoop, pGetTime, pNoChoice, spriteNum
global gLine1, gLine2, gLine3, gLine4, gLine5, gLine6, gLine7, gLineFlip1, gLineFlip2, gLineFlip3, gLineFlip4, gLineFlip5, gLineFlip6, gLineFlip7, gEnemy3UpRight, gEnemy3UpLeft, gEnemy3DownRight, gEnemy3DownLeft, gHikerX, gHikerY, gEnemyX3, gEnemyY3, 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 + 50) then
        gMoveBady3 = 1
        pGetTime = the timer
        pNoChoice = 1
      end if
      if gMoveBady3 = 1 then
        if gEnemyX3 > 1 then
          if gEnemyY3 = 7 then
            if gLineFlip6[gEnemyX3 - 1] = 9 then
              EnemyUpLeft3()
              pNoChoice = 0
              exit
            end if
          else
            if gEnemyY3 = 6 then
              if gLineFlip5[gEnemyX3 - 1] = 9 then
                EnemyUpLeft3()
                pNoChoice = 0
                exit
              end if
            else
              if gEnemyY3 = 5 then
                if gLineFlip4[gEnemyX3 - 1] = 9 then
                  EnemyUpLeft3()
                  pNoChoice = 0
                  exit
                end if
              else
                if gEnemyY3 = 4 then
                  if gLineFlip3[gEnemyX3 - 1] = 9 then
                    EnemyUpLeft3()
                    pNoChoice = 0
                    exit
                  end if
                else
                  if gEnemyY3 = 3 then
                    if gLineFlip2[gEnemyX3 - 1] = 9 then
                      EnemyUpLeft3()
                      pNoChoice = 0
                      exit
                    end if
                  else
                    if gEnemyY3 = 2 then
                      if gLineFlip1[gEnemyX3 - 1] = 9 then
                        EnemyUpLeft3()
                        pNoChoice = 0
                        exit
                      end if
                    end if
                  end if
                end if
              end if
            end if
          end if
        else
          if ((gEnemyY3 = 7) and (gEnemyX3 < 7)) or ((gEnemyY3 = 6) and (gEnemyX3 < 6)) or ((gEnemyY3 = 5) and (gEnemyX3 < 5)) or ((gEnemyY3 = 4) and (gEnemyX3 < 4)) or ((gEnemyY3 = 3) and (gEnemyX3 < 3)) or ((gEnemyY3 = 2) and (gEnemyX3 < 2)) then
            if gEnemyY3 = 7 then
              if gLineFlip6[gEnemyX3] = 9 then
                EnemyUpRight3()
                pNoChoice = 0
                exit
              end if
            else
              if gEnemyY3 = 6 then
                if gLineFlip5[gEnemyX3] = 9 then
                  EnemyUpRight3()
                  pNoChoice = 0
                  exit
                end if
              else
                if gEnemyY3 = 5 then
                  if gLineFlip4[gEnemyX3] = 9 then
                    EnemyUpRight3()
                    pNoChoice = 0
                    exit
                  end if
                else
                  if gEnemyY3 = 4 then
                    if gLineFlip3[gEnemyX3] = 9 then
                      EnemyUpRight3()
                      pNoChoice = 0
                      exit
                    end if
                  else
                    if gEnemyY3 = 3 then
                      if gLineFlip2[gEnemyX3] = 9 then
                        EnemyUpRight3()
                        pNoChoice = 0
                        exit
                      end if
                    else
                      if gEnemyY3 = 2 then
                        if gLineFlip1[gEnemyX3] = 9 then
                          EnemyUpRight3()
                          pNoChoice = 0
                          exit
                        end if
                      end if
                    end if
                  end if
                end if
              end if
            end if
          else
            if gEnemyY3 < 7 then
              if gEnemyY3 = 6 then
                if gLineFlip7[gEnemyX3] = 9 then
                  EnemyDownLeft3()
                  pNoChoice = 0
                  exit
                end if
              else
                if gEnemyY3 = 5 then
                  if gLineFlip6[gEnemyX3] = 9 then
                    EnemyDownLeft3()
                    pNoChoice = 0
                    exit
                  end if
                else
                  if gEnemyY3 = 4 then
                    if gLineFlip5[gEnemyX3] = 9 then
                      EnemyDownLeft3()
                      pNoChoice = 0
                      exit
                    end if
                  else
                    if gEnemyY3 = 3 then
                      if gLineFlip4[gEnemyX3] = 9 then
                        EnemyDownLeft3()
                        pNoChoice = 0
                        exit
                      end if
                    else
                      if gEnemyY3 = 2 then
                        if gLineFlip3[gEnemyX3] = 9 then
                          EnemyDownLeft3()
                          pNoChoice = 0
                          exit
                        end if
                      else
                        if gEnemyY3 = 1 then
                          if gLineFlip2[gEnemyX3] = 9 then
                            EnemyDownLeft3()
                            pNoChoice = 0
                            exit
                          end if
                        end if
                      end if
                    end if
                  end if
                end if
              end if
            else
              if gEnemyY3 < 7 then
                if gEnemyY3 = 6 then
                  if gLineFlip7[gEnemyX3 + 1] = 9 then
                    EnemyDownLeft3()
                    pNoChoice = 0
                    exit
                  end if
                else
                  if gEnemyY3 = 5 then
                    if gLineFlip6[gEnemyX3 + 1] = 9 then
                      EnemyDownLeft3()
                      pNoChoice = 0
                      exit
                    end if
                  else
                    if gEnemyY3 = 4 then
                      if gLineFlip5[gEnemyX3 + 1] = 9 then
                        EnemyDownLeft3()
                        pNoChoice = 0
                        exit
                      end if
                    else
                      if gEnemyY3 = 3 then
                        if gLineFlip4[gEnemyX3 + 1] = 9 then
                          EnemyDownLeft3()
                          pNoChoice = 0
                          exit
                        end if
                      else
                        if gEnemyY3 = 2 then
                          if gLineFlip3[gEnemyX3 + 1] = 9 then
                            EnemyDownLeft3()
                            pNoChoice = 0
                            exit
                          end if
                        else
                          if gEnemyY3 = 1 then
                            if gLineFlip2[gEnemyX3 + 1] = 9 then
                              EnemyDownLeft3()
                              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
          repeat while gMoveBady3 = 1
            pBadyDirection = random(4)
            if pBadyDirection = 1 then
              if ((gEnemyY3 = 7) and (gEnemyX3 < 7)) or ((gEnemyY3 = 6) and (gEnemyX3 < 6)) or ((gEnemyY3 = 5) and (gEnemyX3 < 5)) or ((gEnemyY3 = 4) and (gEnemyX3 < 4)) or ((gEnemyY3 = 3) and (gEnemyX3 < 3)) or ((gEnemyY3 = 2) and (gEnemyX3 < 2)) then
                EnemyUpRight3()
              end if
              next repeat
            end if
            if pBadyDirection = 2 then
              if gEnemyX3 > 1 then
                EnemyUpLeft3()
              end if
              next repeat
            end if
            if pBadyDirection = 3 then
              if gEnemyY3 < 7 then
                EnemyDownLeft3()
              end if
              next repeat
            end if
            if gEnemyY3 < 7 then
              EnemyDownRight3()
            end if
          end repeat
        end if
      end if
      Enemy3Collision()
    end if
  end if
end

on EnemyUpRight3
  gEnemy3UpRight = 1
  gMoveBady3 = 0
end

on EnemyUpLeft3
  gEnemy3UpLeft = 1
  gMoveBady3 = 0
end

on EnemyDownRight3
  gEnemy3DownRight = 1
  gMoveBady3 = 0
end

on EnemyDownLeft3
  gEnemy3DownLeft = 1
  gMoveBady3 = 0
end