You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
9 lines
440 B
9 lines
440 B
For a is between 0 to 1
|
|
If the absolute result of PlayerPos(0) - RobotPos(a, 0) is less than or equal to
|
|
the result of frmGravity.imgPlayer.Width / 2 + frmGravity.imgRobot(a).Width / 2 then
|
|
If the absolute result of PlayerPos(1) - RobotPos(a, 0) is less than or equal to
|
|
the result of frmGravity.imgPlayer.Height / 2 + frmGravity.imgRobot(a).Height / 2 then
|
|
Call the procedure PlayerStates.ShockPlayer
|
|
End If
|
|
End If
|
|
Next
|