{$VERSION 3.1.0027}   
{$CLEO .cs}   

//-------------MAIN---------------   

0000: NOP       
:1   
wait 0     <<<<<<<<<<<<<<<<<<<< Сюда глянь <img src="http://s24.ucoz.net/sm/2/biggrin.gif" border="0"  
if
0ab0: 45       
jf @1    
03C0: 0@ = actor $player_actor car   
car.ToggleHydraulics(0@) = true  
jump @1

{$CLEO}
0000:

var
2@ : integer
end

const
COLOR_RED = 0xFF0000
COLOR_GREEN = 0x00FF0C
COLOR_BLUE = 0x0095FE
DELAY = 300
end

if  
not 29@ = SAMP.Base()
else_jump @load_sampfuncs
0A93: end_custom_thread  

:load_sampfuncs
wait 400  
    SAMP.Available
else_jump @load_sampfuncs

0B34: samp register_client_command "modercolor" to_label @color

while true
wait 0
     if Actor.Defined($PLAYER_ACTOR)
     then
         wait 100
     end
end

:color
if
actor.Driving($PLAYER_ACTOR)
then
0B35: samp 1@ = get_last_command_params
0AD4: 3@ = scan_string 1@ format "%d" 2@
03C0: 4@ = actor $PLAYER_ACTOR car  
0B2C: samp 5@ = get_vehicle_id_by_car_handle 4@
     if and
     2@ <= 256
     2@ > 0
     then
     0AFC: samp send_scm_event 5@ event_id 3 params 2@ 2@
     end
else
0AF8: samp add_message_to_chat "Вы не в машине" color COLOR_RED
end
0B43: samp cmd_ret

[code]
// This file was decompiled using sascm.ini published by Seemann (http://sannybuilder.com/files/SASCM.rar) on 13.10.2007  

  {$VERSION 3.1.0027}  
  {$CLEO .cs}  

  //-------------MAIN---------------  
  03A4: name_thread "FLOOD"    
  0662: NOP "FLOOD"    
  00D6: if    
  8AF7:   not get_samp_base_to 29@    
  004D: jump_if_false @FLOOD_1  
  0A93: end_custom_thread    

  :FLOOD_1  
  0001: wait 400 ms    
  0AFA:  is_samp_structures_available    
  004D: jump_if_false @FLOOD_1  

  :FLOOD_2  
  0001: wait 0 ms    
  00D6: if and  
  0256:   player 0 defined    
  8B21:   not samp is_chat_opened  // Проверка, что чат закрыт.
  0AB0:   key_pressed 163          // Проверка нажатий клавиш
  0AB0:   key_pressed 53    
  004D: jump_if_false @FLOOD_3    
  0209: 1@ = random_int_in_ranges 1000 10000  
  0AF9: samp say_msg "/cvet 22"                            // Свой текст  
  0AF9: samp say_msg "/cvet 44"                            // Свой текст
  0AF9: samp say_msg "/cvet 100"                          // Свой текст
  0209: 1@ = random_int_in_ranges 1000 10000    

  :FLOOD_3  
  0002: jump @FLOOD_2

RakNet::BitStream ScmEvent;
   ScmEvent.Write(VehicleID); //player vehicle
   ScmEvent.Write(Info1); //info 1
   ScmEvent.Write(Info2); //info 2
   ScmEvent.Write(EventID); //Event
   g_SAMP->pRakClientInterface->RPC(&RPC_ScmEvent, &ScmEvent, HIGH_PRIORITY, RELIABLE_ORDERED, 0, 0)

:color
if
actor.Driving($PLAYER_ACTOR)

then
0B35: samp 1@ = get_last_command_params
0AD4: 3@ = scan_string 1@ format "%d" 2@
03C0: 4@ = actor $PLAYER_ACTOR car  
0B2C: samp 5@ = get_vehicle_id_by_car_handle 4@
     if and
     2@ <= 255
     2@ > 0
     then
     0AF8: samp add_message_to_chat "Цвет машины и дисков сменен на %d" color COLOR_GREEN 2@
     0229: set_car 4@ primary_color_to 2@ secondary_color_to 2@
     0B3D: raknet 6@ = new_bit_stream
     0B40: raknet bit_stream 6@ write 5@ type BS_TYPE_INT size 4  
     0B40: raknet bit_stream 6@ write 2@ type BS_TYPE_INT size 4
     0B40: raknet bit_stream 6@ write 2@ type BS_TYPE_INT size 4
     0B40: raknet bit_stream 6@ write 3 type BS_TYPE_INT size 4
     0B41: raknet send_rpc RPC_SCM_EVENT bit_stream 6@ priority PRIORITY_HIGH reliability RELIABLE_SEQUENCED ordering_channel 0 shift_timestamp false
     0B3E: raknet delete_bit_stream 2@
     end
     if
     2@ > 255
     then
     0AF8: samp add_message_to_chat "Цвет не может быть больше 255." color COLOR_RED
     end
     if
     2@ < 0
     then
     0AF8: samp add_message_to_chat "Цвет не может быть меньше 0." color COLOR_RED
     end
else
0AF8: samp add_message_to_chat "Вы не в машине" color COLOR_RED
end
0B43: samp cmd_ret