гайд по скриптам

[M6vsKGB]

замечательно.. удалили тему -_-

ну тогда подскажите где есть гайд по написанию скриптов для phx?

[Grinch]

паскаль дельфи и т.д. выбирай какой нравится, этто не валкерт тут нету команд.

[M6vsKGB]

эх ма =\
а я их не знаю =(

[alexteam]

как раз и научишся.
а темку я грохнул (во всяком случае я сегодня чтото грохнул), ибо контекст был более похож на "сделайте и дайте".

[M6vsKGB]

alexteam,
ну ок пордскажи какие комнды использовать сам сделаю ^^
у меня только с этим проблема >.<

ну или напишите гайдик небольшой =) или скажите какие команды нужны для:
отправки покетов
диалога с нпс (продажи н-ного числа предметов)
ну и узнавать сколько денег в инвентаре

ну и наверное нужно будет делать привязку к чару?

[alexteam]

ну ок пордскажи какие комнды использовать сам сделаю ^^
у меня только с этим проблема >.<

разве только с этим %)

ну или напишите гайдик небольшой =) или скажите какие команды

перечень стандартных встроенных в пх процедур и функций есть в мануале.
в качестве примера "как писать и шо есть шо" можно взять один из скриптов из раздела скриптинг.

диалога с нпс (продажи н-ного числа предметов)

таких "команд" нету, их нужно реализовывать самому.

ну и узнавать сколько денег в инвентаре

тоже самое. нужно перехватывать требуемый пакет содержащий перечень предметов в инвентаре и выдергивать оттуда кол-во.

ну и наверное нужно будет делать привязку к чару?

опять же встроенные константы.

[M6vsKGB]

воо кул!!!то что нужно может чонить и рожу)
если какието траблы будут помогите?)))

Добавлено через 8 минут
воо кул!!!то что нужно может чонить и рожу)
если какието траблы будут помогите?)))

только вот сходу тройка вапросов:

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

тоже самое. нужно перехватывать требуемый пакет содержащий перечень предметов в инвентаре и выдергивать оттуда кол-во.

и как это сделать =)

и диалог с нпс:
я так думаю нуно отловить парочку покетсов во время того как ты в окне л2 ведешь диалог с нпс?

ид предмета из файлика в корне phx узнавать?

вот ^^

[alexteam]

каким образом распознать пакет по id - любой скрипт из раздела скриптинг.
поля пакета считываются встроенными функциями. как ? - бери пример. в том же разделе.
подробней по полям в том же гайде

[M6vsKGB]

alexteam,
неудаляй тему плиз я в нее потом скину то что получилось или не получилось) на рецензию и коректировку)

 const
  Name='Kopper';
  ItemID=158;        //
  MoneyID=111;            //
  max=100;                 //
  maxm=2000000000;          //
  var
  ItemBase:array[1..max] of integer;
  ItemBaseS:array[1..max] of string;
  Sell: string;
  KolvoI,KolvoM: integer;
procedure Init;
  var i:integer;
  begin
   buf:=hstr('0F');
   SendToServerEx(Name);
  end;
  procedure Free;
  var i:integer;
   begin
   KolvoI:=0;
   KolvoM:=0;
    for i:=1 to max do begin
     ItemBase[i]:=0;
    end;
   end;
procedure CreateItemBase;
  var i,ss,j,ObjID,ItmID,ListCount,Count:integer;
  begin
    Item:=0;
    ss:=1;
    j:=4;
    ListCount:=ReadH(j);
   if ListCount>max then ListCount:=max;
     j:=8;
   for i:=1 to ListCount do begin
     ObjID:=ReadD(j);
     ItmID:=ReadD(j);
     Count:=ReadD(j);
     j:=j+14;
     case ItmID of
        ItemID: begin
            ItemBase[ss]:=ObjID;
            ss:=ss+1;
            Kolvoi:=Kolvoi+1;
        end;
      //  MoneyID: begin
        //    KolvoM=Count;
       // end;
     end;
    j:=j+6;
   end;
 end;
procedure UpdateItemBase;
  var i,ii,j,ObjID,ItmID,ListCount,Count,UpdType: integer;
  begin
    ListCount:=ReadH(2);
    j:=4;
  for i:=1 to ListCount do begin
    UpdType:=ReadH(j);
    j:=j+2;
    ObjID:=ReadD(j);
    ItmID:=ReadD(j);
    Count:=ReadD(j);
    j:=j+14;
     case UpdType of
        1:case ItmID of
          ItemID: begin
            for ii:=1 to max do
             if ItemBase[ii]=0 then begin
              ItemBase[ii]:=ObjID;
              KolvoI:=KolvoI+1;
              break;
             end;
          end;
          end;
          MoneyID: begin
            KolvoM:=Count;
          end;
        end;
     end;
    j:=j+6;
  end;
 procedure CollectSells;
 var l: integer;
 begin
   if KolvoI=90 and KolvoM<maxm then begin
    Sell:=hstr('1E')+hstr('00 00 00 00 50 00 00 00');
    for l:=1 to max do
     Sell:=Sell+HStr(IntToStr(ItemBase[l]))+hstr('9E 00 00 00 01 00 00 00');
   end;
 end;
 procedure SellItems;
 var k: integer;
 begin
   if KolvoI=90 and KolvoM<maxm then begin
      buf:=hstr('21 6E 00 70 00 63 00 5F 00 32 00 36 00 38 00 34 00 36 00 39 00 33 00 35 00 32 00 5F 00 53 00 65 00 6C 00 6C 00 00 00');
      SendToServerEx(Name);
      delay(200);
      buf:=Sell;
      SendToServerEx(Name);
   end;
   Free;
   UpdateItemBase;
   SendServ;
 end;
 procedure SendServ;
  begin
    while KolvoI<90 and KolvoM<maxm do
      buf:=hstr('C6 C0 13 00 00 19 00 00 00 01 00 00 00 81 00 00 00');
      SendToServerEx(Name);
      buf:=hstr('A7 30 7D 8D 12 C0 A5 5F 03 01 00 00 00');
      SendToServerEx(Name);
      delay(200);
      Free;
      UpdateItemBase;
    end;

чего й то он у мну не запускается=(
ненашел ИД денег.. где его взять хз=\ через ПХ тоже не получается..только ОбжектИД как его использовать..
не могу понять такую фигню как считывается вот эта фигня..
ObjID:=ReadD(j);
ItmID:=ReadD(j);
Count:=ReadD(j);
там же вроде все берется из одного значения: в общем это для мну космос.. побудьте коперниками обьясните)

[alexteam]

итемайди у денег - 57 (в ItemsID.ini они описаны... как бы..)
колво можно узнать из пакета инвентаря идущего на клиент, либо по апдейту.
ххх:=ReadD(j); читает 4 байта из буфера по позиции j и смещает j на 4.
зы. я в скриптах не очень.. я больше по внутренней остнастке пх.