Писать скрипты для phx.

[supernewbie]

да какие тут могут быть примеры) вообще, по-хорошему, надо делать так:
1. Создание картины мира (совсем по-хорошему абсолютно полную)
2. И потом по этим данным уже делать действия которые тебе нужны.

через массивы то конечно можно все что угодно сделать)
но TList и класс скажем
TL2Item=class
public
OID,ID:integer;
Count:int64;
Enachant:smallint;
isEquipped:boolean; //и тд
end;

так удобнее, согласись

ну а тут судя по всему придется делать массивы, потом опять же массив нпсов, массив текущего мультиселла, расшифровщик хтмла(наверное) и думаю этого хватит.

[Nickers]

Все гораздо проще на мой взгляд...
Я не лазил у NLObP, но в скрипте TAMBIK'a лазил...
Скрипт простой (Тут я имею виду сам алгоритм скрипта на Энчант, а не конкретного автора), до ужаса...
Если Пакет Юз итем=> Записываем ИД скролла (ИЗ пакета берет ОИД, через ГетИтем получаем ИД)
Если пакет Актион (04 вродя), то записываются все нужные даные
Пакет Мультиселла-> Записываем

Потом в циклах: Поиск через ГетИтем Скролла(Записан ИД), Проверка че из этого получилось(Энчант-лвл), Проверка скок там еще свитков (Если мало то: Актион->Мультиселл) если норм, то по новой...

Ну и там всякие навороты типо сист сообщений, Энчант-лвл-макс в чат...
(Я считаю определение ИД скролла по Юзитем пакету тож наворотом, но эт удобна =))

Добавлено через 3 минуты
dyh9l, Мы на какие хроники то делаем?

Добавлено через 11 минут
Подсчет свитков тамбик устроил вот так:

sumskrol:=Getsumitem(skrolID,3,4);
//где 3-Ид скролла, 4-кол-во, а GetsumItem:
function Getsumitem(Obj,up,down:integer): integer; 
var 
  i: integer;
begin
 Result:= 0; //В начале у нас 0
  for i:=1 to max do
    if (BaseItems[i,up]=Obj) then begin
      Result:=Result+BaseItems[i,down];
   end;
end;
//TAMBIK(c) 
 

Как видно обходится без массива со всеми скроллами...
А функция лишь для подсчета... (Оч удобно)

[dyh9l]

Nickers, c4

Добавлено через 9 минут
пойду тоже тамбика покурю)

[Nickers]

В принципе можно скрипт тамбика переделать, а потом на с4 перегнать...
Добавить в Конст Сейф-Энчант-лвл, ИД Обычного скролла и в механизме энчанта вставить Case До сейва и после сев-энч-лвл (2 разных пути, 2 разных ИД)

Беагин
  Если лвл
    <3 : хуня:=скролл;
    >3 : хуня:=блессскролл;
  Эндь;
  Точить(хуню);
Эндь;

[dyh9l]

нехочу редактировать чужие скрипты) давай новый сделаем)

[supernewbie]

Nickers, советую начинать качать клиент с4)

[Nickers]

supernewbie, Ога ппц влом))

[dyh9l]

supernewbie, злой ты человек..

[supernewbie]

[NLObP]

Так более универсально - для C4

var
  ItemID, ItemOID, ItemEnch: integer;      //ItemID затачиваемого предмета
  //ITEMs
  BaseItems:  array[1..maxitems, 1..12] of integer;  //все предметы в инвентаре

//......................................
Procedure ItemList; //создание базы предметов
var
    i, j, count : integer;
    values : array[0..8] of variant;
begin
    count:=round((length(pck)-5)/ReadH(4));
    for j:=1 to 12 do for i:=1 to maxitems do BaseItems[i,j]:=0;
    for i:=0 to ReadH(4)-1 do
        begin
            readmask('hdddhhhdh', 6+i*count, values);
            BaseItems[i+1,2]:=values[1];  //OID
            BaseItems[i+1,3]:=values[2];  //ItemID
            BaseItems[i+1,5]:=values[3];  //Amount (кол-во предметов)
            BaseItems[i+1,10]:=values[8]; //EnchLvl
        end;
 end;
//......................................
Procedure InventoryUpdate;
var
    i, j, obj, count : integer;
    values : array[0..9] of variant;
begin
    count:=round((length(pck)-3)/ReadH(2));
    for i:=0 to ReadH(2)-1 do
        begin
            readmask('hhdddhhhdh', 4+i*count, values);
            case values[0] of
                1: obj:=0;
                2: obj:=values[2];
                3: begin
                    for i:=1 to maxitems do
                        if BaseItems[i,2]=values[2] then
                            begin
                                for j:=1 to 12 do BaseItems[i,j]:=0;
                                break;
                            end;
                    continue;
                   end;
            end;
            for i:=1 to maxitems do
                if BaseItems[i,2]=obj then
                    begin
                        BaseItems[i,2]:=values[2];  //OID
                        BaseItems[i,3]:=values[3];  //ItemID
                        BaseItems[i,5]:=values[4];  //Amount
                        BaseItems[i,10]:=values[9]; //EnchLvl
                        break;
                    end;
        end;
end;

Тоже самое для Freya

//......................................
Procedure ItemList; //создание базы предметов
var
    i, j, count : integer;
    values : array[0..8] of variant;
begin
    count:=round((length(pck)-5)/ReadH(4));
    for j:=1 to 12 do for i:=1 to maxitems do BaseItems[i,j]:=0;
    for i:=0 to ReadH(4)-1 do
        begin
            readmask('dddqhhhdh', 6+i*count, values);
            BaseItems[i+1,2]:=values[0];
            BaseItems[i+1,3]:=values[1];
            BaseItems[i+1,5]:=values[3];
            BaseItems[i+1,10]:=values[8];
        end;
end;
//......................................
Procedure InventoryUpdate;
var
    i, j, obj, count : integer;
    values : array[0..9] of variant;
begin
    count:=round((length(pck)-3)/ReadH(2));
    for i:=0 to ReadH(2)-1 do
        begin
            readmask('hdddqhhhdh', 4+i*count, values);
            case values[0] of
                1: obj:=0;
                2: obj:=values[1];
                3: begin
                    for i:=1 to maxitems do
                        if BaseItems[i,2]=values[1] then
                            begin
                                for j:=1 to 12 do BaseItems[i,j]:=0;
                                break;
                            end;
                    continue;
                   end;
            end;
            for i:=1 to maxitems do
                if BaseItems[i,2]=obj then
                    begin
                        BaseItems[i,2]:=values[1];
                        BaseItems[i,3]:=values[2];
                        BaseItems[i,5]:=values[4];
                        BaseItems[i,10]:=values[9];
                        break;
                    end;
        end;
end;