Исходник Cord master ( Dubstep_ ) + Бонус

Статус
В этой теме нельзя размещать новые ответы.

fiendshadow

3LFhocV726q7pKWWky2vv3W38Dm9sGJV86
Автор темы
Проверенный
455
122
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
 

fiendshadow

3LFhocV726q7pKWWky2vv3W38Dm9sGJV86
Автор темы
Проверенный
455
122
Ах да,забыл добавить,еще поиграем в игру "Найди отличия",кто найдет - тот молодец.
 
Статус
В этой теме нельзя размещать новые ответы.