Hopefully, this one will be very short.  I am just going to do some extra jumping.  These will be useful when we
add some other objects to the map (in the next episode).
One of which will be the low jump.  This jump should take the character to a maximum height of almost half of the
height he gets when the spacebar is pressed alone.

Alone?  Yes, I'm going to make the low jump controlled by Down + Space.
First, we need to make a constant for the Low Jump Initial velocity.

I would like to mention that I used -32 and 4 for the SBARINITIALVELOCITY and GRAVITY, respectively, to make the
jump shorter.

For the Low Jump, if you are using the -16 and 1 from the last page, then

 Dim GoDown As Boolean 'Indicates if the down arrow is pressed. Const LOWJUMPVELOCITY As Integer = -10 'Initial velocity for a low jump.
For -32 and 4, I'd use -20. But, these values are up to you. You can make the character jump as high and as long as you want. (The formulae in the previous section should let you customize the jump) GoDown - Same as the GoLeft, GoRight, and GoFast booleans, except for the down key. LOWJUMPVELOCITY - The initial velocity for the low jump. Use in combination with the GRAVITY to customize the jump. The advantage to using constants. Now, onto the key events. First, we add the Down check to our big If ElseIf hive.
 ElseIf e.KeyCode = Keys.Down Then GoDown = True ElseIf e.KeyCode = Keys.Down Then GoDown = False
Now, that that is done, we need to fix the jumping... which will be simple. The jumping is initiated in the KeyDown event as well, and all we need to do is check GoDown.
 ElseIf e.KeyCode = Keys.Space Then IsJumping = True 'The jump is initialized. If GoDown Then PlayerVeloc = Me.LOWJUMPVELOCITY 'Use low jump velocity if down is pressed. Else PlayerVeloc = Me.SBARINITIALVELOCITY 'Use space bar initial velocity. End If
The only thing that depends on GoDown is the PlayerVeloc, so that is the only thing in the If statement. Now, the player should make a lower jump when the user holds down Down while pressing the Space bar. Well, that's all for this episode. See you next time when I add platforms to the form.