Вернуться   CoderX :: Forums > Lineage II > L2PacketHack > Скриптинг
Войти через OpenID

Скриптинг Форум посвещенный созданию скриптов для L2PacketHack

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 18.11.2010, 16:09   #1
Местный
 
Регистрация: 11.06.2010
Сообщений: 644
Сказал Спасибо: 119
Имеет 85 спасибок в 77 сообщенях
dyh9l пока неопределено
По умолчанию Random...

Как в таймере сделать рандомный таймер интервал до 400 до 700 допустим?
__________________
dyh9l вне форума   Ответить с цитированием
Старый 18.11.2010, 16:15   #2
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию

dyh9l, например так
delphi Код:
timer3.interval:=2000+round(random()*1000); //время задержки, не менее 2 секунд  
__________________
| Для самых ленивый | Телепаты в отпуске |Мы работаем над этим |
Не умеешь - учись, не хочешь учиться - плати © Суровый Закон Жизни


NLObP вне форума   Ответить с цитированием
За это сообщение NLObP нажился спасибкой от:
Старый 18.11.2010, 16:22   #3
Местный
 
Регистрация: 11.06.2010
Сообщений: 644
Сказал Спасибо: 119
Имеет 85 спасибок в 77 сообщенях
dyh9l пока неопределено
По умолчанию

в моем случае:
timer3.interval:=400+round(random(300));
Я правильно понимаю? Число надо рандомное от 400 до 700
И надо ли что-то указывать где-то в переменных?

Добавлено через 3 минуты
фобос, чего сообщение удалил?)
__________________

Последний раз редактировалось dyh9l, 18.11.2010 в 16:22. Причина: Добавлено сообщение
dyh9l вне форума   Ответить с цитированием
Старый 18.11.2010, 16:37   #4
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию

function Random ( LimitPlusOne : Integer ) : Integer;
delphi Код:
Пример кода : // Получение целых случайных чисел в диапазоне 1..100   for i := 1 to 5 do   begin     int := 1 + Random(100);    // Эти 100 значений дают диапазон 0..99     ShowMessage('int = '+IntToStr(int));   end; end; int = 68 int = 32 int = 17 int = 38 int = 43

Описание:
Функция Random генерирует случайные числа. Это могут быть числа с плавающей запятой числами в диапазоне:

0 <= Number <1.0

или целые числа в диапазоне:

0 <= Number
Delphi использует генератор псевдослучайных чисел, который, каждый раз, при выполнении программы возвращает одну и ту же последовательность значений (232).

Чтобы избегать этой предсказуемости, используйте процедуру Randomize. Она в качестве начального псевдослучайного значения устанавливает текущее время.

J-Fobos давал хорошую ссылку на тему

Добавлено через 7 минут
Цитата:
Сообщение от dyh9l Посмотреть сообщение
в моем случае:
timer3.interval:=400+round(random(300));
Я правильно понимаю? Число надо рандомное от 400 до 700
И надо ли что-то указывать где-то в переменных?
Да, правильно.

Вот так я это значение изменяю
delphi Код:
//...................................... procedure OnTimer3(Sender: TObject); begin     timer.enabled:=false//остановим все таймеры     timer2.enabled:=false;     timer3.enabled:=false;     EditItemVal.text:=inttostr(sumitem(ItemID))//всё время обновляем кол-во предметов     EditScrollVal.text:=inttostr(sumitem(ScrollID)); //всё время обновляем кол-во свитков     //рандомное время задержки между улучшениями     timer3.interval:=2000+round(random()*1000); //время задержки, не менее 2 секунд иначе банят!     RequestEnchantItem(ItemOID); end;
__________________
| Для самых ленивый | Телепаты в отпуске |Мы работаем над этим |
Не умеешь - учись, не хочешь учиться - плати © Суровый Закон Жизни



Последний раз редактировалось NLObP, 18.11.2010 в 16:37. Причина: Добавлено сообщение
NLObP вне форума   Ответить с цитированием
За это сообщение NLObP нажился спасибкой от:
Старый 18.11.2010, 21:00   #5
Местный
 
Аватар для Breadfan
 
Регистрация: 29.04.2008
Сообщений: 830
Сказал Спасибо: 80
Имеет 230 спасибок в 169 сообщенях
Breadfan пока неопределено
По умолчанию

Оффтоп
__________________
На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."

А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?

Последний раз редактировалось Breadfan, 18.11.2010 в 21:51.
Breadfan вне форума   Ответить с цитированием
За это сообщение Breadfan нажился спасибкой от:
Ответ

  CoderX :: Forums > Lineage II > L2PacketHack > Скриптинг


Опции темы
Опции просмотра

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

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 15:27.

vBulletin style designed by MSC Team.
Powered by vBulletin® Version 3.6.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot
Locations of visitors to this page
Rambler's Top100

Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!