add this line to carcols.dat :
34,139,34			# 127 green sabre			green


004F: create_thread SNAKESABRE00

:SNAKESABRE00
0001: wait  0 ms
00D6: if  2
00FE:   actor $PLAYER_ACTOR  0 ()near_point  2471.7 -1668.0  12.3 radius  90.0  40.0  4.0
0038:   $802 ==  1  ;; integer values
0038:   $SGSON ==  0 ;; choppers
004D: jump_if_false SNAKESABRE01
0247: request_model  475
06E9: request_car_component  1008
06E9: request_car_component  1081
038B: load_requested_models
00D6: if  2
0248:   model  475 available
06EA:   car_component_available 1008 
06EA:   car_component_available 1081 
004D: jump_if_false SNAKESABRE00
0395: clear_area  1 at 2490.2  -1684.0  10.0 range  4.0
00A5: $GREENSABRE = create_car  475 at  2488.4  -1682.8  10.0
0175: set_car $GREENSABRE z_angle_to  91.9
0229: set_car $GREENSABRE color_to  127  0
06E7: $SGSPART1 = add_car_component 1008 to_car $GREENSABRE 
06E7: $SGSPART2 = add_car_component 1081 to_car $GREENSABRE 
0249: release_model  475
06EB: release_car_component 1008
06EB: release_car_component 1081
01C3: remove_references_to_car $GREENSABRE  ;; Like turning a car into any random car
0004: $SGSON =  1  ;; integers
0002: jump SNAKESABRE00

:SNAKESABRE01

00D6: if  1
80FE:   NOT    actor $PLAYER_ACTOR  0 ()near_point  2471.7 -1668.0  12.3 radius  90.0  40.0  4.0
0038:   $SGSON ==  1 ;; choppers
004D: jump_if_false SNAKESABRE00
0004: $SGSON =  0  ;; integers
0002: jump SNAKESABRE00
