Помогите по коду cleo.

Sirccet

Участник
Автор темы
142
21
Версия SA-MP
  1. 0.3.7 (R1)
Как заменить клавиши Z и X на команды в чате?
Код:
// This file was decompiled using SASCM.ini published on 2022-03-20
{$CLEO .cs}

30@ = 0
4@ = 25.0

:NONAME_17
wait 0
if
  Player.Defined($PLAYER_CHAR)
jf @NONAME_732
if and
  Actor.Driving($PLAYER_ACTOR)
  not Actor.DrivingVehicleType($PLAYER_ACTOR, 537)
  not Actor.DrivingVehicleType($PLAYER_ACTOR, 538)
84A7:   not actor $PLAYER_ACTOR driving_boat
84C8:   not actor $PLAYER_ACTOR driving_flying_vehicle
jf @NONAME_309
0@ = Actor.CurrentCar($PLAYER_ACTOR)
if
  is_key_pressed 90
jf @NONAME_200
if and
056E:   car 0@ defined
  get_target_blip_coords 1@ 2@ 3@
jf @NONAME_188
018C: play_sound 1058 at 0.0 0.0 0.0
if
  30@ == 0
jf @NONAME_181
gosub @NONAME_844
jump @NONAME_188

:NONAME_181
gosub @NONAME_739

:NONAME_188
cleo_call @NONAME_1337 1 90

:NONAME_200
if
  22@ == 0
  is_key_pressed 16
jf @NONAME_262
0470: 21@ = actor $PLAYER_ACTOR current_weapon
if and
  21@ >= 22
   not 21@ > 32
jf @NONAME_262
gosub @NONAME_1211

:NONAME_262
if
   not 22@ == 0
jf @NONAME_309
if
  is_key_pressed 16
jf @NONAME_302
jump @NONAME_309

:NONAME_302
gosub @NONAME_1262

:NONAME_309
if
  30@ == 1
jf @NONAME_695
if or
00E1:   player 0 pressed_key 15
02BF:   car 0@ sunk
  Car.Wrecked(0@)
jf @NONAME_361
gosub @NONAME_739

:NONAME_361
if and
056E:   car 0@ defined
01F4:   car 0@ flipped
jf @NONAME_389
gosub @NONAME_798

:NONAME_389
if
856E:   not car 0@ defined
jf @NONAME_419
30@ = 0
jump @NONAME_688

:NONAME_419
if
  not Actor.InCar($PLAYER_ACTOR, 0@)
jf @NONAME_445
30@ = 0

:NONAME_445
if and
  is_key_pressed 65
  get_target_blip_coords 1@ 2@ 3@
jf @NONAME_490
gosub @NONAME_927
cleo_call @NONAME_1337 1 65

:NONAME_490
if
  is_key_pressed 32
jf @NONAME_576
054C: use_GXT_table 'FTRAIN'
if
  29@ == 0
jf @NONAME_562
cleo_call @NONAME_1365 4 10 1 -1647 3
29@ = 1

:NONAME_562
gosub @NONAME_977
jump @NONAME_613

:NONAME_576
if
  29@ == 1
jf @NONAME_613
29@ = 0
cleo_call @NONAME_1431 1 10

:NONAME_613
if
01AE:   car 0@ sphere 0 near_point 1@ 2@ radius 3.0 3.0 stopped
jf @NONAME_654
gosub @NONAME_739

:NONAME_654
if
  is_key_pressed 88
jf @NONAME_688
gosub @NONAME_1108
cleo_call @NONAME_1337 1 88

:NONAME_688
jump @NONAME_732

:NONAME_695
if
  29@ == 1
jf @NONAME_732
29@ = 0
cleo_call @NONAME_1431 1 10

:NONAME_732
jump @NONAME_17

:NONAME_739
30@ = 0
072A: put_actor $PLAYER_ACTOR into_car 0@ driverseat
0423: set_car 0@ improved_handling_to 1.0 // (float)
Car.RemoveReferences(0@)
03AB: set_car 0@ strong 0
018C: play_sound 1058 at 0.0 0.0 0.0
return

:NONAME_798
5@ = Car.Angle(0@)
Car.StorePos(0@, 6@, 7@, 8@)
Car.PutAt(0@, 6@, 7@, 8@)
Car.Angle(0@) = 5@
return

:NONAME_844
30@ = 1
02CE: 3@ = ground_z_at 1@ 2@ 3@
Car.SetDriverBehaviour(0@, CarMission.None)
00AE: set_car 0@ traffic_behaviour_to 2
0423: set_car 0@ improved_handling_to 2.0 // (float)
03AB: set_car 0@ strong 1
Car.DriveTo(0@, 1@, 2@, 3@)
Car.SetMaxSpeed(0@, 4@)
20@ = 0
return

:NONAME_927
02CE: 3@ = ground_z_at 1@ 2@ 3@
Car.DriveTo(0@, 1@, 2@, 3@)
018C: play_sound 1058 at 0.0 0.0 0.0
return

:NONAME_977
if and
  4@ > 3.5
  is_key_pressed 40
  TIMERA >= 75
jf @NONAME_1034
TIMERA = 0
4@ += -0.5
Car.SetMaxSpeed(0@, 4@)

:NONAME_1034
if and
   not 4@ >= 50.0
  is_key_pressed 38
  TIMERA >= 75
jf @NONAME_1091
TIMERA = 0
4@ += 0.5
Car.SetMaxSpeed(0@, 4@)

:NONAME_1091
0092: 10@ = float 4@ to_integer
10@ *= 2
return

:NONAME_1108
if
  20@ == 0
jf @NONAME_1154
20@ = 1
00AE: set_car 0@ traffic_behaviour_to 1
Car.SetDriverBehaviour(0@, CarMission.Cruise)
jump @NONAME_1189

:NONAME_1154
20@ = 0
00AE: set_car 0@ traffic_behaviour_to 2
Car.SetDriverBehaviour(0@, CarMission.None)
Car.DriveTo(0@, 1@, 2@, 3@)

:NONAME_1189
018C: play_sound 1058 at 0.0 0.0 0.0
return

:NONAME_1211
22@ = 1
0713: actor $PLAYER_ACTOR driveby_actor -1 car -1 point 0.0 0.0 0.0 radius 300.0 8 0 firing_rate 75
015D: set_gamespeed 0.5
return

:NONAME_1262
22@ = 0
072A: put_actor $PLAYER_ACTOR into_car 0@ driverseat
if
  30@ == 1
jf @NONAME_1328

:NONAME_1295
wait 0
  Actor.InCar($PLAYER_ACTOR, 0@)
jf @NONAME_1295
Car.DriveTo(0@, 1@, 2@, 3@)

:NONAME_1328
015D: set_gamespeed 1.0
return

:NONAME_1337
  is_key_pressed 0@
jf @NONAME_1360
wait 0
jump @NONAME_1337

:NONAME_1360
cleo_return 0

:NONAME_1365
cleo_call @NONAME_1472 1 0@ 0@
cleo_call @NONAME_1575 1 2@ 2@
call_method 4509088 struct 12195720 num_params 4 pop 0 3@ 2@ 1@ 0@
cleo_return 0

:NONAME_1431
cleo_call @NONAME_1472 1 0@ 0@
call_method 4509312 struct 12195720 num_params 1 pop 0 0@
cleo_return 0

:NONAME_1472
get_this_script_struct 1@
0A8E: 2@ = 1@ + 220 // int
read_memory 2@ = read_memory 2@ size 1 virtual_protect 0
if
  2@ == 1                                                                                                                                               
jf @NONAME_1535
1@ = 10783072
jump @NONAME_1542

:NONAME_1535
1@ += 60

:NONAME_1542
0@ *= 4
005A: 1@ += 0@ // (int)
1@ -= 10787168
cleo_return 1 1@

:NONAME_1575
if
  0@ == 0
jf @NONAME_1600
cleo_return 1 0

:NONAME_1600
get_this_script_struct 1@
1@ += 16
read_memory 1@ = read_memory 1@ size 4 virtual_protect 0
0062: 1@ -= 0@ // (int)
1@ += 3
cleo_return 1 1@
0900: clear_object 'FREI_11' last_weapon_damage
0000: NOP

Как заменить клавиши Z и X на команды в чате?
Код:
// This file was decompiled using SASCM.ini published on 2022-03-20
{$CLEO .cs}

30@ = 0
4@ = 25.0

:NONAME_17
wait 0
if
  Player.Defined($PLAYER_CHAR)
jf @NONAME_732
if and
  Actor.Driving($PLAYER_ACTOR)
  not Actor.DrivingVehicleType($PLAYER_ACTOR, 537)
  not Actor.DrivingVehicleType($PLAYER_ACTOR, 538)
84A7:   not actor $PLAYER_ACTOR driving_boat
84C8:   not actor $PLAYER_ACTOR driving_flying_vehicle
jf @NONAME_309
0@ = Actor.CurrentCar($PLAYER_ACTOR)
if
  is_key_pressed 90
jf @NONAME_200
if and
056E:   car 0@ defined
  get_target_blip_coords 1@ 2@ 3@
jf @NONAME_188
018C: play_sound 1058 at 0.0 0.0 0.0
if
  30@ == 0
jf @NONAME_181
gosub @NONAME_844
jump @NONAME_188

:NONAME_181
gosub @NONAME_739

:NONAME_188
cleo_call @NONAME_1337 1 90

:NONAME_200
if
  22@ == 0
  is_key_pressed 16
jf @NONAME_262
0470: 21@ = actor $PLAYER_ACTOR current_weapon
if and
  21@ >= 22
   not 21@ > 32
jf @NONAME_262
gosub @NONAME_1211

:NONAME_262
if
   not 22@ == 0
jf @NONAME_309
if
  is_key_pressed 16
jf @NONAME_302
jump @NONAME_309

:NONAME_302
gosub @NONAME_1262

:NONAME_309
if
  30@ == 1
jf @NONAME_695
if or
00E1:   player 0 pressed_key 15
02BF:   car 0@ sunk
  Car.Wrecked(0@)
jf @NONAME_361
gosub @NONAME_739

:NONAME_361
if and
056E:   car 0@ defined
01F4:   car 0@ flipped
jf @NONAME_389
gosub @NONAME_798

:NONAME_389
if
856E:   not car 0@ defined
jf @NONAME_419
30@ = 0
jump @NONAME_688

:NONAME_419
if
  not Actor.InCar($PLAYER_ACTOR, 0@)
jf @NONAME_445
30@ = 0

:NONAME_445
if and
  is_key_pressed 65
  get_target_blip_coords 1@ 2@ 3@
jf @NONAME_490
gosub @NONAME_927
cleo_call @NONAME_1337 1 65

:NONAME_490
if
  is_key_pressed 32
jf @NONAME_576
054C: use_GXT_table 'FTRAIN'
if
  29@ == 0
jf @NONAME_562
cleo_call @NONAME_1365 4 10 1 -1647 3
29@ = 1

:NONAME_562
gosub @NONAME_977
jump @NONAME_613

:NONAME_576
if
  29@ == 1
jf @NONAME_613
29@ = 0
cleo_call @NONAME_1431 1 10

:NONAME_613
if
01AE:   car 0@ sphere 0 near_point 1@ 2@ radius 3.0 3.0 stopped
jf @NONAME_654
gosub @NONAME_739

:NONAME_654
if
  is_key_pressed 88
jf @NONAME_688
gosub @NONAME_1108
cleo_call @NONAME_1337 1 88

:NONAME_688
jump @NONAME_732

:NONAME_695
if
  29@ == 1
jf @NONAME_732
29@ = 0
cleo_call @NONAME_1431 1 10

:NONAME_732
jump @NONAME_17

:NONAME_739
30@ = 0
072A: put_actor $PLAYER_ACTOR into_car 0@ driverseat
0423: set_car 0@ improved_handling_to 1.0 // (float)
Car.RemoveReferences(0@)
03AB: set_car 0@ strong 0
018C: play_sound 1058 at 0.0 0.0 0.0
return

:NONAME_798
5@ = Car.Angle(0@)
Car.StorePos(0@, 6@, 7@, 8@)
Car.PutAt(0@, 6@, 7@, 8@)
Car.Angle(0@) = 5@
return

:NONAME_844
30@ = 1
02CE: 3@ = ground_z_at 1@ 2@ 3@
Car.SetDriverBehaviour(0@, CarMission.None)
00AE: set_car 0@ traffic_behaviour_to 2
0423: set_car 0@ improved_handling_to 2.0 // (float)
03AB: set_car 0@ strong 1
Car.DriveTo(0@, 1@, 2@, 3@)
Car.SetMaxSpeed(0@, 4@)
20@ = 0
return

:NONAME_927
02CE: 3@ = ground_z_at 1@ 2@ 3@
Car.DriveTo(0@, 1@, 2@, 3@)
018C: play_sound 1058 at 0.0 0.0 0.0
return

:NONAME_977
if and
  4@ > 3.5
  is_key_pressed 40
  TIMERA >= 75
jf @NONAME_1034
TIMERA = 0
4@ += -0.5
Car.SetMaxSpeed(0@, 4@)

:NONAME_1034
if and
   not 4@ >= 50.0
  is_key_pressed 38
  TIMERA >= 75
jf @NONAME_1091
TIMERA = 0
4@ += 0.5
Car.SetMaxSpeed(0@, 4@)

:NONAME_1091
0092: 10@ = float 4@ to_integer
10@ *= 2
return

:NONAME_1108
if
  20@ == 0
jf @NONAME_1154
20@ = 1
00AE: set_car 0@ traffic_behaviour_to 1
Car.SetDriverBehaviour(0@, CarMission.Cruise)
jump @NONAME_1189

:NONAME_1154
20@ = 0
00AE: set_car 0@ traffic_behaviour_to 2
Car.SetDriverBehaviour(0@, CarMission.None)
Car.DriveTo(0@, 1@, 2@, 3@)

:NONAME_1189
018C: play_sound 1058 at 0.0 0.0 0.0
return

:NONAME_1211
22@ = 1
0713: actor $PLAYER_ACTOR driveby_actor -1 car -1 point 0.0 0.0 0.0 radius 300.0 8 0 firing_rate 75
015D: set_gamespeed 0.5
return

:NONAME_1262
22@ = 0
072A: put_actor $PLAYER_ACTOR into_car 0@ driverseat
if
  30@ == 1
jf @NONAME_1328

:NONAME_1295
wait 0
  Actor.InCar($PLAYER_ACTOR, 0@)
jf @NONAME_1295
Car.DriveTo(0@, 1@, 2@, 3@)

:NONAME_1328
015D: set_gamespeed 1.0
return

:NONAME_1337
  is_key_pressed 0@
jf @NONAME_1360
wait 0
jump @NONAME_1337

:NONAME_1360
cleo_return 0

:NONAME_1365
cleo_call @NONAME_1472 1 0@ 0@
cleo_call @NONAME_1575 1 2@ 2@
call_method 4509088 struct 12195720 num_params 4 pop 0 3@ 2@ 1@ 0@
cleo_return 0

:NONAME_1431
cleo_call @NONAME_1472 1 0@ 0@
call_method 4509312 struct 12195720 num_params 1 pop 0 0@
cleo_return 0

:NONAME_1472
get_this_script_struct 1@
0A8E: 2@ = 1@ + 220 // int
read_memory 2@ = read_memory 2@ size 1 virtual_protect 0
if
  2@ == 1                                                                                                                                              
jf @NONAME_1535
1@ = 10783072
jump @NONAME_1542

:NONAME_1535
1@ += 60

:NONAME_1542
0@ *= 4
005A: 1@ += 0@ // (int)
1@ -= 10787168
cleo_return 1 1@

:NONAME_1575
if
  0@ == 0
jf @NONAME_1600
cleo_return 1 0

:NONAME_1600
get_this_script_struct 1@
1@ += 16
read_memory 1@ = read_memory 1@ size 4 virtual_protect 0
0062: 1@ -= 0@ // (int)
1@ += 3
cleo_return 1 1@
0900: clear_object 'FREI_11' last_weapon_damage
0000: NOP
Актуально
 
Последнее редактирование:

Sirccet

Участник
Автор темы
142
21
Как заменить клавиши Z и X на команды в чате?
Код:
// This file was decompiled using SASCM.ini published on 2022-03-20
{$CLEO .cs}

30@ = 0
4@ = 25.0

:NONAME_17
wait 0
if
  Player.Defined($PLAYER_CHAR)
jf @NONAME_732
if and
  Actor.Driving($PLAYER_ACTOR)
  not Actor.DrivingVehicleType($PLAYER_ACTOR, 537)
  not Actor.DrivingVehicleType($PLAYER_ACTOR, 538)
84A7:   not actor $PLAYER_ACTOR driving_boat
84C8:   not actor $PLAYER_ACTOR driving_flying_vehicle
jf @NONAME_309
0@ = Actor.CurrentCar($PLAYER_ACTOR)
if
  is_key_pressed 90
jf @NONAME_200
if and
056E:   car 0@ defined
  get_target_blip_coords 1@ 2@ 3@
jf @NONAME_188
018C: play_sound 1058 at 0.0 0.0 0.0
if
  30@ == 0
jf @NONAME_181
gosub @NONAME_844
jump @NONAME_188

:NONAME_181
gosub @NONAME_739

:NONAME_188
cleo_call @NONAME_1337 1 90

:NONAME_200
if
  22@ == 0
  is_key_pressed 16
jf @NONAME_262
0470: 21@ = actor $PLAYER_ACTOR current_weapon
if and
  21@ >= 22
   not 21@ > 32
jf @NONAME_262
gosub @NONAME_1211

:NONAME_262
if
   not 22@ == 0
jf @NONAME_309
if
  is_key_pressed 16
jf @NONAME_302
jump @NONAME_309

:NONAME_302
gosub @NONAME_1262

:NONAME_309
if
  30@ == 1
jf @NONAME_695
if or
00E1:   player 0 pressed_key 15
02BF:   car 0@ sunk
  Car.Wrecked(0@)
jf @NONAME_361
gosub @NONAME_739

:NONAME_361
if and
056E:   car 0@ defined
01F4:   car 0@ flipped
jf @NONAME_389
gosub @NONAME_798

:NONAME_389
if
856E:   not car 0@ defined
jf @NONAME_419
30@ = 0
jump @NONAME_688

:NONAME_419
if
  not Actor.InCar($PLAYER_ACTOR, 0@)
jf @NONAME_445
30@ = 0

:NONAME_445
if and
  is_key_pressed 65
  get_target_blip_coords 1@ 2@ 3@
jf @NONAME_490
gosub @NONAME_927
cleo_call @NONAME_1337 1 65

:NONAME_490
if
  is_key_pressed 32
jf @NONAME_576
054C: use_GXT_table 'FTRAIN'
if
  29@ == 0
jf @NONAME_562
cleo_call @NONAME_1365 4 10 1 -1647 3
29@ = 1

:NONAME_562
gosub @NONAME_977
jump @NONAME_613

:NONAME_576
if
  29@ == 1
jf @NONAME_613
29@ = 0
cleo_call @NONAME_1431 1 10

:NONAME_613
if
01AE:   car 0@ sphere 0 near_point 1@ 2@ radius 3.0 3.0 stopped
jf @NONAME_654
gosub @NONAME_739

:NONAME_654
if
  is_key_pressed 88
jf @NONAME_688
gosub @NONAME_1108
cleo_call @NONAME_1337 1 88

:NONAME_688
jump @NONAME_732

:NONAME_695
if
  29@ == 1
jf @NONAME_732
29@ = 0
cleo_call @NONAME_1431 1 10

:NONAME_732
jump @NONAME_17

:NONAME_739
30@ = 0
072A: put_actor $PLAYER_ACTOR into_car 0@ driverseat
0423: set_car 0@ improved_handling_to 1.0 // (float)
Car.RemoveReferences(0@)
03AB: set_car 0@ strong 0
018C: play_sound 1058 at 0.0 0.0 0.0
return

:NONAME_798
5@ = Car.Angle(0@)
Car.StorePos(0@, 6@, 7@, 8@)
Car.PutAt(0@, 6@, 7@, 8@)
Car.Angle(0@) = 5@
return

:NONAME_844
30@ = 1
02CE: 3@ = ground_z_at 1@ 2@ 3@
Car.SetDriverBehaviour(0@, CarMission.None)
00AE: set_car 0@ traffic_behaviour_to 2
0423: set_car 0@ improved_handling_to 2.0 // (float)
03AB: set_car 0@ strong 1
Car.DriveTo(0@, 1@, 2@, 3@)
Car.SetMaxSpeed(0@, 4@)
20@ = 0
return

:NONAME_927
02CE: 3@ = ground_z_at 1@ 2@ 3@
Car.DriveTo(0@, 1@, 2@, 3@)
018C: play_sound 1058 at 0.0 0.0 0.0
return

:NONAME_977
if and
  4@ > 3.5
  is_key_pressed 40
  TIMERA >= 75
jf @NONAME_1034
TIMERA = 0
4@ += -0.5
Car.SetMaxSpeed(0@, 4@)

:NONAME_1034
if and
   not 4@ >= 50.0
  is_key_pressed 38
  TIMERA >= 75
jf @NONAME_1091
TIMERA = 0
4@ += 0.5
Car.SetMaxSpeed(0@, 4@)

:NONAME_1091
0092: 10@ = float 4@ to_integer
10@ *= 2
return

:NONAME_1108
if
  20@ == 0
jf @NONAME_1154
20@ = 1
00AE: set_car 0@ traffic_behaviour_to 1
Car.SetDriverBehaviour(0@, CarMission.Cruise)
jump @NONAME_1189

:NONAME_1154
20@ = 0
00AE: set_car 0@ traffic_behaviour_to 2
Car.SetDriverBehaviour(0@, CarMission.None)
Car.DriveTo(0@, 1@, 2@, 3@)

:NONAME_1189
018C: play_sound 1058 at 0.0 0.0 0.0
return

:NONAME_1211
22@ = 1
0713: actor $PLAYER_ACTOR driveby_actor -1 car -1 point 0.0 0.0 0.0 radius 300.0 8 0 firing_rate 75
015D: set_gamespeed 0.5
return

:NONAME_1262
22@ = 0
072A: put_actor $PLAYER_ACTOR into_car 0@ driverseat
if
  30@ == 1
jf @NONAME_1328

:NONAME_1295
wait 0
  Actor.InCar($PLAYER_ACTOR, 0@)
jf @NONAME_1295
Car.DriveTo(0@, 1@, 2@, 3@)

:NONAME_1328
015D: set_gamespeed 1.0
return

:NONAME_1337
  is_key_pressed 0@
jf @NONAME_1360
wait 0
jump @NONAME_1337

:NONAME_1360
cleo_return 0

:NONAME_1365
cleo_call @NONAME_1472 1 0@ 0@
cleo_call @NONAME_1575 1 2@ 2@
call_method 4509088 struct 12195720 num_params 4 pop 0 3@ 2@ 1@ 0@
cleo_return 0

:NONAME_1431
cleo_call @NONAME_1472 1 0@ 0@
call_method 4509312 struct 12195720 num_params 1 pop 0 0@
cleo_return 0

:NONAME_1472
get_this_script_struct 1@
0A8E: 2@ = 1@ + 220 // int
read_memory 2@ = read_memory 2@ size 1 virtual_protect 0
if
  2@ == 1                                                                                                                                              
jf @NONAME_1535
1@ = 10783072
jump @NONAME_1542

:NONAME_1535
1@ += 60

:NONAME_1542
0@ *= 4
005A: 1@ += 0@ // (int)
1@ -= 10787168
cleo_return 1 1@

:NONAME_1575
if
  0@ == 0
jf @NONAME_1600
cleo_return 1 0

:NONAME_1600
get_this_script_struct 1@
1@ += 16
read_memory 1@ = read_memory 1@ size 4 virtual_protect 0
0062: 1@ -= 0@ // (int)
1@ += 3
cleo_return 1 1@
0900: clear_object 'FREI_11' last_weapon_damage
0000: NOP


Актуально
Актуально

Актуально
 
Последнее редактирование:

Sirccet

Участник
Автор темы
142
21
Как заменить клавиши Z и X на команды в чате?
Код:
// This file was decompiled using SASCM.ini published on 2022-03-20
{$CLEO .cs}

30@ = 0
4@ = 25.0

:NONAME_17
wait 0
if
  Player.Defined($PLAYER_CHAR)
jf @NONAME_732
if and
  Actor.Driving($PLAYER_ACTOR)
  not Actor.DrivingVehicleType($PLAYER_ACTOR, 537)
  not Actor.DrivingVehicleType($PLAYER_ACTOR, 538)
84A7:   not actor $PLAYER_ACTOR driving_boat
84C8:   not actor $PLAYER_ACTOR driving_flying_vehicle
jf @NONAME_309
0@ = Actor.CurrentCar($PLAYER_ACTOR)
if
  is_key_pressed 90
jf @NONAME_200
if and
056E:   car 0@ defined
  get_target_blip_coords 1@ 2@ 3@
jf @NONAME_188
018C: play_sound 1058 at 0.0 0.0 0.0
if
  30@ == 0
jf @NONAME_181
gosub @NONAME_844
jump @NONAME_188

:NONAME_181
gosub @NONAME_739

:NONAME_188
cleo_call @NONAME_1337 1 90

:NONAME_200
if
  22@ == 0
  is_key_pressed 16
jf @NONAME_262
0470: 21@ = actor $PLAYER_ACTOR current_weapon
if and
  21@ >= 22
   not 21@ > 32
jf @NONAME_262
gosub @NONAME_1211

:NONAME_262
if
   not 22@ == 0
jf @NONAME_309
if
  is_key_pressed 16
jf @NONAME_302
jump @NONAME_309

:NONAME_302
gosub @NONAME_1262

:NONAME_309
if
  30@ == 1
jf @NONAME_695
if or
00E1:   player 0 pressed_key 15
02BF:   car 0@ sunk
  Car.Wrecked(0@)
jf @NONAME_361
gosub @NONAME_739

:NONAME_361
if and
056E:   car 0@ defined
01F4:   car 0@ flipped
jf @NONAME_389
gosub @NONAME_798

:NONAME_389
if
856E:   not car 0@ defined
jf @NONAME_419
30@ = 0
jump @NONAME_688

:NONAME_419
if
  not Actor.InCar($PLAYER_ACTOR, 0@)
jf @NONAME_445
30@ = 0

:NONAME_445
if and
  is_key_pressed 65
  get_target_blip_coords 1@ 2@ 3@
jf @NONAME_490
gosub @NONAME_927
cleo_call @NONAME_1337 1 65

:NONAME_490
if
  is_key_pressed 32
jf @NONAME_576
054C: use_GXT_table 'FTRAIN'
if
  29@ == 0
jf @NONAME_562
cleo_call @NONAME_1365 4 10 1 -1647 3
29@ = 1

:NONAME_562
gosub @NONAME_977
jump @NONAME_613

:NONAME_576
if
  29@ == 1
jf @NONAME_613
29@ = 0
cleo_call @NONAME_1431 1 10

:NONAME_613
if
01AE:   car 0@ sphere 0 near_point 1@ 2@ radius 3.0 3.0 stopped
jf @NONAME_654
gosub @NONAME_739

:NONAME_654
if
  is_key_pressed 88
jf @NONAME_688
gosub @NONAME_1108
cleo_call @NONAME_1337 1 88

:NONAME_688
jump @NONAME_732

:NONAME_695
if
  29@ == 1
jf @NONAME_732
29@ = 0
cleo_call @NONAME_1431 1 10

:NONAME_732
jump @NONAME_17

:NONAME_739
30@ = 0
072A: put_actor $PLAYER_ACTOR into_car 0@ driverseat
0423: set_car 0@ improved_handling_to 1.0 // (float)
Car.RemoveReferences(0@)
03AB: set_car 0@ strong 0
018C: play_sound 1058 at 0.0 0.0 0.0
return

:NONAME_798
5@ = Car.Angle(0@)
Car.StorePos(0@, 6@, 7@, 8@)
Car.PutAt(0@, 6@, 7@, 8@)
Car.Angle(0@) = 5@
return

:NONAME_844
30@ = 1
02CE: 3@ = ground_z_at 1@ 2@ 3@
Car.SetDriverBehaviour(0@, CarMission.None)
00AE: set_car 0@ traffic_behaviour_to 2
0423: set_car 0@ improved_handling_to 2.0 // (float)
03AB: set_car 0@ strong 1
Car.DriveTo(0@, 1@, 2@, 3@)
Car.SetMaxSpeed(0@, 4@)
20@ = 0
return

:NONAME_927
02CE: 3@ = ground_z_at 1@ 2@ 3@
Car.DriveTo(0@, 1@, 2@, 3@)
018C: play_sound 1058 at 0.0 0.0 0.0
return

:NONAME_977
if and
  4@ > 3.5
  is_key_pressed 40
  TIMERA >= 75
jf @NONAME_1034
TIMERA = 0
4@ += -0.5
Car.SetMaxSpeed(0@, 4@)

:NONAME_1034
if and
   not 4@ >= 50.0
  is_key_pressed 38
  TIMERA >= 75
jf @NONAME_1091
TIMERA = 0
4@ += 0.5
Car.SetMaxSpeed(0@, 4@)

:NONAME_1091
0092: 10@ = float 4@ to_integer
10@ *= 2
return

:NONAME_1108
if
  20@ == 0
jf @NONAME_1154
20@ = 1
00AE: set_car 0@ traffic_behaviour_to 1
Car.SetDriverBehaviour(0@, CarMission.Cruise)
jump @NONAME_1189

:NONAME_1154
20@ = 0
00AE: set_car 0@ traffic_behaviour_to 2
Car.SetDriverBehaviour(0@, CarMission.None)
Car.DriveTo(0@, 1@, 2@, 3@)

:NONAME_1189
018C: play_sound 1058 at 0.0 0.0 0.0
return

:NONAME_1211
22@ = 1
0713: actor $PLAYER_ACTOR driveby_actor -1 car -1 point 0.0 0.0 0.0 radius 300.0 8 0 firing_rate 75
015D: set_gamespeed 0.5
return

:NONAME_1262
22@ = 0
072A: put_actor $PLAYER_ACTOR into_car 0@ driverseat
if
  30@ == 1
jf @NONAME_1328

:NONAME_1295
wait 0
  Actor.InCar($PLAYER_ACTOR, 0@)
jf @NONAME_1295
Car.DriveTo(0@, 1@, 2@, 3@)

:NONAME_1328
015D: set_gamespeed 1.0
return

:NONAME_1337
  is_key_pressed 0@
jf @NONAME_1360
wait 0
jump @NONAME_1337

:NONAME_1360
cleo_return 0

:NONAME_1365
cleo_call @NONAME_1472 1 0@ 0@
cleo_call @NONAME_1575 1 2@ 2@
call_method 4509088 struct 12195720 num_params 4 pop 0 3@ 2@ 1@ 0@
cleo_return 0

:NONAME_1431
cleo_call @NONAME_1472 1 0@ 0@
call_method 4509312 struct 12195720 num_params 1 pop 0 0@
cleo_return 0

:NONAME_1472
get_this_script_struct 1@
0A8E: 2@ = 1@ + 220 // int
read_memory 2@ = read_memory 2@ size 1 virtual_protect 0
if
  2@ == 1                                                                                                                                              
jf @NONAME_1535
1@ = 10783072
jump @NONAME_1542

:NONAME_1535
1@ += 60

:NONAME_1542
0@ *= 4
005A: 1@ += 0@ // (int)
1@ -= 10787168
cleo_return 1 1@

:NONAME_1575
if
  0@ == 0
jf @NONAME_1600
cleo_return 1 0

:NONAME_1600
get_this_script_struct 1@
1@ += 16
read_memory 1@ = read_memory 1@ size 4 virtual_protect 0
0062: 1@ -= 0@ // (int)
1@ += 3
cleo_return 1 1@
0900: clear_object 'FREI_11' last_weapon_damage
0000: NOP


Актуально
Актуально
 

Sirccet

Участник
Автор темы
142
21
Как заменить клавиши Z и X на команды в чате?
Код:
// This file was decompiled using SASCM.ini published on 2022-03-20
{$CLEO .cs}

30@ = 0
4@ = 25.0

:NONAME_17
wait 0
if
  Player.Defined($PLAYER_CHAR)
jf @NONAME_732
if and
  Actor.Driving($PLAYER_ACTOR)
  not Actor.DrivingVehicleType($PLAYER_ACTOR, 537)
  not Actor.DrivingVehicleType($PLAYER_ACTOR, 538)
84A7:   not actor $PLAYER_ACTOR driving_boat
84C8:   not actor $PLAYER_ACTOR driving_flying_vehicle
jf @NONAME_309
0@ = Actor.CurrentCar($PLAYER_ACTOR)
if
  is_key_pressed 90
jf @NONAME_200
if and
056E:   car 0@ defined
  get_target_blip_coords 1@ 2@ 3@
jf @NONAME_188
018C: play_sound 1058 at 0.0 0.0 0.0
if
  30@ == 0
jf @NONAME_181
gosub @NONAME_844
jump @NONAME_188

:NONAME_181
gosub @NONAME_739

:NONAME_188
cleo_call @NONAME_1337 1 90

:NONAME_200
if
  22@ == 0
  is_key_pressed 16
jf @NONAME_262
0470: 21@ = actor $PLAYER_ACTOR current_weapon
if and
  21@ >= 22
   not 21@ > 32
jf @NONAME_262
gosub @NONAME_1211

:NONAME_262
if
   not 22@ == 0
jf @NONAME_309
if
  is_key_pressed 16
jf @NONAME_302
jump @NONAME_309

:NONAME_302
gosub @NONAME_1262

:NONAME_309
if
  30@ == 1
jf @NONAME_695
if or
00E1:   player 0 pressed_key 15
02BF:   car 0@ sunk
  Car.Wrecked(0@)
jf @NONAME_361
gosub @NONAME_739

:NONAME_361
if and
056E:   car 0@ defined
01F4:   car 0@ flipped
jf @NONAME_389
gosub @NONAME_798

:NONAME_389
if
856E:   not car 0@ defined
jf @NONAME_419
30@ = 0
jump @NONAME_688

:NONAME_419
if
  not Actor.InCar($PLAYER_ACTOR, 0@)
jf @NONAME_445
30@ = 0

:NONAME_445
if and
  is_key_pressed 65
  get_target_blip_coords 1@ 2@ 3@
jf @NONAME_490
gosub @NONAME_927
cleo_call @NONAME_1337 1 65

:NONAME_490
if
  is_key_pressed 32
jf @NONAME_576
054C: use_GXT_table 'FTRAIN'
if
  29@ == 0
jf @NONAME_562
cleo_call @NONAME_1365 4 10 1 -1647 3
29@ = 1

:NONAME_562
gosub @NONAME_977
jump @NONAME_613

:NONAME_576
if
  29@ == 1
jf @NONAME_613
29@ = 0
cleo_call @NONAME_1431 1 10

:NONAME_613
if
01AE:   car 0@ sphere 0 near_point 1@ 2@ radius 3.0 3.0 stopped
jf @NONAME_654
gosub @NONAME_739

:NONAME_654
if
  is_key_pressed 88
jf @NONAME_688
gosub @NONAME_1108
cleo_call @NONAME_1337 1 88

:NONAME_688
jump @NONAME_732

:NONAME_695
if
  29@ == 1
jf @NONAME_732
29@ = 0
cleo_call @NONAME_1431 1 10

:NONAME_732
jump @NONAME_17

:NONAME_739
30@ = 0
072A: put_actor $PLAYER_ACTOR into_car 0@ driverseat
0423: set_car 0@ improved_handling_to 1.0 // (float)
Car.RemoveReferences(0@)
03AB: set_car 0@ strong 0
018C: play_sound 1058 at 0.0 0.0 0.0
return

:NONAME_798
5@ = Car.Angle(0@)
Car.StorePos(0@, 6@, 7@, 8@)
Car.PutAt(0@, 6@, 7@, 8@)
Car.Angle(0@) = 5@
return

:NONAME_844
30@ = 1
02CE: 3@ = ground_z_at 1@ 2@ 3@
Car.SetDriverBehaviour(0@, CarMission.None)
00AE: set_car 0@ traffic_behaviour_to 2
0423: set_car 0@ improved_handling_to 2.0 // (float)
03AB: set_car 0@ strong 1
Car.DriveTo(0@, 1@, 2@, 3@)
Car.SetMaxSpeed(0@, 4@)
20@ = 0
return

:NONAME_927
02CE: 3@ = ground_z_at 1@ 2@ 3@
Car.DriveTo(0@, 1@, 2@, 3@)
018C: play_sound 1058 at 0.0 0.0 0.0
return

:NONAME_977
if and
  4@ > 3.5
  is_key_pressed 40
  TIMERA >= 75
jf @NONAME_1034
TIMERA = 0
4@ += -0.5
Car.SetMaxSpeed(0@, 4@)

:NONAME_1034
if and
   not 4@ >= 50.0
  is_key_pressed 38
  TIMERA >= 75
jf @NONAME_1091
TIMERA = 0
4@ += 0.5
Car.SetMaxSpeed(0@, 4@)

:NONAME_1091
0092: 10@ = float 4@ to_integer
10@ *= 2
return

:NONAME_1108
if
  20@ == 0
jf @NONAME_1154
20@ = 1
00AE: set_car 0@ traffic_behaviour_to 1
Car.SetDriverBehaviour(0@, CarMission.Cruise)
jump @NONAME_1189

:NONAME_1154
20@ = 0
00AE: set_car 0@ traffic_behaviour_to 2
Car.SetDriverBehaviour(0@, CarMission.None)
Car.DriveTo(0@, 1@, 2@, 3@)

:NONAME_1189
018C: play_sound 1058 at 0.0 0.0 0.0
return

:NONAME_1211
22@ = 1
0713: actor $PLAYER_ACTOR driveby_actor -1 car -1 point 0.0 0.0 0.0 radius 300.0 8 0 firing_rate 75
015D: set_gamespeed 0.5
return

:NONAME_1262
22@ = 0
072A: put_actor $PLAYER_ACTOR into_car 0@ driverseat
if
  30@ == 1
jf @NONAME_1328

:NONAME_1295
wait 0
  Actor.InCar($PLAYER_ACTOR, 0@)
jf @NONAME_1295
Car.DriveTo(0@, 1@, 2@, 3@)

:NONAME_1328
015D: set_gamespeed 1.0
return

:NONAME_1337
  is_key_pressed 0@
jf @NONAME_1360
wait 0
jump @NONAME_1337

:NONAME_1360
cleo_return 0

:NONAME_1365
cleo_call @NONAME_1472 1 0@ 0@
cleo_call @NONAME_1575 1 2@ 2@
call_method 4509088 struct 12195720 num_params 4 pop 0 3@ 2@ 1@ 0@
cleo_return 0

:NONAME_1431
cleo_call @NONAME_1472 1 0@ 0@
call_method 4509312 struct 12195720 num_params 1 pop 0 0@
cleo_return 0

:NONAME_1472
get_this_script_struct 1@
0A8E: 2@ = 1@ + 220 // int
read_memory 2@ = read_memory 2@ size 1 virtual_protect 0
if
  2@ == 1                                                                                                                                              
jf @NONAME_1535
1@ = 10783072
jump @NONAME_1542

:NONAME_1535
1@ += 60

:NONAME_1542
0@ *= 4
005A: 1@ += 0@ // (int)
1@ -= 10787168
cleo_return 1 1@

:NONAME_1575
if
  0@ == 0
jf @NONAME_1600
cleo_return 1 0

:NONAME_1600
get_this_script_struct 1@
1@ += 16
read_memory 1@ = read_memory 1@ size 4 virtual_protect 0
0062: 1@ -= 0@ // (int)
1@ += 3
cleo_return 1 1@
0900: clear_object 'FREI_11' last_weapon_damage
0000: NOP


Актуально
Актуально