таймер, с рендомным интервалом:
Оффтоп
delphi Код:
var
TT1:ttimer;
res:integer;
min, max:integer;
procedure Init; //Вызывается при включении скрипта
begin
min:=500;
max:=7000;
TT1:=TTimer.Create(nil);
TT1.OnTimer:=@Mesg;
TT1.enabled:=True; //таймер вкл.
TT1.interval:=1000; //стартовое значение интервала
end;
procedure Free; //Вызывается при выключении скрипта
begin
TT1.enabled:=False;
end;
procedure Mesg; //проц-ра выполняющаяся по таймеру
begin
res:=min+int((max-min)*random); //где мин\макс - границы диапазона
TT1.interval:=res; //интервалу присваевается новое значение
SendMsg('Интервал: '+inttostr(TT1.interval)); //выводим интервал
end;
begin
end.
а заодно - удобнее было бы сделать stakan - булевым, используя его без всяких =0\=1
delphi Код:
if (STAKAN=0) or (ZAKUSKA=0) then begin // если стакан пуст или нет закуски, то начать следующие операции
STAKAN:=1; // налить
ZAKUSKA:=1; // достать банку с огурцами
end;
код неверен. если стакан налит но закуски нет - все равно нальет в стакан.
__________________
На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
Последний раз редактировалось Breadfan, 28.12.2011 в 06:41.
|