Перейти к содержанию

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


Рекомендуемые сообщения

Всем привет;)  хочу показать вам пример заморозки значения через 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
Ссылка на комментарий
Поделиться на другие сайты

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

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

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
Ссылка на комментарий
Поделиться на другие сайты

×
×
  • Создать...

Важная информация

Находясь на нашем сайте, Вы автоматически соглашаетесь соблюдать наши Условия использования.