ДА БУДЕТ БOT!

чар некоторое время сидит и потом вылетает, в чём может быть ошибка? :o

const
  Name='Palevo';
var
  started :boolean; //есть чо?

procedure Init;
begin
 Randomize;
end;

begin
  if FromClient and (ConnectName=Name) and (pck[1]=#$1B) then begin
    case ReadD(2) of //SocialID
      //социальное действие Yes для начала
      6: begin
            pck:='';
            NoFreeOnClientDisconnect;
            NoFreeOnServerDisconnect;
            started:=true;
            buf:=#$7E; //гы-гы-гы
            SendToClientEx(Name); //паслать на...
      end;
    end;
  end;
  if FromServer and (ConnectName=Name) and (pck[1]=#$D3) and started then begin
    buf:=#$A8;
    WriteD(ReadD(2)); //pingid
    WriteD(Int(Random()*100)); //ping 0-100
    WriteD(2048); //const
    SendToServerEx(Name); //паслать на...
    pck:=''; //killhim :-F
  end;
end.

ps звиняюсь за тупость :pardon:

[VORON]

думаю ошибка в етом: WriteD(Int(Random()*100)); //ping 0-100
с чего ты взял что там рандом?

[Grinch]

народ кто сделал норм радар по клану? очень надо а то я тут случайно пк отмыл одного баюма выбил и боты со шлемом драконик, а клан у них 50% хиро и как то не охота в спину что б меня киляли :) если можно поделитесь скриптиком рабочим

[Murdoc]

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

народ кто сделал норм радар по клану? очень надо а то я тут случайно пк отмыл одного баюма выбил и боты со шлемом драконик, а клан у них 50% хиро и как то не охота в спину что б меня киляли :) если можно поделитесь скриптиком рабочим

Угу. Каждому!!!
Что за хроники? я уже писал у меня есть несколько радарчиков, но на моем ц4 кроме хингейма и аима демы ничего не работает.

[Grinch]

на наверно баян но вчера сидел правил скриптик :)

//автоматическое использование НР пробирок by NLObP      + СP редакция GrinchB
// 1-Изменяем Name='ххх';
// 2-бросаем, подбираем или выпиваем Heal Potion и СП как включите там всё написано будет в чат
//Работа проверена на L2C4 Protocol 660 LocalServer "L2J FORTRESS" и  Protocol 656

const
    Name='ххх';
var
    ColvoCP,ColvoHP, CharObjID, ItemObjHP, ItemObjCP: integer;
    CurHP,MaxHP,CurCP,MaxCP: integer;
    TimerCP,TimerHP: TTimer;
    Status: boolean;
//******************************************************************************
procedure OnTimerHP(Sender: TObject);
begin
    if ColvoHP=0 then exit;
    buf:=#$14;
    WriteD(ItemObjHP);
    WriteD(00);
    SendToServerEx(Name);
    ColvoHP:=ColvoHP-1; //количество хилок
    if ColvoHP=0 then begin
      Say('Хилок='+inttostr(ColvoHP));
      Say('Кончились хилки! Закупите Heal Potion!');
    end;
end;
procedure OnTimerCP(Sender: TObject);
begin
    if ColvoCP=0 then exit;
    buf:=#$14;
    WriteD(ItemObjCP);
    WriteD(00);
    SendToServerEx(Name);
    ColvoCP:=ColvoCP-1; //количество CP
    if ColvoCP=0 then begin
      Say('CP='+inttostr(ColvoCP));
      Say('ЕСЛИ ТЫ ПОЛУЧИЛ ЭТО СООБЩЕНИЕ ТЫ ТРУП!');
    end;
end;
//******************************************************************************
procedure Say(msg:string);
begin
  buf:=hstr('4A 00 00 00 00');
  WriteD(2);
  WriteS(Name);
  WriteS(msg);
  SendToClientEx(Name);
end;
//******************************************************************************
procedure InitStats;
var
  i: integer;
begin
  //Запоминаем ИД
  i:=18;
  CharObjID:=ReadD(i);
  //смещение переменное, зависит от имени (LenName*2+2)
  i:=i+(Length(Name)*2+2)+44;
  MaxHP:=ReadD(i);
  CurHP:=ReadD(i);
  MaxCP:=ReadD(i);
  CurCP:=ReadD(i);
  //Say('MaxHP='+inttostr(MaxHP)+'CurHP='+inttostr(CurHP));
  if ItemObjHP=0 then exit;
  if (CurHP<MaxHP-50) then TimerHP.enabled:=true else TimerHP.enabled:=false;
end;
//******************************************************************************
procedure StatsUpdate;
var
  i: integer;
begin
  for i:=0 to ReadD(6)-1 do begin
    case pck[i*8+10] of
      #$09: CurHP:=ReadD(i*8+14);
      #$0A: MaxHP:=ReadD(i*8+14);
      #$21: CurCP:=ReadD(i*8+14);
      #$22: MaxCP:=ReadD(i*8+14);
    end;
  end;
  if ItemObjHP=0 then exit;
  if (CurHP<=MaxHP-50) then TimerHP.enabled:=true else TimerHP.enabled:=false;
  if ItemObjCP=0 then exit;
  if (CurCP<=MaxCP-200) then TimerCP.enabled:=true else TimerCP.enabled:=false;
end;
//******************************************************************************
procedure ObjtoColvoHP(ItemObjHP:integer);
var
  i: integer;
begin
  if ItemObjHP=0 then exit;
  for i:=0 to ReadD(4)-1 do begin
    if ItemObjHP=ReadD(i*28+8) then ColvoHP:=ReadD(i*28+16); //количество хилок
  end;
end;
procedure ObjtoColvoCP(ItemObjCP:integer);
var
  i: integer;
  begin
  if ItemObjCP=0 then exit;
  for i:=0 to ReadD(8)-1 do begin
    if ItemObjCP=ReadD(i*28+8) then ColvoCP:=ReadD(i*28+16); //количество хилок
  end;
end;


//******************************************************************************
//                 Вызывается при включении скрипта
//******************************************************************************
procedure Init;
begin
    status:=false;
    CharObjID:=0;
    ItemObjHP:=0;
    ItemObjCP:=0;
    timerHP:=TTimer.Create(nil);
    timerHP.OnTimer:=@OnTimerHP;
    timerHP.enabled:=false;
    timerHP.interval:=5000; //время отката лечения
    Say('Для начала работы скрипта бросаем, подбираем или выпиваем Heal Potion!');
    timerCP:=TTimer.Create(nil);
    timerCP.OnTimer:=@OnTimerCP;
    timerCP.enabled:=false;
    timerCP.interval:=100; //время отката для шоков или где быстро кушаются банки
    Say('Для начала работы скрипта бросаем, подбираем или выпиваем CP!');
end;
//******************************************************************************
//                 Вызывается при выключении скрипта
//******************************************************************************
procedure Free;
begin
     timerHP.Free;
     timerCP.Free;
end;
//******************************************************************************
//       Вызывается при приходе каждого пакета, если скрипт включен
//******************************************************************************
begin
//******************************************************************************
  //не обрабатываем пустые пакеты
  if pck='' then exit;
//******************************************************************************
//InventoryUpdate
if FromServer and (ConnectName=Name) and (pck[1]=#$27) and ((ReadD(12)=1060) or (ReadD(12)=1061)) then begin //Healing Potion, Lesser Healing Potion
    ItemObjHP:=ReadD(8);
    ColvoHP:=ReadD(16); //количество хилок
    if status then exit;
    Say('Автоматическое использование Нeal Рotion готово к работе!');
    Say('Хилок='+inttostr(ColvoHP));

end;
if FromServer and (ConnectName=Name) and (pck[1]=#$27) and (ReadD(12)=5592)  then begin //CP, Lesser Healing Potion
    ItemObjCP:=ReadD(8);
    ColvoCP:=ReadD(16); //количество CP
    if status then exit;
    Say('Автоматическое использование CP готово к работе!');
    Say('CP='+inttostr(ColvoCP));

    status:=true;
end;
//******************************************************************************
//ItemList
if FromServer and (ConnectName=Name) and (pck[1]=#$1B) and status then begin
    ObjtoColvoHP(ItemObjHP); //количество хилок
    //Say('Хилок='+inttostr(ColvoHP));
end;
//******************************************************************************
//UserInfo
if FromServer and (ConnectName=Name) and (pck[1]=#$04) then InitStats;
//******************************************************************************
//StatusUpdate
if FromServer and (ConnectName=Name) and (pck[1]=#$0E) and (CharObjID=ReadD(2)) then StatsUpdate;
end.

скажу сразу я пока учусь програмить и спс NLObP и его коментариям т.к. без них я б не разобрался как ет работает и не добавил банки ЦП. думаю доработать потом под 2 вида банок что б кушалось по очереди т.к. метод кульный :) и грейт хилки добавить на условие кушания меньше 30% и до 60% потом снова красненькие вот тока сейчас не эти занят хочу велосипед изобрести.
Идея простая скилы юзаются в порядке нажатия после отката предыдущего так вот хочу сделать процедурку котороя бы на автомате брала время из пакета и заменить в скриптах на баф таймер ровно допустим 2секунды на число реального каста как правило ето в районе 1-5 секунд взависимости от бафа под смом вообще стремиться к нулю. Так что пока буду думать юзайте хп и цп банки так. Или помогите кто шарит в програмерстве т.к. ет не простая процедура и очень как мне кажеться полезная

Добавлено спустя 4 минуты 47 секунд:
а мой пост о пакете с такими даные найдёте в теме "ищу пакет" я его сам в итоге нашёл всё расписано там

[QaK]

Grinch, сделай таймер, у которого значение Interval присваивай считываемому значению реюза из пакета $48

[Grinch]

lQaKl ы делаю, но из-за кривизны рук и недостатка свободного времени пишеться медлено тем более делаю по аналогии других скриптов.

Добавлено спустя 11 часов 56 минут 56 секунд:

  const
   Name='xxx';//скилы от ПП для теста
b1='2F 3D 04 00 00 00 00 00 00 00 ';   //Acumen
b2='2F 18 04 00 00 00 00 00 00 00 ';   //BtS
b3='2F 15 04 00 00 00 00 00 00 00 ';   //BtB
b4='2F 2C 04 00 00 00 00 00 00 00 ';   //Might 
b5='2F 10 04 00 00 00 00 00 00 00 ';    //Shield
b6='2F 36 04 00 00 00 00 00 00 00 ';    //concentration
b7='2F 35 04 00 00 00 00 00 00 00 ';     //Focus
b8='2F DA 04 00 00 00 00 00 00 00 ';     //DW
b9='2F D8 04 00 00 00 00 00 00 00 ';      //Точночть
b10='2F B4 04 00 00 00 00 00 00 00 ';     //WW
b11='2F 0C 04 00 00 00 00 00 00 00 ';      //   MB
b12='2F 0B 04 00 00 00 00 00 00 00 ';      //   Mental
b13='2F 3E 04 00 00 00 00 00 00 00 ';      //   Haste
b14='2F 48 05 00 00 00 00 00 00 00 ';      // EP
b15='2F DB 04 00 00 00 00 00 00 00 ';      // щит
var
    prof,x, SkilID, SkilHIT : integer;
    timer1: TTimer;
    Target: string;
procedure Say(msg:string);
begin
 buf:=hstr('4A 00 00 00 00');
 WriteD(2);
 WriteS(Name);
 WriteS(msg);
 SendToClientEx(Name);
end;


procedure Init; //Вызывается при включении скрипта
begin
      timer1:=TTimer.Create(nil);
   timer1.OnTimer:=@OnTimer;
   timer1.enabled:=true;
   timer1.interval:=SkilHIT;// главная трабла или не всё так просто :( значение не присваивается динамически изначальео его 
просто нет пробовал менять на 2000 там ниже вместа адреса числа


Say('НУ РАБОТАЙ!');
  end;
  procedure OnTimer(Sender: TObject);
begin
case x of
1: begin
    buf:=hstr(b1);
    sendtoserver;

    x:=x+1;
    end;
2: begin
    buf:=hstr(b2);
    sendtoserver;

    x:=x+1;
    end; 
3: begin
    buf:=hstr(b3);
    sendtoserver;

    x:=x+1;
    end;
4: begin
    buf:=hstr(b4);
    sendtoserver;

    x:=x+1;
    end;
5: begin
    buf:=hstr(b5);
    sendtoserver;

    x:=x+1;
    end;
6: begin
    buf:=hstr(b6);
    sendtoserver;

    x:=x+1;
    end;
7: begin
    buf:=hstr(b7);
    sendtoserver;

    x:=x+1;
    end;
8: begin
    buf:=hstr(b8);
    sendtoserver;

    x:=x+1;
    end;
9: begin
    buf:=hstr(b9);
    sendtoserver;

    x:=x+1;
    end;
10: begin
    buf:=hstr(b10);
    sendtoserver;

    x:=x+1;
    end;
11: begin
    buf:=hstr(b11);
    sendtoserver;

    x:=x+1;
    end;
12: begin
    buf:=hstr(b12);
    sendtoserver;

    x:=x+1;
    end;
13: begin
    buf:=hstr(b13);
    sendtoserver;

    x:=x+1;
    end;
14: begin
    buf:=hstr(b14);
    sendtoserver;

    x:=x+1;
    end;
15: begin
    buf:=hstr(b15);
    sendtoserver;

    x:=0;
    end;
end;

end;




procedure Free; //Вызывается при выключении скрипта
begin
  timer1.enabled:=false;
timer1.Free;
   x:=0;
end;

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

    if FromServer and (ConnectName=Name) and (pck[1]=#$48)  then
   begin
   SkilHIT:=ReadD(18);
   SkilID:= ReadD(10);
   Say('Скил='+inttostr(SkilID)); // иди скрипта так для самопроверке кстате можно тестить бафы на ускорение каста и шмот
   Say('Откат='+inttostr(SkilHIT)); //время каста скила

   end;
   if FromClient and (pck[1]+pck[2]=#$38#$31)then  //1- нажимаем в любой чат окуратней я пакет не убил
begin
  prof:=1
 end;
  if prof=1 then begin
      x:=1;
      prof:=0;
    end;
     Say('x='+inttostr(x))// так что б мониторить измение в чате 
end.

ЗЫ НЕ РАБОТАЕТ в чём трабла?

var
IDPartyMember, IDAssistTarget, IDMy: String;
CoordVarkX, CoordVarkY, CoordVarkZ :String;

procedure VarkBeg;
begin
if (CoordVarkX<>'Bot1') and (IDPartyMember<>'TRATATA') then
begin
buf:=hstr('04') + IDPartyMember + CoordVarkX + CoordVarkY + CoordVarkZ + hstr('00');
SendToServerEX('Bot1');
buf:=hstr('04') + IDPartyMember + CoordVarkX + CoordVarkY + CoordVarkZ + hstr('00');
SendToServerEX('Bot1');
end;
end;

begin
if pck='' then exit;

if FromServer and (pck[1]=#$a7) then
begin
IDPartyMember:=pck[6] + pck[7] + pck[8] + pck[9];
end;

if FromServer and (pck[1]=#$29) then
if (pck[2]+pck[3]+pck[4]+pck[5]=IDPartyMember) then
begin
IDAssistTarget:= pck[6]+pck[7]+pck[8]+pck[9];
end;

if FromClient and (ConnectName='TRATATA') and (pck[1]=#$48) then
begin
CoordVarkX:= pck[6] + pck[7] + pck[8] + pck[9];
CoordVarkY:= pck[10] + pck[11] + pck[12] + pck[13];
CoordVarkZ:= pck[14] + pck[15] + pck[16] + pck[17];
end;

if FromClient and (ConnectName='TRATATA')and (pck[1]=#$38) then
begin
pck:='';
VarkBeg;
exit;
end;

end.

Почему когда я вставляю пакет(с выбором таргета) в посылку он его снова не выделяет?????????

04 40 77 80 48 A4 61 00 00 43 22 00 00 E9 F1 FF FF 00 00 00 00 BB 41 5F 27 87 B3 78 99 E3 0C FD 64 29 3F 43 68

№ | 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F | Строкой
-----+-------------------------------------------------+-----------------
0000 | 04 40 77 80 48 A4 61 00 00 43 22 00 00 E9 F1 FF | .@wЂH¤a..C"..йся
0010 | FF 00 00 00 00 BB 41 5F 27 87 B3 78 99 E3 0C FD | я....»A_'‡іx™г.э
0020 | 64 29 3F 43 68 | d)?Ch

[Grinch]

народ хелп как правельно взять id перса что б оно было как бы константа :) т.е. ьерём 1 раз и больше не трогаем я знаю что оно и не меняется больше но когда я ставлю id в константу копируя ее с пакета скрипт работает коректно а когда выдёргиваю из чар инфо происходит что то необъянимое короче хелп ми