Вопрос Вопросы по CLEO-скриптингу

Тема в разделе "CLEO", создана пользователем MogAika, 19 мар 2013.

  1. stfbee22

    stfbee22 Известный пользователь

    Регистрация:
    22.04.2016
    Сообщения:
    49
    Симпатии:
    1
    Репутация:
    1
    Меняю на любую активацию - захожу в игру - при запуске крашит
    В чем проблемка? Хелпаните)

    
    // This file was decompiled using SASCM.ini published by GTAG ([URL]http://gtag.gtagaming.com/opcode-database[/URL]) on 14.6.2013
    {$CLEO .cs}
    
    //-------------MAIN---------------
    0000: NOP
    
    :Noname_2
    wait0
       SAMP.Available
    else_jump @Noname_2
    gosub @Noname_4351
    gosub @Noname_4458
    0093: 12@ = integer $4 to_float
    call @Noname_7502 $Phone_Ringing_Flag31@31@
    0B34: samp register_client_command "quadasoft" to_label @Noname_498
    0B34: samp register_client_command "recfg" to_label @Noname_630
    0BE1: raknet setup_outcoming_rpc_hook -2342
    0BE2: raknet setup_outcoming_packet_hook -2779
    print "Quada Enjine [ACTIVATED]"3000
    
    :Noname_133
    wait0
    if
       SAMP.Available
    else_jump @Noname_376
    ifand
       SAMP.IsLocalPlayerSpawned
       not SAMP.ChatInputOpened
    else_jump @Noname_376
    if
       not $Move_Axis_X == -1
    else_jump @Noname_376
    if
    $Current_Time_in_ms2 == 2
    else_jump @Noname_339
    if
    key_down $Move_Axis_X
    else_jump @Noname_339
    0B12: 31@ = 31@ XOR 1
    if
    $Move_Axis_Y == 1
    else_jump @Noname_334
    if
    31@ == 1
    else_jump @Noname_301
    print "Quada Enjine [ACTIVATED]"1000
    jump @Noname_334
    
    :Noname_301
    print "Quada Enjine [DEACTIVATED]"1000
    
    :Noname_334
    wait228
    
    :Noname_339
    if
    $Current_Time_in_ms2 == 3
    else_jump @Noname_376
    call @Noname_3832 $Move_Axis_X $Move_Axis_Y31@
    
    :Noname_376
    jump @Noname_133
    
    :Noname_383
    wait0
    if
    key_down 0@
    else_jump @Noname_417
    2@ = 1
    jump @Noname_424
    
    :Noname_417
    2@ = 0
    
    :Noname_424
    if
    1@ == 1
    else_jump @Noname_490
    if
    2@ == 1
    else_jump @Noname_490
    print "Quada Enjine [ACTIVATED]"50
    
    :Noname_490
    ret 12@
    
    :Noname_498
    if
       SAMP.IsLocalPlayerSpawned
    else_jump @Noname_628
    if
    $Move_Axis_Y == 1
    else_jump @Noname_618
    if
    31@ == 0
    else_jump @Noname_585
    print "Quada Enjine [ACTIVATED]"3000
    jump @Noname_618
    
    :Noname_585
    print "Quada Enjine [DEACTIVATED]"3000
    
    :Noname_618
    0B12: 31@ = 31@ XOR 1
    
    :Noname_628
    SAMP.CmdRet
    
    :Noname_630
    if
       SAMP.IsLocalPlayerSpawned
    else_jump @Noname_748
    $4 = 25
    $5 = 0
    $6 = 1
    $7 = 0
    $8 = 1
    $9 = 0
    $10 = 1
    $PLAYER_GROUP = 1
    $12 = 0
    $13 = 1
    $DEFAULT_WAIT_TIME = 120
    $Phone_Ringing_Flag = 0
    $Current_Time_in_ms2 = 1
    $Move_Axis_X = -1
    $Move_Axis_Y = 1
    
    :Noname_748
    SAMP.CmdRet
    
    :Noname_750
    wait0
    if
    0@ == 1
    else_jump @Noname_782
    0B12: 1@ = 1@ XOR 1
    
    :Noname_782
    ret 11@
    
    :Noname_790
    wait0
    0470: 0@ = actor $PLAYER_ACTOR current_weapon
    ifor
    0@ == 22
    0@ == 29
    else_jump @Noname_837
    1@ = 8.25
    
    :Noname_837
    if
    0@ == 23
    else_jump @Noname_865
    1@ = 13.2
    
    :Noname_865
    ifor
    0@ == 28
    0@ == 32
    else_jump @Noname_900
    1@ = 6.6
    
    :Noname_900
    ifor
    0@ == 30
    0@ == 31
    else_jump @Noname_935
    1@ = 9.900001
    
    :Noname_935
    if
    0@ == 33
    else_jump @Noname_963
    1@ = 24.75
    
    :Noname_963
    if
    0@ == 34
    else_jump @Noname_991
    1@ = 41.25
    
    :Noname_991
    ifor
    0@ == 24
    0@ == 38
    else_jump @Noname_1026
    1@ = 46.2
    
    :Noname_1026
    ifor
    0@ == 25
    0@ == 26
    else_jump @Noname_1068
    1@ = 3.3
    1@ *= 15
    
    :Noname_1068
    if
    0@ == 27
    else_jump @Noname_1103
    1@ = 4.95
    1@ *= 8
    
    :Noname_1103
    ret 11@
    
    :Noname_1111
    wait0
    0470: 25@ = actor $PLAYER_ACTOR current_weapon
    0209: 15@ = random_int_in_ranges 39
    4@ = RakNet.NewBitStream()
    BitStream.Write(4@, 0, BS_TYPE_BOOL, 1)
    BitStream.Write(4@, 0@, BS_TYPE_SHORT, 2)
    BitStream.Write(4@, 1@, BS_TYPE_FLOAT, 4)
    BitStream.Write(4@, 25@, BS_TYPE_INT, 4)
    BitStream.Write(4@, 15@, BS_TYPE_INT, 4)
    RakNet.LiteRPC(115, 4@)
    RakNet.DeleteBitStream(4@)
    ret 0
    
    :Noname_1213
    wait0
    call @Noname_790013@
    call @Noname_111120@13@
    ret 0
    
    :Noname_1251
    wait0
    Actor.StorePos(3@, 9@, 10@, 11@)
    Actor.StorePos($PLAYER_ACTOR, 19@, 5@, 6@)
    0470: 25@ = actor $PLAYER_ACTOR current_weapon
    8@ = SAMP.GetSAMPPlayerIDByActorHandle(3@)
    alloc 17@40
    0C0D: struct 17@ offset 0 size 1 = 1
    0C0D: struct 17@ offset 1 size 2 = 8@
    0C0D: struct 17@ offset 3 size 4 = 19@
    0C0D: struct 17@ offset 7 size 4 = 5@
    0C0D: struct 17@ offset 11 size 4 = 6@
    0C0D: struct 17@ offset 15 size 4 = 9@
    0C0D: struct 17@ offset 19 size 4 = 10@
    0C0D: struct 17@ offset 23 size 4 = 11@
    0098: 22@ = random_float_in_ranges_0.0_to_1.0
    0098: 23@ = random_float_in_ranges_0.0_to_1.0
    0098: 24@ = random_float_in_ranges_0.0_to_1.0
    0063: 28@ -= 22@// (float)
    0063: 29@ -= 23@// (float)
    0063: 30@ -= 24@// (float)
    0209: 27@ = random_int_in_ranges 110
    if
    27@ >= 5
    else_jump @Noname_1485
    22@ = -0.2
    0063: 22@ -= 28@// (float)
    
    :Noname_1485
    0209: 27@ = random_int_in_ranges 110
    if
    27@ >= 5
    else_jump @Noname_1530
    23@ = -0.2
    0063: 23@ -= 29@// (float)
    
    :Noname_1530
    0209: 27@ = random_int_in_ranges 110
    if
    27@ >= 5
    else_jump @Noname_1575
    24@ = -0.2
    0063: 24@ -= 30@// (float)
    
    :Noname_1575
    0C0D: struct 17@ offset 27 size 4 = 22@
    0C0D: struct 17@ offset 31 size 4 = 23@
    0C0D: struct 17@ offset 35 size 4 = 24@
    0C0D: struct 17@ offset 39 size 1 = 25@
    12@ = RakNet.NewBitStream()
    BitStream.Write(12@, 206, BS_TYPE_BYTE, 1)
    BitStream.Write(12@, 17@, BS_TYPE_ARRAY, 40)
    RakNet.LiteSend(12@)
    RakNet.DeleteBitStream(12@)
    free 17@
    if
    0@ == 1
    else_jump @Noname_1711
    09B8: create_blood_gush_at 9@10@11@ with_offset 22@23@24@ density 2@ on_actor 3@
    
    :Noname_1711
    if
    4@ == 1
    else_jump @Noname_1742
    call @Noname_121318@
    
    :Noname_1742
    ret 0
    
    :Noname_1747
    wait0
    18@ = 1
    if
       not0@ == 0
    else_jump @Noname_2334
    0665: get_actor 1@ model_to 17@
    if
    0@ == 1
    else_jump @Noname_1841
    ifor
    17@ == 105
    17@ == 106
    17@ == 107
    else_jump @Noname_1841
    18@ = 0
    
    :Noname_1841
    if
    0@ == 2
    else_jump @Noname_1898
    ifor
    17@ == 102
    17@ == 103
    17@ == 104
    else_jump @Noname_1898
    18@ = 0
    
    :Noname_1898
    if
    0@ == 3
    else_jump @Noname_1955
    ifor
    17@ == 114
    17@ == 115
    17@ == 116
    else_jump @Noname_1955
    18@ = 0
    
    :Noname_1955
    if
    0@ == 4
    else_jump @Noname_2012
    ifor
    17@ == 108
    17@ == 109
    17@ == 110
    else_jump @Noname_2012
    18@ = 0
    
    :Noname_2012
    if
    0@ == 5
    else_jump @Noname_2072
    ifor
    17@ == 173
    17@ == 174
    17@ == 175
    else_jump @Noname_2072
    18@ = 0
    
    :Noname_2072
    if
    0@ == 6
    else_jump @Noname_2143
    ifor
    17@ == 111
    17@ == 112
    17@ == 125
    17@ == 126
    17@ == 127
    else_jump @Noname_2143
    18@ = 0
    
    :Noname_2143
    if
    0@ == 7
    else_jump @Noname_2193
    ifor
    17@ == 113
    17@ == 124
    else_jump @Noname_2193
    18@ = 0
    
    :Noname_2193
    if
    0@ == 8
    else_jump @Noname_2271
    ifor
    17@ == 121
    17@ == 122
    17@ == 123
    17@ == 117
    17@ == 118
    17@ == 120
    else_jump @Noname_2271
    18@ = 0
    
    :Noname_2271
    if
    18@ == 0
    else_jump @Noname_2334
    if
    2@ == 1
    else_jump @Noname_2334
    print "~g~Friendly ~r~Fire!"500
    
    :Noname_2334
    ret 118@
    wait0
    0BE5: raknet 10@ = get_hook_param 1
    if
    10@ == 115
    else_jump @Noname_2393
    if
    31@ == 1
    else_jump @Noname_2393
    0BE0: raknet hook_ret 0
    
    :Noname_2393
    0BE0: raknet hook_ret 1
    
    :Noname_2397
    wait0
    Actor.StorePos(0@, 1@, 2@, 3@)
    0604: get_Z_angle_for_point 1@2@ store_to 17@
    8@ = SAMP.GetSAMPPlayerIDByActorHandle($PLAYER_ACTOR)
    alloc 4@68
    0BBA: samp store_player 8@ onfoot_data 4@
    0C0D: struct 4@ offset 30 size 4 = 17@
    BitStream.Write(5@, 207, BS_TYPE_BYTE, 1)
    BitStream.Write(5@, 4@, BS_TYPE_ARRAY, 68)
    RakNet.LiteSend(5@)
    RakNet.DeleteBitStream(5@)
    free 4@
    ret 0
    
    :Noname_2505
    wait0
    0470: 2@ = actor $PLAYER_ACTOR current_weapon
    ifor
    2@ == 28
    2@ == 29
    2@ == 30
    2@ == 31
    2@ == 32
    2@ == 38
    else_jump @Noname_2584
    0@ = 1
    jump @Noname_2591
    
    :Noname_2584
    0@ = 2
    
    :Noname_2591
    0209: 19@ = random_int_in_ranges 110
    if
    0@ = 1
    else_jump @Noname_2664
    if
       not19@ > 2
    else_jump @Noname_2650
    1@ = 0
    jump @Noname_2657
    
    :Noname_2650
    1@ = 1
    
    :Noname_2657
    jump @Noname_2703
    
    :Noname_2664
    if
       not19@ > 5
    else_jump @Noname_2696
    1@ = 1
    jump @Noname_2703
    
    :Noname_2696
    1@ = 0
    
    :Noname_2703
    ret 11@
    
    :Noname_2711
    wait0
    0A96: 2@ = actor $PLAYER_ACTOR struct
    0A8E: 1@ = 2@ + 1948// int
    0A8D: 2@ = read_memory 1@ size 1 virtual_protect 1
    if
    003B:  2@ == 0@// (int)
    else_jump @Noname_2772
    ret 11
    
    :Noname_2772
    ret 1 -1
    wait0
    0BE5: raknet 2@ = get_hook_param 0
    0BE5: raknet 3@ = get_hook_param 1
    if
    3@ == 204
    else_jump @Noname_2903
    ifand
    31@ == 1
    $8 == 1
    else_jump @Noname_2903
    call @Noname_2711128@25@
    if
       not25@ == 1
    else_jump @Noname_2903
    4@ = BitStream.GetDataPtr(2@)
    26@ = SAMP.GetSAMPPlayerIDByActorHandle(28@)
    0C0D: struct 4@ offset 1 size 2 = 26@
    
    :Noname_2903
    if
    3@ == 206
    else_jump @Noname_3184
    if
    31@ == 1
    else_jump @Noname_3184
    call @Noname_3474612@ $7 $12 $Move_Axis_Y $5 $107@
    if
       not7@ == -1
    else_jump @Noname_3184
    008A: 28@ = 7@// (int)
    068E: get_camera_target_point_to 15@27@21@
    if
    $9 == 0
    else_jump @Noname_3093
    if
    $6 == 1
    else_jump @Noname_3057
    call @Noname_2397128@
    
    :Noname_3057
    call @Noname_12515 $13 $5 $DEFAULT_WAIT_TIME28@ $PLAYER_GROUP
    0BE0: raknet hook_ret 0
    jump @Noname_3184
    
    :Noname_3093
    call @Noname_2505013@
    if
    13@ == 1
    else_jump @Noname_3184
    if
    $6 == 1
    else_jump @Noname_3155
    call @Noname_2397128@
    
    :Noname_3155
    call @Noname_12515 $13 $5 $DEFAULT_WAIT_TIME28@ $PLAYER_GROUP
    0BE0: raknet hook_ret 0
    
    :Noname_3184
    0BE0: raknet hook_ret 1
    
    :Noname_3188
    wait0
    0470: 25@ = actor $PLAYER_ACTOR current_weapon
    ifor
    25@ == 22
    25@ == 23
    25@ == 24
    25@ == 26
    25@ == 28
    25@ == 32
    else_jump @Noname_3263
    0@ = 35.0
    
    :Noname_3263
    ifor
    25@ == 25
    25@ == 27
    else_jump @Noname_3298
    0@ = 40.0
    
    :Noname_3298
    if
    25@ == 29
    else_jump @Noname_3326
    0@ = 45.0
    
    :Noname_3326
    if
    25@ == 30
    else_jump @Noname_3354
    0@ = 70.0
    
    :Noname_3354
    if
    25@ == 31
    else_jump @Noname_3382
    0@ = 90.0
    
    :Noname_3382
    if
    25@ == 33
    else_jump @Noname_3410
    0@ = 100.0
    
    :Noname_3410
    if
    25@ == 34
    else_jump @Noname_3438
    0@ = 320.0
    
    :Noname_3438
    if
    25@ == 38
    else_jump @Noname_3466
    0@ = 75.0
    
    :Noname_3466
    ret 10@
    
    :Noname_3474
    wait0
    28@ = 0.0
    
    :Noname_3488
    0A8D: 29@ = read_memory 12010640 size 4 virtual_protect 0
    29@ += 4
    0A8D: 29@ = read_memory 29@ size 4 virtual_protect 0
    30@ = 0
    
    :Noname_3528
    0A8D: 31@ = read_memory 29@ size 1 virtual_protect 0
    29@ += 1
    ifand
    31@ >= 0
    128 > 31@
    else_jump @Noname_4123
    005A: 31@ += 30@// (int)
    if
    056D:   actor 31@ defined
    else_jump @Noname_4123
    if
    803C:  not$PLAYER_ACTOR == 31@// (int)
    else_jump @Noname_4123
    04C4: store_coords_to 27@26@25@ from_actor 31@ with_offset 0.00.00.0
    068D: get_camera_position_to 24@23@22@
    8@ = SAMP.GetSAMPPlayerIDByActorHandle(31@)
    ifand
       not Actor.Dead(31@)
    02CB:   actor 31@ bounding_sphere_visible
       not SAMP.IsPlayerPaused(8@)
    else_jump @Noname_4116
    04C4: store_coords_to 10@11@12@ from_actor 31@ with_offset 0.00.00.0
    call @Noname_4180310@11@12@13@14@
    0509: 15@ = distance_between_XY 339.1179.1 and_XY 13@14@
    if
    0035:  28@ >= 15@// (float)
    else_jump @Noname_4109
    if
    1@ == 0
    else_jump @Noname_3861
    if
    06BD:   no_obstacles_between 27@26@25@and24@23@22@ solid 1 car 1 actor 0 object 1 particle 1
    else_jump @Noname_3854
    wait0
    jump @Noname_3861
    
    :Noname_3854
    jump @Noname_4123
    
    :Noname_3861
    if
    5@ == 0
    else_jump @Noname_3902
    if
    0449:   actor 31@ in_a_car
    else_jump @Noname_3902
    jump @Noname_4123
    
    :Noname_3902
    if
    4@ == 0
    else_jump @Noname_3976
    0509: 9@ = distance_between_XY 10@11@ and_XY 24@23@
    call @Noname_3188020@
    if
    0035:  9@ >= 20@// (float)
    else_jump @Noname_3976
    jump @Noname_4123
    
    :Noname_3976
    if
       not2@ == 0
    else_jump @Noname_4062
    call @Noname_174732@31@3@6@
    if
    6@ == 1
    else_jump @Noname_4048
    7@ = 1
    jump @Noname_4055
    
    :Noname_4048
    7@ = 0
    
    :Noname_4055
    jump @Noname_4069
    
    :Noname_4062
    7@ = 1
    
    :Noname_4069
    if
    7@ == 1
    else_jump @Noname_4102
    ret 131@
    jump @Noname_4109
    
    :Noname_4102
    jump @Noname_4123
    
    :Noname_4109
    jump @Noname_4123
    
    :Noname_4116
    jump @Noname_4123
    
    :Noname_4123
    30@ += 256
    30@ > 35584
    else_jump @Noname_3528
    28@ += 8.0
    001D:  28@ > 0@// (int)
    else_jump @Noname_3488
    ret 1 -1
    
    :Noname_4180
    wait0
    0AC7: 14@ = var0@ offset
    0AC7: 15@ = var3@ offset
    0AC7: 16@ = var6@ offset
    0AC7: 17@ = var9@ offset
    0AA5: call 7392816 num_params 6 pop 60017@16@15@14@
    12@ = 640.0
    13@ = 448.0
    0A8D: 14@ = read_memory 12677188 size 4 virtual_protect 0
    0A8D: 15@ = read_memory 12677192 size 4 virtual_protect 0
    0093: 14@ = integer 14@ to_float
    0093: 15@ = integer 15@ to_float
    0073: 12@ /= 14@// (float)
    0073: 13@ /= 15@// (float)
    006B: 3@ *= 12@// (float)
    006B: 4@ *= 13@// (float)
    ret 23@4@
    
    :Noname_4351
    $4 = 60
    $5 = 0
    $6 = 1
    $7 = 1
    $8 = 1
    $9 = 0
    $10 = 1
    $PLAYER_GROUP = 1
    $12 = 0
    $13 = 1
    $DEFAULT_WAIT_TIME = 120
    $Phone_Ringing_Flag = 0
    $Current_Time_in_ms2 = 1
    $Move_Axis_X = -1
    $Move_Axis_Y = 1
    return
    
    :Noname_4458
    $4 = 25
    $5 = 0
    $6 = 1
    $7 = 0
    $8 = 1
    $9 = 0
    $10 = 1
    $PLAYER_GROUP = 1
    $12 = 0
    $13 = 1
    $DEFAULT_WAIT_TIME = 120
    $Phone_Ringing_Flag = 0
    $Current_Time_in_ms2 = 1
    $Move_Axis_X = -1
    $Move_Axis_Y = 1
    return
    
     
  2. hnnssy

    hnnssy пичушкин
    Друг

    Регистрация:
    23.03.2013
    Сообщения:
    1.827
    Симпатии:
    1.119
    Репутация:
    188
    бля, у тебя был нормальный исходник, теперь ковыряешься в декомпиле, зачем говном обмазываться?
     
    kraft1k нравится это.
  3. kraft1k

    kraft1k {$CLEO .cs}
    Проверенный

    Регистрация:
    29.09.2014
    Сообщения:
    509
    Симпатии:
    136
    Репутация:
    59
    Во-во, одни декомпилы мне в лс кидает. Я даже смотреть такое не хочу.

    {$CLEO .cs}
    0000: NOP
    
    repeat
    wait 0
    until samp.Available()
    
    0B34: samp register_client_command "null" to_label @hp // команда /null - включить/выключить скрипт
    
    While True
    wait 0
    if 3@ == 1
    then
    if
    0AD2: 0@ = player $PLAYER_CHAR targeted_actor
    then
    0B2B: samp 1@ = get_player_id_by_actor_handle 0@
    0B25: samp 2@ = get_player_health 1@
    if 2@ <= 0
    then
    0AF8: samp add_message_to_chat "Наёмный убийца FarTa выполнил контракт на RAGE и забрал 15000$" -1
    wait 500
    end
    end
    end
    end
      
    :hp
    0B12: 3@ = 3@ XOR 1
    if 3@ == 1
    then
    0acd: "~y~[~r~NULL HP~y~] ~y~ON" 1500
    else
    0acd: "~y~[~r~NULL HP~y~] ~y~OFF" 1500
    end
    SAMP.Cmdret()
     
    #10963 kraft1k, 6 янв 2017
    Последнее редактирование: 6 янв 2017
  4. hnnssy

    hnnssy пичушкин
    Друг

    Регистрация:
    23.03.2013
    Сообщения:
    1.827
    Симпатии:
    1.119
    Репутация:
    188
    ходит слух короче, что в 0af8 минимум 2 параметра
     
  5. hnnssy

    hnnssy пичушкин
    Друг

    Регистрация:
    23.03.2013
    Сообщения:
    1.827
    Симпатии:
    1.119
    Репутация:
    188
    тогда виртуал протект 0 попробуй
     
  6. FYP

    FYP админ какой-то

    Регистрация:
    09.03.2013
    Сообщения:
    1.155
    Симпатии:
    2.039
    Репутация:
    749
    обязательно, вообще-то
     
  7. Снежок

    Снежок Проверенный Фуррь
    Проверенный

    Регистрация:
    17.01.2014
    Сообщения:
    381
    Симпатии:
    83
    Репутация:
    7
    майн гот, ты прав. Я ошибся.
    Почему-то я был уверен, что раньше у меня так получалось. Что-то перепутал, видимо
     
  8. p1cador

    p1cador tvoy ded
    Проверенный

    Регистрация:
    19.03.2014
    Сообщения:
    165
    Симпатии:
    159
    Репутация:
    53
    Там просто другая инфа лежала, оно ее за цвет и считало. Но это не правильно.
     
  9. Destructor

    Destructor Известный пользователь

    Регистрация:
    13.03.2016
    Сообщения:
    54
    Симпатии:
    6
    Репутация:
    1
    
    Что за данные с памяти вытаскивает этот код?
    // 0@ хендл удаленного актёра
    0A96: 6@ = actor 0@ struct
    6@ += 68
    0A8D: 3@ = read_memory 6@ size 4 virtual_protect 0
    6@ += 4
    0A8D: 4@ = read_memory 6@ size 4 virtual_protect 0
    6@ += 4
    0A8D: 5@ = read_memory 6@ size 4 virtual_protect 0
    
     
  10. p1cador

    p1cador tvoy ded
    Проверенный

    Регистрация:
    19.03.2014
    Сообщения:
    165
    Симпатии:
    159
    Репутация:
    53
    скорость по х,у,з
     
  11. Destructor

    Destructor Известный пользователь

    Регистрация:
    13.03.2016
    Сообщения:
    54
    Симпатии:
    6
    Репутация:
    1
    если ту хуйню в цикле юзить то игра пиздец лагает, может там оффсеты старые и оно не понятно что читает, можно как-то по другому эту саму спидуху получить?
     
  12. romacaddy

    romacaddy Известный пользователь

    Регистрация:
    06.01.2016
    Сообщения:
    120
    Симпатии:
    51
    Репутация:
    12
    можно-ли как-то получить координаты черного квадртата на карте(ганг зоны типо)?
     
  13. p1cador

    p1cador tvoy ded
    Проверенный

    Регистрация:
    19.03.2014
    Сообщения:
    165
    Симпатии:
    159
    Репутация:
    53
    правильные оффсеты, код покажи
     
  14. Destructor

    Destructor Известный пользователь

    Регистрация:
    13.03.2016
    Сообщения:
    54
    Симпатии:
    6
    Репутация:
    1
    del
     
    #10974 Destructor, 13 янв 2017
    Последнее редактирование: 13 янв 2017
  15. ErrorCompile

    ErrorCompile Пользователь

    Регистрация:
    25.11.2016
    Сообщения:
    23
    Симпатии:
    2
    Репутация:
    1
    0000:
    
    repeat
    wait 0
    until Samp.Available()
    0BE3: raknet setup_incoming_rpc_hook @hook
    0BDE: pause_thread 0
    
    :hook
    0BE5: raknet 0@ = get_hook_param 1
        if
        0039:   0@ == 108
        then
        0BE5: raknet 0@ = get_hook_param 0
      
        0BE7: raknet 1@ = bit_stream_read 0@ type 2
        0BE7: raknet 2@ = bit_stream_read 0@ type 4
        0BE7: raknet 3@ = bit_stream_read 0@ type 4
        0BE7: raknet 4@ = bit_stream_read 0@ type 4
        0BE7: raknet 5@ = bit_stream_read 0@ type 4
    
        0AF8: samp add_message_to_chat "zoneID: %d" color -1 1@
        0AF8: samp add_message_to_chat "X1 - %f, Y1 - %f, X2 - %f, Y2 - %f" color -1 2@ 3@ 4@ 5@
      
        0B3E: raknet delete_bit_stream 0@
        end
    0BE0: raknet hook_ret true
     
    Последние данные очков репутации:
    _swamp_: 1 Очко (sps) 13 янв 2017
    romacaddy нравится это.
  16. Destructor

    Destructor Известный пользователь

    Регистрация:
    13.03.2016
    Сообщения:
    54
    Симпатии:
    6
    Репутация:
    1
    Дайте норм сниппет для установки углов камеры в указанную точку, по примеру скин аимбота типо.
     
  17. VLnet

    VLnet Пользователь

    Регистрация:
    02.11.2015
    Сообщения:
    16
    Симпатии:
    0
    Репутация:
    0
    Привет всем, как проверить, виден ли радар?
     
    #10977 VLnet, 14 янв 2017
    Последнее редактирование: 14 янв 2017
  18. 7eveNka

    7eveNka Известный пользователь

    Регистрация:
    18.01.2016
    Сообщения:
    260
    Симпатии:
    31
    Репутация:
    9
    IF 0581: enable_radar 1
         THEN
                    chatmsg "radar viden" -1
         ELSE
                    chatmsg "radar ne viden" -1
    END
     
    Rick Taylor нравится это.
  19. VLnet

    VLnet Пользователь

    Регистрация:
    02.11.2015
    Сообщения:
    16
    Симпатии:
    0
    Репутация:
    0
    Он ведь устанавливает значение... А мне нада считать
     
  20. ErrorCompile

    ErrorCompile Пользователь

    Регистрация:
    25.11.2016
    Сообщения:
    23
    Симпатии:
    2
    Репутация:
    1
    0A8D: 0@ = read_memory 0xBA676C size 1 virtual_protect 1
            if
            0039:   0@ == 2
            then
            0AF8: samp add_message_to_chat "Радар отключен" color -1
            else
            0AF8: samp add_message_to_chat "Радар включен" color -1
            end
     
  21. 7eveNka

    7eveNka Известный пользователь

    Регистрация:
    18.01.2016
    Сообщения:
    260
    Симпатии:
    31
    Репутация:
    9
    IF 0581: enable_radar 1 {Если 'enable_radar' равен 1}
         THEN {ТО}
                    chatmsg "radar viden" -1 {Сообщение}
         ELSE {Если равен 0, то}
                    chatmsg "radar ne viden" -1 { Другое сообщение}
    END
     
  22. hnnssy

    hnnssy пичушкин
    Друг

    Регистрация:
    23.03.2013
    Сообщения:
    1.827
    Симпатии:
    1.119
    Репутация:
    188
    чем тебя в детстве били?
     
    4el0ve4ik и VLnet нравится это.
  23. DarkP1xel

    DarkP1xel #ТГК
    BH Team

    Регистрация:
    17.06.2013
    Сообщения:
    2.273
    Симпатии:
    1.420
    Репутация:
    344
    0581 ничего не проверяет. Он выполняет действие и возвращает результат завершения.
     
    Последние данные очков репутации:
    VLnet: 1 Очко 15 янв 2017
    VLnet нравится это.
  24. Javier_Honda

    Javier_Honda Активный пользователь

    Регистрация:
    28.11.2015
    Сообщения:
    35
    Симпатии:
    1
    Репутация:
    0
    Это CLEO для замены оружия например с дигла на сайлент, с калаша на м4 и.т.п, как можно сделать так, чтобы он заменл с дилга на снапу, важно чтобы оружие было настоящим
     

    Вложения:

    • change.cs
      Размер файла:
      18,3 КБ
      Просмотров:
      1
  25. ErrorCompile

    ErrorCompile Пользователь

    Регистрация:
    25.11.2016
    Сообщения:
    23
    Симпатии:
    2
    Репутация:
    1
    Никак, он работает по принципу замены оружия одинакового типа. Если менять дигл на снайпу, это всё равно что через dgun выдать
     
  26. ingg111

    ingg111 Пользователь

    Регистрация:
    08.05.2015
    Сообщения:
    5
    Симпатии:
    1
    Репутация:
    0
    С помощью какого адреса памяти можно включить сирену?
     
  27. DarkP1xel

    DarkP1xel #ТГК
    BH Team

    Регистрация:
    17.06.2013
    Сообщения:
    2.273
    Симпатии:
    1.420
    Репутация:
    344
    03C0: 0@ = actor $PLAYER_ACTOR car
    0A97: 0@ = car 0@ struct
    0C0D: struct 0@ offset 0x42D size 1 = TRUE
     
    Последние данные очков репутации:
    ingg111: 1 Очко 16 янв 2017
    ingg111 и kraft1k нравится это.
  28. ingg111

    ingg111 Пользователь

    Регистрация:
    08.05.2015
    Сообщения:
    5
    Симпатии:
    1
    Репутация:
    0
    За что отвечает опкод 0A97?

    Сирена включаться не хочет, за то выключается.
     
  29. Dark_Knight

    Dark_Knight Мое лицо, когда человек верующий.
    Друг

    Регистрация:
    18.03.2013
    Сообщения:
    2.515
    Симпатии:
    762
    Репутация:
    210
    Получает структуру кара в переменную.
     
  30. DarkP1xel

    DarkP1xel #ТГК
    BH Team

    Регистрация:
    17.06.2013
    Сообщения:
    2.273
    Симпатии:
    1.420
    Репутация:
    344
    Считай когда жмешь сигнал.
     
  31. Perojek)0

    Perojek)0 Известный пользователь

    Регистрация:
    12.01.2016
    Сообщения:
    204
    Симпатии:
    3
    Репутация:
    2
    Как можно узнать, на каком символе установлен курсор, если Чат включён, или что-то подобное?
     
  32. #ripper

    #ripper Пользователь

    Регистрация:
    12.06.2015
    Сообщения:
    17
    Симпатии:
    0
    Репутация:
    0
    подскажите плис. показывает неверное расстояние между актерами. соре, может это и вовсе говно код, но я недавно начал увлекаться клео, и не могу понять что не так, уже как второй день.


    {$CLEO}
    0000:
    
    :reg
    wait 0
    0AFA:  is_samp_available
    jf @reg
    0B34: samp register_client_command "cord" to_label @2
    //0AC8: 1@ = allocate_memory_size 24
    
    :1
    wait 0
    0ADC:   test_cheat "x"
    jf @1
    0B20: samp 2@ = actor_handle_by_samp_player_id 0@
    00A0: store_actor $PLAYER_ACTOR position_to 13@ 14@ 16@
    00A0: store_actor 2@ position_to 10@ 11@ 12@
    050A: 9@ = distance_between_XYZ 10@ 11@ 12@ and_XYZ 13@ 14@ 15@
    
    if and
    9@ > 0.0
    9@ < 4.0
    then
        wait 0
        0AF8: samp add_message_to_chat "%f" color 0xE6E6E6 9@
        0AF8: samp add_message_to_chat "%d" color 0xE6E6E6 0@
        0AF8: samp add_message_to_chat "%s" color 0xE6E6E6 1@
        jump @1
    else
        if and
        9@ > 4.0
        9@ < 8.0
        then
            wait 0
            0AF8: samp add_message_to_chat "%f" color 0xE6E6E6 9@
            0AF8: samp add_message_to_chat "%d" color 0xE6E6E6 0@
            0AF8: samp add_message_to_chat "%s" color 0xE6E6E6 1@
            jump @1
        else
            if and
            9@ > 8.0
            9@ < 12.0
            then
                wait 0
                0AF8: samp add_message_to_chat "%f" color 0xE6E6E6 9@
                0AF8: samp add_message_to_chat "%d" color 0xE6E6E6 0@
                0AF8: samp add_message_to_chat "%s" color 0xE6E6E6 1@
                jump @1
            else
                if and
                9@ > 12.0
                9@ < 16.0
                then
                    wait 0
                    0AF8: samp add_message_to_chat "%f" color 0xE6E6E6 9@
                    0AF8: samp add_message_to_chat "%d" color 0xE6E6E6 0@
                    0AF8: samp add_message_to_chat "%s" color 0xE6E6E6 1@
                    jump @1
                else
                    if and
                    9@ > 16.0
                    9@ < 20.0
                    then
                        wait 0
                        0AF8: samp add_message_to_chat "%f" color 0xE6E6E6 9@
                        0AF8: samp add_message_to_chat "%d" color 0xE6E6E6 0@
                        0AF8: samp add_message_to_chat "%s" color 0xE6E6E6 1@
                        jump @1
                    else                   
                        0AF8: samp add_message_to_chat "%f" color 0xE6E6E6 9@
                        0AF8: samp add_message_to_chat "%d" color 0xE6E6E6 0@
                        0AF8: samp add_message_to_chat "%s" color 0xE6E6E6 1@
                        jump @1
                    end
                end
            end
        end
    end
    
    :2
    wait 0
    0B35: samp 1@ = get_last_command_params
    0C1A: 0@ = atoi 1@
    0B43: samp cmd_ret
    jump @1
     
  33. kraft1k

    kraft1k {$CLEO .cs}
    Проверенный

    Регистрация:
    29.09.2014
    Сообщения:
    509
    Симпатии:
    136
    Репутация:
    59
    
    %.2f
    
     
  34. Kaktyc007

    Kaktyc007 Активный пользователь

    Регистрация:
    07.09.2015
    Сообщения:
    37
    Симпатии:
    0
    Репутация:
    1
    Может кто-нибудь скинуть flooder без использования sampfuncs?
     
  35. 7eveNka

    7eveNka Известный пользователь

    Регистрация:
    18.01.2016
    Сообщения:
    260
    Симпатии:
    31
    Репутация:
    9
    Ты только из пещеры вышел? 2к17, без sf сейчас нихуя не пишут
     
  36. kraft1k

    kraft1k {$CLEO .cs}
    Проверенный

    Регистрация:
    29.09.2014
    Сообщения:
    509
    Симпатии:
    136
    Репутация:
    59
    Ходит миф, что SF - это стиллер...
     
  37. Value_Ekick

    Value_Ekick Новичок

    Регистрация:
    19.01.2017
    Сообщения:
    3
    Симпатии:
    0
    Репутация:
    0
    Hi , i need a simple cleo for upload a cleo ( CLEO/.cs ) to a website host thanks
     
  38. hnnssy

    hnnssy пичушкин
    Друг

    Регистрация:
    23.03.2013
    Сообщения:
    1.827
    Симпатии:
    1.119
    Репутация:
    188
    Value_Ekick нравится это.
  39. Value_Ekick

    Value_Ekick Новичок

    Регистрация:
    19.01.2017
    Сообщения:
    3
    Симпатии:
    0
    Репутация:
    0
  40. hnnssy

    hnnssy пичушкин
    Друг

    Регистрация:
    23.03.2013
    Сообщения:
    1.827
    Симпатии:
    1.119
    Репутация:
    188
    wininet.dll --> FtpPutFileA

    Boby relogin pls, we know who are you