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

:SR_start
wait 0
if
Actor.DrivingVehicleType($PLAYER_ACTOR, #RUMPO)
jf @SR_start
03C0: 0@ = actor $PLAYER_ACTOR car

095F: get_car 0@ door 5 angle_to 12@ 
wait 0
if 
   not 12@ == 0.0 
else_jump @SR_start

:SR_open_enter1
095F: get_car 0@ door 5 angle_to 12@ 
12@ *= 10
0085: 13@ = 12@ // (int)
wait 0
if 
   13@ > 8 
else_jump @SR_open_enter1
073C: car 0@ damage_component 5

:SR_open_enter2
095F: get_car 0@ door 5 angle_to 12@ 
wait 0
if 
   0.8 > 12@
else_jump @SR_open_enter2

:SR_open_enter3
095F: get_car 0@ door 5 angle_to 12@ 
wait 0
if 
   12@ == 0.0 
else_jump @SR_open_enter3
068A: set_car 0@ repair_componentA 5 
jump @SR_start

0A93: end_custom_thread