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

[M6vsKGB]

блин он у мну не запускается=(
было бы страно если бы запустился=(

[alexteam]

понятное дело не запускаеться...
как минимум из за отсутсвия процедур init, free и begin end. в котором обрабатывается пакет.

[M6vsKGB]

аа фсе вкурил!!=)
пойду спать, завтро доделаю, и буду мучить завтро!))
так что прошу быть на месте

спасибо!

Добавлено через 20 часов 44 минуты
ну вот еще адын вариант.. только он чота выдает ашибку=((

const
Name='Kooper';
ItemID=148;
AdenID=54;
max=100;
var
ItemBaseS:array[1..max] of integer;
KolvoI, KolvoM: integer;
procedure Init;
begin
end;
procedure Free;
begin
end;
procedure GiveAden;
var o: integer;
 begin
  ItemBase;
   for o:=1 to max-10 do begin
      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);
      UpdateItemBase;
    end;
    delay(1000);
    SellItem;
end;
procedure ItemBase;
var i,ss,j,ObjID,ItmID,ListCount,Count,aug:integer;
begin
  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;
     aug:=ReadD(j);
     case ItmID of
        ItemID: begin
            ItemBaseS[ss]:=ObjID;
            inc(ss);
        end;
        AdenID: begin
            KolvoM:=Count;
        end;
     end;
    j:=j+6;
  end;
end;
procedure UpdateItemBase;
var i,ii,j,ObjID,ItmID,ListCount,Count,UpdType,aug: 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;
    aug:=ReadD(j);
    case UpdType of
      1:case ItmID of
          ItemID: begin
            for ii:=1 to max do
             if ItemBaseS[ii]=0 then begin
              ItemBaseS[ii]:=ObjID;
              KolvoI:=KolvoI+1;
              break;
             end;
          end;
        AdenID: begin
            KolvoM:=Count;
        end;
      end;
      end;
    end;
    j:=j+6;
  end;
procedure SellItem;
var i: integer;
ll,ss1: string;
begin
   buf:=HStr('1E 00 00 00 00');
   ll:=HStr(IntToStr(KolvoI));
   WriteD(ll);
   for i:=1 to max do begin
     ss1:=HStr(IntToStr(ItemBaseS[i]));
     WriteD(ssq);
     ll:=HStr('9E 00 00 00 01 00 00 00');
     WriteD(ll);
   end;
   SendToServerEx(Name);
   Clear;
end;
procedure Clear;
var i: integer;
begin
  for i:=1 to max do begin
    ItemBaseS[i]:=0;
  end;
  KolvoI:=0;
end;
begin
   if FromClient and (pck[1]=#$04) then begin
      GiveAden;
   end;
   if KolvoM=2147483648 then begin
   exit;
   end;
end.

вот тут ошибка
buf:=HStr('1E 00 00 00 00');
ll:=HStr(IntToStr(KolvoI));
WriteD(ll); <пишет что Incompatible types :"Integer", "String"
ну я так понимаю что это тип ненравится, но я же вроде перевел уже в строку чего он парится??

[alexteam]

WriteD пишет число в буфер. а ты пытаешся передать процедуре строчку.

[M6vsKGB]

йй ну и деревня=((


мхх чота ничего не идеет=(((((((((((((((
может я чонить пропустил =(

Добавлено через 22 минуты
почему то когда я выделяю торговца ПХ начинает бурно работать, но когда я жму действие он ничег оне делает=(

точнее не хочет он продавать а еще точнее не хочет делать базу предметов=((

Добавлено через 1 час 27 минут

procedure SellItem;
var i: integer;
ll: string;
begin
   buf:=HStr('1E 00 00 00 00');
   WriteD(KolvoI);
   for i:=1 to max do begin
     WriteD(ItemBase[1,i]);
     ll:=HStr('9E 00 00 00 01 00 00 00');
     WriteS(ll);
   end;
   SendToServerEx(Name);
end;

прально написано?
где ItemBase[1,i] ObjID предмета
KolvoI количество предметов

[NLObP]

M6vsKGB, скрипт писать надо с создания заготовки, в пакетхаке это создать "новый скрипт".

Шаблон

procedure Init; //Вызывается при включении скрипта
begin

end;

procedure Free; //Вызывается при выключении скрипта
begin

end;

procedure OnConnect(WithClient: Boolean); //Вызывается при установке соединения
begin

end;

procedure OnDisonnect(WithClient: Boolean); //Вызывается при потере соединения
begin

end;

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin

end.

Далее, начинаешь наполнять переменными, вспомогательными функциями/процедурами, таймерами и в основном теле обработчиками пакетов.

Заполняем шаблон

//имя программы (не обязательно)
program newscript;

//здесь надо описывать константы
const
  Name='Имя чара';
  maxitems=250;        //max количество предметов в базе
  {...}

//далее описывать переменные
var
  MyX, MyY, MyZ : integer;

  //требуется для поддержки БД BuyList
  BaseBuyItems:  array[1..maxitems, 1..2] of integer;  //все предметы в инвентаре продавца
  BuyListID: integer;    //ID списка на продажу (всегда новый)

  {...}

procedure Init; //Вызывается при включении скрипта
begin
  //в этой процедуре обычно описываем переменные, которые надо инициализировать
  //также здесь описываем создание форм и объектов
  {...}
end;

procedure Free; //Вызывается при выключении скрипта
begin
  //здесь описываем освобождение занятых ресурсов объектами и формами
  {...}
end;

procedure OnConnect(WithClient: Boolean); //Вызывается при установке соединения
begin

end;

procedure OnDisonnect(WithClient: Boolean); //Вызывается при потере соединения
begin

end;

//здесь надо описывать процедуры и функции
{...}

procedure BuyList;
{Создаем базу BaseBuyItems}
var
  i, j, k: integer;
  ListCount: integer;
begin
  j:=6; //смещение для ListID
  BuyListID:=ReadD(j);
  ListCount:=ReadH(j); //количество итемов не должно превышать max!
  for i:=1 to maxitems do
  begin
    if (i<=ListCount) then
    begin
      inc(j,6);
      BaseBuyItems[i,1]:=ReadD(j);  //ItemID
      inc(j,18);
      BaseBuyItems[i,2]:=ReadD(j);  //Price*TaxRate
      inc(j,32);
    end else
      for k:=1 to 2 do BaseBuyItems[i,k]:=0; // забиваем нулями
  end;
end;

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin

//здесь описываем вызовы обработчиков пакетов или если обработчики короткие, то можно писать их и здесь

  //не обрабатываем пустые пакеты, сразу на выход
  if pck='' then exit;


  //пошли обработчики серверных пакетов
  if (ConnectName=Name) and FromServer then
  begin
    case pck[1] of
      #$07: begin //07=BuyList
        BuyList; //вызываем процедуру обработки пакета BuyList
      end;
      {...}
    end;
  end;

  //пошли обработчики клиентских пакетов
  if (ConnectName=Name) and FromClient then
  begin
    case pck[1] of
      //ValidatePosition пакет от клиента с моими кординатами
      //59=ValidatePosition:d(X)d(Y)d(Z)d(Heading)d(Data)
      #$59: begin
        //обрабатываем пакет без вызова обработчика
        MyX:=ReadD(2);  //получаю координату х моего чара
        MyY:=ReadD(6);  //получаю координату у моего чара
        MyZ:=ReadD(10); //получаю координату z моего чара
      end;
      {...}
    end;
  end;
end.

PS: скрипт можно вставить в пакетхак и проверить

[M6vsKGB]

дык я спрашиваю про саму процедуру, она прошла проверку.. ну синтаксис правильный.....
а правильно ли я ее написал в смысле, она будет исполняться?
просто я несовсем все понимаю, а написать нужно)

[M6vsKGB]

черт черт черт!!
я это сделалал .ААААААААААААААААААА
тему мона закрыть ^^