100 Plus Great Games 2/100PLUSV2.BIN/games/Cubed.dxr/00007_Enemy1-GoatStupid.ls

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

property pBadyDirection, pAnimBounce, pTimeLoop, pGetTime, pNoChoice, spriteNum
global gLine1, gLine2, gLine3, gLine4, gLine5, gLine6, gLine7, gLineFlip1, gLineFlip2, gLineFlip3, gLineFlip4, gLineFlip5, gLineFlip6, gLineFlip7, gHikerX, gHikerY, gEnemyX1, gEnemyY1, gMoveBady, gMoveBady2, gMoveBady3, gMoveBady4, gJumpSpeed, gPaused, gLevel, gEnemy1UpRight, gEnemy1UpLeft, gEnemy1DownRight, gEnemy1DownLeft, gEDelay

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

on exitFrame
  if gPaused = 0 then
    if (gLevel = 1) or (gLevel = 3) then
      if the timer > (pGetTime + gEDelay) then
        gMoveBady = 1
        pGetTime = the timer
        pNoChoice = 1
      end if
      if gMoveBady = 1 then
        if gEnemyX1 > 1 then
          if gEnemyY1 = 7 then
            if gLineFlip6[gEnemyX1 - 1] = 9 then
              EnemyUpLeft()
              pNoChoice = 0
              exit
            end if
          else
            if gEnemyY1 = 6 then
              if gLineFlip5[gEnemyX1 - 1] = 9 then
                EnemyUpLeft()
                pNoChoice = 0
                exit
              end if
            else
              if gEnemyY1 = 5 then
                if gLineFlip4[gEnemyX1 - 1] = 9 then
                  EnemyUpLeft()
                  pNoChoice = 0
                  exit
                end if
              else
                if gEnemyY1 = 4 then
                  if gLineFlip3[gEnemyX1 - 1] = 9 then
                    EnemyUpLeft()
                    pNoChoice = 0
                    exit
                  end if
                else
                  if gEnemyY1 = 3 then
                    if gLineFlip2[gEnemyX1 - 1] = 9 then
                      EnemyUpLeft()
                      pNoChoice = 0
                      exit
                    end if
                  else
                    if gEnemyY1 = 2 then
                      if gLineFlip1[gEnemyX1 - 1] = 9 then
                        EnemyUpLeft()
                        pNoChoice = 0
                        exit
                      end if
                    end if
                  end if
                end if
              end if
            end if
          end if
        else
          if ((gEnemyY1 = 7) and (gEnemyX1 < 7)) or ((gEnemyY1 = 6) and (gEnemyX1 < 6)) or ((gEnemyY1 = 5) and (gEnemyX1 < 5)) or ((gEnemyY1 = 4) and (gEnemyX1 < 4)) or ((gEnemyY1 = 3) and (gEnemyX1 < 3)) or ((gEnemyY1 = 2) and (gEnemyX1 < 2)) then
            if gEnemyY1 = 7 then
              if gLineFlip6[gEnemyX1] = 9 then
                EnemyUpRight()
                pNoChoice = 0
                exit
              end if
            else
              if gEnemyY1 = 6 then
                if gLineFlip5[gEnemyX1] = 9 then
                  EnemyUpRight()
                  pNoChoice = 0
                  exit
                end if
              else
                if gEnemyY1 = 5 then
                  if gLineFlip4[gEnemyX1] = 9 then
                    EnemyUpRight()
                    pNoChoice = 0
                    exit
                  end if
                else
                  if gEnemyY1 = 4 then
                    if gLineFlip3[gEnemyX1] = 9 then
                      EnemyUpRight()
                      pNoChoice = 0
                      exit
                    end if
                  else
                    if gEnemyY1 = 3 then
                      if gLineFlip2[gEnemyX1] = 9 then
                        EnemyUpRight()
                        pNoChoice = 0
                        exit
                      end if
                    else
                      if gEnemyY1 = 2 then
                        if gLineFlip1[gEnemyX1] = 9 then
                          EnemyUpRight()
                          pNoChoice = 0
                          exit
                        end if
                      end if
                    end if
                  end if
                end if
              end if
            end if
          else
            if gEnemyY1 < 7 then
              if gEnemyY1 = 6 then
                if gLineFlip7[gEnemyX1] = 9 then
                  EnemyDownLeft()
                  pNoChoice = 0
                  exit
                end if
              else
                if gEnemyY1 = 5 then
                  if gLineFlip6[gEnemyX1] = 9 then
                    EnemyDownLeft()
                    pNoChoice = 0
                    exit
                  end if
                else
                  if gEnemyY1 = 4 then
                    if gLineFlip5[gEnemyX1] = 9 then
                      EnemyDownLeft()
                      pNoChoice = 0
                      exit
                    end if
                  else
                    if gEnemyY1 = 3 then
                      if gLineFlip4[gEnemyX1] = 9 then
                        EnemyDownLeft()
                        pNoChoice = 0
                        exit
                      end if
                    else
                      if gEnemyY1 = 2 then
                        if gLineFlip3[gEnemyX1] = 9 then
                          EnemyDownLeft()
                          pNoChoice = 0
                          exit
                        end if
                      else
                        if gEnemyY1 = 1 then
                          if gLineFlip2[gEnemyX1] = 9 then
                            EnemyDownLeft()
                            pNoChoice = 0
                            exit
                          end if
                        end if
                      end if
                    end if
                  end if
                end if
              end if
            else
              if gEnemyY1 < 7 then
                if gEnemyY1 = 6 then
                  if gLineFlip7[gEnemyX1 + 1] = 9 then
                    EnemyDownLeft()
                    pNoChoice = 0
                    exit
                  end if
                else
                  if gEnemyY1 = 5 then
                    if gLineFlip6[gEnemyX1 + 1] = 9 then
                      EnemyDownLeft()
                      pNoChoice = 0
                      exit
                    end if
                  else
                    if gEnemyY1 = 4 then
                      if gLineFlip5[gEnemyX1 + 1] = 9 then
                        EnemyDownLeft()
                        pNoChoice = 0
                        exit
                      end if
                    else
                      if gEnemyY1 = 3 then
                        if gLineFlip4[gEnemyX1 + 1] = 9 then
                          EnemyDownLeft()
                          pNoChoice = 0
                          exit
                        end if
                      else
                        if gEnemyY1 = 2 then
                          if gLineFlip3[gEnemyX1 + 1] = 9 then
                            EnemyDownLeft()
                            pNoChoice = 0
                            exit
                          end if
                        else
                          if gEnemyY1 = 1 then
                            if gLineFlip2[gEnemyX1 + 1] = 9 then
                              EnemyDownLeft()
                              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 gMoveBady = 1
            pBadyDirection = random(4)
            if pBadyDirection = 1 then
              if ((gEnemyY1 = 7) and (gEnemyX1 < 7)) or ((gEnemyY1 = 6) and (gEnemyX1 < 6)) or ((gEnemyY1 = 5) and (gEnemyX1 < 5)) or ((gEnemyY1 = 4) and (gEnemyX1 < 4)) or ((gEnemyY1 = 3) and (gEnemyX1 < 3)) or ((gEnemyY1 = 2) and (gEnemyX1 < 2)) then
                EnemyUpRight()
              end if
              next repeat
            end if
            if pBadyDirection = 2 then
              if gEnemyX1 > 1 then
                EnemyUpLeft()
              end if
              next repeat
            end if
            if pBadyDirection = 3 then
              if gEnemyY1 < 7 then
                EnemyDownLeft()
              end if
              next repeat
            end if
            if gEnemyY1 < 7 then
              EnemyDownRight()
            end if
          end repeat
        end if
      end if
      EnemyCollision()
    end if
  end if
end

on EnemyUpRight
  gEnemy1UpRight = 1
  gMoveBady = 0
end

on EnemyUpLeft
  gEnemy1UpLeft = 1
  gMoveBady = 0
end

on EnemyDownRight
  gEnemy1DownRight = 1
  gMoveBady = 0
end

on EnemyDownLeft
  gEnemy1DownLeft = 1
  gMoveBady = 0
end