Sorry your browser is not supported!

TrackDir$="Tracks\Track 1\" :EnableGlow = 1 :Set Display Mode 800, 600, 32 :Global PerfTimerDI As Double Integer, PrevTimerDI As Double Integer, TimerDeltaDF As Double Float, TimerFreqDF As Double Float, MainCamera As Integer, EnginePower#, MaxSpeed#, ElapsedTime#, TrustInput# :SelectVal2(-2, 0.0, 0.0) :Set Window Off :If EnableGlow :SetVector3(-1, 0.0, 0.0, 0.0) :Set Object Mask 13, %1 :Texture Object 13, 0, 10 :Texture Object 13, 1, 13 :MainCamera = 1 :EndIf :Backdrop Off 0 :Open To Read 1, TrackDir$+"Level.txt" :Read String 1, TextureCount$ :Read String 1, SpeedPadCount$ :Read String 1, SkyBoxTexture$ :For MemBlock = 1 To 11 :Read String 1, FileName$ :Open To Read 2, TrackDir$+FileName$ :Read MemBlock 2, MemBlock :Close File 2 :Next MemBlock :Close File 1 
Open To Read 1, "ShipSettings.bin" :Read MemBlock 1, 12 :Close File 1 :Open To Read 1, TrackDir$+"Textures.txt" :For i = 16 To 15+Val(TextureCount$) :Read String 1, s$ :Load Image "Textures\"+s$, i :Next i :Close File 1 :Object = 16 :For t = 1 To Val(TextureCount$) :For GridIndex = 0 To 15 :FileName$ = TrackDir$+"ObjectGrid"+Chr$(65+t)+Chr$(65+GridIndex)+".dbo" :If File Exist(FileName$) :Load Object FileName$, Object :Texture Object  Object, 15 + t :Set Object Object, 1, 0, 1, 1, 0 :Set Object Texture Object, 2, 2 :Set Object Mask Object, 2^MainCamera :Inc Object :EndIf :Next GridIndex :Next t :Load Image "Media\SpeedPad.bmp", 15 :For i = 1 To Val(SpeedPadCount$) 
Load Object TrackDir$+"SpeedPad"+Str$(i)+".dbo", Object :Set Object Object, 1, 0, 1, 1, 0 :Set Object Texture Object, 2, 2 :Texture Object  Object, 15 :Set Object Mask Object, 2^MainCamera :Inc Object :Next :Load Image "SkyBoxes\"+SkyBoxTexture$, 5 :SetVector3FromMemBlock(-1, 0, 0) :Set Vector3 17,  MemBlock Float(9, 4), MemBlock Float(9, 8), MemBlock Float(9, 12) :Build LookAt LHMatrix4 2, SetVector3(16, 0.0, 0.0, 0.0), SetVector3(15,  MemBlock Float(9, 28), MemBlock Float(9, 32), MemBlock Float(9, 36)), SetVector3(28, MemBlock Float(9, 16), MemBlock Float(9, 20), MemBlock Float(9, 24)) :Transpose Matrix4 1, 2 :Set Camera Range MainCamera, 0.25, 4096.25 :Load Sound "Media\Engine16.wav", 1 :Load Sound "Media\Collide16.wav", 2 :Loop Sound 1 :Set Sound Volume 1, 90 :MaxSpeed# = 230.0 :MaxLap = 4 :StartRaceTimer = Timer() :Dim LapTime(MaxLap+1, 1) :CurrentLap = 1 :Perfect = 1 :Sync Rate 0 :Sync On 
PrevTimerDI = PerfTimer() :Sync :Do :PerfTimerDI = PerfTimer() :TimerDeltaDF = PerfTimerDI - PrevTimerDI :PrevTimerDI = PerfTimerDI :TimerDeltaDF = TimerDeltaDF / TimerFreqDF :ElapsedTime# = TimerDeltaDF :TrustInput# = KeyState(29) Or Joystick Fire X(2) :Set Vector2 4, (KeyState(51) And (KeyState(53)=0)) Or JoyStick Left(), (KeyState(53) And (KeyState(51)=0)) Or JoyStick Right() :Set Vector2 5, JoyStick Fire X(6) Or KeyState(38) Or (KeyState(51) And KeyState(52)), JoyStick Fire X(7) Or KeyState(39) Or (KeyState(53) And KeyState(52)) :If CamMode = 0 And ((KeyState(16)=1) Or Joystick Fire X(1)) :CamMode = 3 :Hide Object 1 :EndIf :CamMode = SelectVal2(CamMode = 3 And (KeyState(16)=0) And (Joystick Fire X(1)=0), CamMode, 1) :If CamMode = 1 And ((KeyState(16)=1)  Or Joystick Fire X(1)) :CamMode = 2 :Show Object 1 :EndIf :CamMode = SelectVal2(CamMode = 2 And (KeyState(16)=0) And (Joystick Fire X(1)=0), CamMode, 0) :Set Vector2 3, TrustInput# > EnginePower#, EnginePower# + SelectVal2(TrustInput# > EnginePower#, SelectVal2(X Vector2(5) + Y Vector2(5) = 2.0, -MemBlock Float(12, 260), -MemBlock Float(12, 328)), MemBlock Float(12, 256) * SelectVal2(CannonStart, 1.0, 4.0)) * ElapsedTime# :EnginePower# = SelectVal2(SelectVal2(X Vector2(3), Y Vector2(3) < TrustInput#, Y Vector2(3) > TrustInput#), Y Vector2(3), TrustInput#) :Multiply Vector2 5, (X Vector2(3) Or ((X Vector2(5) + Y Vector2(5)) <> 2.0)) :EnginePowerT# = EnginePowerT# + (EnginePower# - EnginePowerT#) * MemBlock Float(12, 264) * ElapsedTime# 
TanAccel# = (EnginePowerT# - PreviousEnginePowerT#) / (ElapsedTime# * MemBlock Float(12, 256)) :PreviousEnginePowerT# = EnginePowerT# :If GameState = 2 :For l = 1 To MaxLap :RaceTimeMins = (LapTime(l, 0) - LapTime(l-1, 0)) / 60000 :RaceTimeSecs = ((LapTime(l, 0) - LapTime(l-1, 0))-(RaceTimeMins*60000))/1000 :Hundredths = ((LapTime(l, 0) - LapTime(l-1, 0)) - RaceTimeMins*60000 - RaceTimeSecs*1000) / 10 :Text 100, 100+l*20, "Lap " + Str$(l) + " " + Str$(RaceTimeMins)+":"+Str$(RaceTimeSecs)+"."+ Mid$("0", Hundredths<10)+Str$(Hundredths) :Text 300-350*(LapTime(l, 1)=0), 100+l*20, "*PL*" :Next l :Endif :If GameState = 1 :Flags = Flags && 0x00ff :VOp(-2, 0, 0, 0, 0.0) :VOp(0, 23, 23, SetVector3(16, X Vector2(6)-X Vector3(23), Y Vector2(6)-Y Vector3(23), 0.0), MemBlock Float(12, 304) * ElapsedTime#) :VOp(0, 24, 24, SetVector3(16, X Vector2(7)-X Vector3(24), Y Vector2(7)-Y Vector3(24), 0.0), MemBlock Float(12, 316) * ElapsedTime#) :YawSpeed# = Sqrt(Y Vector3(19)) - Sqrt(X Vector3(19)) :AirBrakesFlapsSpeed# = (Y Vector3(24) + X Vector3(24)) :FinalYawSpeed# = (YawSpeed# * ((1.0 - EnginePower#) * MemBlock Float(12, 288) + EnginePower# * MemBlock Float(12, 292))) + ((Sqrt(Y Vector3(23)) - Sqrt(X Vector3(23))) * EnginePower#) * ((1.0 - Abs(YawSpeed#)) * MemBlock Float(12, 320) + Abs(YawSpeed#) * MemBlock Float(12, 324)) :Set Vector3 27, Get Matrix4 Element(1, 8), Get Matrix4 Element(1, 9), Get Matrix4 Element(1, 10) :wgi = ((Int(X Vector3(17)/16.0) - ((X Vector3(17)/16.0) < 0.0)) * 0x8da6b343 + (Int(Y Vector3(17)/16.0) - ((Y Vector3(17)/16.0) < 0.0)) * 0xd8163841 + (Int(Z Vector3(17)/16.0) - ((Z Vector3(17)/16.0) < 0.0)) * 0xcb1ab31f) Mod 4096 :wgi = (wgi >= 0) * wgi + (wgi < 0) * (wgi+4096) :QuadInfo = 0 :Inside = 0 :Entry = MemBlock Word(3, wgi*2) 
If Entry :For i = 0 To 1 :Quad = MemBlock Word(4, Entry*4) * 64 :Subtract Vector3 25, SetVector3FromMemBlock(25, 1, MemBlock Word(2, Quad+26)), 17 :If Squared Length Vector3(25) <= MemBlock Float(2, Quad+28)    :Subtract Vector3 25, 17, SetVector3FromMemBlock(25, 1, MemBlock Word(2, Quad+20)) :Set Vector2 11, MemBlock Float(2, Quad+32), MemBlock Float(2, Quad+36) :Set Vector2 9, Dot Product Vector3(25, SetVector3FromMemBlock(26, 1, MemBlock Word(2, Quad+22)))-X Vector2(11), Dot Product Vector3(25, SetVector3FromMemBlock(15, 1, MemBlock Word(2, Quad+24)))-Y Vector2(11) :Set Vector2 12, MemBlock Float(2, Quad+40)-X Vector2(11), MemBlock Float(2, Quad+44)-Y Vector2(11) :Set Vector2 13, MemBlock Float(2, Quad+48)-X Vector2(11), MemBlock Float(2, Quad+52)-Y Vector2(11) :Set Vector2 14, MemBlock Float(2, Quad+56)-X Vector2(11), MemBlock Float(2, Quad+60)-Y Vector2(11) :Ax2# = (X Vector2(14)*(Y Vector2(13)-Y Vector2(12)) - Y Vector2(14)*(X Vector2(13)-X Vector2(12))) * 2.0 :Ax2# = SelectVal2(Abs(Ax2#) < 0.03125, Ax2#, 0.03125) :B# = X Vector2(14)*Y Vector2(12) - Y Vector2(14)*X Vector2(12) + X Vector2(9)*(Y Vector2(14)-Y Vector2(13)+Y Vector2(12)) - Y Vector2(9)*(X Vector2(14)-X Vector2(13)+X Vector2(12)) :t# = (Sqrt(B# * B# - 2.0 * Ax2# * (Y Vector2(9)*X Vector2(12) - X Vector2(9)*Y Vector2(12))) - B#) / Ax2# :Set Vector2 10, X Vector2(14)*t#, Y Vector2(14)*t# :Subtract Vector2 11, 9, 10 :Linear Interpolate Vector2 9, 12, 13, t# :Subtract Vector2 9, 9, 10 :Set Vector2 10, Length Vector2(11) / Length Vector2(9) * (((Dot Product Vector2(9, 11) >= 0.0)*2-1)*1.0), t# :Inside = ((X Vector2(10)>=-0.005) And (Y Vector2(10)>=-0.005) And (X Vector2(10)<=1.005) And (Y Vector2(10)<=1.005)) :EndIf :i = (MemBlock Word(4, Entry*4+2) = 0) Or Inside :Entry = MemBlock Word(4, Entry*4+2) :Next i 
EndIf :If Inside :Normalize Vector3 26,VOp(1, 26,VOp(1, 15,  SetVector3FromMemBlock(31, 1, MemBlock Word(2, Quad+12)), SetVector3FromMemBlock(34, 1, MemBlock Word(2, Quad+18)), Y Vector2(10)),VOp(1, 16, SetVector3FromMemBlock(32, 1, MemBlock Word(2, Quad+14)), SetVector3FromMemBlock(33, 1, MemBlock Word(2, Quad+16)), Y Vector2(10)), X Vector2(10)) :Linear Interpolate Vector3 25,VOp(1, 15,  SetVector3FromMemBlock(31, 1, MemBlock Word(2, Quad+4)), SetVector3FromMemBlock(34, 1, MemBlock Word(2, Quad+10)), Y Vector2(10)),VOp(1, 16, SetVector3FromMemBlock(32, 1, MemBlock Word(2, Quad+6)), SetVector3FromMemBlock(33, 1, MemBlock Word(2, Quad+ 8)), Y Vector2(10)), X Vector2(10) :SetVector3FromMemBlock(27, 1, MemBlock Word(2, Quad+24)) :QuadInfo = MemBlock DWord(2, Quad) :Else :Set Vector3 25, X Vector3(17), 3.5, Z Vector3(17) :Set Vector3 26, 0.0, 1.0, 0.0 :EndIf :Flags = Flags || (((QuadInfo && 0x80000000) <> 0) * 0x2000) :HeightFromSurface# = Dot Product Vector3(SetVector3(15, X Vector3(17)-X Vector3(25), Y Vector3(17)-Y Vector3(25), Z Vector3(17)-Z Vector3(25)), 26) :VOp(0, 35, 35, SetVector3(15, X Vector3(26), Y Vector3(26)-1.0, Z Vector3(26)), ElapsedTime#*(3.5+3.5*(HoveringState <> 20))*Abs(Dot Product Vector3(15, SetVector3(16, Get Matrix4 Element(1, 8), Get Matrix4 Element(1, 9), Get Matrix4 Element(1, 10))))) :VOp(0, 35, 35, SetVector3(15, X Vector3(35), Y Vector3(35), Z Vector3(35)), -0.25 * ElapsedTime#) :HoveringState = HoveringState * ((HeightFromSurface# < 2.0) Or (HoveringState = 2)) :HoveringState = (((Flags && 0x2000) = 0))*HoveringState + ((Flags && 0x2000) <> 0)*20 :ViscosityFactor# = ViscosityFactor# + SelectVal2(HeightFromSurface# >= 2.0, -1.0, 1.0) * ElapsedTime# :ViscosityFactor# = SelectVal2(ViscosityFactor# > 1.0, SelectVal2(ViscosityFactor# < 0.0, ViscosityFactor#, 0.0), 1.0) :ExtraBoost# = ExtraBoost# - 0.8 * ElapsedTime# :ExtraBoost# = SelectVal2(ExtraBoost# < 0.0, ExtraBoost#, 0.0) :NextHoveringState = HoveringState :NormalVel# = NormalVel# - 18.0 * ElapsedTime# * (HoveringState = 0) :NextHoveringState = (HoveringState <> 0) * NextHoveringState + (HoveringState = 0) * ((HeightFromSurface# >= 2.0) * NextHoveringState + (HeightFromSurface# < 2.0) * ((NormalVel# < -20.0) * 30 + (NormalVel# >= -20.0))) :BounceTimer# = BounceTimer# * (HoveringState <> 1) :NormalVel# = SelectVal2(HoveringState = 1, NormalVel#, -2.0 * (1.0 - HeightFromSurface# * 0.5) - 20.0 * HeightFromSurface# * 0.5) 
NextHoveringState =  (HoveringState <> 1) * NextHoveringState + ((HoveringState = 1) And (HeightFromSurface# < 0.0)) * 10 :NextHoveringState = NextHoveringState * ((HoveringState <> 2) Or (JumpTresholdVelocity# >= 0.0)) :Flags = Flags || 0x8000 * ((HoveringState = 2) And (JumpTresholdVelocity# >= 0.0)) :If HoveringState = 10 :JumpTresholdVelocity# = (VerticalVelocity# < JumpTresholdVelocity#) * JumpTresholdVelocity# + (VerticalVelocity# >= JumpTresholdVelocity#) * VerticalVelocity# :NextHoveringState = (VerticalVelocity# >= JumpTresholdVelocity#) * NextHoveringState + (VerticalVelocity# < JumpTresholdVelocity#) * 2 :NormalVel# =  SelectVal2(HeightFromSurface# < -1.0, SelectVal2(HeightFromSurface# < -0.2, SelectVal2(HeightFromSurface# > 0.2, 0.0, -1.0), 1.0), ((-1.0-HeightFromSurface#) / ElapsedTime#)) :EndIf :NormalVel# = (HoveringState <> 20) * NormalVel# + (HoveringState = 20) * ((0.0 - HeightFromSurface#) / ElapsedTime#) :NextHoveringState = NextHoveringState * ((HoveringState <> 20) Or ((Flags && 0x2000) <> 0)) :BounceTimer# = BounceTimer# * (HoveringState <> 30) :NextHoveringState = ((HoveringState <> 30) Or (HeightFromSurface# >= -2.20)) * NextHoveringState + ((HoveringState = 30) And (HeightFromSurface# < -2.20)) * 31 :If HoveringState = 31 :Set Vector3 35, 0.0, 0.0, 0.0 :NormalVel# = (-2.20*(1.0-Sin(BounceTimer#*200.0))-HeightFromSurface#) / ElapsedTime# :BounceTimer# = BounceTimer# + ElapsedTime# :NextHoveringState = SelectVal2(BounceTimer#*200.0 >= 90.0, NextHoveringState, 10) :Flags = Flags || 0x4000 :EndIf :HoveringState = NextHoveringState :Set Vector3 38, -(0.3-0.1*EnginePower#)*Sin(Y Vector3(38)*50.0), WrapValue(Y Vector3(38) + ElapsedTime#), SelectVal2(-1, 0, Z Vector3(38) + SelectVal2(HoveringState = 10, -0.6, 0.6) * ElapsedTime#) :Build Rotation Axis Matrix4 2, SetVector3(15, Get Matrix4 Element(1, 4), Get Matrix4 Element(1, 5), Get Matrix4 Element(1, 6)), FinalYawSpeed# * ElapsedTime# * 0.01745329252 :Multiply Matrix4 1, 1, 2 :SetVector3(21, Get Matrix4 Element(1, 8), Get Matrix4 Element(1, 9), Get Matrix4 Element(1, 10)) :Multiply Vector3 21, ((EnginePowerT#-0.40*EnginePowerT#*ViscosityFactor#) * (1.0+ExtraBoost#*1.5*Dot Product Vector3(21, 30))) * MaxSpeed# 
Linear Interpolate Vector3 21, 21, 22, (1.0 - AirBrakesFlapsSpeed#) * 0.10 + AirBrakesFlapsSpeed# * 0.45 :Set Vector3 21, X Vector3(21), ((Flags && 0x8000) = 0) * Y Vector3(21) + ((Flags && 0x8000) <> 0) * JumpTresholdVelocity#, Z Vector3(21) :JumpTresholdVelocity# = JumpTresholdVelocity# - 36.0 * ElapsedTime# :VerticalVelocity# = Dot Product Vector3(SetVector3(15, 0.0, 1.0, 0.0), 21) :VOp(0, 15, 21, SetVector3(16, X Vector3(26), Y Vector3(26), Z Vector3(26)), -(Dot Product Vector3(21, 26) * (Dot Product Vector3(21, 26) < 0.0))*((HoveringState <> 0) And (HoveringState <> 2))) :VOp(0, 15, 15, SetVector3(28, X Vector3(26), Y Vector3(26), Z Vector3(26)), NormalVel#) :VOp(0, 17, 17, SetVector3(16, X Vector3(15) + X Vector3(35), Y Vector3(15) + Y Vector3(35), Z Vector3(15) + Z Vector3(35)), ElapsedTime#) :HeightFromSurface2# = Dot Product Vector3(SetVector3(15, X Vector3(17)-X Vector3(25), Y Vector3(17)-Y Vector3(25), Z Vector3(17)-Z Vector3(25)), 26) :VOp(0, 17, 17, SetVector3(15, X Vector3(26), Y Vector3(26), Z Vector3(26)), (-1.0-HeightFromSurface2#) * (HeightFromSurface2# < -1.0) * (HoveringState < 20)) :Copy Vector3 SelectVal2(HoveringState = 20 Or (HeightFromSurface# < -10.0), 34, 28), 26 :If (HoveringState <> 20) And (HeightFromSurface# >= -10.0) :If HoveringState = 0 :Add Vector3 15, SetVector3(16, 0.0, -0.001, 0.0), SetVector3(15, X Vector3(17)-X Vector3(36), Y Vector3(17)-Y Vector3(36), Z Vector3(17)-Z Vector3(36)) :Cross Product Vector3 34, 15, SetVector3(16, Get Matrix4 Element(1, 0), Get Matrix4 Element(1, 1), Get Matrix4 Element(1, 2)) :Normalize Vector3 34, 34 :EndIf :Normalize Vector3 28,VOp(1, 28, SetVector3(28, Get Matrix4 Element(1, 4), Get Matrix4 Element(1, 5), Get Matrix4 Element(1, 6)), 34, 0.99*ElapsedTime#) :EndIf :Cross Product Vector3 15, 28, SetVector3(15, Get Matrix4 Element(1, 8), Get Matrix4 Element(1, 9), Get Matrix4 Element(1, 10)) :Cross Product Vector3 15, 15, 28 :Build LookAt LHMatrix4 2, SetVector3(16, 0.0, 0.0, 0.0), 15, 28 :Transpose Matrix4 1, 2 :For cp = 0 To 15 :Transform Normals Vector3 15, SetVector3(15, Memblock Float(12, (cp*16))*Cos(Roll#), Memblock Float(12, (cp*16)+4), Memblock Float(12, (cp*16)+8)), 1 :Add Vector3 16, 17, 15 
cpwgi = ((Int(X Vector3(16)/16.0) - ((X Vector3(16)/16.0) < 0.0)) * 0x8da6b343 + (Int(Y Vector3(16)/16.0) - ((Y Vector3(16)/16.0) < 0.0)) * 0xd8163841 + (Int(Z Vector3(16)/16.0) - ((Z Vector3(16)/16.0) < 0.0)) * 0xcb1ab31f) Mod 4096 :cpwgi = (cpwgi >= 0) * cpwgi + (cpwgi < 0) * (cpwgi+4096) :Pit = 0 :Entry = MemBlock Word(7, cpwgi*2) :If Entry :For i = 0 To 1 :Wall =    MemBlock Word(8, Entry*4) * 24 :Subtract Vector3 15, 16, SetVector3FromMemBlock(31, 5, MemBlock Word(6, Wall+2)) :Dist# = Dot Product Vector3(15, SetVector3(34, Memblock Float(6, Wall+8), Memblock Float(6, Wall+12), Memblock Float(6, Wall+16))) :If Dist# < 0.0 :Subtract Vector3 32, SetVector3FromMemBlock(32, 5, MemBlock Word(6, Wall+4)), 31 :Subtract Vector3 33, SetVector3FromMemBlock(33, 5, MemBlock Word(6, Wall+6)), 31 :DP01# = Dot Product Vector3(32, 33) :DP12# = Dot Product Vector3(33, 15) :DP02# = Dot Product Vector3(32, 15) :u# = (Dot Product Vector3(33, 33) * DP02# - DP01# * DP12#) * Memblock Float(6, Wall+20) :If (u# >= 0.0) :v# = (Dot Product Vector3(32, 32) * DP12# - DP01# * DP02#) * Memblock Float(6, Wall+20) :If (v# >= 0.0) And ((u# + v#) =< 1.0) :Pit = VOp(0, 17, 17, SetVector3(15, X Vector3(34), Y Vector3(34), Z Vector3(34)), -Dist#) :VOp(0, 17, 17, SetVector3(28, X Vector3(26), Y Vector3(26), Z Vector3(26)), -Dot Product Vector3(15, 26)*(Abs(Dot Product Vector3(34, 26)) < 0.707)) :If MemBlock Word(6, Wall) = 1 :EnginePowerT# = SelectVal2(-1, 0, EnginePowerT# - (1.0/16.0) * Speed# * ElapsedTime#) :EnginePower# = SelectVal2(-1, 0, EnginePower# - (1.0/16.0) * Speed# * ElapsedTime#) :PreviousEnginePowerT# = EnginePowerT# 
Multiply Vector3 22, 0.95*ElapsedTime# :Multiply Vector3 34, Speed#*0.25*ElapsedTime# :Add Vector3 35, 34, 35 :Flags = Flags || 0x4000 :Perfect = 0 :EndIf :EndIf :EndIf :EndIf :i = (MemBlock Word(8, Entry*4+2) = 0) Or Pit :Entry = MemBlock Word(8, Entry*4+2) :Next i :EndIf :Next cp :wgi = ((Int(X Vector3(17)/16.0) - ((X Vector3(17)/16.0) < 0.0)) * 0x8da6b343 + (Int(Y Vector3(17)/16.0) - ((Y Vector3(17)/16.0) < 0.0)) * 0xd8163841 + (Int(Z Vector3(17)/16.0) - ((Z Vector3(17)/16.0) < 0.0)) * 0xcb1ab31f) Mod 4096 :wgi = (wgi >= 0) * wgi + (wgi < 0) * (wgi+4096) :NewLapCountState = 0 :Entry = MemBlock Word(10, wgi*2) :If Entry :For i = 0 To 1 :LvlObj =    MemBlock Word(11, Entry*4) * 56 :Cross Product Vector3 28, SetVector3(16, MemBlock Float(9, LvlObj+28), MemBlock Float(9, LvlObj+32), MemBlock Float(9, LvlObj+36)), SetVector3(15,  MemBlock Float(9, LvlObj+16), MemBlock Float(9, LvlObj+20), MemBlock Float(9, LvlObj+24)) :Build LookAt LHMatrix4 2, SetVector3(15, 0.0, 0.0, 0.0), 16, 28 :Transform Normals Vector3 15, SetVector3(15, X Vector3(17)-MemBlock Float(9, LvlObj+4), Y Vector3(17)-MemBlock Float(9, LvlObj+8), Z Vector3(17)-MemBlock Float(9, LvlObj+12)), 2 :If LvlObj = 56 
If (X Vector3(15) >= -30.0) And (X Vector3(15) <= 30.0) And (Y Vector3(15) >= -7.5) And (Y Vector3(15) <= 7.5) And (Z Vector3(15) >= -10.0) And (Z Vector3(15) < 0.0) :NewLapCountState = -1 :LapCount = LapCount - (LapCountState = 1) :EndIf :If (X Vector3(15) >= -30.0) And (X Vector3(15) <= 30.0) And (Y Vector3(15) >= -7.5) And (Y Vector3(15) <= 7.5) And (Z Vector3(15) >= 0.0) And (Z Vector3(15) <= 10.0) :NewLapCountState = 1 :LapCount = LapCount + (LapCountState = -1) :If LapCount > CurrentLap :LapTime(CurrentLap, 0) = Timer() :LapTime(CurrentLap, 1) = Perfect :CurrentLap = LapCount :Perfect = 1 :EndIf :EndIf :EndIf :If MemBlock DWord(9, LvlObj) = 1 :If (X Vector3(15) >= -5.0) And (X Vector3(15) <= 5.0) And (Y Vector3(15) >= -2.0) And (Y Vector3(15) <= 4.0) And (Z Vector3(15) >= -5.0) And (Z Vector3(15) <= 5.0) :Copy Vector3 30, 16 :ExtraBoost# = SelectVal2(-1, 0, ExtraBoost# + 8.0 * ElapsedTime#) :EndIf :EndIf :i = (MemBlock Word(11, Entry*4+2) = 0) :Entry = MemBlock Word(11, Entry*4+2) :Next i :EndIf 
LapCountState = NewLapCountState :GameState = (LapCount <= MaxLap) * GameState + (LapCount > MaxLap) * 2 :Set Alpha Mapping On 3, EnginePower# * 100.0 :RaceTimer = Timer() - StartRaceTimer :CannonStart = CannonStart * ((Timer() - StartRaceTimer) < 1200) :If Dot Product Vector3(SetVector3(15, Get Matrix4 Element(1, 8), Get Matrix4 Element(1, 9), Get Matrix4 Element(1, 10)), 27) < 0.0 :Text 350, 292, "WRONG WAY" :EndIf :If ((Timer() - LapTime(CurrentLap-1, 0)) < 3000) And LapTime(CurrentLap-1, 1) :Text 350, 292, "Perfect Lap !" :EndIf :If (Timer() - StartRaceTimer) < 2000 :Text 390, 292, "GO!" :EndIf :EndIf :If GameState = 0 :DisableCannonStart = DisableCannonStart || (((Timer() - StartRaceTimer) > 2000) And ((Timer() - StartRaceTimer) < 2500) And (EnginePower# > 0.0)) :If (Timer() - StartRaceTimer) > 3000 :GameState = 1 :StartRaceTimer = Timer() :LapTime(0, 0) = StartRaceTimer :CannonStart = (EnginePower# <> 0.0) * (DisableCannonStart <> 1) :EnginePower# = 0.0 :EnginePowerT# = 0.0 :PreviousEnginePowerT# = 0.0 
EndIf :Set Vector3 38, -(0.3)*Sin(Y Vector3(38)*50.0), WrapValue(Y Vector3(38) + ElapsedTime#), 1.0 :Text 394, 292, Str$(3 - (Timer() - StartRaceTimer) / 1000) :EndIf :VOp(0, 37, 17, SetVector3(28, Get Matrix4 Element(1, 4), Get Matrix4 Element(1, 5), Get Matrix4 Element(1, 6)), X Vector3(38)*Z Vector3(38)) :Position Object 1, X Vector3(37), Y Vector3(37), Z Vector3(37) :set point light 0,X Vector3(37), Y Vector3(37)+50.0, Z Vector3(37) :AX# = AtanFull(Get Matrix4 Element(1,  6), Get Matrix4 Element(1, 10)) :sx# = Sin(Ax#) :cx# = Cos(Ax#) :Set Vector3 29, AX#, AtanFull(-Get Matrix4 Element(1, 2), SelectVal2(Abs(sx#) > Abs(cx#), Get Matrix4 Element(1, 10), Get Matrix4 Element(1, 6)) / SelectVal2(Abs(sx#) > Abs(cx#), cx#, sx#)), AtanFull(-cx# * Get Matrix4 Element(1, 4) + sx# * Get Matrix4 Element(1, 8), cx# * Get Matrix4 Element(1, 5) - sx# * Get Matrix4 Element(1, 9)) :Rotate Object 1, X Vector3(29), Y Vector3(29), Z Vector3(29) :Roll# = (Sqrt(X Vector3(20)) - Sqrt(Y Vector3(20))) * 30.0 + (X Vector2(7)-Y Vector2(7)) * 15.0 :Roll Object Left 1, Roll# :Position Object 3, X Vector3(37), Y Vector3(37), Z Vector3(37) :Rotate Object 3,  X Vector3(29), Y Vector3(29), Z Vector3(29) :Roll Object Left 3, Roll# :Divide Vector3 SetVector3(15, X Vector3(17)-X Vector3( 36), Y Vector3(17)-Y Vector3( 36), Z Vector3(17)-Z Vector3( 36)), ElapsedTime# :Speed# = Length Vector3(15) :Copy Vector3 36, 17 :Scroll Object texture 3, 0, tv# :tv# = WrapValue((tv#+1.0* ElapsedTime#)*360.0) / 360.0 :Rotate Camera MainCamera, X Vector3(29), Y Vector3(29), Z Vector3(29) :If (CamMode && 1) = 0 :Transform Normals Vector3 15, SetVector3(15, (YawSpeed#)* 1.0+(Sqrt(Y Vector3(23)) - Sqrt(X Vector3(23)))*2.5, 3.0+SelectVal2(HeightFromSurface# < 0.3, 0.0, 0.3-HeightFromSurface#), -14.0-(TanAccel#*2.0+ExtraBoost#)*(GameState <> 0)), 1 
Set Vector3 18, X Vector3(17)+X Vector3(15), Y Vector3(17)+Y Vector3(15), Z Vector3(17)+Z Vector3(15) :Position Camera MainCamera, X Vector3(18), Y Vector3(18), Z Vector3(18) :Pitch Camera Down MainCamera, (HoveringState <> 20) * Dot Product Vector3(SetVector3(15, 0.0, 1.0, 0.0), SetVector3(16, Get Matrix4 Element(1, 8), Get Matrix4 Element(1, 9), Get Matrix4 Element(1, 10))) * 10.0 :Else :Transform Normals Vector3 15, SetVector3(15, 0.0, 0.75, 0.5), 1 :Add Vector3 18, 37, 15 :Position Camera MainCamera, X Vector3(18), Y Vector3(18), Z Vector3(18) :Roll Camera Left MainCamera, Roll# :EndIf :Position Object 5, X Vector3(18), Y Vector3(18), Z Vector3(18) :Set Sound Speed 1, 13000.0 + 14000.0 * (EnginePower# + ExtraBoost#*0.5) :If (Sound Playing(2) = 0) And ((Flags && 0x4000) <> 0) :Play Sound 2 :Set Sound Speed 2, 20000+RND(4000) :EndIf :RaceTimeSecs = (RaceTimer-((RaceTimer / 60000)*60000))/1000 :Text 0, 0, "Race Time " + Str$(RaceTimer / 60000)+":"+Mid$("0", RaceTimeSecs<10)+Str$(RaceTimeSecs)+"."+Str$((RaceTimer - (RaceTimer / 60000)*60000 - RaceTimeSecs*1000) / 100) + "  Lap "+Str$((CurrentLap<=MaxLap)*CurrentLap + (CurrentLap>MaxLap)*MaxLap) + "/"+Str$(MaxLap)+"  Speed "+Str$(Int(Speed#*3.6)) :Text 0, Screen Height()-20, Str$(Screen FPS()) :For i = 1 To 5*EnableGlow :Sync Mask 2^i :FastSync :Next i :Sync Mask %1 :Sync :Loop 
Function VOp(Op, ResultV3, VectorAV3, VectorBV3, s#) :If Op = 1 :Linear Interpolate Vector3 ResultV3, VectorAV3, VectorBV3, s# :EndIf :If Op = 0 :Multiply Vector3 VectorBV3, s# :Add Vector3 ResultV3, VectorAV3, VectorBV3 :EndIf :If Op = -2 :VOp(0, 22, 22, SetVector3(15, Get Matrix4 Element(1, 8), Get Matrix4 Element(1, 9), Get Matrix4 Element(1, 10)), TrustInput# * 0.4* 0.6 * MaxSpeed# * ElapsedTime#) :VOp(0, 22, 22, SetVector3(15, X Vector3(22), Y Vector3(22), Z Vector3(22)), -((0.4 * MaxSpeed#) / MaxSpeed#) * ElapsedTime#) :Set Vector2 10, (1.0 - EnginePower#) * MemBlock Float(12, 268) + MemBlock Float(12, 272) * EnginePower#, (1.0 - EnginePower#) * MemBlock Float(12, 276) + MemBlock Float(12, 280) * EnginePower# :Set Vector2 3, X Vector2(4) > X Vector2(8), Y Vector2(4) > Y Vector2(8) :Set Vector2 8, X Vector2(8) + SelectVal2(X Vector2(3), -Y Vector2(10), X Vector2(10)) * ElapsedTime#, Y Vector2(8) + SelectVal2(Y Vector2(3), -Y Vector2(10), X Vector2(10)) * ElapsedTime# :Set Vector2 8, SelectVal2(SelectVal2(X Vector2(3), X Vector2(8) < X Vector2(4), X Vector2(8) > X Vector2(4)), X Vector2(8), X Vector2(4)), SelectVal2(SelectVal2(Y Vector2(3), Y Vector2(8) < Y Vector2(4), Y Vector2(8) > Y Vector2(4)), Y Vector2(8), Y Vector2(4)) :Set Vector2 3, X Vector2(8)*X Vector2(8), Y Vector2(8)*Y Vector2(8) :Linear Interpolate Vector2 3, 3, 8, MemBlock Float(12, 284) :VOp(0, 19, 19, SetVector3(15, X Vector2(3)-X Vector3(19), Y Vector2(3)-Y Vector3(19), 0.0), 10.0 * ElapsedTime#) :VOp(0, 20, 20, SetVector3(16, X Vector3(19)-X Vector3(20), Y Vector3(19)-Y Vector3(20), 0.0), 4.0 * ElapsedTime#) :Set Vector2 3, X Vector2(5) > 0.0, Y Vector2(5) > 0.0 :Set Vector2 6, X Vector2(6) + SelectVal2(X Vector2(3), -MemBlock Float(12, 300), MemBlock Float(12, 296)) * ElapsedTime#, Y Vector2(6) + SelectVal2(Y Vector2(3), -MemBlock Float(12, 300), MemBlock Float(12, 296)) * ElapsedTime# :Set Vector2 6, SelectVal2(SelectVal2(X Vector2(3), X Vector2(6) < 0.0, X Vector2(6) > 1.0), X Vector2(6), X Vector2(3)), SelectVal2(SelectVal2(Y Vector2(3), Y Vector2(6) < 0.0, Y Vector2(6) > 1.0), Y Vector2(6), Y Vector2(3)) :Set Vector2 7, X Vector2(7) + SelectVal2(X Vector2(3), -MemBlock Float(12, 312), MemBlock Float(12, 308)) * ElapsedTime#, Y Vector2(7) + SelectVal2(Y Vector2(3), -MemBlock Float(12, 312), MemBlock Float(12, 308)) * ElapsedTime# :Set Vector2 7, SelectVal2(SelectVal2(X Vector2(3), X Vector2(7) < 0.0, X Vector2(7) > 1.0), X Vector2(7), X Vector2(3)), SelectVal2(SelectVal2(Y Vector2(3), Y Vector2(7) < 0.0, Y Vector2(7) > 1.0), Y Vector2(7), Y Vector2(3)) :EndIf
EndFunction ResultV3 :Function SelectVal2(Value, Value1#, Value2#) :If Value >= 0 :Value2# = Value1# * (1-Value) + Value2# * Value :EndIf :If Value = -1 :Value2# = Value2# * (Value2# >= 0.0) :Value2# = (Value2# <= 1.0) * Value2# + (Value2# > 1.0) :EndIf :If Value = -2 :r = Make Matrix4(1) :r = Make Matrix4(2) :For i = 3 To 14 :r = Make Vector2(i) :Next i :For i = 15 To 38 :r = Make Vector3(i) :Next i :Load DLL "kernel32.dll", 1 :Ptr = Make Memory(8) :Call DLL 1, "QueryPerformanceFrequency", Ptr :Delete DLL 1 :TimerFreqDF = *Ptr :Hide Mouse :EndIf
EndFunction Value2# :Function SetVector3(ResultV3, X#, Y#, Z#) :If ResultV3 > 0 :Set Vector3 ResultV3, X#, Y#, Z# :Else :For cam = 1 To 5 :Make Camera cam :Set Camera To Image cam, 9+cam, Screen Width()/Val(Mid$("12441", cam)), Screen Height()/Val(Mid$("12441", cam)), 2*(Cam<>5), 21*(Cam<>5) :Color Backdrop cam, 0 :Next cam :Backdrop Off 5 :Backdrop Off 1 :For fx = 1 To 4 :Load Effect "Media\fx"+Chr$(48+fx)+".fx", fx, 0, 1 :Set Effect Constant Float fx, "viewport_inv_width",  Val(Mid$("2441", fx)) / (Screen Width()  * 1.0) :Set Effect Constant Float fx, "viewport_inv_height", Val(Mid$("2441", fx)) / (Screen Height() * 1.0)    :Load Object "Media\Quad.dbo", 9+fx :Set Object Mask 9+fx, 2^(fx+1) :Set Object Light 9+fx, 0 :Set Object Effect 9+fx, fx :Texture Object 9+fx, 0, 9+fx :Disable Object ZRead 9+fx :Disable Object ZWrite 9+fx :Next fx :EndIf
EndFunction ResultV3 :Function SetVector3FromMemBlock(ResultV3, MemBlock, Index) :If ResultV3 > 0 :Set Vector3 ResultV3, MemBlock Float(MemBlock, Index*12), MemBlock Float(MemBlock, Index*12+4), MemBlock Float(MemBlock, Index*12+8) :Else :Load Object "Media\Ship.dbo", 1 :Load Image "Media\ShipTxt.jpg", 1 :Texture Object  1, 1 :Set Object Mask 1, 2^MainCamera :Make Mesh From Object 1, 1 :set shadow shading on 1,1,1000,1 :set light range 0,1000 :Load Object "Media\Trail.dbo", 3 :Load Image "Media\Trail12RGBA.png", 3 :Texture Object 3, 3 :Set Object Texture 3, 2, 0 :Set Object 3, 1, 2, 0, 1, 0 :Set Object Mask 3, 2^MainCamera :Set Alpha Mapping On 3, 0 :Load Object "Media\SkyBox.dbo", 5 :Texture Object  5, 5 :Set Object Light 5, 0 :Set Object Mask 5, 2^MainCamera :Scale Object 5, 236400.0, 236400.0, 236400.0 :EndIf
EndFunction ResultV3

33 <- Texture count(set automatically, do not edit)
0 <- Speedpad count(set automatically, do not edit)
Default.png <- Skybox texture
HoveringSurfaceVertices.bin
HoveringSurfaceQuads.bin
HSWorldGridTable.bin
HSWorldGridEntries.bin
WallsVertices.bin
WallsFaces.bin
WallsWorldGridTable.bin
WallsWorldGridEntries.bin
LevelObjects.bin
LOWorldGridTable.bin
LOWorldGridEntries.bin
0 <- StartBox Quad index(Should be left 0 when the texture 1 is "finish line Left Texture")
0 <- Ship Start Quad index

Commented:

    TrackDir$="Tracks\Track 1\"
    EnableGlow = 1

Rem * Init *
    Global PerfTimerDI As Double Integer, PrevTimerDI As Double Integer, TimerDeltaDF As Double Float, TimerFreqDF As Double Float
    Load DLL "kernel32.dll", 1
    Ptr = Make Memory(8)
    Call DLL 1, "QueryPerformanceFrequency", Ptr
    Delete DLL 1
    TimerFreqDF = *Ptr
    Set Display Mode 800, 600, 32
    Set Window Off
    Hide Mouse

Rem * Init 3D maths *
    r = Make Matrix4(_MShipRot)
    r = Make Matrix4(_MTemp)
    For i = 3 To 14
    r = Make Vector2(i)
    Next i
    For i = 15 To 38
    r = Make Vector3(i)
    Next i

Rem * Render Cameras *
    If EnableGlow
        ViewportImg = 10
        GlowDownSampleImg = 11
        GlowHGaussImg = 12
        GlowVGaussImg = 13
        GlowFinalImg = 14
    
        For cam = 1 To 5
            Make Camera cam
            Set Camera To Image cam, 9+cam, Screen Width()/Val(Mid$("12441", cam)), Screen Height()/Val(Mid$("12441", cam)), 2*(Cam<>5), 21*(Cam<>5)
            Color Backdrop cam, 0
        Next cam
    
        Backdrop Off 5
        Backdrop Off 1
    
        For fx = 1 To 4
            Load Effect "Media\fx"+Chr$(48+fx)+".fx", fx, 0, 1
            Set Effect Constant Float fx, "viewport_inv_width",  Val(Mid$("2441", fx)) / (Screen Width()  * 1.0)
            Set Effect Constant Float fx, "viewport_inv_height", Val(Mid$("2441", fx)) / (Screen Height() * 1.0)
        
            Load Object "Media\Quad.dbo", 9+fx
            Set Object Mask 9+fx, 2^(fx+1)
            Set Object Light 9+fx, 0
            Set Object Effect 9+fx, fx
            Texture Object 9+fx, 0, 9+fx
            Disable Object ZRead 9+fx
            Disable Object ZWrite 9+fx
        Next fx
    
        Set Object Mask 13, %1
        Texture Object 13, 0, ViewportImg
        Texture Object 13, 1, GlowVGaussImg
    
        MainCamera = 1
    EndIf
    Backdrop Off 0

Rem * Load Level *
    Open To Read 1, TrackDir$+"Level.txt"
    Read String 1, TextureCount$
    Read String 1, SpeedPadCount$
    Read String 1, SkyBoxTexture$

    For MemBlock = 1 To 11
        Read String 1, FileName$
        Open To Read 2, TrackDir$+FileName$
        Read MemBlock 2, MemBlock
        Close File 2
    Next MemBlock
    Close File 1

    Open To Read 1, "ShipSettings.bin"
    Read MemBlock 1, 12
    Close File 1

Rem * Load Level : Textures *
    Open To Read 1, TrackDir$+"Textures.txt"
    For i = 16 To 15+Val(TextureCount$)
        Read String 1, s$
        Load Image "Textures\"+s$, i
    Next i
    Close File 1

Rem * Load Level : Object Grid *
    Object = 16
    For t = 1 To Val(TextureCount$)
        For GridIndex = 0 To 15
            FileName$ = TrackDir$+"ObjectGrid"+Chr$(65+t)+Chr$(65+GridIndex)+".dbo"
            If File Exist(FileName$)
                Load Object FileName$, Object
            rem Show Object Bounds i, 1
                Texture Object  Object, 15 + t
                Set Object Object, 1, 0, 1, 1, 0
                Set Object Texture Object, 2, 2
                Set Object Mask Object, 2^MainCamera
                Inc Object
            EndIf
        Next GridIndex
    Next t

Rem * Load Level : Speed Pads *
    Load Image "Media\SpeedPad.bmp", 15
    For i = 1 To Val(SpeedPadCount$)
        Load Object TrackDir$+"SpeedPad"+Str$(i)+".dbo", Object
        Set Object Object, 1, 0, 1, 1, 0
        Set Object Texture Object, 2, 2
        Texture Object  Object, 15
        Set Object Mask Object, 2^MainCamera
        Inc Object
    Next


Rem * Ship *
    Load Object "Media\Ship.dbo", 1
    Load Image "Media\ShipTxt.jpg", 1
    Texture Object  1, 1
    Set Object Mask 1, 2^MainCamera


Make Mesh From Object 1, 1
set shadow shading on 1,1,1000,1
set light range 0,1000


Rem * Load Trail
    Load Object "Media\Trail.dbo", 3
    Load Image "Media\Trail12RGBA.png", 3
    Texture Object 3, 3
    Set Object Texture 3, 2, 0
    Set Object 3, 1, 2, 0, 1, 0
    Set Object Mask 3, 2^MainCamera
    Set Alpha Mapping On 3, 0

Rem * Load Sky
    Load Object "Media\SkyBox.dbo", 5
    Load Image "SkyBoxes\"+SkyBoxTexture$, 5
    Texture Object  5, 5
    Set Object Light 5, 0
    Set Object Mask 5, 2^MainCamera

    Scale Object 5, 236400.0, 236400.0, 236400.0

Rem * Place Ship On Start Grid *
    Set Vector3 _VShipPos,  MemBlock Float(9, 4), MemBlock Float(9, 8), MemBlock Float(9, 12)
    Build LookAt LHMatrix4 _MTemp, SetVector3(_V3Temp2, 0.0, 0.0, 0.0), SetVector3(_V3Temp,  MemBlock Float(9, 28), MemBlock Float(9, 32), MemBlock Float(9, 36)), SetVector3(_V3Normal, MemBlock Float(9, 16), MemBlock Float(9, 20), MemBlock Float(9, 24))
    Transpose Matrix4 _MShipRot, _MTemp

Rem * Camera Settings *
    Set Camera Range MainCamera, 0.25, 4096.25

Rem * Load Sounds *
    Load Sound "Media\Engine16.wav", 1
    Load Sound "Media\Collide16.wav", 2
    Loop Sound 1
    Set Sound Volume 1, 90

Rem * Race Settings *
rem    MaxSpeed# = 190.0
    MaxSpeed# = 230.0
    MaxLap = 4

Rem * Race Variables *
    StartRaceTimer = Timer()
    Dim LapTime(MaxLap+1, 1)
    CurrentLap = 1
    Perfect = 1

Rem * Go ! *
    Sync Rate 0
    Sync On
    PrevTimerDI = PerfTimer()
    Sync
    Do

Rem * Timer *
    PerfTimerDI = PerfTimer()
    TimerDeltaDF = PerfTimerDI - PrevTimerDI
    PrevTimerDI = PerfTimerDI
    TimerDeltaDF = TimerDeltaDF / TimerFreqDF
    ElapsedTime# = TimerDeltaDF

Rem * Input *
    TrustInput# = KeyState(29) Or Joystick Fire X(2)
    Set Vector2 _V2TurnInput, (KeyState(51) And (KeyState(53)=0)) Or JoyStick Left(), (KeyState(53) And (KeyState(51)=0)) Or JoyStick Right()
    Set Vector2 _V2AirBrakesInput, JoyStick Fire X(6) Or KeyState(38) Or (KeyState(51) And KeyState(52)), JoyStick Fire X(7) Or KeyState(39) Or (KeyState(53) And KeyState(52))

Rem * Input : Switch Camera Mode *
    If CamMode = 0 And ((KeyState(16)=1) Or Joystick Fire X(1))
        CamMode = 3
        Hide Object 1
    EndIf
    CamMode = SelectVal(CamMode = 3 And (KeyState(16)=0) And (Joystick Fire X(1)=0), CamMode, 1)
    If CamMode = 1 And ((KeyState(16)=1)  Or Joystick Fire X(1))
        CamMode = 2
        Show Object 1
    EndIf
    CamMode = SelectVal(CamMode = 2 And (KeyState(16)=0) And (Joystick Fire X(1)=0), CamMode, 0)

Rem * Thrust control *
    Set Vector2 _V2Temp, TrustInput# > EnginePower#, EnginePower# + SelectVal(TrustInput# > EnginePower#, SelectVal(X Vector2(_V2AirBrakesInput) + Y Vector2(_V2AirBrakesInput) = 2.0, -MemBlock Float(12, _SHP_ENGDECEL), -MemBlock Float(12, _SHP_BRAKING)), MemBlock Float(12, _SHP_ENGACCEL) * SelectVal(CannonStart, 1.0, 4.0)) * ElapsedTime#
    EnginePower# = SelectVal(SelectVal(X Vector2(_V2Temp), Y Vector2(_V2Temp) < TrustInput#, Y Vector2(_V2Temp) > TrustInput#), Y Vector2(_V2Temp), TrustInput#)
    Multiply Vector2 _V2AirBrakesInput, (X Vector2(_V2Temp) Or ((X Vector2(_V2AirBrakesInput) + Y Vector2(_V2AirBrakesInput)) <> 2.0))
    EnginePowerT# = EnginePowerT# + (EnginePower# - EnginePowerT#) * MemBlock Float(12, _SHP_ENGTENSION) * ElapsedTime#
    TanAccel# = (EnginePowerT# - PreviousEnginePowerT#) / (ElapsedTime# * MemBlock Float(12, _SHP_ENGACCEL))
    PreviousEnginePowerT# = EnginePowerT#


Rem *********************************************************************************************************

If GameState = 2
    For l = 1 To MaxLap
        Text 100, 100+l*20, "Lap " + Str$(l) + " " + TimeString(LapTime(l, 0) - LapTime(l-1, 0))
        Text 300-350*(LapTime(l, 1)=0), 100+l*20, "*PL*"
    Next l
Endif


Rem *********************************************************************************************************

If GameState = 1
Rem * Flags *
    Flags = Flags && 0x00ff

Rem * Inertia control *
    MultiplyVectorBAndAddToVectorA(_V3Inertia, _V3Inertia, SetVector3(_V3Temp, Get Matrix4 Element(_MShipRot, 8), Get Matrix4 Element(_MShipRot, 9), Get Matrix4 Element(_MShipRot, 10)), TrustInput# * 0.4* 0.6 * MaxSpeed# * ElapsedTime#)
    MultiplyVectorBAndAddToVectorA(_V3Inertia, _V3Inertia, SetVector3(_V3Temp, X Vector3(_V3Inertia), Y Vector3(_V3Inertia), Z Vector3(_V3Inertia)), -((0.4 * MaxSpeed#) / MaxSpeed#) * ElapsedTime#)

Rem * Turn control *
    Set Vector2 _V2uv, (1.0 - EnginePower#) * MemBlock Float(12, _SHP_YAWACCEL) + MemBlock Float(12, _SHP_YAWACCELFP) * EnginePower#, (1.0 - EnginePower#) * MemBlock Float(12, _SHP_YAWDECEL) + MemBlock Float(12, _SHP_YAWDECELFP) * EnginePower#
    Set Vector2 _V2Temp, X Vector2(_V2TurnInput) > X Vector2(_V2YawSpeed), Y Vector2(_V2TurnInput) > Y Vector2(_V2YawSpeed)
    Set Vector2 _V2YawSpeed, X Vector2(_V2YawSpeed) + SelectVal(X Vector2(_V2Temp), -Y Vector2(_V2uv), X Vector2(_V2uv)) * ElapsedTime#, Y Vector2(_V2YawSpeed) + SelectVal(Y Vector2(_V2Temp), -Y Vector2(_V2uv), X Vector2(_V2uv)) * ElapsedTime#
    Set Vector2 _V2YawSpeed, SelectVal(SelectVal(X Vector2(_V2Temp), X Vector2(_V2YawSpeed) < X Vector2(_V2TurnInput), X Vector2(_V2YawSpeed) > X Vector2(_V2TurnInput)), X Vector2(_V2YawSpeed), X Vector2(_V2TurnInput)), SelectVal(SelectVal(Y Vector2(_V2Temp), Y Vector2(_V2YawSpeed) < Y Vector2(_V2TurnInput), Y Vector2(_V2YawSpeed) > Y Vector2(_V2TurnInput)), Y Vector2(_V2YawSpeed), Y Vector2(_V2TurnInput))
    Set Vector2 _V2Temp, X Vector2(_V2YawSpeed)*X Vector2(_V2YawSpeed), Y Vector2(_V2YawSpeed)*Y Vector2(_V2YawSpeed)
    Linear Interpolate Vector2 _V2Temp, _V2Temp, _V2YawSpeed, MemBlock Float(12, _SHP_YAWCURVE)
    MultiplyVectorBAndAddToVectorA(_V3YawSpeedT, _V3YawSpeedT, SetVector3(_V3Temp, X Vector2(_V2Temp)-X Vector3(_V3YawSpeedT), Y Vector2(_V2Temp)-Y Vector3(_V3YawSpeedT), 0.0), 10.0 * ElapsedTime#)
    MultiplyVectorBAndAddToVectorA(_V3YawSpeedTT, _V3YawSpeedTT, SetVector3(_V3Temp2, X Vector3(_V3YawSpeedT)-X Vector3(_V3YawSpeedTT), Y Vector3(_V3YawSpeedT)-Y Vector3(_V3YawSpeedTT), 0.0), 4.0 * ElapsedTime#)
    YawSpeed# = Sqrt(Y Vector3(_V3YawSpeedT)) - Sqrt(X Vector3(_V3YawSpeedT))

Rem * AirBrakes Control *
    Set Vector2 _V2Temp, X Vector2(_V2AirBrakesInput) > 0.0, Y Vector2(_V2AirBrakesInput) > 0.0
    Set Vector2 _V2AirBrakes, X Vector2(_V2AirBrakes) + SelectVal(X Vector2(_V2Temp), -MemBlock Float(12, _SHP_ABYAWDECEL), MemBlock Float(12, _SHP_ABYAWACCEL)) * ElapsedTime#, Y Vector2(_V2AirBrakes) + SelectVal(Y Vector2(_V2Temp), -MemBlock Float(12, _SHP_ABYAWDECEL), MemBlock Float(12, _SHP_ABYAWACCEL)) * ElapsedTime#
    Set Vector2 _V2AirBrakes, SelectVal(SelectVal(X Vector2(_V2Temp), X Vector2(_V2AirBrakes) < 0.0, X Vector2(_V2AirBrakes) > 1.0), X Vector2(_V2AirBrakes), X Vector2(_V2Temp)), SelectVal(SelectVal(Y Vector2(_V2Temp), Y Vector2(_V2AirBrakes) < 0.0, Y Vector2(_V2AirBrakes) > 1.0), Y Vector2(_V2AirBrakes), Y Vector2(_V2Temp))
    Set Vector2 _V2AirBrakesFlaps, X Vector2(_V2AirBrakesFlaps) + SelectVal(X Vector2(_V2Temp), -MemBlock Float(12, _SHP_ABFLAPSDECEL), MemBlock Float(12, _SHP_ABFLAPSACCEL)) * ElapsedTime#, Y Vector2(_V2AirBrakesFlaps) + SelectVal(Y Vector2(_V2Temp), -MemBlock Float(12, _SHP_ABFLAPSDECEL), MemBlock Float(12, _SHP_ABFLAPSACCEL)) * ElapsedTime#
    Set Vector2 _V2AirBrakesFlaps, SelectVal(SelectVal(X Vector2(_V2Temp), X Vector2(_V2AirBrakesFlaps) < 0.0, X Vector2(_V2AirBrakesFlaps) > 1.0), X Vector2(_V2AirBrakesFlaps), X Vector2(_V2Temp)), SelectVal(SelectVal(Y Vector2(_V2Temp), Y Vector2(_V2AirBrakesFlaps) < 0.0, Y Vector2(_V2AirBrakesFlaps) > 1.0), Y Vector2(_V2AirBrakesFlaps), Y Vector2(_V2Temp))
    MultiplyVectorBAndAddToVectorA(_V3AirBrakesT, _V3AirBrakesT, SetVector3(_V3Temp2, X Vector2(_V2AirBrakes)-X Vector3(_V3AirBrakesT), Y Vector2(_V2AirBrakes)-Y Vector3(_V3AirBrakesT), 0.0), MemBlock Float(12, _SHP_ABYAWTENSION) * ElapsedTime#)
    MultiplyVectorBAndAddToVectorA(_V3AirBrakesFlapsT, _V3AirBrakesFlapsT, SetVector3(_V3Temp2, X Vector2(_V2AirBrakesFlaps)-X Vector3(_V3AirBrakesFlapsT), Y Vector2(_V2AirBrakesFlaps)-Y Vector3(_V3AirBrakesFlapsT), 0.0), MemBlock Float(12, _SHP_ABFLAPSTENSION) * ElapsedTime#)

    AirBrakesFlapsSpeed# = (Y Vector3(_V3AirBrakesFlapsT) + X Vector3(_V3AirBrakesFlapsT))

Rem * Final Yaw Speed *
    FinalYawSpeed# = YawSpeed# * ((1.0 - EnginePower#) * MemBlock Float(12, _SHP_YAWSPEEDMAX) + EnginePower# * MemBlock Float(12, _SHP_YAWSPEEDMAXFP))
    ABExtraYawSpeed# = (1.0 - Abs(YawSpeed#)) * MemBlock Float(12, _SHP_ABYAWEXTYAWSPDMIN) + Abs(YawSpeed#) * MemBlock Float(12, _SHP_ABYAWEXTYAWSPDMAX)
    AirBrakesYS# = (Sqrt(Y Vector3(_V3AirBrakesT)) - Sqrt(X Vector3(_V3AirBrakesT))) * EnginePower#
    FinalYawSpeed# = FinalYawSpeed# + AirBrakesYS# * ABExtraYawSpeed#

Rem * Track Surface / In The Air *
    Set Vector3 _V3HPTangent, Get Matrix4 Element(_MShipRot, 8), Get Matrix4 Element(_MShipRot, 9), Get Matrix4 Element(_MShipRot, 10)
    wgi = ((Int(X Vector3(_VShipPos)/16.0) - ((X Vector3(_VShipPos)/16.0) < 0.0)) * 0x8da6b343 + (Int(Y Vector3(_VShipPos)/16.0) - ((Y Vector3(_VShipPos)/16.0) < 0.0)) * 0xd8163841 + (Int(Z Vector3(_VShipPos)/16.0) - ((Z Vector3(_VShipPos)/16.0) < 0.0)) * 0xcb1ab31f) Mod 4096
    wgi = (wgi >= 0) * wgi + (wgi < 0) * (wgi+4096)

    QuadInfo = 0
    Inside = 0
    Entry = MemBlock Word(3, wgi*2)
    If Entry
    For i = 0 To 1
        Quad = MemBlock Word(4, Entry*4) * 64
        NextEntry = MemBlock Word(4, Entry*4+2)

        Subtract Vector3 _V3HPPoint, SetVector3FromMemBlock(_V3HPPoint, 1, MemBlock Word(2, Quad+26)), _VShipPos

        If Squared Length Vector3(_V3HPPoint) <= MemBlock Float(2, Quad+28)   
            Subtract Vector3 _V3HPPoint, _VShipPos, SetVector3FromMemBlock(_V3HPPoint, 1, MemBlock Word(2, Quad+20))

            Set Vector2 _V2TL, MemBlock Float(2, Quad+32), MemBlock Float(2, Quad+36)
            Set Vector2 _V2Pt, Dot Product Vector3(_V3HPPoint, SetVector3FromMemBlock(_V3HPNormal, 1, MemBlock Word(2, Quad+22)))-X Vector2(_V2TL), Dot Product Vector3(_V3HPPoint, SetVector3FromMemBlock(_V3Temp, 1, MemBlock Word(2, Quad+24)))-Y Vector2(_V2TL)
            Set Vector2 _V2TR, MemBlock Float(2, Quad+40)-X Vector2(_V2TL), MemBlock Float(2, Quad+44)-Y Vector2(_V2TL)
            Set Vector2 _V2BR, MemBlock Float(2, Quad+48)-X Vector2(_V2TL), MemBlock Float(2, Quad+52)-Y Vector2(_V2TL)
            Set Vector2 _V2BL, MemBlock Float(2, Quad+56)-X Vector2(_V2TL), MemBlock Float(2, Quad+60)-Y Vector2(_V2TL)

            Ax2# = (X Vector2(_V2BL)*(Y Vector2(_V2BR)-Y Vector2(_V2TR)) - Y Vector2(_V2BL)*(X Vector2(_V2BR)-X Vector2(_V2TR))) * 2.0
            Ax2# = SelectVal(Abs(Ax2#) < 0.03125, Ax2#, 0.03125)
            B# = X Vector2(_V2BL)*Y Vector2(_V2TR) - Y Vector2(_V2BL)*X Vector2(_V2TR) + X Vector2(_V2Pt)*(Y Vector2(_V2BL)-Y Vector2(_V2BR)+Y Vector2(_V2TR)) - Y Vector2(_V2Pt)*(X Vector2(_V2BL)-X Vector2(_V2BR)+X Vector2(_V2TR))
            t# = (Sqrt(B# * B# - 2.0 * Ax2# * (Y Vector2(_V2Pt)*X Vector2(_V2TR) - X Vector2(_V2Pt)*Y Vector2(_V2TR))) - B#) / Ax2#
            Set Vector2 _V2uv, X Vector2(_V2BL)*t#, Y Vector2(_V2BL)*t#
            Subtract Vector2 _V2TL, _V2Pt, _V2uv
            Linear Interpolate Vector2 _V2Pt, _V2TR, _V2BR, t#
            Subtract Vector2 _V2Pt, _V2Pt, _V2uv
            Set Vector2 _V2uv, Length Vector2(_V2TL) / Length Vector2(_V2Pt) * (((Dot Product Vector2(_V2Pt, _V2TL) >= 0.0)*2-1)*1.0), t#

            Inside = ((X Vector2(_V2uv)>=-0.005) And (Y Vector2(_V2uv)>=-0.005) And (X Vector2(_V2uv)<=1.005) And (Y Vector2(_V2uv)<=1.005))
        EndIf
        i = (NextEntry = 0) Or Inside
        Entry = NextEntry
    Next i
    EndIf

    If Inside
        Normalize Vector3 _V3HPNormal, LinearInterpolateVector3(_V3HPNormal, LinearInterpolateVector3(_V3Temp,  SetVector3FromMemBlock(_VTL3, 1, MemBlock Word(2, Quad+12)), SetVector3FromMemBlock(_VBL3, 1, MemBlock Word(2, Quad+18)), Y Vector2(_V2uv)), LinearInterpolateVector3(_V3Temp2, SetVector3FromMemBlock(_VTR3, 1, MemBlock Word(2, Quad+14)), SetVector3FromMemBlock(_VBR3, 1, MemBlock Word(2, Quad+16)), Y Vector2(_V2uv)), X Vector2(_V2uv))
        Linear Interpolate Vector3 _V3HPPoint, LinearInterpolateVector3(_V3Temp,  SetVector3FromMemBlock(_VTL3, 1, MemBlock Word(2, Quad+4)), SetVector3FromMemBlock(_VBL3, 1, MemBlock Word(2, Quad+10)), Y Vector2(_V2uv)), LinearInterpolateVector3(_V3Temp2, SetVector3FromMemBlock(_VTR3, 1, MemBlock Word(2, Quad+6)), SetVector3FromMemBlock(_VBR3, 1, MemBlock Word(2, Quad+ 8)), Y Vector2(_V2uv)), X Vector2(_V2uv)
        SetVector3FromMemBlock(_V3HPTangent, 1, MemBlock Word(2, Quad+24))

        QuadInfo = MemBlock DWord(2, Quad)
    Else
        Set Vector3 _V3HPPoint, X Vector3(_VShipPos), 3.5, Z Vector3(_VShipPos)
        Set Vector3 _V3HPNormal, 0.0, 1.0, 0.0
    EndIf
    TempText(SpaceKey(), 0, 30, Str$(Quad/64))

    Flags = Flags || (((QuadInfo && 0x80000000) <> 0) * 0x2000)

    HeightFromSurface# = Dot Product Vector3(SetVector3(_V3Temp, X Vector3(_VShipPos)-X Vector3(_V3HPPoint), Y Vector3(_VShipPos)-Y Vector3(_V3HPPoint), Z Vector3(_VShipPos)-Z Vector3(_V3HPPoint)), _V3HPNormal)

Rem * Gravity *
    MultiplyVectorBAndAddToVectorA(_V3Gravity, _V3Gravity, SetVector3(_V3Temp, X Vector3(_V3HPNormal), Y Vector3(_V3HPNormal)-1.0, Z Vector3(_V3HPNormal)), ElapsedTime#*(3.5+3.5*(HoveringState <> 20))*Abs(Dot Product Vector3(_V3Temp, SetVector3(_V3Temp2, Get Matrix4 Element(_MShipRot, 8), Get Matrix4 Element(_MShipRot, 9), Get Matrix4 Element(_MShipRot, 10)))))

Rem * Dynamic Friction *
    MultiplyVectorBAndAddToVectorA(_V3Gravity, _V3Gravity, SetVector3(_V3Temp, X Vector3(_V3Gravity), Y Vector3(_V3Gravity), Z Vector3(_V3Gravity)), -0.25 * ElapsedTime#)

Rem * Set To Free Fall Hovering State *
    HoveringState = HoveringState * ((HeightFromSurface# < 2.0) Or (HoveringState = 2))

Rem * Set To Mag Hovering State * 
    HoveringState = (((Flags && 0x2000) = 0))*HoveringState + ((Flags && 0x2000) <> 0)*20

Rem * Speed Loss When Falling *
    ViscosityFactor# = ViscosityFactor# + SelectVal(HeightFromSurface# >= 2.0, -1.0, 1.0) * ElapsedTime#
    ViscosityFactor# = SelectVal(ViscosityFactor# > 1.0, SelectVal(ViscosityFactor# < 0.0, ViscosityFactor#, 0.0), 1.0)

Rem * Speed Boost Decrease *
    ExtraBoost# = ExtraBoost# - 0.8 * ElapsedTime#
    ExtraBoost# = SelectVal(ExtraBoost# < 0.0, ExtraBoost#, 0.0)

Rem * Hovering *
    NextHoveringState = HoveringState

Rem * Hovering : Free Fall *
    NormalVel# = NormalVel# - 18.0 * ElapsedTime# * (HoveringState = 0)
    NextHoveringState = (HoveringState <> 0) * NextHoveringState + (HoveringState = 0) * ((HeightFromSurface# >= 2.0) * NextHoveringState + (HeightFromSurface# < 2.0) * ((NormalVel# < -20.0) * 30 + (NormalVel# >= -20.0)))

Rem * Hovering : Soft Landing *
    BounceTimer# = BounceTimer# * (HoveringState <> 1)
    NormalVel# = SelectVal(HoveringState = 1, NormalVel#, -2.0 * (1.0 - HeightFromSurface# * 0.5) - 20.0 * HeightFromSurface# * 0.5)
    NextHoveringState =  (HoveringState <> 1) * NextHoveringState + ((HoveringState = 1) And (HeightFromSurface# < 0.0)) * 10

Rem * Hovering : Jumping *
    NextHoveringState = NextHoveringState * ((HoveringState <> 2) Or (JumpTresholdVelocity# >= 0.0))
    Flags = Flags || 0x8000 * ((HoveringState = 2) And (JumpTresholdVelocity# >= 0.0))

Rem * Hovering : Standard Surface *
    If HoveringState = 10
        JumpTresholdVelocity# = (VerticalVelocity# < JumpTresholdVelocity#) * JumpTresholdVelocity# + (VerticalVelocity# >= JumpTresholdVelocity#) * VerticalVelocity#
        NextHoveringState = (VerticalVelocity# >= JumpTresholdVelocity#) * NextHoveringState + (VerticalVelocity# < JumpTresholdVelocity#) * 2
        NormalVel# =  SelectVal(HeightFromSurface# < -1.0, SelectVal(HeightFromSurface# < -0.2, SelectVal(HeightFromSurface# > 0.2, 0.0, -1.0), 1.0), ((-1.0-HeightFromSurface#) / ElapsedTime#))
    EndIf

Rem * Hovering : Mag Surface *
    NormalVel# = (HoveringState <> 20) * NormalVel# + (HoveringState = 20) * ((0.0 - HeightFromSurface#) / ElapsedTime#)
    NextHoveringState = NextHoveringState * ((HoveringState <> 20) Or ((Flags && 0x2000) <> 0))

Rem * Hovering : Surface Collide Descent *
    BounceTimer# = BounceTimer# * (HoveringState <> 30)
    NextHoveringState = ((HoveringState <> 30) Or (HeightFromSurface# >= -2.20)) * NextHoveringState + ((HoveringState = 30) And (HeightFromSurface# < -2.20)) * 31

Rem * Hovering : Surface Collide Ascent *
    If HoveringState = 31
        Set Vector3 _V3Gravity, 0.0, 0.0, 0.0
        NormalVel# = (-2.20*(1.0-Sin(BounceTimer#*200.0))-HeightFromSurface#) / ElapsedTime#
        BounceTimer# = BounceTimer# + ElapsedTime#
        NextHoveringState = SelectVal(BounceTimer#*200.0 >= 90.0, NextHoveringState, 10)
rem *Collide = 1
        Flags = Flags || 0x4000
    EndIf

    HoveringState = NextHoveringState

Rem * Buoyancy *
    Set Vector3 _V3Osc, -(0.3-0.1*EnginePower#)*Sin(Y Vector3(_V3Osc)*50.0), WrapValue(Y Vector3(_V3Osc) + ElapsedTime#), ClampValue(Z Vector3(_V3Osc) + SelectVal(HoveringState = 10, -0.6, 0.6) * ElapsedTime#)

Rem * Perform Yaw *
    Build Rotation Axis Matrix4 _MTemp, SetVector3(_V3Temp, Get Matrix4 Element(_MShipRot, 4), Get Matrix4 Element(_MShipRot, 5), Get Matrix4 Element(_MShipRot, 6)), FinalYawSpeed# * ElapsedTime# * 0.01745329252
    Multiply Matrix4 _MShipRot, _MShipRot, _MTemp

Rem * Blend Direct Thrust & Inertia Move *
    SetVector3(_V3Thrust, Get Matrix4 Element(_MShipRot, 8), Get Matrix4 Element(_MShipRot, 9), Get Matrix4 Element(_MShipRot, 10))
    Multiply Vector3 _V3Thrust, ((EnginePowerT#-0.40*EnginePowerT#*ViscosityFactor#) * (1.0+ExtraBoost#*1.5*Dot Product Vector3(_V3Thrust, _V3BoostDirection))) * MaxSpeed#
    Linear Interpolate Vector3 _V3Thrust, _V3Thrust, _V3Inertia, (1.0 - AirBrakesFlapsSpeed#) * 0.10 + AirBrakesFlapsSpeed# * 0.45

Rem * Jumping *
    Set Vector3 _V3Thrust, X Vector3(_V3Thrust), ((Flags && 0x8000) = 0) * Y Vector3(_V3Thrust) + ((Flags && 0x8000) <> 0) * JumpTresholdVelocity#, Z Vector3(_V3Thrust)
    JumpTresholdVelocity# = JumpTresholdVelocity# - 36.0 * ElapsedTime#
    VerticalVelocity# = Dot Product Vector3(SetVector3(_V3Temp, 0.0, 1.0, 0.0), _V3Thrust)

Rem * Move Object *
    NV# = Dot Product Vector3(_V3Thrust, _V3HPNormal)
    MultiplyVectorBAndAddToVectorA(_V3Temp, _V3Thrust, SetVector3(_V3Temp2, X Vector3(_V3HPNormal), Y Vector3(_V3HPNormal), Z Vector3(_V3HPNormal)), -(NV# * (NV# < 0.0))*((HoveringState <> 0) And (HoveringState <> 2)))
    MultiplyVectorBAndAddToVectorA(_V3Temp, _V3Temp, SetVector3(_V3NormalVelocity, X Vector3(_V3HPNormal), Y Vector3(_V3HPNormal), Z Vector3(_V3HPNormal)), NormalVel#)
    MultiplyVectorBAndAddToVectorA(_VShipPos, _VShipPos, SetVector3(_V3Temp2, X Vector3(_V3Temp) + X Vector3(_V3Gravity), Y Vector3(_V3Temp) + Y Vector3(_V3Gravity), Z Vector3(_V3Temp) + Z Vector3(_V3Gravity)), ElapsedTime#)

Rem * Height Limit *
    HeightFromSurface2# = Dot Product Vector3(SetVector3(_V3Temp, X Vector3(_VShipPos)-X Vector3(_V3HPPoint), Y Vector3(_VShipPos)-Y Vector3(_V3HPPoint), Z Vector3(_VShipPos)-Z Vector3(_V3HPPoint)), _V3HPNormal)
    MultiplyVectorBAndAddToVectorA(_VShipPos, _VShipPos, SetVector3(_V3Temp, X Vector3(_V3HPNormal), Y Vector3(_V3HPNormal), Z Vector3(_V3HPNormal)), (-1.0-HeightFromSurface2#) * (HeightFromSurface2# < -1.0) * (HoveringState < 20))

Rem * New Rotation *
    Copy Vector3 SelectVal(HoveringState = 20 Or (HeightFromSurface# < -10.0), _V3TargetNormal, _V3Normal), _V3HPNormal
    If (HoveringState <> 20) And (HeightFromSurface# >= -10.0)
        If HoveringState = 0
            Add Vector3 _V3Temp, SetVector3(_V3Temp2, 0.0, -0.001, 0.0), SetVector3(_V3Temp, X Vector3(_VShipPos)-X Vector3(_V3PreviousPos), Y Vector3(_VShipPos)-Y Vector3(_V3PreviousPos), Z Vector3(_VShipPos)-Z Vector3(_V3PreviousPos))
            Cross Product Vector3 _V3TargetNormal, _V3Temp, SetVector3(_V3Temp2, Get Matrix4 Element(_MShipRot, 0), Get Matrix4 Element(_MShipRot, 1), Get Matrix4 Element(_MShipRot, 2))
            Normalize Vector3 _V3TargetNormal, _V3TargetNormal
        EndIf
        Normalize Vector3 _V3Normal, LinearInterpolateVector3(_V3Normal, SetVector3(_V3Normal, Get Matrix4 Element(_MShipRot, 4), Get Matrix4 Element(_MShipRot, 5), Get Matrix4 Element(_MShipRot, 6)), _V3TargetNormal, 0.99*ElapsedTime#)
    EndIf
    Cross Product Vector3 _V3Temp, _V3Normal, SetVector3(_V3Temp, Get Matrix4 Element(_MShipRot, 8), Get Matrix4 Element(_MShipRot, 9), Get Matrix4 Element(_MShipRot, 10))
    Cross Product Vector3 _V3Temp, _V3Temp, _V3Normal
    Build LookAt LHMatrix4 _MTemp, SetVector3(_V3Temp2, 0.0, 0.0, 0.0), _V3Temp, _V3Normal
    Transpose Matrix4 _MShipRot, _MTemp

Rem * Collision with walls and cage *
    For cp = 0 To 15
        Transform Normals Vector3 _V3Temp, SetVector3(_V3Temp, Memblock Float(12, (cp*16))*Cos(Roll#), Memblock Float(12, (cp*16)+4), Memblock Float(12, (cp*16)+8)), _MShipRot
        Add Vector3 _V3Temp2, _VShipPos, _V3Temp
    
        cpwgi = ((Int(X Vector3(_V3Temp2)/16.0) - ((X Vector3(_V3Temp2)/16.0) < 0.0)) * 0x8da6b343 + (Int(Y Vector3(_V3Temp2)/16.0) - ((Y Vector3(_V3Temp2)/16.0) < 0.0)) * 0xd8163841 + (Int(Z Vector3(_V3Temp2)/16.0) - ((Z Vector3(_V3Temp2)/16.0) < 0.0)) * 0xcb1ab31f) Mod 4096
        cpwgi = (cpwgi >= 0) * cpwgi + (cpwgi < 0) * (cpwgi+4096)
    
        Pit = 0
        Entry = MemBlock Word(7, cpwgi*2)
        If Entry
    
        For i = 0 To 1
            Wall =    MemBlock Word(8, Entry*4) * 24
            NextEntry = MemBlock Word(8, Entry*4+2)
    
            Subtract Vector3 _V3Temp, _V3Temp2, SetVector3FromMemBlock(_VTL3, 5, MemBlock Word(6, Wall+2))
            Dist# = Dot Product Vector3(_V3Temp, SetVector3(_VBL3, Memblock Float(6, Wall+8), Memblock Float(6, Wall+12), Memblock Float(6, Wall+16)))
    
            If Dist# < 0.0
                Subtract Vector3 _VTR3, SetVector3FromMemBlock(_VTR3, 5, MemBlock Word(6, Wall+4)), _VTL3
                Subtract Vector3 _VBR3, SetVector3FromMemBlock(_VBR3, 5, MemBlock Word(6, Wall+6)), _VTL3
                DP01# = Dot Product Vector3(_VTR3, _VBR3)
                DP12# = Dot Product Vector3(_VBR3, _V3Temp)
                DP02# = Dot Product Vector3(_VTR3, _V3Temp)
    
                u# = (Dot Product Vector3(_VBR3, _VBR3) * DP02# - DP01# * DP12#) * Memblock Float(6, Wall+20)
                If (u# >= 0.0)
                    v# = (Dot Product Vector3(_VTR3, _VTR3) * DP12# - DP01# * DP02#) * Memblock Float(6, Wall+20)
                    If (v# >= 0.0) And ((u# + v#) =< 1.0)
Rem - Collision response -
                        Pit = MultiplyVectorBAndAddToVectorA(_VShipPos, _VShipPos, SetVector3(_V3Temp, X Vector3(_VBL3), Y Vector3(_VBL3), Z Vector3(_VBL3)), -Dist#)
                        MultiplyVectorBAndAddToVectorA(_VShipPos, _VShipPos, SetVector3(_V3Normal, X Vector3(_V3HPNormal), Y Vector3(_V3HPNormal), Z Vector3(_V3HPNormal)), -Dot Product Vector3(_V3Temp, _V3HPNormal)*(Abs(Dot Product Vector3(_VBL3, _V3HPNormal)) < 0.707))

Rem - Collision aftermath -
                        If MemBlock Word(6, Wall) = 1
                            EnginePowerT# = ClampValue(EnginePowerT# - (1.0/16.0) * Speed# * ElapsedTime#)
                            EnginePower# = ClampValue(EnginePower# - (1.0/16.0) * Speed# * ElapsedTime#)

                            PreviousEnginePowerT# = EnginePowerT#
                            Multiply Vector3 _V3Inertia, 0.95*ElapsedTime#
                            Multiply Vector3 _VBL3, Speed#*0.25*ElapsedTime#
                            Add Vector3 _V3Gravity, _VBL3, _V3Gravity
                            rem *Collide = 1
                            Flags = Flags || 0x4000

                            Perfect = 0
                        EndIf
                    EndIf
                EndIf
            EndIf
            i = (NextEntry = 0) Or Pit
            Entry = NextEntry
        Next i
        EndIf
    Next cp

Rem * Level Objects *
    wgi = ((Int(X Vector3(_VShipPos)/16.0) - ((X Vector3(_VShipPos)/16.0) < 0.0)) * 0x8da6b343 + (Int(Y Vector3(_VShipPos)/16.0) - ((Y Vector3(_VShipPos)/16.0) < 0.0)) * 0xd8163841 + (Int(Z Vector3(_VShipPos)/16.0) - ((Z Vector3(_VShipPos)/16.0) < 0.0)) * 0xcb1ab31f) Mod 4096
    wgi = (wgi >= 0) * wgi + (wgi < 0) * (wgi+4096)

    NewLapCountState = 0
    Entry = MemBlock Word(10, wgi*2)
    If Entry
    For i = 0 To 1
        LvlObj =    MemBlock Word(11, Entry*4) * 56
        NextEntry = MemBlock Word(11, Entry*4+2)

        Cross Product Vector3 _V3Normal, SetVector3(_V3Temp2, MemBlock Float(9, LvlObj+28), MemBlock Float(9, LvlObj+32), MemBlock Float(9, LvlObj+36)), SetVector3(_V3Temp,  MemBlock Float(9, LvlObj+16), MemBlock Float(9, LvlObj+20), MemBlock Float(9, LvlObj+24))
        Build LookAt LHMatrix4 _MTemp, SetVector3(_V3Temp, 0.0, 0.0, 0.0), _V3Temp2, _V3Normal
        Transform Normals Vector3 _V3Temp, SetVector3(_V3Temp, X Vector3(_VShipPos)-MemBlock Float(9, LvlObj+4), Y Vector3(_VShipPos)-MemBlock Float(9, LvlObj+8), Z Vector3(_VShipPos)-MemBlock Float(9, LvlObj+12)), _MTemp

Rem * Level Objects : StartBox = Lap count *
        If LvlObj = 56
            If (X Vector3(_V3Temp) >= -30.0) And (X Vector3(_V3Temp) <= 30.0) And (Y Vector3(_V3Temp) >= -7.5) And (Y Vector3(_V3Temp) <= 7.5) And (Z Vector3(_V3Temp) >= -10.0) And (Z Vector3(_V3Temp) < 0.0)
                NewLapCountState = -1
                If LapCountState = 1 Then Dec LapCount
            EndIf
            If (X Vector3(_V3Temp) >= -30.0) And (X Vector3(_V3Temp) <= 30.0) And (Y Vector3(_V3Temp) >= -7.5) And (Y Vector3(_V3Temp) <= 7.5) And (Z Vector3(_V3Temp) >= 0.0) And (Z Vector3(_V3Temp) <= 10.0)
                NewLapCountState = 1
                If LapCountState = -1 Then Inc LapCount
                If LapCount > CurrentLap
                    LapTime(CurrentLap, 0) = Timer()
                    LapTime(CurrentLap, 1) = Perfect
                    CurrentLap = LapCount
                    Perfect = 1
                EndIf
            EndIf
        EndIf

Rem * Level Objects : Speed Pads *
        If MemBlock DWord(9, LvlObj) = 1
            If (X Vector3(_V3Temp) >= -5.0) And (X Vector3(_V3Temp) <= 5.0) And (Y Vector3(_V3Temp) >= -2.0) And (Y Vector3(_V3Temp) <= 4.0) And (Z Vector3(_V3Temp) >= -5.0) And (Z Vector3(_V3Temp) <= 5.0)
                Copy Vector3 _V3BoostDirection, _V3Temp2
                ExtraBoost# = ClampValue(ExtraBoost# + 8.0 * ElapsedTime#)
            EndIf
        EndIf
        i = (NextEntry = 0)
        Entry = NextEntry
    Next i
    EndIf
    LapCountState = NewLapCountState
    GameState = (LapCount <= MaxLap) * GameState + (LapCount > MaxLap) * 2

Rem * Trail Fading *
    Set Alpha Mapping On 3, EnginePower# * 100.0

Rem * Race Timing *
    RaceTimer = Timer() - StartRaceTimer

Rem * Cannon Start : End *
    rem    If (Timer() - StartRaceTimer) > 1200 Then CannonStart = 0
    CannonStart = CannonStart * ((Timer() - StartRaceTimer) < 1200)

Rem * Temporary Texts *
    TempText(Dot Product Vector3(SetVector3(_V3Temp, Get Matrix4 Element(_MShipRot, 8), Get Matrix4 Element(_MShipRot, 9), Get Matrix4 Element(_MShipRot, 10)), _V3HPTangent) < 0.0, 350, 292, "WRONG WAY")
    TempText(((Timer() - LapTime(CurrentLap-1, 0)) < 3000) And LapTime(CurrentLap-1, 1), 350, 292, "Perfect Lap !")
    TempText((Timer() - StartRaceTimer) < 2000, 390, 292, "GO!")
EndIf

Rem *********************************************************************************************************

If GameState = 0
    DisableCannonStart = DisableCannonStart || (((Timer() - StartRaceTimer) > 2000) And ((Timer() - StartRaceTimer) < 2500) And (EnginePower# > 0.0))

    If (Timer() - StartRaceTimer) > 3000
        GameState = 1
        StartRaceTimer = Timer()
        LapTime(0, 0) = StartRaceTimer

        CannonStart = (EnginePower# <> 0.0) * (DisableCannonStart <> 1)

        EnginePower# = 0.0
        EnginePowerT# = 0.0
        PreviousEnginePowerT# = 0.0
    EndIf

Rem * Osc *
    Set Vector3 _V3Osc, -(0.3)*Sin(Y Vector3(_V3Osc)*50.0), WrapValue(Y Vector3(_V3Osc) + ElapsedTime#), 1.0

    Text 394, 292, Str$(3 - (Timer() - StartRaceTimer) / 1000)
EndIf


Rem *********************************************************************************************************

Rem * Update Ship *
    MultiplyVectorBAndAddToVectorA(_VShipPos2, _VShipPos, SetVector3(_V3Normal, Get Matrix4 Element(_MShipRot, 4), Get Matrix4 Element(_MShipRot, 5), Get Matrix4 Element(_MShipRot, 6)), X Vector3(_V3Osc)*Z Vector3(_V3Osc))
    Position Object 1, X Vector3(_VShipPos2), Y Vector3(_VShipPos2), Z Vector3(_VShipPos2)
    set point light 0,X Vector3(_VShipPos2), Y Vector3(_VShipPos2)+50.0, Z Vector3(_VShipPos2)

    AX# = AtanFull(Get Matrix4 Element(_MShipRot,  6), Get Matrix4 Element(_MShipRot, 10))
    sx# = Sin(Ax#)
    cx# = Cos(Ax#)
    Set Vector3 _V3ShipRot, AX#, AtanFull(-Get Matrix4 Element(_MShipRot, 2), SelectVal(Abs(sx#) > Abs(cx#), Get Matrix4 Element(_MShipRot, 10), Get Matrix4 Element(_MShipRot, 6)) / SelectVal(Abs(sx#) > Abs(cx#), cx#, sx#)), AtanFull(-cx# * Get Matrix4 Element(_MShipRot, 4) + sx# * Get Matrix4 Element(_MShipRot, 8), cx# * Get Matrix4 Element(_MShipRot, 5) - sx# * Get Matrix4 Element(_MShipRot, 9))
    Rotate Object 1, X Vector3(_V3ShipRot), Y Vector3(_V3ShipRot), Z Vector3(_V3ShipRot)

Rem * Update Object : Roll *
    Roll# = (Sqrt(X Vector3(_V3YawSpeedTT)) - Sqrt(Y Vector3(_V3YawSpeedTT))) * 30.0 + (X Vector2(_V2AirBrakesFlaps)-Y Vector2(_V2AirBrakesFlaps)) * 15.0
    Roll Object Left 1, Roll#

Rem * Update Trail *
    Position Object 3, X Vector3(_VShipPos2), Y Vector3(_VShipPos2), Z Vector3(_VShipPos2)
    Rotate Object 3,  X Vector3(_V3ShipRot), Y Vector3(_V3ShipRot), Z Vector3(_V3ShipRot)
    Roll Object Left 3, Roll#
    
Rem * Get Velocity & Speed *
    Divide Vector3 SetVector3(_V3Temp, X Vector3(_VShipPos)-X Vector3( _V3PreviousPos), Y Vector3(_VShipPos)-Y Vector3( _V3PreviousPos), Z Vector3(_VShipPos)-Z Vector3( _V3PreviousPos)), ElapsedTime#
    Speed# = Length Vector3(_V3Temp)
    Copy Vector3 _V3PreviousPos, _VShipPos

Rem * Scroll Trail *
    Scroll Object texture 3, 0, tv#
    tv# = WrapValue((tv#+1.0* ElapsedTime#)*360.0) / 360.0

Rem * Update Camera *
    Rotate Camera MainCamera, X Vector3(_V3ShipRot), Y Vector3(_V3ShipRot), Z Vector3(_V3ShipRot)

    If (CamMode && 1) = 0
        Transform Normals Vector3 _V3Temp, SetVector3(_V3Temp, (YawSpeed#)* 1.0+(Sqrt(Y Vector3(_V3AirBrakesT)) - Sqrt(X Vector3(_V3AirBrakesT)))*2.5, 3.0+SelectVal(HeightFromSurface# < 0.3, 0.0, 0.3-HeightFromSurface#), -14.0-(TanAccel#*2.0+ExtraBoost#)*(GameState <> 0)), _MShipRot
        Set Vector3 _VCamPos, X Vector3(_VShipPos)+X Vector3(_V3Temp), Y Vector3(_VShipPos)+Y Vector3(_V3Temp), Z Vector3(_VShipPos)+Z Vector3(_V3Temp)
        Position Camera MainCamera, X Vector3(_VCamPos), Y Vector3(_VCamPos), Z Vector3(_VCamPos)
        Pitch Camera Down MainCamera, (HoveringState <> 20) * Dot Product Vector3(SetVector3(_V3Temp, 0.0, 1.0, 0.0), SetVector3(_V3Temp2, Get Matrix4 Element(_MShipRot, 8), Get Matrix4 Element(_MShipRot, 9), Get Matrix4 Element(_MShipRot, 10))) * 10.0
    Else
        Transform Normals Vector3 _V3Temp, SetVector3(_V3Temp, 0.0, 0.75, 0.5), _MShipRot
        Add Vector3 _VCamPos, _VShipPos2, _V3Temp
        Position Camera MainCamera, X Vector3(_VCamPos), Y Vector3(_VCamPos), Z Vector3(_VCamPos)
        Roll Camera Left MainCamera, Roll#
    EndIf

Rem * Sky *
    Position Object 5, X Vector3(_VCamPos), Y Vector3(_VCamPos), Z Vector3(_VCamPos)

Rem * Sounds *
    Set Sound Speed 1, 13000.0 + 14000.0 * (EnginePower# + ExtraBoost#*0.5)
    If (Sound Playing(2) = 0) And ((Flags && 0x4000) <> 0)
        Play Sound 2
        Set Sound Speed 2, 20000+RND(4000)
    EndIf
   
Rem * HUD *
    Text 0, 0, "Race Time " + TimeString(RaceTimer) + "  Lap "+Str$((CurrentLap<=MaxLap)*CurrentLap + (CurrentLap>MaxLap)*MaxLap) + "/"+Str$(MaxLap)+"  Speed "+Str$(Int(Speed#*3.6))
    Text 0, Screen Height()-20, Str$(Screen FPS())

Rem * Render *
    For i = 1 To 5*EnableGlow
        Sync Mask 2^i
        FastSync
    Next i
    Sync Mask %1
    Sync

    Loop
End

Function ClampValue(Value#)
    Value# = Value# * (Value# >= 0.0)
    Value# = (Value# <= 1.0) * Value# + (Value# > 1.0)
EndFunction Value#

Function SelectVal(Value, Value1#, Value2#)
    SelectedValue# = Value1# * (1-Value) + Value2# * Value
EndFunction SelectedValue#

Function TempText(Condition, X, Y, TempText$)
    If Condition
        Text X, Y, TempText$
    EndIf
EndFunction

Function TimeString(MilliSeconds)
    RaceTimeMins = MilliSeconds / 60000
    RaceTimeSecs = (MilliSeconds-(RaceTimeMins*60000))/1000
    Hundredths = (MilliSeconds - RaceTimeMins*60000 - RaceTimeSecs*1000) / 10
    Result$ = Str$(RaceTimeMins)+":"+Str$(RaceTimeSecs)+"."+ Mid$("0", Hundredths<10)+Str$(Hundredths)
EndFunction Result$

Function LinearInterpolateVector3(ResultV3, VectorAV3, VectorBV3, s#)
    Linear Interpolate Vector3 ResultV3, VectorAV3, VectorBV3, s#
EndFunction ResultV3

Function SetVector3FromMemBlock(ResultV3, MemBlock, Index)
    Set Vector3 ResultV3, MemBlock Float(MemBlock, Index*12), MemBlock Float(MemBlock, Index*12+4), MemBlock Float(MemBlock, Index*12+8)
EndFunction ResultV3

Function SetVector3(ResultV3, X#, Y#, Z#)
    Set Vector3 ResultV3, X#, Y#, Z#
EndFunction ResultV3

Function MultiplyVectorBAndAddToVectorA(ResultV3, VectorAV3, VectorBV3, M#)
    Multiply Vector3 VectorBV3, M#
    Add Vector3 ResultV3, VectorAV3, VectorBV3
EndFunction ResultV3

CS_ENGACCEL# = 0.4
CS_ENGDECEL# = 0.2
CS_ENGTENSION# = 1.0
CS_YAWACCEL# = 1.8
CS_YAWACCELFP# = 1.55
CS_YAWDECEL# = 4.0
CS_YAWDECELFP# = 3.0

CS_YAWCURVE# = 0.3
CS_YAWSPEEDMAX# = 68.0
CS_YAWSPEEDMAXFP# = 58.0

CS_ABYAWACCEL# = 2.0
CS_ABYAWDECEL# = 8.0
CS_ABYAWTENSION# = 9.0
CS_ABFLAPSACCEL# = 2.0
CS_ABFLAPSDECEL# = 1.0
CS_ABFLAPSTENSION# = 5.0

CS_ABYAWEXTYAWSPDMIN# = 55.0
CS_ABYAWEXTYAWSPDMAX# = 45.0

CS_BRAKING# = 10.0



#Constant _SHP_ENGACCEL 256
#Constant _SHP_ENGDECEL 260
#Constant _SHP_ENGTENSION 264
#Constant _SHP_YAWACCEL 268
#Constant _SHP_YAWACCELFP 272
#Constant _SHP_YAWDECEL 276
#Constant _SHP_YAWDECELFP 280
#Constant _SHP_YAWCURVE 284
#Constant _SHP_YAWSPEEDMAX 288
#Constant _SHP_YAWSPEEDMAXFP 292
#Constant _SHP_ABYAWACCEL 296
#Constant _SHP_ABYAWDECEL 300
#Constant _SHP_ABYAWTENSION 304
#Constant _SHP_ABFLAPSACCEL 308
#Constant _SHP_ABFLAPSDECEL 312
#Constant _SHP_ABFLAPSTENSION 316
#Constant _SHP_ABYAWEXTYAWSPDMIN 320
#Constant _SHP_ABYAWEXTYAWSPDMAX 324
#Constant _SHP_BRAKING 328



Make MemBlock 12, 332


Rem Collision points

AN# = 2.40: AY# = -0.85
SetCP(0, -AN#, AY#, -1.125)
SetCP(1, -AN#, AY#,  1.15625)
SetCP(2, -AN#, AY#, 3.4375)
SetCP(3, -AN#, AY#, 5.71875)
SetCP(4, -AN#, AY#, 8)


SetCP(5,  AN#, AY#, -1.125)
SetCP(6,  AN#, AY#, 1.15625)
SetCP(7,  AN#, AY#, 3.4375)
SetCP(8,  AN#, AY#, 5.71875)
SetCP(9,  AN#, AY#, 8)

SetCP(10,-1.8, -0.6, 9)
SetCP(11, 1.8, -0.6, 9)

SetCP(12, 0.0, -0.6, 9)

SetCP(13, 0.0, 1.0, -0.2)
SetCP(14, 0.0, 0.0, -2.1)
SetCP(15, 0.0, -1.5, 0.0)




Write MemBlock Float 12, _SHP_ENGACCEL, CS_ENGACCEL#
Write MemBlock Float 12, _SHP_ENGDECEL, CS_ENGDECEL#
Write MemBlock Float 12, _SHP_ENGTENSION, CS_ENGTENSION#: rem kind of "spring" in acceleration curve
Write MemBlock Float 12, _SHP_YAWACCEL, CS_YAWACCEL#
Write MemBlock Float 12, _SHP_YAWACCELFP, CS_YAWACCELFP#
Write MemBlock Float 12, _SHP_YAWDECEL, CS_YAWDECEL#
Write MemBlock Float 12, _SHP_YAWDECELFP, CS_YAWDECELFP#
Write MemBlock Float 12, _SHP_YAWCURVE, CS_YAWCURVE#: rem 0.0:flat curve 1.0:squared curve
Write MemBlock Float 12, _SHP_YAWSPEEDMAX, CS_YAWSPEEDMAX#: rem in degrees/seconds, yaw speed at stop
Write MemBlock Float 12, _SHP_YAWSPEEDMAXFP, CS_YAWSPEEDMAXFP#: rem yaw speed at full engine power
Write MemBlock Float 12, _SHP_ABYAWACCEL, CS_ABYAWACCEL#
Write MemBlock Float 12, _SHP_ABYAWDECEL, CS_ABYAWDECEL#
Write MemBlock Float 12, _SHP_ABYAWTENSION, CS_ABYAWTENSION#
Write MemBlock Float 12, _SHP_ABFLAPSACCEL, CS_ABFLAPSACCEL#: rem Airbrake flaps : control of the "drifting"
Write MemBlock Float 12, _SHP_ABFLAPSDECEL, CS_ABFLAPSDECEL#
Write MemBlock Float 12, _SHP_ABFLAPSTENSION, CS_ABFLAPSTENSION#
Write MemBlock Float 12, _SHP_ABYAWEXTYAWSPDMIN, CS_ABYAWEXTYAWSPDMIN#
Write MemBlock Float 12, _SHP_ABYAWEXTYAWSPDMAX, CS_ABYAWEXTYAWSPDMAX#
Write MemBlock Float 12, _SHP_BRAKING, CS_BRAKING#


    Open To Write 1, "ShipSettings.bin"
    Write Memblock 1, 12
    Close File 1


end


`_____________________________________________________________________________________________________
Function SetCP(CP, X#, Y#, Z#)

    Write MemBlock Float 12, 16*CP+0, X#
    Write MemBlock Float 12, 16*CP+4, Y#
    Write MemBlock Float 12, 16*CP+8, Z#

EndFunction

...
Rem * Race Settings *
    MaxSpeed# = 230.0: rem in meters/seconds
    MaxLap = 4
...