Помогите с клео.

C

Cloud.

Активный
Автор темы
443
36
CLEO: 
       // This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .cs}
{$USE bitwise}
{$USE CLEO+}
{$USE file}

0000: NOP

:Noname_17
wait 0
   SAMP.Available
jf @Noname_17
0@ = 1
0B34: samp register_client_command "kol" to_label @Noname_167
0B34: samp register_client_command "bell" to_label @Noname_167
chatmsg "{73b461}[BELL] {ffffff}Loaded! Use: {DC4747}/bell /kol" color -1
0BDE: pause_thread 0

:Noname_167
0B12: 0@ = 0@ XOR 1
if
0@ == 0
jf @Noname_236
chatmsg "{73b461}[BELL] {DC4747}OFF!" color -1
jump @Noname_269

:Noname_236
chatmsg "{73b461}[BELL] {FFFFFF}ON!" color -1

:Noname_269
SAMP.CmdRet
0BE5: raknet 1@ = get_hook_param 1
if and
1@ == 115
0@ == 1
jf @Noname_349
0BE5: raknet 2@ = get_hook_param 0
3@ = BitStream.Read(2@, 1)
if
3@ == 0
jf @Noname_349
03CF: load_wav 17802 as 1
03D1: play_wav 1

:Noname_349
0BE0: raknet hook_ret 1

:Noname_353
wait 0
if
   SAMP.Available
jf @Noname_353
alloc 29@ = allocate_memory_size 128
wait 0
0A8D: 25@ = read_memory 9980123 size 1 virtual_protect 1
if
25@ == 0
jf @Noname_2544
0A8C: write_memory 9980123 size 1 value 1 virtual_protect 1

:Noname_427
wait 0
23@ = SAMP.GetGamestate()
if
23@ == 3
jf @Noname_427
wait 0
29@ = SAMP.GetCurrentServerName()
if
0C18: 18@ = strstr string1 29@ string2 "Saint"
jf @Noname_2544
0209: 10@ = random_int_in_ranges 300000 480000
free 29@

:Noname_509
wait 0
0209: 11@ = random_int_in_ranges 0 6
if
11@ == 0
jf @Noname_853
wait 10@
chatmsg " " color -1
chatmsg "{73b461}[Информация] {FFFFFF}Работает {73b461}Бар №5 {FFFFFF}'Ten Green Bottles'" color -1
chatmsg "{73b461}[Информация] {FFFFFF}Здесь сейчас играют в {73b461}Орла и Решку {FFFFFF}на {73b461}1.000.000$" color -1
chatmsg "{73b461}[Информация] {FFFFFF}Присоединяйся к нам {FFFF00}/findibiz 5" color -1
chatmsg " " color -1
0209: 10@ = random_int_in_ranges 1200000 2100000
jump @Noname_2537

:Noname_853
if
11@ == 1
jf @Noname_1157
wait 10@
chatmsg " " color -1
chatmsg "{73b461}[Информация] {FFFFFF}Работает {73b461}Бар №5 {FFFFFF}'Ten Green Bottles'" color -1
chatmsg "{73b461}[Информация] {FFFFFF}Здесь сейчас поднимают бешеные бабки!" color -1
chatmsg "{73b461}[Информация] {FFFFFF}Зарабатывай с нами миллионы {FFFF00}/findibiz 5" color -1
chatmsg " " color -1
0209: 10@ = random_int_in_ranges 1200000 2100000
jump @Noname_2537

:Noname_1157
if
11@ == 2
jf @Noname_1498
wait 10@
chatmsg " " color -1
chatmsg "{73b461}[Информация] {FFFFFF}Работает {73b461}Бар №5 {FFFFFF}'Ten Green Bottles'" color -1
chatmsg "{73b461}[Информация] {FFFFFF}Здесь ты можешь встретить ютуберов {73b461}Jezus_Black {FFFFFF}и {73b461}Dapo_Dope" color -1
chatmsg "{73b461}[Информация] {FFFFFF}Приходи скорее сюда {FFFF00}/findibiz 5" color -1
chatmsg " " color -1
0209: 10@ = random_int_in_ranges 1200000 2100000
jump @Noname_2537

:Noname_1498
if
11@ == 3
jf @Noname_1846
wait 10@
chatmsg " " color -1
chatmsg "{73b461}[Информация] {FFFFFF}Работает {73b461}Бар №5 {FFFFFF}'Ten Green Bottles'" color -1
chatmsg "{73b461}[Информация] {FFFFFF}Ютуберы {73b461}Jezus {FFFFFF}и {73b461}Dapo {FFFFFF}здесь разыгрывают крутые аксессуары!" color -1
chatmsg "{73b461}[Информация] {FFFFFF}Приходи скорее сюда {FFFF00}/findibiz 5" color -1
chatmsg " " color -1
0209: 10@ = random_int_in_ranges 1200000 2100000
jump @Noname_2537

:Noname_1846
if
11@ == 4
jf @Noname_2193
wait 10@
chatmsg " " color -1
chatmsg "{73b461}[Информация] {FFFFFF}Работает {73b461}Бар №5 {FFFFFF}'Ten Green Bottles'" color -1
chatmsg "{73b461}[Информация] {FFFFFF}Только здесь люди поднимаются от {dc4747}Бомжа {FFFFFF}до {73b461}Мажора{FFFFFF}!" color -1
chatmsg "{73b461}[Информация] {FFFFFF}Зарабатывай миллионы здесь {FFFF00}/findibiz 5" color -1
chatmsg " " color -1
0209: 10@ = random_int_in_ranges 1200000 2100000
jump @Noname_2537

:Noname_2193
if
11@ == 5
jf @Noname_2537
wait 10@
chatmsg " " color -1
chatmsg "{73b461}[Информация] {FFFFFF}Работает {73b461}Бар №5 {FFFFFF}'Ten Green Bottles'" color -1
chatmsg "{73b461}[Информация] {FFFFFF}Лучшее казино только в нашем баре. Ставки от {dc4747}1$ {FFFFFF}до {73b461}1.000.000$" color -1
chatmsg "{73b461}[Информация] {FFFFFF}Стать богатым очень просто {FFFF00}/findibiz 5" color -1
chatmsg " " color -1
0209: 10@ = random_int_in_ranges 1200000 2100000

:Noname_2537
jump @Noname_509

:Noname_2544
free 29@
end_thread
wait 0

:Noname_2555
wait 0
   SAMP.Available
jf @Noname_2555
0A8D: 25@ = read_memory 9980124 size 1 virtual_protect 1
if
25@ == 1
jf @Noname_2609
end_thread
jump @Noname_2622

:Noname_2609
0A8C: write_memory 9980124 size 1 value 1 virtual_protect 1

:Noname_2622
alloc 29@ = allocate_memory_size 256

:Noname_2630
wait 0
23@ = SAMP.GetGamestate()
if
23@ == 3
jf @Noname_2630
wait 200
29@ = SAMP.GetCurrentServerName()
if
0C18: 18@ = strstr string1 29@ string2 "Arizona"
jf @Noname_3834
free 29@
free 23@
free 18@
0BE3: raknet setup_incoming_rpc_hook -3485

:Noname_2717
wait 0
if
7@ == 1
jf @Noname_2717
wait 1000
03CF: load_wav 31204 as 2
03CF: load_wav 21001 as 1
wait 15000
chatmsg "{73b461}[Подсказка] {FFFFFF}Спасибо за регистрацию на{dc4747} Arizona Role Play!" color -1
03D1: play_wav 1
wait 3000
chatmsg "{73b461}[Подсказка] {FFFFFF}Ник {dc4747}Dapo_Dope {FFFFFF}был указан {73b461}автоматически!" color -1
03D1: play_wav 1
wait 500
chatmsg "{73b461}[Подсказка] {FFFFFF}Прокачивайся до {dc4747}5-го {FFFFFF}уровня и вводи промокод {dc4747}#dapo" color -1
03D1: play_wav 1
wait 500
chatmsg "{73b461}[Подсказка] {FFFFFF}Он выдаст тебе целых {73b461}600.000 {FFFFFF}вирт!" color -1
03D1: play_wav 1
wait 500
chatmsg "{73b461}[Подсказка] {FFFFFF}Затем кидай статистику мне в ВК:{dc4747} vk.com/dapodope " color -1
03D1: play_wav 1
wait 500
chatmsg "{73b461}[Подсказка] {FFFFFF}После чего тебя закинут в беседу, где сливаются {dc4747}ПРИВАТНЫЕ МОДЫ!" color -1
03D1: play_wav 1
wait 500
chatmsg "{73b461}[Подсказка] {FFFFFF}Приятной игры на {dc4747}Arizona Role Play!" color -1
03D1: play_wav 2
end_thread
jump @Noname_3834
0BE5: raknet 0@ = get_hook_param 1
if
0@ == 61
jf @Noname_3830
0BE5: raknet 0@ = get_hook_param 0
3@ = BitStream.Read(0@, 2)
4@ = BitStream.Read(0@, 0)
5@ = BitStream.Read(0@, 0)
if and
3@ == 1
4@ == 2
5@ == 37
jf @Noname_3600
0BC9: samp send_dialog_response dialog 1 button 1 listitem 1 input 0
0BE0: raknet hook_ret 0
jump @Noname_3830

:Noname_3600
if and
3@ == 1
4@ == 1
5@ == 48
jf @Noname_3787
0BC9: samp send_dialog_response dialog 1 button 1 listitem 0 input "Dapo_Dope"
chatmsg "{73b461}[Подсказка] {FFFFFF}Ник {dc4747}Dapo_Dope {FFFFFF}был указан {73b461}автоматически!" color -1
018C: play_sound 1052 at 0.0 0.0 0.0
7@ = 1
0BE0: raknet hook_ret 0
jump @Noname_3830

:Noname_3787
if and
3@ == 2
4@ == 3
5@ == 19
jf @Noname_3830
7@ = 3
0BE0: raknet hook_ret 1

:Noname_3830
0BE0: raknet hook_ret 1

:Noname_3834
end_thread
wait 0

:Noname_3840
wait 0
   SAMP.Available
jf @Noname_3840
0A8D: 25@ = read_memory 9980125 size 1 virtual_protect 1
if
25@ == 1
jf @Noname_3894
end_thread
jump @Noname_3907

:Noname_3894
0A8C: write_memory 9980125 size 1 value 1 virtual_protect 1

:Noname_3907
wait 0
0@ = SAMP.GetGamestate()
0@ == 3
jf @Noname_3907
alloc 0@ = allocate_memory_size 128
wait 300
0@ = SAMP.GetCurrentServerName()
if
8C18:   not TIMERB = strstr string1 0@ string2 "Saint"
jf @Noname_3981
free 0@
end_thread

:Noname_3981
alloc 4@ = allocate_memory_size 1024
alloc 5@ = allocate_memory_size 1024
0BE3: raknet setup_incoming_rpc_hook -4008
0BDE: pause_thread 0
0BE5: raknet 1@ = get_hook_param 1
if
1@ == 93
jf @Noname_4743
0BE5: raknet 1@ = get_hook_param 0
BitStream.ResetReadPointer(1@)
2@ = BitStream.Read(1@, 3)
3@ = BitStream.Read(1@, 3)
BitStream.ReadArray(1@, 4@, 3@)
0C1E: array 4@ element 3@ el_size 1 = 0
if or
0C29: 6@ = stristr string1 4@ string2 "{F345FC}[PREMIUM] {FFFFFF}Dapo_Dope"
0C29: 6@ = stristr string1 4@ string2 "{F345FC}[PREMIUM] {FFFFFF}Jezus_Black"
jf @Noname_4345
if
0C18: 8@ = strstr string1 4@ string2 " {FFFFFF}Dapo_Dope"
jf @Noname_4259
format 5@ = format "[YOUTUBE]%s" 8@
jump @Noname_4323

:Noname_4259
if
0C18: 8@ = strstr string1 4@ string2 " {FFFFFF}Jezus_Black"
jf @Noname_4323
format 5@ = format "[YOUTUBE] %s" 8@

:Noname_4323
chatmsg 5@ color 16746810
0BE0: raknet hook_ret 0
jump @Noname_4743

:Noname_4345
if and
0C29: 6@ = stristr string1 4@ string2 "Dapo_Dope"
0C29: 6@ = stristr string1 4@ string2 "Отправил:"
jf @Noname_4467
0C18: 8@ = strstr string1 4@ string2 ":"
format 5@ = format "[ELITE VIP]{DFA8FF}%s " 8@
chatmsg 5@ color 16755023
10@ = 1
0BE0: raknet hook_ret 0
jump @Noname_4743

:Noname_4467
if and
0C29: 6@ = stristr string1 4@ string2 "Jezus_Black"
0C29: 6@ = stristr string1 4@ string2 "Отправил:"
jf @Noname_4591
0C18: 8@ = strstr string1 4@ string2 ":"
format 5@ = format "[ELITE VIP]{DFA8FF}%s " 8@
chatmsg 5@ color 16755023
10@ = 1
0BE0: raknet hook_ret 0
jump @Noname_4743

:Noname_4591
if and
10@ == 1
0C29: 6@ = stristr string1 4@ string2 "Отредактировал сотрудник СМИ"
jf @Noname_4743
if
0C18: 8@ = strstr string1 4@ string2 "Отредактировал сотрудник СМИ"
jf @Noname_4743
format 5@ = format "[!] {DFA8FF}%s" 8@
chatmsg 5@ color 16755023
10@ = 0
0BE0: raknet hook_ret 0

:Noname_4743
0BE0: raknet hook_ret 1
0A9F: 2@ = current_thread_pointer
2@ += 16
0A8D: 3@ = read_memory 2@ size 4 virtual_protect 1
0062: 3@ -= 0@ // (int)
4@ = 0

:Noname_4847
0A8E: 5@ = 3@ + 4@ // int
0A8D: 6@ = read_memory 5@ size 1 virtual_protect 1
7@ = 103
0A8F: 6@ = 255 - 6@ // int
0A8C: write_memory 5@ size 1 value 6@ virtual_protect 1
4@ += 1
001D:   4@ > 1@ // (int)
jf @Noname_4847
ret 0

Уберите ебаную рекламу, и авторефералку
 
Последнее редактирование модератором:
Решение
D3.Pheonix
Колокол на исходящий урон ? Пздц 90% кода - дапо-мусор
CLEO: 
{$CLEO .cs}
{$USE bitwise}

0000: NOP

0@ = 1

repeat
wait 0
until Samp.Available()
0BE1: raknet setup_outcoming_rpc_hook @hook
0B34: samp register_client_command "kol" to_label @cmd
0B34: samp register_client_command "bell" to_label @cmd
chatmsg "{73b461}[BELL] {ffffff}Loaded! Use: {DC4747}/bell /kol" color -1
0BDE: pause_thread 0

:hook
0BE5: raknet 1@ = get_hook_param 1
if and
1@ == 115
0@ == 1
then
0BE5: raknet 2@ = get_hook_param 0
3@ = BitStream.Read(2@, 1)
    if
    3@ == 0
    then
    03CF: load_wav 17802 as 1
    03D1: play_wav 1
    end
end
0BE0: raknet hook_ret 1

:cmd
0B12: 0@ = 0@ XOR 1
if
0@ == 0
then
chatmsg "{73b461}[BELL] {DC4747}OFF!" color -1
else
chatmsg...
Сортировка по дате Сортировка по голосам
D3.Pheonix

D3.Pheonix

🎹
Модератор
2,817
1,599
Колокол на исходящий урон ? Пздц 90% кода - дапо-мусор
CLEO: 
{$CLEO .cs}
{$USE bitwise}

0000: NOP

0@ = 1

repeat
wait 0
until Samp.Available()
0BE1: raknet setup_outcoming_rpc_hook @hook
0B34: samp register_client_command "kol" to_label @cmd
0B34: samp register_client_command "bell" to_label @cmd
chatmsg "{73b461}[BELL] {ffffff}Loaded! Use: {DC4747}/bell /kol" color -1
0BDE: pause_thread 0

:hook
0BE5: raknet 1@ = get_hook_param 1
if and
1@ == 115
0@ == 1
then
0BE5: raknet 2@ = get_hook_param 0
3@ = BitStream.Read(2@, 1)
    if
    3@ == 0
    then
    03CF: load_wav 17802 as 1
    03D1: play_wav 1
    end
end
0BE0: raknet hook_ret 1

:cmd
0B12: 0@ = 0@ XOR 1
if
0@ == 0
then
chatmsg "{73b461}[BELL] {DC4747}OFF!" color -1
else
chatmsg "{73b461}[BELL] {FFFFFF}ON!" color -1
end
SAMP.CmdRet()
 
Последнее редактирование:
Позитивный голос 1 Негативный голос
Решение
C

Cloud.

Активный
Автор темы
443
36
D3.Pheonix написал(а):
Колокол на исходящий урон ? Пздц 90% кода - дапо-мусор
CLEO: 
{$CLEO .cs}
{$USE bitwise}

0000: NOP

0@ = 1

repeat
wait 0
until Samp.Available()
0BE1: raknet setup_outcoming_rpc_hook @hook
0B34: samp register_client_command "kol" to_label @cmd
0B34: samp register_client_command "bell" to_label @cmd
chatmsg "{73b461}[BELL] {ffffff}Loaded! Use: {DC4747}/bell /kol" color -1
0BDE: pause_thread 0

:hook
0BE5: raknet 1@ = get_hook_param 1
if and
1@ == 115
0@ == 1
then
0BE5: raknet 2@ = get_hook_param 0
3@ = BitStream.Read(2@, 1)
    if
    3@ == 0
    then
    03CF: load_wav 17802 as 1
    03D1: play_wav 1
    end
end
0BE0: raknet hook_ret 1

:cmd
0B12: 0@ = 0@ XOR 1
if
0@ == 0
then
chatmsg "{73b461}[BELL] {DC4747}OFF!" color -1
else
chatmsg "{73b461}[BELL] {FFFFFF}ON!" color -1
end
SAMP.CmdRet()
Нажмите для раскрытия...
++, гавнокод пизда, но а его колоколе есть одна хуйня, которой я нигде не находил, а то что звук колокола не с какогото файла, а с папки аудио

D3.Pheonix написал(а):
Колокол на исходящий урон ? Пздц 90% кода - дапо-мусор
CLEO: 
{$CLEO .cs}
{$USE bitwise}

0000: NOP

0@ = 1

repeat
wait 0
until Samp.Available()
0BE1: raknet setup_outcoming_rpc_hook @hook
0B34: samp register_client_command "kol" to_label @cmd
0B34: samp register_client_command "bell" to_label @cmd
chatmsg "{73b461}[BELL] {ffffff}Loaded! Use: {DC4747}/bell /kol" color -1
0BDE: pause_thread 0

:hook
0BE5: raknet 1@ = get_hook_param 1
if and
1@ == 115
0@ == 1
then
0BE5: raknet 2@ = get_hook_param 0
3@ = BitStream.Read(2@, 1)
    if
    3@ == 0
    then
    03CF: load_wav 17802 as 1
    03D1: play_wav 1
    end
end
0BE0: raknet hook_ret 1

:cmd
0B12: 0@ = 0@ XOR 1
if
0@ == 0
then
chatmsg "{73b461}[BELL] {DC4747}OFF!" color -1
else
chatmsg "{73b461}[BELL] {FFFFFF}ON!" color -1
end
SAMP.CmdRet()
Нажмите для раскрытия...
Бля спс, но если еше смогу скомпилить, то поставлб решение, хах
 
Последнее редактирование:
Позитивный голос 0 Негативный голос
C

Cloud.

Активный
Автор темы
443
36
D3.Pheonix написал(а):
я отредачил сообщение, перекомпилируй
Нажмите для раскрытия...
окей, щя попробую

D3.Pheonix написал(а):
я отредачил сообщение, перекомпилируй
Нажмите для раскрытия...
у дапо в клео стоит блокировка серверного колокола, так вот, у меня есть такой скрипт, как их соединить?
 

Вложения

  • blocksound.cs
    6.1 KB · Просмотры: 5
Последнее редактирование:
Позитивный голос 0 Негативный голос
Войдите или зарегистрируйтесь для ответа.

Похожие темы

  1. ID_Heaven
    • Закрыта
    Cleo Kill Gta
    Ответы
    3
    Просмотры
    818
    Архив
    iTz_WEEZY
    iTz_WEEZY
  2. $
    • Закрыта
    • Вопрос
    Помогите клео найти
    Ответы
    1
    Просмотры
    726
    Помощь
    ™ ChipFamily
    ™
  3. В
    • Вопрос
      Помогите клео изменить.
    Ответы
    0
    Просмотры
    662
    Помощь
    Валеас
    В
  4. wakkap
    • Вопрос
    Клео для СС
    Ответы
    0
    Просмотры
    319
    Помощь
    wakkap
    wakkap
  5. rizhiksuper
    • Вопрос
    Помогите КЛЕО
    Ответы
    2
    Просмотры
    502
    Помощь
    rizhiksuper
    rizhiksuper
Сверху Снизу