ДА БУДЕТ БOT!

[alexteam]

readd, writed / readmask, writemask

[TAMBIK]

а потом засунуть его в пакет 
на выбор пушки (при заточке) - ( CA ?????? 4C 00 xx xx xx xx ).

[Toska]

никак не могу запустить скрипт на заточку...Помоги пожалуйста.
логи:24.09.2009 02:25:05 Стартует L2ph v3.5.24.142
24.09.2009 02:25:05 На 7788 зарегистрирован локальный сервер
24.09.2009 02:30:37 Библиотека C:\Documents and Settings\Администратор\Рабочий стол\l2phx\newxor.dll отсутствует или заблокирована другим приложением
24.09.2009 02:30:38 Библиотека C:\Documents and Settings\Администратор\Рабочий стол\l2phx\newxor.dll отсутствует или заблокирована другим приложением
24.09.2009 02:30:38 Библиотека C:\Documents and Settings\Администратор\Рабочий стол\l2phx\newxor.dll отсутствует или заблокирована другим приложением
24.09.2009 02:30:39 Библиотека C:\Documents and Settings\Администратор\Рабочий стол\l2phx\newxor.dll отсутствует или заблокирована другим приложением
24.09.2009 02:30:43 Успешно загрузили C:\Documents and Settings\Администратор\Рабочий стол\l2phx\inject.dll
24.09.2009 02:30:54 Надёжно пропатчен новый клиент l2.exe (4192)
24.09.2009 02:32:05 LSP успешно зарегистрирован.
24.09.2009 02:38:33 LSP модуль зарегистрирован в системе
24.09.2009 02:38:33 LSP module was unregistered
24.09.2009 02:38:35 LSP успешно зарегистрирован.


Скрипт:

const
nik='BeHappy';
Enchant=13;

var
UseItem, EnchantItem: string;
Count, CurrentEnch: integer;
Timer01: TTimer;

procedure Init;
begin
Timer01:=TTimer.Create(nil);
Timer01.OnTimer:=@OnTimer01;
Timer01.enabled:=false;
Timer01.interval:=500;
end;

procedure OnTimer01(Sender: TObject);
begin
buf:=UseItem;
SendToServerEx(nik);
buf:=EnchantItem;
SendToServerEx(nik);
end;

procedure Free;
begin
Timer01.free;
count:=0;
CurrentEnch:=0;
end;

begin
if FromServer and (pck[1]=#$87) then
begin
CurrentEnch:=ReadD(2);
if CurrentEnch=Enchant then Timer01.enabled:=false;
end;
if FromClient and (pck[1]=#$19) then UseItem:=pck;
if FromClient and (pck[1]=#$5F) then EnchantItem:=pck;
if FromClient and (pck=#$34#$02#$00#$00#$00) then
begin
pck:='';
Timer01.enabled:=not(Timer01.enabled);
end;
end.

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

[TAMBIK]

Toska,
ты в игру заходишь с L2ph
нормально ? ник в проге отображается ?
и просто неработает скрипт ?
тогда те сюда прочитать
http://coderx.ru/showthread.php?t=1684

[Amien]

Ребят помогите со скриптом, скиньте скрипт кооторый может сам закупать заточки\оружия при необходимости ... пож-та буду очень благодарен

[tiranosaur]

бот локомотив проверка TypeID моба

function proverka : boolean;
 var i:integer;        
 begin
    for i:=1 to MobsLastIndex do
    begin
    result:=false;
    if (TargetID = MobsObjID[i]) and NpcTypeID1=MobsNpcTypeID[i] then result:=true;
    end;
 end;

в локомотиве изменил только это. где я не прав?
либо как узнать typeID цели?

[alexteam]

if (TargetID = MobsObjID[i]) and (NpcTypeID1=MobsNpcTypeID[i]) then 
  begin
    result:=true;
    break;
  end;

[tiranosaur]

вставил проверку спойла

if TargetID > 0 then           // если в прицеле есть моб, то
   begin                                  // валим вражину
    if ((AttackCycle mod 5) = 0) then
     begin
      if Spoil and (not Spoiled) and (MobsNpcTypeID[i]=1021173)  then RequestMagicSkillUse(254)   // заспойлим моба если опция включена
      else PhisicalAttack;
      
     end;

выдает ошибку: Variant of safe array index out of bounds
оТДЕЛЬНОЙ ПРОЦЕДУРОЙ ТА ЖЕ ФИГНЯ((( помогите пжл

Добавлено через 1 час 32 минуты
УРААААААААААААА ПОЛУЧИЛОСЬ!!!!!!!!!!!!!!!!! вот кусок:

function proverka : boolean;        // функция проверяет, атакует ли меня кто-нибудь или нет
 var
  i: integer;
 begin
  
  for i:=1 to MobsLastIndex do 
  if (TargetID = MobsObjID[i]) and (MobsNpcTypeID[i]=1021173) then  // ищем первого попавшегося моба, который нас атакует
   begin
    result:= true;                                      // возвращаем его индекс по БД
    break;
   end else result:=false;
 end;
procedure OnTimerCombat (Sender: TObject);         // боевой таймер, вся логика поведения бота находится именно здесь!!!
 var
  Agro, MinDistID, i: integer;
 begin
  if TargetID > 0 then           // если в прицеле есть моб, то
   begin                                  // валим вражину
    if ((AttackCycle mod 5) = 0) then
     begin
     
      if Spoil and (not Spoiled) and proverka   then RequestMagicSkillUse(254)   // заспойлим моба если опция включена
      else PhisicalAttack;

[xeno]

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

begin
if fromserver and (pck[1]=#$16) then
begin if fromserver and (pck[10]=#$39) then
begin
SendToClient;
pck:='';
end;
end;
if fromserver and (pck[1]=#$05) then
begin if fromserver and (pck[6]=#$39) then
begin
SendToClient;
pck:='';
end;
end;
end.

через пару минут работы скрипта, пакетхак выдает list index of bounds.

[NLObP]

xeno, попробуй вот так

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

end;

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

end;

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
    if FromServer then
    begin
        case pck[1] of
            #$05:     //пакет 05=SpawnItem
            begin
                case pck[10] of  //по смещению 10 находится ItemID
                    17, 57, 1341..1345: pck:=''; //дропаем стрелы, адену, деревянные и т.д. стрелы
                end;
            end;
            #$16:      //пакет 16=DropItem
            begin
                case pck[6] of //по смещению 06 находится ItemID
                    17, 57, 1341..1345: pck:=''; //дропаем стрелы, адену, деревянные и т.д. стрелы
                end;
            end;
        end;
    end;
end.