src | Cord master

Тема в разделе "CLEO", создана пользователем Владислав, 6 июл 2014.

  1. Владислав

    Владислав Member Основатель

    Регистрация:
    29 май 2014
    Сообщения:
    109
    Симпатии:
    0
    Код:
    // 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
     
    #1

Поделиться этой страницей