Код:
// This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .cs}
//-------------MAIN---------------
0000: NOP
if
0@ = SAMP.Base()
else_jump @noname_30
:noname_30
wait 409
sAMP.Available
else_jump @noname_30
0B34: samp register_client_command "ph" to_label @PH_CMD
0B34: samp register_client_command "vh" to_label @VH_CMD
0B34: samp register_client_command "gc" to_label @GC_CMD
0B34: samp register_client_command "cb" to_label @CB_CMD
jump @Noname_19
:Noname_19
wait 0
if
not 1@ == 1
else_jump @PH
if
not 2@ == 1
jf @VH
if
not 3@ == 1
jf @GC
if
not 4@ == 1
jf @CB
jump @Noname_19
:PH // player id
wait 0
SAMP.IsCommandTyped(0@)
0AD4: 0@ 0@ format "%d" 11@
if
0@ > 0
else_jump @err
if
0B23: samp is_player_connected 11@
jf @notfound
4@ = samp.GetActorHandleByPlayerID(11@)
if
056D: actor 4@ defined
jf @notfound
15@ = actor.Angle($player_actor)
if
actor.Driving(4@)
jf @notincar
actor.StorePos($player_actor, 10@ 11@ 12@)
12@ -= 1.0
if
not actor.Driving($player_actor)
0AA0: gosub_if_false @removeInCar
5@ = actor.CurrentCar(4@)
if
056E: car 5@ defined
else_jump @notCarDef
09B3: get_car 5@ door_status 27@
if
27@ == 0
jf @closedDoor
6@ = samp.GetSAMPVehicleIDByCarHandle(5@)
samp.SendEnterVehicle(6@, 0)
25@ = actor.Angle($player_actor)
wait 300
call @Noname_2829 1 5@
wait 250
04C4: store_coords_to 10@ 15@ 20@ from_actor $player_actor with_offset 0.0 0.0 4.0
0208: 18@ = random_float_in_ranges 5.0 200.0
0731: set_car 5@ y_angle_to 80
Car.SetSpeedInstantly(5@, -75.0)
0731: set_car 5@ y_angle_to 80
car.Angle(5@) = 18@
wait 50
car.PutAt(5@, 10@ 15@ 20@)
Car.SetSpeedInstantly(5@, -75.0)
wait 50
car.Health(5@) = 300
call @noname_2895 1 5@
actor.Angle($player_actor) = 25@
jump @ret
:CB
msg " В разработке" -2225161
jump @ret
:VH // vehicle id
wait 0
SAMP.IsCommandTyped(0@)
0AD4: 0@ 0@ format "%d" 6@
if
0@ > 0
else_jump @err
5@ = samp.GetVehicleHandleBySAMPVehicleID(6@)
if
056E: car 5@ defined
else_jump @notCarDef
09B3: get_car 5@ door_status 27@
if
27@ == 0
jf @closedDoor
actor.StorePos($player_actor, 10@ 11@ 12@)
12@ -= 1.0
if
not actor.Driving($player_actor)
0AA0: gosub_if_false @removeInCar
samp.SendEnterVehicle(6@, 0)
25@ = actor.Angle($player_actor)
wait 300
call @Noname_2829 1 5@
wait 250
04C4: store_coords_to 10@ 15@ 20@ from_actor $player_actor with_offset 0.0 0.0 4.0
0208: 18@ = random_float_in_ranges 5.0 200.0
0731: set_car 5@ y_angle_to 80
Car.SetSpeedInstantly(5@, -75.0)
0731: set_car 5@ y_angle_to 80
car.Angle(5@) = 18@
wait 50
car.PutAt(5@, 10@ 15@ 20@)
Car.SetSpeedInstantly(5@, -75.0)
wait 50
car.Health(5@) = 300
call @Noname_2895 1 5@
actor.Angle($player_actor) = 25@
jump @ret
:GC // vehicle id
wait 0
SAMP.IsCommandTyped(0@)
0AD4: 0@ 0@ format "%d" 11@
if
0@ > 0
else_jump @err
if
0B23: samp is_player_connected 11@
jf @notfound
4@ = samp.GetActorHandleByPlayerID(11@)
if
056D: actor 4@ defined
jf @notfound
15@ = actor.Angle($player_actor)
if
actor.Driving(4@)
jf @notincar
actor.StorePos($player_actor, 10@ 11@ 12@)
12@ -= 1.0
if
not actor.Driving($player_actor)
0AA0: gosub_if_false @removeInCar
5@ = actor.CurrentCar(4@)
if
056E: car 5@ defined
else_jump @notCarDef
09B3: get_car 5@ door_status 27@
if
27@ == 0
jf @closedDoor
6@ = samp.GetSAMPVehicleIDByCarHandle(5@)
samp.SendEnterVehicle(6@, 0)
wait 300
036A: put_actor $player_actor in_car 5@
jump @ret
:PH_CMD
1@ = 1
jump @cmd
:VH_CMD
2@ = 1
jump @cmd
:GC_CMD
3@ = 1
jump @cmd
:CB_CMD
4@ = 1
jump @cmd
:err
msg " Неправильный формат команды." -999
jump @ret
:notfound
msg " Игрок вне зоны прорисовки." -999
jump @ret
:notincar
msg " Игрок не за рулем машины." -999
jump @ret
:closedDoor
msg " Машина закрыта." -999
jump @ret
:notCarDef
msg " Машина вне зоны стрима." -999
jump @ret
:removeInCar
0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 10@ 11@ 12@
return
:ret
1@ = 0
2@ = 0
3@ = 0
4@ = 0
jump @Noname_19
:cmd
samp.CmdRet()
:Noname_2829
01B9: set_actor $PLAYER_ACTOR armed_weapon_to 0
0A97: 2@ = car 0@ struct // 5@ = car handle
0A96: 3@ = actor $PLAYER_ACTOR struct
3@ += 1328
0A8C: write_memory 3@ size 4 value 50 virtual_protect 0
0A96: 3@ = actor $PLAYER_ACTOR struct
3@ += 1420
0A8C: write_memory 3@ size 4 value 2@ virtual_protect 0
ret 0
:Noname_2895
0A96: 3@ = actor $PLAYER_ACTOR struct
3@ += 1328
0A8C: write_memory 3@ size 4 value 1 virtual_protect 0
0687: clear_actor $PLAYER_ACTOR task
actor.StorePos($player_actor, 10@ 11@ 12@)
12@ -= 1.0
036A: put_actor $PLAYER_ACTOR in_car 0@
0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 10@ 11@ 12@
ret 0Первая темка :)
