procedure shipHitProc
    for j : 0 .. howManyEnemies
        for k : 0 .. 19
            if hitbox (1) >= waves (i).enemyBulletsX (j).enemyBulletsX (k) and hitbox (1) <= (waves (i).enemyBulletsX (j).enemyBulletsX (k) + ((75 - (waves (i).enemyBulletCenteringPixelX (j) +
                    37)) * 2))
                    or hitbox (3) >= waves (i).enemyBulletsX (j).enemyBulletsX (k) and hitbox (3) <= (waves (i).enemyBulletsX (j).enemyBulletsX (k) + ((75
                    - (waves (i).enemyBulletCenteringPixelX (j) + 37)) * 2))
                    or hitbox (1) <= waves (i).enemyBulletsX (j).enemyBulletsX (k) and hitbox (3) >= (waves (i).enemyBulletsX (j).enemyBulletsX (k) + ((75
                    - (waves (i).enemyBulletCenteringPixelX (j) + 37)) * 2)) then

                if hitbox (2) >= waves (i).enemyBulletsY (j).enemyBulletsY (k) and hitbox (2) <= (waves (i).enemyBulletsY (j).enemyBulletsY (k) + (waves (i).enemyBulletCenteringPixelY (j)
                        * (-1)))
                        or hitbox (4) >= waves (i).enemyBulletsY (j).enemyBulletsY (k) and hitbox (4) <= (waves (i).enemyBulletsY (j).enemyBulletsY (k)
                        + (waves (i).enemyBulletCenteringPixelY (j) * (-1)))
                        or hitbox (2) <= waves (i).enemyBulletsY (j).enemyBulletsY (k) and hitbox (4) >= (waves (i).enemyBulletsY (j).enemyBulletsY (k)
                        + (waves (i).enemyBulletCenteringPixelY (j) * (-1))) then
                    ifHit := true
                end if
            end if
        end for
    end for
    for j : 0 .. howManyEnemies
        for k : 0 .. 19
            if hitbox2 (1) >= waves (i).enemyBulletsX (j).enemyBulletsX (k) and hitbox2 (1) <= (waves (i).enemyBulletsX (j).enemyBulletsX (k) + ((75 - (waves (i).enemyBulletCenteringPixelX (j) +
                    37)) * 2))
                    or hitbox2 (3) >= waves (i).enemyBulletsX (j).enemyBulletsX (k) and hitbox2 (3) <= (waves (i).enemyBulletsX (j).enemyBulletsX (k) + ((75
                    - (waves (i).enemyBulletCenteringPixelX (j) + 37)) * 2))
                    or hitbox2 (1) <= waves (i).enemyBulletsX (j).enemyBulletsX (k) and hitbox2 (3) >= (waves (i).enemyBulletsX (j).enemyBulletsX (k) + ((75
                    - (waves (i).enemyBulletCenteringPixelX (j) + 37)) * 2)) then

                if hitbox2 (2) >= waves (i).enemyBulletsY (j).enemyBulletsY (k) and hitbox2 (2) <= (waves (i).enemyBulletsY (j).enemyBulletsY (k) + (waves (i).enemyBulletCenteringPixelY (j)
                        * (-1)))
                        or hitbox2 (4) >= waves (i).enemyBulletsY (j).enemyBulletsY (k) and hitbox2 (4) <= (waves (i).enemyBulletsY (j).enemyBulletsY (k)
                        + (waves (i).enemyBulletCenteringPixelY (j) * (-1)))
                        or hitbox2 (2) <= waves (i).enemyBulletsY (j).enemyBulletsY (k) and hitbox2 (4) >= (waves (i).enemyBulletsY (j).enemyBulletsY (k)
                        + (waves (i).enemyBulletCenteringPixelY (j) * (-1))) then
                    ifHit := true
                end if
            end if
        end for
    end for

    if ifHit = true then
        lives -= 1
        shipStyle := shipHit
        %resume main program
       delay (1000)
       shipStyle := shipRegular
    end if
end shipHitProc