CLEO Топ-таймер на каптуре.

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

Enjoy

Новичок
Автор темы
Проверенный
164
11
Описание: Онли для с-рп, таймер наркотиков с рендером циферок на экране(сами можете поменять положение, открыв исходник, кому надо). Ну скрипт офк простецкий, но почему-то мне пришлось потратить на него немало времени(спс легенд). Ну и под конец хочу сказать, что с этим софтом вы теперь топ-таймер посан на терре, вас уважают.

+ Добавлю, проверка стоит на строку "Имя_Фамилия употребил(а) наркотик", поэтому не стоит в /me ебошить от руки эту отыгровку, иначе вы будете крупным болваном. (Хотел сделать ещё проверку хп до и после обнаружения строки, но я обосрался, т.к почему-то лагал скрипт)

9TfU6uq.png


Исх. код, можете обсирать.
Код:
{$CLEO .cs}

0000:
Thread "NarkoTimer" 

repeat
wait 400
until 0AFA:

0B6D: render 0@ = create_font "Arial" height 11 flags 5
alloc 1@ 64
alloc 2@ 28
alloc 8@ 64
alloc 16@ 64
0B5A: get_screen_resolution 11@ 12@
11@ /= 2
12@ /= 2
11@ += 250
12@ += 250

while true
wait 0
  
    repeat
    wait 400
    until 0B61: samp is_local_player_spawned

    0B2B: samp 5@ = get_player_id_by_actor_handle $PLAYER_ACTOR
    0B36: samp 6@ = get_player_nickname 5@
    0B75: samp get_chat_string 99 text_to 1@ prefix_to 2@ color_to 3@ prefix_color_to 4@
    0AD3: 8@ = format "%s oiio?aaee(a) ia?eioee" 6@
    if 0C18: 10@ = strstr string1 1@ string2 8@
    then
        03F0: enable_text_draw 1
        13@ = 2
        14@ = 0
        0A8C: write_memory 7634870 size 1 value 1 virtual_protect 1
        0A8C: write_memory 7635034 size 1 value 1 virtual_protect 1
        0AC6: 20@ = label @hex2 offset
        0C11: memset destination 7623723 value 144 size 8
        0AC6: 21@ = label @hex1 offset
        0C11: memset destination 5499528 value 144 size 6
        while true
        wait 0
            if and
                13@ == 0
                14@ == 0
            then
                break
                repeat
                wait 150
                until 13@ > 0
                continue
            end
            if and
                14@ >= 0
                14@ < 10
            then
                15@ = 0
                0AD3: 16@ = format "%d:%d%d" 13@ 15@ 14@
            else
                0AD3: 16@ = format "%d:%d" 13@ 14@
            end
            0B6F: render font 0@ draw_text 16@ pos 11@ 12@ color -1
                while 17@ <= 100
                wait 0
                0B6F: render font 0@ draw_text 16@ pos 11@ 12@ color -1
                17@++
                end
            17@ = 0
            if 14@ == 0
            then
                13@--
                14@ += 59
            else
                14@--
            end
        end
        0A8C: write_memory 7634870 size 1 value 0 virtual_protect 1
        0A8C: write_memory 7635034 size 1 value 0 virtual_protect 1
        0C10: memcpy destination 7623723 source 20@ size 8
        0C10: memcpy destination 5499528 source 21@ size 6
        03F0: enable_text_draw 0
    end
end

:hex1
hex
0F 84 7B 01 00 00
end

:hex2
hex
50 51 FF 15 00 83 85 00
end

Требования: SAMPFUNCS v(можно не самую новую)
Активация:
Автоматическая
Автор: Enjoy
Скачать:

 

Вложения

  • timer.cs
    20.2 KB · Просмотры: 430
Последнее редактирование:
  • Нравится
Реакции: dRaGoN_gReY

Enjoy

Новичок
Автор темы
Проверенный
164
11
А знаешь почему скрипт лагал? Ты память не освобождаешь!
Нах? Она же перезаписыватся
Тащемта я мог обосраться в том, что не выделил память под переменные, в которые получаю хп до и после строки, но это уже совсем другая история.
 

Ne0phYte

Новичок
Проверенный
71
52
А хочешь я помогу тебе в реализации очень точного таймера? И проблем с /me не будет
 

Enjoy

Новичок
Автор темы
Проверенный
164
11
А хочешь я помогу тебе в реализации очень точного таймера? И проблем с /me не будет
Будет неплохо.
На счет лагов, я попробую решить в чем проблема.(у многих так, хотя сам бегал по несколько раз включал и все было гуд)

+ Прикрепил к ОП-посту исходный код.
 
Последнее редактирование:

Ne0phYte

Новичок
Проверенный
71
52
Будет неплохо.
На счет лагов, я попробую решить в чем проблема.(у многих так, хотя сам бегал по несколько раз включал и все было гуд)

+ Прикрепил к ОП-посту исходный код.
Проще новый скрипт написать, такой код никуда не годится :jokingly:
 

Enjoy

Новичок
Автор темы
Проверенный
164
11
Проще новый скрипт написать, такой код никуда не годится :jokingly:
Да эт я прикрепил, чтобы удобнее было поменять что-либо(хотя мб никому не нужно).
Новый написать, ясное дело, но где именно ошибки? Что можно удалить/заменить чем-то другим.
 

Insanity

Известный
247
20
Как поменять положение? исходник нашёл что- какие значения менять?
 

Piratekapitan

Известный
60
17
Лагает, как то страно почему у тебя объявление памяти не в цикле?
 
Статус
В этой теме нельзя размещать новые ответы.