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
Register
Wiki
Blog
Search
Turing
Chat Room
Members
