CLEO Speed check Script

{$CLEO .cs}

const
   PLAYER_CAR = 0@
   CAR_SPEED  = 1@
end

0000:

:Start
while true
   wait 250
   if
       Actor.Driving($PLAYER_ACTOR)
   then
       03C0: PLAYER_CAR = actor $PLAYER_ACTOR car
       break
   end
end

while true
   wait 0
   if and
       01C1:   car PLAYER_CAR stopped
       00E1: player 0 pressed_key 10
   then
       3@ = 60.0
       jump @Timer
   else
        if and
            01C1: car PLAYER_CAR stopped
            00E1: player 0 pressed_key 11
        then
            3@ = 120.0
            jump @Timer
        else jump @Start
        end
   end

:Timer
       32@ = 0
       repeat
	       wait 0
           32@ = 0
           if
               Actor.Driving($PLAYER_ACTOR)
           then
               02E3: CAR_SPEED = car PLAYER_CAR speed
               0513: show_text_box_1number "NUMBER" number 0  // ~1~
           else
               jump @Start
           end
       until CAR_SPEED > 0.0

       repeat
           wait 0
           if
               Actor.Driving($PLAYER_ACTOR)
           then
               02E3: CAR_SPEED = car PLAYER_CAR speed
               CAR_SPEED *= 2.356

               0092: 2@ = float CAR_SPEED to_integer
               0513: show_text_box_1number "NUMBER" number 2@  // ~1~
           else
               jump @Start
           end
       until  0031: CAR_SPEED >= 3@
       0513: show_text_box_1number "NUMBER" number 32@  // ~1~
       wait 3000
       03E6: remove_text_box
       jump @Start

end