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

[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.

где я ошибся?

[PanAm]

Вот пробую напмсать скрипт автопринятие пати с задержкой

Var
  Timer : TTimer;

procedure Init;
begin
  timer :=TTimer.Create(nil);
  timer.OnTimer :=@AnswerJoinParty;
  timer.enabled :=false;
  timer.interval :=3000;
end;

procedure Free;
begin
  timer.Free;
end;

procedure AnswerJoinParty(Sender: TObject);
begin
  timer.enabled :=false;
  buf:=hstr('2A 01 00 00 00');
  SendToServer;
end;

begin
  if FromServer and (pck[1]=#$39) then begin
    pck :='';
    timer.enabled :=true;
  end;
end.

на вид все верно, но когда из первого окна (чар1) создаю пати со вторым окном (чар2), у чара1 пишет что чар1 принят в пати а во втором вообще ничего не происходит. Что не так?

[MHz]

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

Вот пробую напмсать скрипт автопринятие пати с задержкой ... на вид все верно. Что не так?

Даже на вид все неверно.
Раз у тебя запущено 2 клиента то отправляй пакеты именно в те соединия какие надо, а не во все, т.е. юзай ф-ции SendToServerEx. И принимай тоже не все пакеты а именно с того соединения которого ожидаешь, т.е. должны быть проверки ConnectionName = ...

Я в общем сильно в твой скрипт не всматривался, но он режет глаз даже при беглом просмотре

[PanAm]

тоесть в AnswerJoinParty не определено куда будет посылать пакет?
Надо панимать что 1 скрипт работает в одном адресном пространстве на все соединения?

[MakeThis]

Народ помогите плз исправить этот скриптик на кристализацию вещей, чтобы только скупать и бить на кристаллы, вот ссылка http://coderx.ru/showthread.php?p=63...E0%ED#post6357

[QaK]

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

Надо панимать что 1 скрипт работает в одном адресном пространстве на все соединения?

угу,
нужно сдклать типа следующее:

If FromServer and (ConnectName='тот, кто должен принять пати') and (pck[1]=#$39) and ('тот,кто должен кинуть пати'=ReadS(2)) then Timer.Enabled:=True;

procedure AnswerJoinParty(Sender: TObject);
begin
  buf:=hstr('2A 01 00 00 00');
  SendToServerEx('тот, кто должен принимать пати');
  timer.enabled :=false;
end;

[-=Ma}{imuS=-]

это снова я)
наткнулся на простенький скрипт на авто подачу НР-бутылок:

//by 6yDDucT
//автоматическое использование НР пробирок
var MyID:Word;
    OID:String;

begin
 if FromServer and (pck[1]=#$27) and (ReadD(12)=1060) then
   OID:=pck[8]+pck[9]+pck[10]+pck[11]; //1060 - idItem'a который мы хотим юзать, в данном случае Lesser Healing Potion

 if FromServer and (pck[1]=#$04) then  MyID:=ReadD(18);
 if FromServer and (pck[1]=#$0e) and (ReadD(2)=MyID) then
  if ReadD(6)=4 then
   if (ReadD(14)<=400) then //400 - кол-во ХП при котором начнется пьянка.
    begin
     buf:=#$14+OID+#$00#$00#$00#$00;
     SendToServer;
    end;
end.

чето не вдупляю как заставить его пить МР бутылки вместо НР ?? (играю на эбисе) если я не ошибаюсь юзается пакет charinfo, как его расшифровать? обьясните плиз русским языком чтоб я понял...

[metalFan]

надо всего лишь поменять 1060 на айди мана драга ивсе, а чар инфо тебе не нужен

Добавлено через 23 минуты
фу неправда нужен еще как, вот наваял

//by 6yDDucT
//edit by metalFan (Mana)
//автоматическое использование Mana Drug
const name=('metalFan');
var MyID:Word;
    OID:String;
begin
 if (FromServer) and (ConnectName=name) and (pck[1]=#$27) and (ReadD(12)=726) then
   OID:=pck[8]+pck[9]+pck[10]+pck[11]; 
 if FromServer and (ConnectName=name) and (pck[1]=#$04) then  MyID:=ReadD(18);
 if FromServer and (ConnectName=name) and (pck[1]=#$0e) and (ReadD(2)=MyID) then
  if ReadD(6)=4 then
   if (ReadD(82)<=351) then //400 - кол-во MP при котором начнется пьянка.
    begin
     buf:=#$14+OID+#$00#$00#$00#$00;
     SendToServerEx(name);
    end;
end.

жду пасипки

[NLObP]

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

надо всего лишь поменять 1060 на айди мана драга ивсе, а чар инфо тебе не нужен

Что-то ты не то говоришь. В скрипте проверяется ХП, чем оно поможет при питье бутылок маны?

Используется пакет

0E=StatusUpdate:h(ObjectID)d(AttribCount)d(AttrID)d(AttrValue)

ЗЫЖ если поюзать поиск, то можно найти и другие реализации

procedure StatusUpdate;       //обновление данных о себе
var
  i: integer;
begin
  for i:=0 to ReadD(6)-1 do
    case pck[i*8+10] of
      #$09: MyHP:=ReadD(i*8+14);
      #$0A: MyMaxHP:=ReadD(i*8+14);
      #$0B: MyMP:=ReadD(i*8+14);
      #$0C: MyMaxMP:=ReadD(i*8+14);
    end;
  if (MyMP<'значение') then
  begin
  .... //юзать бутылку
  end;
end;

[Adventurer]

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

С чего ты решил, что там должен быть END?
Почитай книжки по Паскалю.

дико извиняюсь за оффтоп.. пакет хак еще не начинал осваивать.. увидел мессагу про паскаль.. глянул на код.. бля.. а ведь и вправду знакомо!!!

язык паскаля на 100% совпадает или только основа?

[NLObP]

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

дико извиняюсь за оффтоп.. пакет хак еще не начинал осваивать.. увидел мессагу про паскаль.. глянул на код.. бля.. а ведь и вправду знакомо!!!

язык паскаля на 100% совпадает или только основа?

В Пакетхаке используется FastScript для поддержки скриптов. FastScript понимает паскаль - можно пользоваться и несколько других языков, в частности си, которые нельзя применять в пакетхаке. Вот ссылка на сайт FastScript, там можно взять мануал.