SannyBuilder.com Forums

Vlad

Registered: 07-03-2009

Posts: 12

Перекраска

Перекраска на улице, в любом месте(CLEO)

{$CLEO .cs}

0000: NOP 

:NONAME_2
wait 0 
if and
   not Actor.Driving($PLAYER_ACTOR)
02D8:   actor $PLAYER_ACTOR current_weapon == 41 
00E1:   player 0 pressed_key 17 
jf @NONAME_2 
Player.ClearWantedLevel($PLAYER_CHAR)
0209: 0@ = random_int_in_ranges 0 126 
0209: 1@ = random_int_in_ranges 0 126 
Car.RemoveReferences(5@)
04C4: store_coords_to 10@ 11@ 13@ from_actor $PLAYER_ACTOR with_offset 3.75 3.75 0.0 
04C4: store_coords_to 14@ 15@ 13@ from_actor $PLAYER_ACTOR with_offset -3.7499 -3.7499 0.0 
053E: 5@ = get_random_car_with_model -1 in_rectangle_cornerA 10@ 11@ cornerB 14@ 15@ 
if 
056E:   car 5@ defined 
jf @NONAME_2 
046C: 6@ = car 5@ driver 
if 
056D:   actor 6@ defined 
jf @NONAME_781 
jump @NONAME_189 
end_thread 

:NONAME_189
wait 0 
if or
   Actor.Model(6@) == #FAM1
   Actor.Model(6@) == #FAM2
   Actor.Model(6@) == #FAM3
jf @NONAME_299 
wait 1000 
if and
056E:   car 5@ defined 
   not Actor.Driving($PLAYER_ACTOR)
02D8:   actor $PLAYER_ACTOR current_weapon == 41 
00E1:   player 0 pressed_key 17 
jf @NONAME_2 
0229: set_car 5@ primary_color_to 16 secondary_color_to 44 
Car.RemoveReferences(5@)
Player.Money($PLAYER_CHAR) += 100
Player.ClearWantedLevel($PLAYER_CHAR)
00BA: text_styled 'KRASKA2' 2000 ms 6
jump @NONAME_2 
end_thread 

:NONAME_299
wait 0 
if or
   Actor.Model(6@) == #BALLAS1
   Actor.Model(6@) == #BALLAS2
   Actor.Model(6@) == #BALLAS3
   Actor.Model(6@) == #LSV1
   Actor.Model(6@) == #LSV2
   Actor.Model(6@) == #LSV3
jf @NONAME_365 
jump @NONAME_434 
end_thread 

:NONAME_365
wait 0 
if or
   Actor.Model(6@) == #VLA1
   Actor.Model(6@) == #VLA2
   Actor.Model(6@) == #VLA3
   Actor.Model(6@) == #SFR1
   Actor.Model(6@) == #SFR2
   Actor.Model(6@) == #SFR3
jf @NONAME_600 
jump @NONAME_434 
end_thread 

:NONAME_434
wait 1000 
if and
056E:   car 5@ defined 
   not Actor.Driving($PLAYER_ACTOR)
02D8:   actor $PLAYER_ACTOR current_weapon == 41 
00E1:   player 0 pressed_key 17 
jf @NONAME_2 
0229: set_car 5@ primary_color_to 16 secondary_color_to 44 
00BA: text_styled 'KRASKA1' 2000 ms 6 
wait 2000 
Model.Load(#AK47)
038B: load_requested_models 

:NONAME_494
wait 0 
if 
   Model.Available(#AK47)
jf @NONAME_494 
01B2: give_actor 6@ weapon 30 ammo 120 // Load the weapon model before using this 
Actor.Health(6@) = 3000
wait 100 
17@ = Marker.CreateAboveActor(6@)
05E2: AS_actor 6@ kill_actor $PLAYER_ACTOR 

:NONAME_551
wait 0 
if or
   Actor.Dead($PLAYER_ACTOR)
   Actor.Dead(6@)
jf @NONAME_551 
Model.Destroy(#AK47)
Marker.Disable(17@)
Car.RemoveReferences(5@)
jump @NONAME_2 
end_thread 

:NONAME_600
wait 0 
if 
   Actor.DrivingPoliceVehicle(6@)
jf @NONAME_705 
wait 250 
if and
056E:   car 5@ defined 
   not Actor.Driving($PLAYER_ACTOR)
02D8:   actor $PLAYER_ACTOR current_weapon == 41 
00E1:   player 0 pressed_key 17 
jf @NONAME_2 
0229: set_car 5@ primary_color_to 0@ secondary_color_to 1@ 
Car.RemoveReferences(5@)
Player.ClearWantedLevel($PLAYER_CHAR)
00BA: text_styled 'KRASKA4' 2000 ms 6
jump @NONAME_2 
end_thread 

:NONAME_705
wait 1000 
if and
056E:   car 5@ defined 
   not Actor.Driving($PLAYER_ACTOR)
02D8:   actor $PLAYER_ACTOR current_weapon == 41 
00E1:   player 0 pressed_key 17 
jf @NONAME_2 
0229: set_car 5@ primary_color_to 0@ secondary_color_to 1@ 
Car.RemoveReferences(5@)
Player.Money($PLAYER_CHAR) += 100
Player.ClearWantedLevel($PLAYER_CHAR)
00BA: text_styled 'KRASKA3' 2000 ms 6 
jump @NONAME_2 
end_thread 

:NONAME_781
wait 1000 
if and
056E:   car 5@ defined 
   not Actor.Driving($PLAYER_ACTOR)
02D8:   actor $PLAYER_ACTOR current_weapon == 41 
00E1:   player 0 pressed_key 17 
jf @NONAME_2 
0229: set_car 5@ primary_color_to 0@ secondary_color_to 1@ 
Car.RemoveReferences(5@)
Player.ClearWantedLevel($PLAYER_CHAR)
jump @NONAME_2 
end_thread

Клео текст качать тута
Суть в том, что красим машины на улице, за свою заберет все звезды, если покрасить  чужую машину дадут 100$, если вражескую убьют

Last edited by Vlad (07-03-2009 19:34)