{$CLEO .cs}
0000: NOP 
thread 'OWkers' 

:KERS_13
wait 0 
if 
   Player.Defined($PLAYER_CHAR)
else_jump @KERS_13 

0D42: load_txd "owscreen" from "cleo\\OWimg\\owscreen.txd"
wait 5000
0D44: 10@ = find_texture "owscreen" in_dictionary "owscreen"

//------------------

:KERS_33
wait 0 
if 
   Actor.DrivingVehicleType($PLAYER_ACTOR, #PRFOUR)
else_jump @KERS_33 

03C0: 0@ = actor $PLAYER_ACTOR car
7@ = 0
8@ = 0
$mynkya = 0
03C4: set_status_text_to $mynkya  1 (bar) 'OW_0001' // Its max 100 !!!
//  04F7: status_text $Pickup8 type 0 line 1 GXT 'OW_0001'

//------------------

:KERS_40
wait 0
if 
   Actor.DrivingVehicleType($PLAYER_ACTOR, #PRFOUR)
else_jump @KERS_553

02E3: 1@ = car 0@ speed
0092: 2@ = float 1@ to_integer
wait 0
if and
00E1:   player 0 pressed_key 14 // Breake
2@ > 18
else_jump @KERS_40

000A: 7@ += 1
0085: 8@ = 7@ // (int)
0012: 8@ *= 4
008A: $mynkya = 8@

wait 0
if
0029:   8@ >= 100
else_jump @KERS_40

//------------------

8@ = 100
03E5: show_text_box 'OW_0002' // Kers ready !!!
wait 3000
 
:KERS_50
wait 0 
if 
   Actor.DrivingVehicleType($PLAYER_ACTOR, #PRFOUR)
else_jump @KERS_553 

wait 0
if
00E1:   player 0 pressed_key 18 // Horn
else_jump @KERS_50 

//----------------------

7@ = 0
8@ = 0
$mynkya = 0

0D7E: draw_sprite_with_texture 10@ at_cornerA 20.0 10.0 cornerB 1004.0 758.0 color 255 255 255 255 angle 0.0

02E3: 1@ = car 0@ speed
1@ += 10.0
04BA: set_car 0@ speed_to 1@
wait 200

0D7E: draw_sprite_with_texture 10@ at_cornerA 20.0 10.0 cornerB 1004.0 758.0 color 255 255 255 255 angle 0.0

1@ += 10.0
04BA: set_car 0@ speed_to 1@
wait 200

0D7E: draw_sprite_with_texture 10@ at_cornerA 20.0 10.0 cornerB 1004.0 758.0 color 255 255 255 255 angle 0.0

1@ += 10.0
04BA: set_car 0@ speed_to 1@
wait 200

0D7E: draw_sprite_with_texture 10@ at_cornerA 20.0 10.0 cornerB 1004.0 758.0 color 255 255 255 255 angle 0.0

jump @KERS_40

//----------------------

:KERS_553
0151: remove_status_text $mynkya
Car.RemoveReferences(0@)
jump @KERS_33 

0A93: end_custom_thread 