Recpec158

Заморозка значения через Lua скрипт для CE

3 сообщения в этой теме

Всем привет;)  хочу показать вам пример заморозки значения через Lua скрипт в CE

 

Пример:

Скрытый текст

Znachenie = '[[[[["PlantsVsZombies.exe"+008AE91C]+4]+144]+0]+120]+b0' --адрес со значением который будем замораживать.
ReadZnachenie = ReadInteger(Znachenie)

function CECheckbox1Change(sender)
        if ( checkbox_getState(sender)== 1 ) then

                CETrainer.CETimer1.setEnabled(true)   -- Включаем таймер
        else
                CETrainer.CETimer1.setEnabled(false)  -- Выключаем таймер
        end
end

function CETimer1Timer(sender)             -- Таймер, интервал рекомендую ставить на "100"
writeInteger(Znachenie,ReadZnachenie -1)   -- Отнимаем "1" от значения из адреса, тем самым возвращаем значение назад.
end

 

 

1

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

PS. "-1" потому что я замораживаю время, таймер иногда глюкает и значение проскакивает вперед на 1-2 где-то))

Изменено пользователем Recpec158
0

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

Вот улучшил скрипт, теперь значение сохраняется в заголовок лейбла:

Скрытый текст

Znachenie = '[[[[["PlantsVsZombies.exe"+008AE91C]+4]+144]+0]+120]+b0'    -- адрес со значением который будем 
ReadZnachenie = ReadInteger(Znachenie)                                                        --замораживать.

function CECheckbox1Change(sender)                                       -- Чекбокс
        if ( checkbox_getState(sender)== 1 ) then

                CETrainer.CETimer1.setEnabled(true)                      -- Включаем таймер
                control_setCaption(CETrainer_CELabel1,ReadZnachenie)     -- Сохраняем текуще значение из адреса в 
                                                                                      --заголовок лейбла на форме
                
        else
                CETrainer.CETimer1.setEnabled(false)                     -- Выключаем таймер
        end
end

function CETimer1Timer(sender)                       
Zamorozkafreeze = control_getCaption(CETrainer_CELabel1)     -- Читаем значение из заголовка лейбла
writeInteger(Znachenie,Zamorozkafreeze)                      -- Пишет сохраненное значение из заголовка лейбла в
end                                                                                           --память по адресу

 

 

1

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

Создайте аккаунт или войдите для комментирования

Вы должны быть пользователем, чтобы оставить комментарий

Создать аккаунт

Зарегистрируйтесь для получения аккаунта. Это просто!


Зарегистрировать аккаунт

Войти

Уже зарегистрированы? Войдите здесь.


Войти сейчас