SannyBuilder.com Forums

cakuzma

Registered: 15-09-2008

Posts: 10

Police Car Chase Cleo Script

I need help on a cleo script i am makeing (base came from backup.cs)

ok so you hit the 4 button and it starts the chase
you hit it again and they stop / get out / gun fight
(if you hit it again ie make them stop please make shure they are close and not far from eachother as it WILL crash your game [it does mine])

I made some progress I got it working some what of how i wanted it

if you have any insight on how to make it better please let me know
CODE UPDATED 11/09/08 1:25 pm

also uploaded the cs file (place in your cleo dir)

Police_Car_Chase

// 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---------------
thread 'POLCHASE' 

:POLCHASE_11
wait 0 
if 
   Player.Defined($PLAYER_CHAR)
else_jump @POLCHASE_11 
wait 0 
if 
0AB0:   key_pressed 52 
else_jump @POLCHASE_11 
Model.Load(#COPCARVG)
Model.Load(#FORTUNE)
Model.Load(#LAPD1)
Model.Load(#BFYPRO)
Model.Load(#SILENCED)
Model.Load(#CELLPHONE)
Model.Load(#MICRO_UZI)

04C4: store_coords_to 1@ 2@ 3@ from_actor $PLAYER_ACTOR with_offset -170.0 0.0 0.0 
02C1: store_to 1@ 2@ 3@ car_path_coords_closest_to 1@ 2@ 3@ 
04C4: store_coords_to 29@ 30@ 31@ from_actor $PLAYER_ACTOR with_offset -150.0 0.0 0.0 
02C1: store_to 29@ 30@ 31@ car_path_coords_closest_to 29@ 30@ 31@ 

04C4: store_coords_to 14@ 15@ 16@ from_actor $PLAYER_ACTOR with_offset 0.0 10.0 0.0 
02C1: store_to 14@ 15@ 16@ car_path_coords_closest_to 14@ 15@ 16@ 

0662: NOP "POLICE CHASE" 
0662: NOP "COPYRIGHT 2008 CAKUZMA" 

:POLCHASE_196
wait 0 
if and
   Model.Available(#COPCARVG)
   Model.Available(#FORTUNE)
   Model.Available(#LAPD1)
   Model.Available(#BFYPRO)
   Model.Available(#SILENCED)
   Model.Available(#CELLPHONE)
   Model.Available(#MICRO_UZI)
else_jump @POLCHASE_196 
0729: AS_actor $PLAYER_ACTOR hold_cellphone 1 
wait 50 
0729: AS_actor $PLAYER_ACTOR hold_cellphone 0 
01F7: set_player $PLAYER_CHAR ignored_by_cops 1 
wait 100 
4@ = Car.Create(#COPCARVG, 1@, 2@, 3@)
5@ = Car.Create(#FORTUNE, 29@, 30@, 31@)

03CC: enable_car 4@ stuck_check_distance_to 2.0 time_to 2.0 
03CC: enable_car 5@ stuck_check_distance_to 2.0 time_to 2.0 
0129: 10@ = create_actor_pedtype 23 model #LAPD1 in_car 4@ driverseat 
0129: 11@ = create_actor_pedtype 24 model #BFYPRO in_car 5@ driverseat
0433: set_actor 11@ criminal_flag 1 
0982: unknown_actor 11@ flag 1 
062F: 27@ = create_group_type 4 
0630: put_actor 11@ in_group 27@ as_leader 

062F: 28@ = create_group_type 4 
0630: put_actor 10@ in_group 28@ as_leader 

:POLCHASE_408
Car.DriveTo(4@, 14@, 15@, 16@)
Car.DriveTo(5@, 14@, 15@, 16@)
067F: set_car 4@ lights 2 
Car.SetImmunities(4@, 1, 1, 1, 1, 1)
Car.SetImmunities(5@, 1, 1, 1, 1, 1)
00AD: 4@ set_car_max_speed 50.0
00AD: 5@ set_car_max_speed 30.0
00AE: unknown_set_car 4@ to_ignore_traffic_lights  2
00AE: unknown_set_car 5@ to_ignore_traffic_lights  2
0423: car 4@ improve_handling  2.0
0423: car 5@ improve_handling  1.0
0397: enable_car 4@ siren 1 
25@ = Marker.CreateAboveCar(4@)
26@ = Marker.CreateAboveCar(5@)
07E0: set_marker 25@ type_to 1
wait 2000
00AE: unknown_set_car 4@ to_ignore_traffic_lights  2
0423: car 4@ improve_handling  3.0
00AE: unknown_set_car 5@ to_ignore_traffic_lights  2
0423: car 5@ improve_handling  2.0

:POLCHASE_410
wait 0 
if 
00AD: 4@ set_car_max_speed 50.0
00AD: 5@ set_car_max_speed 30.0
0407: store_coords_to 14@ 15@ 16@ from_car 5@ with_offset 0.0 250.0 50.0 
02C1: store_to 14@ 15@ 16@ car_path_coords_closest_to 14@ 15@ 16@ 
0AB0:   key_pressed 52
Car.DriveTo(5@, 14@, 15@, 16@)
07F8: car 4@ follow_car 5@ radius 10.0
wait 50 
073C: car 4@ damage_component 7 // versionB 
wait 200 
0A30: repair_car 4@ 
wait 50 
073C: car 4@ damage_component 6 // versionB 
wait 200 
0A30: repair_car 4@ 
else_jump @POLCHASE_410 
05CD: AS_actor 11@ exit_car 5@ 
07F8: car 4@ follow_car 5@ radius 3.0
wait 900
05CD: AS_actor 10@ exit_car 4@ 
Marker.Disable(25@)
Marker.Disable(26@)
Car.SetImmunities(4@, 0, 0, 0, 0, 0)
Car.SetImmunities(5@, 0, 0, 0, 0, 0)
wait 500 
01B2: give_actor 10@ weapon 23 ammo 9999 // Load the weapon model before using this 
01B2: give_actor 11@ weapon 23 ammo 9999 // Load the weapon model before using this 
01B2: give_actor $PLAYER_ACTOR weapon 23 ammo 999999 // Load the weapon model before using this 
jump @POLCHASE_411

:POLCHASE_411
0350: set_actor 10@ maintain_position_when_attacked 1
0350: set_actor 11@ maintain_position_when_attacked 1
05E2: AS_actor 10@ kill_actor 11@ 
05E2: AS_actor 11@ kill_actor 10@ 
wait 7000 
jump @POLCHASE_679 

:POLCHASE_679
wait 0 
if
06EE:   actor 11@ in_group 27@ 
else_jump @POLCHASE_412 
jump @POLCHASE_689 

:POLCHASE_689
if
06EE:   actor 10@ in_group 28@ 
else_jump @POLCHASE_512 
jump @POLCHASE_411 

:POLCHASE_412
if
8118: actor 10@ dead
else_jump @POLCHASE_11
05CB: AS_actor 10@ enter_car 4@ as_driver 10000 ms
0397: enable_car 4@ siren 0 
wait 1 1000
0407: store_coords_to 14@ 15@ 16@ from_car 4@ with_offset 0.0 500.0 90.0
02C1: store_to 14@ 15@ 16@ car_path_coords_closest_to 14@ 15@ 16@ 
0423: car 4@ improve_handling  2.0
Car.DriveTo(4@, 14@, 15@, 16@)
wait 5 1000
01c3: cleanup_car 4@
01c3: cleanup_car 5@
Actor.RemoveReferences(10@)
Actor.RemoveReferences(11@)
01c2: cleanup_actor 10@
01c2: cleanup_actor 11@
jump @POLCHASE_11

:POLCHASE_512
if
8118: actor 11@ dead
else_jump @POLCHASE_11

05CB: AS_actor 11@ enter_car 5@ as_driver -1 ms
wait 2 1000
04C4: store_coords_to 1@ 2@ 3@ from_actor $PLAYER_ACTOR with_offset 0.0 -100.0 0.0 
02C1: store_to 1@ 2@ 3@ car_path_coords_closest_to 1@ 2@ 3@ 

0407: store_coords_to 14@ 15@ 16@ from_car 5@ with_offset 0.0 500.0 90.0
02C1: store_to 14@ 15@ 16@ car_path_coords_closest_to 14@ 15@ 16@ 
0423: car 5@ improve_handling  2.0
01c3: cleanup_car 4@
Actor.RemoveReferences(10@)
01c2: cleanup_actor 10@
wait 5 1000

4@ = Car.Create(#COPCARVG, 1@, 2@, 3@)
0129: 10@ = create_actor_pedtype 23 model #LAPD1 in_car 4@ driverseat 
0630: put_actor 10@ in_group 28@ as_leader 
07F8: car 4@ follow_car 5@ radius 10.0
wait 1000
Car.DriveTo(5@, 14@, 15@, 16@)
067F: set_car 4@ lights 2 
Car.SetImmunities(4@, 1, 1, 1, 1, 1)
Car.SetImmunities(5@, 1, 1, 1, 1, 1)
00AD: 4@ set_car_max_speed 50.0
00AD: 5@ set_car_max_speed 0.1
00AE: unknown_set_car 4@ to_ignore_traffic_lights  3
00AE: unknown_set_car 5@ to_ignore_traffic_lights  2
0423: car 4@ improve_handling  2.0
0423: car 5@ improve_handling  2.0
0397: enable_car 4@ siren 1 
25@ = Marker.CreateAboveCar(4@)
26@ = Marker.CreateAboveCar(5@)
07E0: set_marker 25@ type_to 1
wait 5000
jump @POLCHASE_410

Last edited by cakuzma (09-11-2008 20:48)

cakuzma

Registered: 15-09-2008

Posts: 10

Re: Police Car Chase Cleo Script

I made some progress please look at script