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

[Nickers]

Отвечаем на вопросы пользователей по скрипто-писанию.

Оффтоп

Хотел создать мануал по написанию скриптов под ПХ, который уж 5 лет никто написать не может (Я не встречал), но сталкнулся с проблемой, что большинство тех, кто еще не научились писать скрипты попросту не знают языка... Описывать с нуля каждую функцию это ппц... Гораздо легче объяснять "Детям Фри или Турбо паскаля" (Таким же как я)

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

Ну начнем пожалуй... Задавайте сюда свои вопросы по скриптам.
Можно по чужим, например изменение их в каком-либо направлении...


Полезное:

Основное:
Что нужно знать. (Основы)
Полезные функции. (Сборник полезностей)
Переделать скрипт под другую версию
Плагины в phx.

База инвентаря:
Способ №1 (Простой)
Способ №2
Способ №3 (Геморой)

Работа с таймером:
1) В общем. (Не нашел на Coderx'e дай-те ссылку)
2) Из темы:
Простейший пример таймера.
Посылка пакета.

Скрипты-боты:
Сборник
Локомотив от Alexus

Автозаточка:
NLObp
mks
TAMBIK
-----------------------

Перебор MultiSell Пакетов (Теория)

[supernewbie]

серф ввв.ло2супершматка.клан.су нужен скрипт тип точиш 1 раз он точит дальше напиши плис я сам нуб

Добавлено через 30 секунд
хроники интрлуд

PS лучше пусть темки плодят, чем венегред тут устраивать

[dyh9l]

Имхо тема была бы полезная (как минимум мне) , но нужен человек который бы адекватно мог реагировать и отвечал на вопросы заданные пользователям, а не кричать какой он тупой и отправлять его читать книжку, найдутся ли такие люди и ты сам готов к этому ??

p.s: есстесно что пример supernewbie не исключение, и с такими тоже надо будет как то бороться, и каждый раз объеснять что coderx не чит-портал.

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

[supernewbie]

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

приду с работы

где работаешь то хоть?)

[dyh9l]

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

[Nickers]

Имхо тема была бы полезная (как минимум мне) , но нужен человек который бы адекватно мог реагировать и отвечал на вопросы заданные пользователям, а не кричать какой он тупой и отправлять его читать книжку, найдутся ли такие люди и ты сам готов к этому ??

Я сам готов но тут 2 минуса:
1й - время... из-за учебы его мало =))
2й то что я сам нуб ппц и с нуля скрипт на точку не напишу...
Я знаю как он работает и (Например) могу в готовом скрипте разобратся и поменять его например для другой цели...

Обязательно нужен человек, который буит мне помогать, если у мну моцка или сил не хватает...

Оффтоп

Лично я бешено гуглю, если у меня проблемы в чем-то)) Но со скриптами хватает тут полазить и пару чужих скриптов разобрать...

Добавлено через 4 минуты
Кстати вполне возможно помогать людям не знакомых с языком, но с мозгом в наличии... Для этого требуется объяснение пары функций и просто алгоритм работы скрипта, что гораздо легче чем писать Справочник по паскалю с уклоном на ПХ (Можно книгу написать <<Паскаль для ПХ как 2 пальца абассать>>)

Добавлено через 4 минуты

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

Ну это нужно на скрипт глянуть))

[dyh9l]

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

const
    name = 'secret' ; 
    rbID = 858 ; 
    enchlvl = 7;   
var
    EnchantTimer:TTimer;
    a,ObjectIDrb:integer;       
procedure Init;
    begin  
        a:=1;
        EnchantTimer:=TTimer.Create(nil);
        EnchantTimer.Ontimer:=@Enchant;
        EnchantTimer.Interval:=1100; 
        EnchantTimer.Enabled:=false;  
    end; 
procedure Free;
    begin
        EnchantTimer.free;
    end;     
procedure Enchant;
    begin
        case a of
            1: begin     // первые 2 действия заточка простым скролом
                    buf:=#$14;
                    //   WriteD(тут объект ид у скрола);
                    WriteD(0);
                    SendToServerEx(name); 
                    a:=2;
               end; 
               
            2: begin
                    buf:=#$58;
                    WriteD(ObjectIDrb);
                    WriteD(0);
                    SendToServerEx(name); 
                    EnchantTimer.Enabled:=false;                 
               end; 
               
            3: begin    //Заточка блесс скролом
                    buf:=#$14;
                    //   WriteD(тут объект ид у скрола);
                    WriteD(0);
                    SendToServerEx(name);
                    a:=4;
               end;
            
            4: begin
                    buf:=#$58;
                    WriteD(ObjectIDrb);
                    WriteD(0);
                    SendToServerEx(name); 
                    EnchantTimer.Enabled:=false;             
               end;
                    
        end;
    end;         
procedure InvertoryUpdate;
    begin
        if (ReadD(12)=rbID) then 
            begin
                ObjectIDrb:=ReadD(8); 
                case ReadH(30) of
                    0..5:  begin a:=1; EnchantTimer.Enabled:=true; end;
                    5..enchlvl: begin a:=3; EnchantTimer.Enabled:=true; end;
                end;
            end;
        if (ReadD(42)=rbID) then 
            begin
                case ReadH(60) of
                    0..5:  begin a:=1; EnchantTimer.Enabled:=true; end;
                    5..enchlvl: begin a:=3; EnchantTimer.Enabled:=true; end;
                end;             
            end;  
    end;
begin
    if (connectname=name) and (fromserver) then
        case pck[1] of
            #$27: InvertoryUpdate;
        end;
end.

[Nickers]

Давай ка вместо 1го "Инвентари Апдейт" вставим вот это для начала))

procedure CreateItemBase;
var
  i, j, ListCount: integer;
begin
  for i:=1 to max do begin
    //очищаем масив
    ItemBase[1,i]:=0;     //OID
    ItemBase[2,i]:=0;    //ID
    ItemBase[3,i]:=0;   //kol-vo
    ItemBase[4,i]:=0;  //lvl
  end;
  j:=4;
  ListCount:=ReadH(j);
  j:=8;
  for i:=1 to ListCount do begin
    itemBase[1,i]:=ReadD(j);    //OID
    itemBase[2,i]:=ReadD(j);   //ItemID
    itemBase[3,i]:=ReadD(j);  //кол-во
    inc(j,10);
    itemBase[4,i]:=ReadH(j);//EnchantLevel
    inc(j,12);
  end;
end;
//......................................
//******************************************************************************
procedure InventoryUpdate; //пакет 27, обновляет базу ObjectID по ItemID
var
  i, ii, j, OID, ID, Count, ListCount, UpdType, lvl: integer;
  add : boolean;
begin
  add:=false;
  ListCount:=ReadH(2);
  j:=4;
  for ii:=1 to ListCount do begin
    add:=false;
    UpdType:=ReadH(j);
    ReadH(j);               //ItemType1
    OID:=ReadD(j);     //ObjectID
    ID:=ReadD(j);     //ItemID
    Count:=ReadD(j); //кол-во
    inc(j,10);
    lvl:=ReadH(j);
    case UpdType of
      1: begin
         for i:=1 to max do begin
           if (ItemBase[1,i]=0) and (add=false) then begin
             ItemBase[1,i]:=OID;
             ItemBase[2,i]:=ID;
             ItemBase[3,i]:=Count;
             ItemBase[4,i]:=lvl;
             add:=true;
           end;
         end;
      end;
      2: begin
         for i:=1 to max do begin
           if ItemBase[1,i]=OID then begin
             ItemBase[3,i]:=Count;
             ItemBase[4,i]:=lvl;
           end;
         end;
      end;
      3: begin
         for i:=1 to max do begin
           if ItemBase[1,i]=OID then begin
             ItemBase[1,i]:=0;
             ItemBase[2,i]:=0;
             ItemBase[3,i]:=0;
             ItemBase[4,i]:=0;
           end;
         end;
      end;
    end;
    inc(j,10);
  end;
end;

function GetItem(ID, FieldIn, FieldOut : integer) : integer;
var
  i : integer;
begin
  for i:=1 to max do
    if ItemBase[FieldIn,i]=ID then begin
      result:=ItemBase[FieldOut,i]; // itemOID
      exit;
    end;
  result:=0;
end;

Var:

Const
Name='ArchDevil'; //Афффтор
Max=300;
var
  ItemBase : array[1..4,1..max] of integer; //ItemOID, ItemID, Kol-vo, ItemLvl
  timer:TTimer;

Во 1х мне так удобней чесн слово)))
во 2х GetItem оч полезная функция...

--------------------------------------------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------------------------------------------

узнать как то ObjectID всех скролов которые в сумке

GetItem(ID,2,1);  //ID Вещи, тоесть скролла, не меняется. 
 

Функция выдает ОИД вещи с ИД "ID".

--------------------------------------------------------------------------------------------------------------------------------
Оффтоп

Думаю всех не обязательно узнавать и прост по 1му вытаскивать по мере работы скрипта, но если пока буим делать появится проблема сможем переделать, чтоб он сразу ВСЕ скроллы в Массив записывал (Нада в чужих скриптах по копаться, посмотреть как у них там, но сейчас не могу... вечером)

--------------------------------------------------------------------------------------------------------------------------------

[supernewbie]

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

[Nickers]

А нах тут рекорды? Массивов вполне достаточно...
Или дай пример через классы/рекорды я разберу... Ну пока у мну и без них не возникало пороблем...

Добавлено через 45 секунд
(Я не знаком с классами)