Показать сообщение отдельно
Старый 18.09.2015, 17:10   #3
Новичок
 
Регистрация: 18.09.2015
Сообщений: 3
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
xxx00xxx пока неопределено
По умолчанию

Код:
var 
i,b,c:integer;
Stream:TFileStream;
procedure Init; //Вызывается при включении скрипта
begin;
i:=1;
b:=1;
try //пытаемся создать файл, но если такой существует то открываем его
Stream := TFileStream.Create('d:\id2.txt', fmOpenReadWrite);
except
Stream := TFileStream.Create('d:\id2.txt', fmCreate);
end;
end;
procedure Free; //Вызывается при выключении скрипта
begin
Stream.free;
end;
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
if FromClient and (pck[1]=#$56) then
begin
pck:='';
buf:=#$23;
end;
begin
c:=ReadD(i);
if ((ReadD(i)<100)) then begin
b:=b+1;
end;
WriteS('menu_select?ask='+inttostr(b)+'&reply='+inttostr(i));
SendToServer; 
inc(i);
inc(b); 
end;
  if FromServer and (pck[1]=#$D0) then
Stream.Write(inttostr(Readd(2))+' ',10);
end.
вот сам скрипт . Смысл скрипта - Перменная B не меняется , пока переменная I не достигнет значения 100 выше 100. как Переменная i достигает значения выше 100. Меняется число переменной б +1. И еще задача что бы переменная I сбросилась на 0, после как переменная B прибавит к себе +1.
как не пытаюсь все это провернуть , получаю какието рандом значения .

Последний раз редактировалось xxx00xxx, 18.09.2015 в 17:13.
xxx00xxx вне форума   Ответить с цитированием