How to make LEFT-RIGHT player face Right at runtime

[Eastfist]

Tricks with counters in the individual map's inventory didn't cut the mustard for me, not efficiently.  Well, I suppose I had to succumb to scripting and been trying to pick it up lately.  So here's the script to make the Left-Right player sprite face the Right direction at runtime:



'Declare variables for direction last facing
'Could use one boolean variable, but makes easier for non-scripter to understand
Dim facingLeft
Dim facingRight

'Before play loop starts, initialize the custom variables
Sub Player_OnPlayInit
   facingLeft = 0
   facingRight = 1
End Sub

'Depending on last button pressed, set last direction facing
Sub Player_OnControllerMove(OldActions, NewActions)
With ProjectObj.GamePlayer.PlayerSprite
   'If user presses Left arrow
   If (Not OldActions) And NewActions And ACTION_LEFT Then
      facingLeft = 1
      facingRight = 0
   End If
   'If user presses Right arrow
   If (Not OldActions) And NewActions And ACTION_RIGHT Then
      facingLeft = 0
      facingRight = 1
   End If
End With
End Sub

'Before the player's movements are processed, set the player state according
Sub Player_OnBeforeMoveSprites
With ProjectObj.GamePlayer.PlayerSprite
   'If not moving in either direction, and was last facing right, then face right
   If (.CurState Mod 2) = 0 And facingRight = 1 Then
       .CurState = 1
       'CurState = 0  facing left with no velocity
       'CurState = 1  facing right with no velocity
       'CurState = 2  facing left with velocity
       'CurState = 3  facing right with velocity
       'Didn't use these for boolean setup because CurState changes all the time
       'and as the designer, I want control over variables
   End If
End With
End Sub



That should be good globally and puts a smile on MY face. Whew!  If you want to use it, generate a VBS script using the scripting wizard and place the code from above into the proper Sub procedure.  Sub procedures are the blocks of code starting with Sub and ending with End Sub.

[durnurd]

It seems to me like you could simplify that by using only one variable instead of two: FacingRight.  And set it to True or False.

Then it'd be things like:

Code: [Select]

Dim facingRight

Sub Player_OnPlayInit
   facingRight = true
End Sub
Something like this (I'm currently braindead, and this won't work as is, but if modified, it could turn two if blocks into one line):

Code: [Select]

facingRight = facingRight (Not ((Not OldActions) And NewActions And ACTION_LEFT)) Or ((Not OldActions) And NewActions And ACTION_RIGHT)

Code: [Select]

If (.CurState Mod 2) = 0 And facingRight Then