// 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