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.
135 lines
5.4 KiB
135 lines
5.4 KiB
If PlayerGravityDir is equal to 0 then
|
|
Set FutureRegion(0, 0) to the integer result of (PlayerPos(0) - 8) / 32
|
|
Set FutureRegion(0, 1) to the integer result of (PlayerPos(0) + 7) / 32
|
|
Set FutureRegion(1, 0) to the integer result of (PlayerPos(1) - PlayerFallSpeed - 17) / 32
|
|
|
|
If FutureRegion(1, 0) is greater than or equal to 0 then
|
|
If Map(FutureRegion(0, 0), FutureRegion(1, 0)) is greater than or equal to 1
|
|
or Map(FutureRegion(0, 1), FutureRegion(1, 0)) is greater than or equal to 1 then
|
|
Set PlayerPos(1) to the result of (FutureRegion(1, 0) + 1) * 32 + 16
|
|
Set TickCount to 0
|
|
|
|
If the absolute result of PlayerPos(1) - PlayerFallOrigin(1) is greater than 80 then
|
|
Call the procedure PlayerStates.DazePlayer
|
|
End If
|
|
|
|
If Map(FutureRegion(0, 0), FutureRegion(1, 0)) is equal to 2
|
|
or Map(FutureRegion(0, 1), FutureRegion(1, 0)) is equal to 2 Then
|
|
Call the procedure PlayerStates.ShockPlayer
|
|
End If
|
|
|
|
If Map(FutureRegion(0, 0), FutureRegion(1, 0)) is equal to 4
|
|
or Map(FutureRegion(0, 1), FutureRegion(1, 0)) is equal to 4 Then
|
|
Call the procedure PlayerStates.WinLevel
|
|
End If
|
|
|
|
Set PlayerFallSpeed to 0
|
|
Set PlayerFallOrigin(0) to PlayerPos(0)
|
|
Set PlayerFallOrigin(1) to PlayerPos(1)
|
|
Else
|
|
Set PlayerPos(1) to the integer result of PlayerPos(1) - PlayerFallSpeed
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
If PlayerGravityDir is equal to 1 then
|
|
Set FutureRegion(0, 0) to the integer result of (PlayerPos(0) + PlayerFallSpeed + 16) / 32
|
|
Set FutureRegion(1, 0) to the integer result of (PlayerPos(1) - 8) / 32
|
|
Set FutureRegion(1, 1) to the integer result of (PlayerPos(1) + 7) / 32
|
|
|
|
If FutureRegion(0, 0) is less than or equal to 24 then
|
|
If Map(FutureRegion(0, 0), FutureRegion(1, 0)) is greater than or equal to 1
|
|
or Map(FutureRegion(0, 0), FutureRegion(1, 1)) is greater than or equal to 1 then
|
|
Set PlayerPos(0) to the result of FutureRegion(0, 0) * 32 - 16
|
|
Set TickCount to 0
|
|
|
|
If the absolute result of PlayerPos(0) - PlayerFallOrigin(0) is greater than 80 then
|
|
Call the procedure PlayerStates.DazePlayer
|
|
End If
|
|
|
|
If Map(FutureRegion(0, 0), FutureRegion(1, 0)) is equal to 2
|
|
or Map(FutureRegion(0, 0), FutureRegion(1, 1)) is equal to 2 Then
|
|
Call the procedure PlayerStates.ShockPlayer
|
|
End If
|
|
|
|
If Map(FutureRegion(0, 0), FutureRegion(1, 0)) is equal to 4
|
|
or Map(FutureRegion(0, 0), FutureRegion(1, 1)) is equal to 4 Then
|
|
Call the procedure PlayerStates.WinLevel
|
|
End If
|
|
|
|
Set PlayerFallSpeed to 0
|
|
Set PlayerFallOrigin(0) to PlayerPos(0)
|
|
Set PlayerFallOrigin(1) to PlayerPos(1)
|
|
Else
|
|
Set PlayerPos(0) to the integer result of PlayerPos(0) - PlayerFallSpeed
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
If PlayerGravityDir is equal to 2 then
|
|
Set FutureRegion(0, 0) to the integer result of (PlayerPos(0) - 8) / 32
|
|
Set FutureRegion(0, 1) to the integer result of (PlayerPos(0) + 7) / 32
|
|
Set FutureRegion(1, 0) to the integer result of (PlayerPos(1) + PlayerFallSpeed + 16) / 32
|
|
|
|
If FutureRegion(1, 0) is less than or equal to 18 then
|
|
If Map(FutureRegion(0, 0), FutureRegion(1, 0)) is greater than or equal to 1
|
|
or Map(FutureRegion(0, 1), FutureRegion(1, 0)) is greater than or equal to 1 then
|
|
Set PlayerPos(1) to the result of FutureRegion(1, 0) * 32 - 16
|
|
Set TickCount to 0
|
|
|
|
If the absolute result of PlayerPos(1) - PlayerFallOrigin(1) is greater than 80 then
|
|
Call the procedure PlayerStates.DazePlayer
|
|
End If
|
|
|
|
If Map(FutureRegion(0, 0), FutureRegion(1, 0)) is equal to 2
|
|
or Map(FutureRegion(0, 1), FutureRegion(1, 0)) is equal to 2 Then
|
|
Call the procedure PlayerStates.ShockPlayer
|
|
End If
|
|
|
|
If Map(FutureRegion(0, 0), FutureRegion(1, 0)) is equal to 4
|
|
or Map(FutureRegion(0, 1), FutureRegion(1, 0)) is equal to 4 Then
|
|
Call the procedure PlayerStates.WinLevel
|
|
End If
|
|
|
|
Set PlayerFallSpeed to 0
|
|
Set PlayerFallOrigin(0) to PlayerPos(0)
|
|
Set PlayerFallOrigin(1) to PlayerPos(1)
|
|
Else
|
|
Set PlayerPos(1) to the integer result of PlayerPos(1) + PlayerFallSpeed
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
If PlayerGravityDir is equal to 3 then
|
|
Set FutureRegion(0, 0) to the integer result of (PlayerPos(0) - PlayerFallSpeed - 17) / 32
|
|
Set FutureRegion(1, 0) to the integer result of (PlayerPos(1) - 8) / 32
|
|
Set FutureRegion(1, 1) to the integer result of (PlayerPos(1) + 7) / 32
|
|
|
|
If FutureRegion(0, 0) is greater than or equal to 0 then
|
|
If Map(FutureRegion(0, 0), FutureRegion(1, 0)) is greater than or equal to 1
|
|
or Map(FutureRegion(0, 0), FutureRegion(1, 1)) is greater than or equal to 1 then
|
|
Set PlayerPos(0) to the result of (FutureRegion(0, 0) + 1) * 32 + 16
|
|
Set TickCount to 0
|
|
|
|
If the absolute result of PlayerPos(0) - PlayerFallOrigin(0) is greater than 80 then
|
|
Call the procedure PlayerStates.DazePlayer
|
|
End If
|
|
|
|
If Map(FutureRegion(0, 0), FutureRegion(1, 0)) is equal to 2
|
|
or Map(FutureRegion(0, 0), FutureRegion(1, 1)) is equal to 2 Then
|
|
Call the procedure PlayerStates.ShockPlayer
|
|
End If
|
|
|
|
If Map(FutureRegion(0, 0), FutureRegion(1, 0)) is equal to 4
|
|
or Map(FutureRegion(0, 0), FutureRegion(1, 1)) is equal to 4 Then
|
|
Call the procedure PlayerStates.WinLevel
|
|
End If
|
|
|
|
Set PlayerFallSpeed to 0
|
|
Set PlayerFallOrigin(0) to PlayerPos(0)
|
|
Set PlayerFallOrigin(1) to PlayerPos(1)
|
|
Else
|
|
Set PlayerPos(0) to the integer result of PlayerPos(0) - PlayerFallSpeed
|
|
End If
|
|
End If
|
|
End If
|