Кружок нубов(Вопрос-Ответ)

[DeVolf]

//QaK:отдельная тема по подкючению пакетхака к серверу >>>>>>>>тут
любые вопросы по данной тематике в этом топе будут удаляться без предупреждения.

const
mp='8A 1B 15 01 10';
hp='8A 1A 15 01 10';
begin
if fromclient and (pck[1]=#$38#$F5#$00#$EF#$00#$00#$00#$03#$00#$00#$00) then
begin
buf:=hstr(hp);
SendToServer;
end;
if fromclient and (pck[2]=#$33#$F5#$00#$EF#$00#$40#$00#$03#$00#$00#$00) then
begin
buf:=hstr(mp);
SendToServer;
end;
end.

где я ошибся?

[Lynx]

Спасибо

[xkor]

Lynx, LoadFromFile читать, SaveToFile писать)

[NLObP]

Сообщение от Lynx

А писать в файл как?

Посмотри скрипт на движение by Alexsl. Вот выдержки

//***************************************************************
function GetValue(ValName: string): string;
begin
  result:=RecordPath.Values[ValName];
end;
//......................................
//***************************************************************
procedure SetValue(ValName: string; Value: string);
begin
  RecordPath.Values[ValName]:=Value;
end;
//......................................
//***************************************************************
procedure StartRecord;
begin
  if SavePathEnabled then exit;
  if MoveToPathEnabled then
  begin
    SendMsg2('Во время следования по маршруту запись не возможна');
    msg.Lines.Add('Во время следования по маршруту запись не возможна');
    exit;
  end;
  RecordPath.Clear;
  PointsCount:=0;
  SendMsg2('Начата запись маршрута');
  msg.Lines.Add('Начата запись маршрута');
  SavePathEnabled:=True
end;
//......................................
//***************************************************************
procedure StopRecord;
begin
  if not SavePathEnabled then exit;
  //записываем
  RecordPath.SaveToFile(GetRecordFileName);
  SendMsg2('Запись маршрута завершена');
  msg.Lines.Add('Запись маршрута завершена');
  SavePathEnabled:=False;
end;
//......................................
//***************************************************************
function GetRecordFileName: string;
begin
  result:=RecordFilesPath+RecordPathFileName+RecordFileExt;
end;
//......................................
//***************************************************************
procedure ParseMoveClient;
var
  i,x,y,z: integer; s: string;
begin
  if not SavePathEnabled then exit;
  i:=2;
  x:=readd(i);
  y:=readd(i);
  z:=readd(i);
  inc(PointsCount);
  s:='|'+inttostr(x)+'|'+inttostr(y)+'|'+inttostr(z)+'|';
  RecordPath.Add(s);
  SendMsg2('добавлен чекпоинт № '+inttostr(PointsCount));
  msg.Lines.Add('добавлен чекпоинт № '+inttostr(PointsCount));
end;
//...................................... 
 

[Lynx]

Спасибо, посмотрел, нашёл полный. Сам хотел писать почти такой же.(Вот, блин, совпадение )

[Johnson]

Проблема такая: не могу загрузить/записать файл.
делаю следующим образом:

  try
    ItemsName.LoadFromFile('.\itemsid.ini');
  except
    msg.Lines.Add('itemsid.ini не найден!');
    exit;
  end;

Файл пробовал кидать и в корень пакетхака, и в папку скриптов.
пробовал SaveToFile, всеравно не пишет.
Подскажите, какая директория является стартовой?
PHX 3.4.1.61

Добавлено через 15 минут
Извиняюсь за своё дурошлёпство... забыл создать СтрингЛист
ItemsName:=TStringList.Create;

Посты можно удалить....

[Lynx]

Можно как-нибудь отлавливать пакеты, которые отправляет другой скрипт?

[QaK]

Lynx,можно.
З.Ы. чем отлавливать? для каких целей?

[Lynx]

Цель:
Сделать так, чтобы этот скрипт ловил пакет 01 на сервер от этого
Не изменяя последнего.

[TAMBIK]

Добрый....... Помогите искал ненашел иль плохо искал или непонял какой кусок скрипта отвечает чтоб бафер сам себя бафал когда закончился баф
надо маленький такой скрипт .как сделать неумею а похожего в скриптах
неувидил. подскажите немного. или ОТПРАВТЕ по адресу где такое
возможно

[Lynx]

Инфа о бафах не в userinfo, случайно приходит?
Если не ловить пакеты: Допустим баф на хп, или на ноги. Сверяешь своё кол-во хп с нормой, или скорости.