PHP:
// 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
thread "by DubStep_"
0662: printstring "By DubStep_"
0662: printstring "vk.com/x.DubStep"
if
33@ = SAMP.Base()
else_jump @Label68
:Label68
wait 400
SAMP.Available
else_jump @Label68
0B34: samp register_client_command "stp" to_label @Label1059
0B34: samp register_client_command "gtp" to_label @Label1401
:Label106
wait 0
if
not $stp == 1
else_jump @Label1116
jump @Label135
:Label135
if
not $gtp == 1
else_jump @Label1481
jump @Label160
:Label160
if
0ADC: test_cheat "GO"
else_jump @Label991
if
0AB6: store_target_marker_coords_to 3@ 4@ 5@ // IF and SET
else_jump @Label998
:Label199
wait 0
if
0AB6: store_target_marker_coords_to 3@ 4@ 5@ // IF and SET
else_jump @Label867
Actor.StorePos($PLAYER_ACTOR, 0@, 1@, 2@)
0509: 6@ = distance_between_XY 3@ 4@ and_XY 0@ 1@
050A: 7@ = distance_between_XYZ 3@ 4@ 5@ and_XYZ 0@ 1@ 2@
if
not 7@ > 40.0
else_jump @Label337
02CE: 5@ = ground_z_at 3@ 4@ 999.0
Actor.PutAt($PLAYER_ACTOR, 3@, 4@, 5@)
jump @Label917
:Label337
if and
0025: 2@ > 5@ // (float)
2@ > 70.0
else_jump @Label504
Actor.LockInCurrentPosition($PLAYER_ACTOR) = True
if
Actor.Driving($PLAYER_ACTOR)
else_jump @Label404
30@ = Actor.CurrentCar($PLAYER_ACTOR)
Car.LockInCurrentPosition(30@) = False
:Label404
if
not 2@ >= 65.0
else_jump @Label432
jump @Label504
:Label432
04C4: store_coords_to 0@ 1@ 2@ from_actor $PLAYER_ACTOR with_offset 0 0 -80.0
Actor.PutAt($PLAYER_ACTOR, 0@, 1@, 2@)
050A: 7@ = distance_between_XYZ 3@ 4@ 5@ and_XYZ 0@ 1@ 2@
wait 700
jump @Label404
:Label504
if and
8025: not 2@ > 5@ // (float)
not 6@ >= 70.0
else_jump @Label735
Actor.LockInCurrentPosition($PLAYER_ACTOR) = True
if
Actor.Driving($PLAYER_ACTOR)
else_jump @Label571
30@ = Actor.CurrentCar($PLAYER_ACTOR)
Car.LockInCurrentPosition(30@) = True
:Label571
7@ > 110.0
else_jump @Label660
04C4: store_coords_to 0@ 1@ 2@ from_actor $PLAYER_ACTOR with_offset 0 0 90.0
Actor.PutAt($PLAYER_ACTOR, 3@, 4@, 2@)
050A: 7@ = distance_between_XYZ 3@ 4@ 5@ and_XYZ 0@ 1@ 2@
wait 750
jump @Label571
:Label660
02CE: 5@ = ground_z_at 3@ 4@ 999.0
Actor.PutAt($PLAYER_ACTOR, 3@, 4@, 5@)
Actor.LockInCurrentPosition($PLAYER_ACTOR) = False
if
Actor.Driving($PLAYER_ACTOR)
else_jump @Label728
30@ = Actor.CurrentCar($PLAYER_ACTOR)
Car.LockInCurrentPosition(30@) = False
:Label728
jump @Label917
:Label735
0063: 3@ -= 0@ // (float)
0063: 4@ -= 1@ // (float)
0604: get_Z_angle_for_point 3@ 4@ store_to 8@
Actor.Angle($PLAYER_ACTOR) = 8@
Actor.LockInCurrentPosition($PLAYER_ACTOR) = True
if
Actor.Driving($PLAYER_ACTOR)
else_jump @Label816
30@ = Actor.CurrentCar($PLAYER_ACTOR)
Car.Angle(30@) = 8@
Car.LockInCurrentPosition(30@) = True
:Label816
04C4: store_coords_to 0@ 1@ 2@ from_actor $PLAYER_ACTOR with_offset 0 50.0 0
Actor.PutAt($PLAYER_ACTOR, 0@, 1@, -80.0)
wait 700
jump @Label904
:Label867
02CE: 5@ = ground_z_at 3@ 4@ 999.0
Actor.PutAt($PLAYER_ACTOR, 3@, 4@, 5@)
jump @Label917
:Label904
0ADC: test_cheat "NO"
else_jump @Label199
:Label917
Actor.StorePos($PLAYER_ACTOR, 0@, 1@, 2@)
02CE: 2@ = ground_z_at 0@ 1@ 999.0
Actor.PutAt($PLAYER_ACTOR, 0@, 1@, 2@)
Actor.LockInCurrentPosition($PLAYER_ACTOR) = False
if
056E: car 30@ defined
else_jump @Label991
Car.LockInCurrentPosition(30@) = False
:Label991
jump @Label106
:Label998
wait 0
018C: play_sound 1056 at 0.0 0.0 0.0
0ACD: show_text_highpriority "~w~coordmaster ~r~error" time 1000
jump @Label106
:Label1059
wait 0
5@ = SAMP.RegisterClientCommand()
0AD4: 29@ = scan_string 5@ format "%s" 13@v
if
29@ > 0
else_jump @Label1313
$stp = 1
jump @Label1116
:Label1116
Actor.StorePos($PLAYER_ACTOR, 3@, 4@, 19@)
19@ -= 1.0
0AF3: write_float 3@ to_ini_file "cleo\by_DubStep.ini" section 13@v key "X"
0AF3: write_float 4@ to_ini_file "cleo\by_DubStep.ini" section 13@v key "Y"
0AF3: write_float 19@ to_ini_file "cleo\by_DubStep.ini" section 13@v key "Z"
msg " {dc5304}Телепорт {ffff00}%s {dc5304}успешно сохранен" -1 13@v
$stp = 0
jump @Label2873
:Label1313
wait 0
msg " Введите {ffff00}/stp [name] {dc5304}чтобы сохранить координаты" -1
$stp = 0
jump @Label2873
:Label1401
wait 0
if
0AAB: file_exists "Cleo\by_DubStep.ini"
else_jump @Label2578
5@ = SAMP.RegisterClientCommand()
0AD4: 29@ = scan_string 5@ format "%s" 13@v
else_jump @Label2689
$gtp = 1
jump @Label2873
:Label1481
wait 0
if and
0AF2: 3@ = get_float_from_ini_file "cleo\by_DubStep.ini" section 13@v key "X"
0AF2: 4@ = get_float_from_ini_file "cleo\by_DubStep.ini" section 13@v key "Y"
0AF2: 5@ = get_float_from_ini_file "cleo\by_DubStep.ini" section 13@v key "Z"
else_jump @Label2803
jump @Label1599
:Label1599
wait 0
Actor.StorePos($PLAYER_ACTOR, 0@, 1@, 2@)
0509: 6@ = distance_between_XY 3@ 4@ and_XY 0@ 1@
050A: 7@ = distance_between_XYZ 3@ 4@ 5@ and_XYZ 0@ 1@ 2@
if
not 7@ > 40.0
else_jump @Label1715
02CE: 5@ = ground_z_at 3@ 4@ 999.0
Actor.PutAt($PLAYER_ACTOR, 3@, 4@, 5@)
jump @Label2490
:Label1715
if and
0025: 2@ > 5@ // (float)
2@ > 70.0
else_jump @Label1882
Actor.LockInCurrentPosition($PLAYER_ACTOR) = True
if
Actor.Driving($PLAYER_ACTOR)
else_jump @Label1782
30@ = Actor.CurrentCar($PLAYER_ACTOR)
Car.LockInCurrentPosition(30@) = False
:Label1782
if
not 2@ >= 65.0
else_jump @Label1810
jump @Label1882
:Label1810
04C4: store_coords_to 0@ 1@ 2@ from_actor $PLAYER_ACTOR with_offset 0 0 -80.0
Actor.PutAt($PLAYER_ACTOR, 0@, 1@, 2@)
050A: 7@ = distance_between_XYZ 3@ 4@ 5@ and_XYZ 0@ 1@ 2@
wait 700
jump @Label1782
:Label1882
if and
8025: not 2@ > 5@ // (float)
not 6@ >= 70.0
else_jump @Label2113
Actor.LockInCurrentPosition($PLAYER_ACTOR) = True
if
Actor.Driving($PLAYER_ACTOR)
else_jump @Label1949
30@ = Actor.CurrentCar($PLAYER_ACTOR)
Car.LockInCurrentPosition(30@) = True
:Label1949
7@ > 110.0
else_jump @Label2038
04C4: store_coords_to 0@ 1@ 2@ from_actor $PLAYER_ACTOR with_offset 0 0 90.0
Actor.PutAt($PLAYER_ACTOR, 3@, 4@, 2@)
050A: 7@ = distance_between_XYZ 3@ 4@ 5@ and_XYZ 0@ 1@ 2@
wait 750
jump @Label1949
:Label2038
02CE: 5@ = ground_z_at 3@ 4@ 999.0
Actor.PutAt($PLAYER_ACTOR, 3@, 4@, 5@)
Actor.LockInCurrentPosition($PLAYER_ACTOR) = False
if
Actor.Driving($PLAYER_ACTOR)
else_jump @Label2106
30@ = Actor.CurrentCar($PLAYER_ACTOR)
Car.LockInCurrentPosition(30@) = False
:Label2106
jump @Label2490
:Label2113
0063: 3@ -= 0@ // (float)
0063: 4@ -= 1@ // (float)
0604: get_Z_angle_for_point 3@ 4@ store_to 8@
Actor.Angle($PLAYER_ACTOR) = 8@
Actor.LockInCurrentPosition($PLAYER_ACTOR) = True
if
Actor.Driving($PLAYER_ACTOR)
else_jump @Label2194
30@ = Actor.CurrentCar($PLAYER_ACTOR)
Car.Angle(30@) = 8@
Car.LockInCurrentPosition(30@) = True
:Label2194
04C4: store_coords_to 0@ 1@ 2@ from_actor $PLAYER_ACTOR with_offset 0 50.0 0
Actor.PutAt($PLAYER_ACTOR, 0@, 1@, -80.0)
wait 700
jump @Label2282
02CE: 5@ = ground_z_at 3@ 4@ 999.0
Actor.PutAt($PLAYER_ACTOR, 3@, 4@, 5@)
jump @Label2490
:Label2282
0ADC: test_cheat "NO"
else_jump @Label2571
jump @Label2302
:Label2302
msg " {dc5304}Телепорт приостановлен. Введите {ffff00}/gtp %s {dc5304}чтобы продолжить телепорт" -1 13@v
$gtp = 0
Actor.StorePos($PLAYER_ACTOR, 0@, 1@, 2@)
02CE: 2@ = ground_z_at 0@ 1@ 999.0
Actor.PutAt($PLAYER_ACTOR, 0@, 1@, 2@)
Actor.LockInCurrentPosition($PLAYER_ACTOR) = False
if
056E: car 30@ defined
else_jump @Label2571
Car.LockInCurrentPosition(30@) = False
jump @Label2571
:Label2490
$gtp = 0
Actor.StorePos($PLAYER_ACTOR, 0@, 1@, 2@)
02CE: 2@ = ground_z_at 0@ 1@ 999.0
Actor.PutAt($PLAYER_ACTOR, 0@, 1@, 2@)
Actor.LockInCurrentPosition($PLAYER_ACTOR) = False
if
056E: car 30@ defined
else_jump @Label2571
Car.LockInCurrentPosition(30@) = False
:Label2571
jump @Label106
:Label2578
wait 0
msg " Файл с координатами не найден. {ffff00}/stp [name] {dc5304}чтобы сохранить координаты" -1
$gtp = 0
jump @Label2873
:Label2689
wait 0
msg " Неправильный формат команды. Введите {ffff00}/gtp [name] {dc5304}чтобы телепортироваться" -1
$gtp = 0
jump @Label2873
:Label2803
wait 0
msg " Телепорт {ffff00}%s {dc5304}не существует" -1 13@v
$gtp = 0
jump @Label2873
:Label2873
wait 0
SAMP.CmdRet
Код:
// This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .cs}
//-------------MAIN---------------
0662: printstring "Made by MISTER_GONWIK"
0662: printstring "Modification by MelomanCool"
:Noname_56
wait 0
if
0ADC: test_cheat "GOY"
else_jump @Noname_892
if
0AB6: store_target_marker_coords_to 3@ 4@ 5@ // IF and SET
else_jump @Noname_892
:Noname_100
wait 0
if
0AB6: store_target_marker_coords_to 3@ 4@ 5@ // IF and SET
else_jump @Noname_768
Actor.StorePos($PLAYER_ACTOR, 0@, 1@, 2@)
0509: 6@ = distance_between_XY 3@ 4@ and_XY 0@ 1@
050A: 7@ = distance_between_XYZ 3@ 4@ 5@ and_XYZ 0@ 1@ 2@
if
not 7@ > 70.0
else_jump @Noname_238
02CE: 5@ = ground_z_at 3@ 4@ 999.0
Actor.PutAt($PLAYER_ACTOR, 3@, 4@, 5@)
goto @Noname_818
:Noname_238
if and
0025: 2@ > 5@ // (float)
2@ > 30.0
else_jump @Noname_405
Actor.LockInCurrentPosition($PLAYER_ACTOR) = True
if
Actor.Driving($PLAYER_ACTOR)
else_jump @Noname_305
30@ = Actor.CurrentCar($PLAYER_ACTOR)
Car.LockInCurrentPosition(30@) = False
:Noname_305
if
not 2@ >= 30.0
else_jump @Noname_333
goto @Noname_405
:Noname_333
04C4: store_coords_to 0@ 1@ 2@ from_actor $PLAYER_ACTOR with_offset 0 0 -70.0
Actor.PutAt($PLAYER_ACTOR, 0@, 1@, 2@)
050A: 7@ = distance_between_XYZ 3@ 4@ 5@ and_XYZ 0@ 1@ 2@
wait 1500
goto @Noname_305
:Noname_405
if and
8025: not 2@ > 5@ // (float)
not 6@ >= 70.0
else_jump @Noname_636
Actor.LockInCurrentPosition($PLAYER_ACTOR) = True
if
Actor.Driving($PLAYER_ACTOR)
else_jump @Noname_472
30@ = Actor.CurrentCar($PLAYER_ACTOR)
Car.LockInCurrentPosition(30@) = True
:Noname_472
7@ > 70.0
else_jump @Noname_561
04C4: store_coords_to 0@ 1@ 2@ from_actor $PLAYER_ACTOR with_offset 0 0 70.0
Actor.PutAt($PLAYER_ACTOR, 3@, 4@, 2@)
050A: 7@ = distance_between_XYZ 3@ 4@ 5@ and_XYZ 0@ 1@ 2@
wait 1500
goto @Noname_472
:Noname_561
02CE: 5@ = ground_z_at 3@ 4@ 999.0
Actor.PutAt($PLAYER_ACTOR, 3@, 4@, 5@)
Actor.LockInCurrentPosition($PLAYER_ACTOR) = False
if
Actor.Driving($PLAYER_ACTOR)
else_jump @Noname_629
30@ = Actor.CurrentCar($PLAYER_ACTOR)
Car.LockInCurrentPosition(30@) = False
:Noname_629
goto @Noname_818
:Noname_636
0063: 3@ -= 0@ // (float)
0063: 4@ -= 1@ // (float)
0604: get_Z_angle_for_point 3@ 4@ store_to 8@
Actor.Angle($PLAYER_ACTOR) = 8@
Actor.LockInCurrentPosition($PLAYER_ACTOR) = True
if
Actor.Driving($PLAYER_ACTOR)
else_jump @Noname_717
30@ = Actor.CurrentCar($PLAYER_ACTOR)
Car.Angle(30@) = 8@
Car.LockInCurrentPosition(30@) = True
:Noname_717
04C4: store_coords_to 0@ 1@ 2@ from_actor $PLAYER_ACTOR with_offset 0 70.0 0
Actor.PutAt($PLAYER_ACTOR, 0@, 1@, -40.0)
wait 1500
goto @Noname_805
:Noname_768
02CE: 5@ = ground_z_at 3@ 4@ 999.0
Actor.PutAt($PLAYER_ACTOR, 3@, 4@, 5@)
goto @Noname_818
:Noname_805
0ADC: test_cheat "NO"
else_jump @Noname_100
:Noname_818
Actor.StorePos($PLAYER_ACTOR, 0@, 1@, 2@)
02CE: 2@ = ground_z_at 0@ 1@ 999.0
Actor.PutAt($PLAYER_ACTOR, 0@, 1@, 2@)
Actor.LockInCurrentPosition($PLAYER_ACTOR) = False
if
056E: car 30@ defined
else_jump @Noname_892
Car.LockInCurrentPosition(30@) = False
:Noname_892
goto @Noname_56
