Пишу Авто прокач с1 по 40 на рпг клуб х7(нужна помощ со скриптом)

pitrus · 24 Янв 2016

вобщем на данный момент написал скрипт от 1 до 24 лвла по квестам
на сегодня всё на след недели продолжу дальше писать
если у кого есть желание в помощи. не стесняемся

Посмотреть вложение c 1 по 24.rar

На данный момент проходит доработку и тестирование!

PalmaDeMajorka · 24 Янв 2016

Код:

//ПЕРЕСМОТРИ СКРИПТ. У тебя конфиг подгружается после того как ты включаешь бота )




Uses SysUtils, Classes;
var Item: TL2Item; Npc: TL2Npc; obj: TL2NPC; L2Skill: TL2Skill; Control: TL2Control;
 
function CheckStatus: Boolean;


 


begin
Result:= true;
 if User.Dead then begin 
    Engine.FaceControl(0, false);
    Engine.GoHome;
    Delay(5000);
    result:=false;
end;
end;

begin
while (User.Level<7) do
Delay(1000);
Engine.FaceControl(0,true); //turn on bot
Delay(1000);
engine.LoadConfig('11.xml');


begin
while (User.Level=8) do begin
 Delay(1000);
Engine.FaceControl(0,false); //turn on bot
 Delay(1000);
engine.useitem (12753); // юзаем скрол тп (это не стандартное сое)
 Delay(5000);
   Engine.MoveTo(-119730,44527,341);
   				
end;

 
if user.inrange(-119730,44527,341, 250, 150) 
  then
    begin
        Engine.SetTarget(User);
				Engine.DlgOpen;
				Engine.DlgSel(1);
   
    end;   


end;
end.

pitrus · 24 Янв 2016

@PalmaDeMajorka,
Да я в курсе просто по другому скрипт не работал почимуто он не включал бота

savant · 24 Янв 2016

Код:

if FileExists(ExePath+'Settings\11.xml') then Engine.LoadConfig(PChar(ExePath+'Settings\11.xml'));

pitrus · 24 Янв 2016

Uses SysUtils, Classes;
var Item: TL2Item; Npc: TL2Npc; obj: TL2NPC; L2Skill: TL2Skill; Control: TL2Control;

function CheckStatus: Boolean;

begin
Result:= true;
if User.Dead then begin
Engine.FaceControl(0, false);
Engine.GoHome;
Delay(5000);
result:=false;
end;
end;

begin
while (User.Level<7) do
Delay(1000);
Engine.FaceControl(0,true); //turn on bot
Delay(1000);
engine.LoadConfig('11.xml');

begin
while (User.Level=8) do begin
Delay(1000);
Engine.FaceControl(0,false); //turn on bot
Delay(1000);
engine.useitem (12753); // юзаем скрол тп (это не стандартное сое)
Delay(5000);
Engine.MoveTo(-119730,44527,341);

end;

if user.inrange(-119730,44527,341, 250, 150)
then
begin
Engine.SetTarget(32135);
Delay(1000);
Engine.DlgOpen;
Delay(1000);
Engine.DlgSel(1);
Delay(1000);

Engine.SetTarget(32135);
Delay(1000);
Engine.DlgOpen; //бафаемся
Delay(1000);
Engine.DlgSel(5);
Delay(1000);
Engine.DlgSel(1);
Engine.SetTarget(32135);
Delay(1000);
Engine.DlgOpen;
Delay(1000);
Engine.DlgSel(6);
Delay(1000);
Engine.DlgSel(2);
Delay(1000);
Engine.NpcExchange(10474,1); //Покупка маг ствола;
Delay(1000);
Engine.Useitem(10474);
Engine.MoveTo(-119688,44927,341);
Engine.MoveTo(-119475,45561,341);
Engine.MoveTo(-119442,47206,364);
Engine.MoveTo(-119445,47638,364);
Engine.MoveTo(-119422,47853,364);
Engine.MoveTo(-119434,48189,274);
Engine.MoveTo(-119468,48522,213);
Engine.MoveTo(-119433,49161,-4);
Engine.SetTarget(32173);
Delay(1000);
Engine.DlgOpen;
Delay(1000);
Engine.DlgSel(3);
Delay(1000);
Engine.DlgSel(1);
Delay(1000);
Engine.DlgSel(1);

Engine.MoveTo(-119436,48948,73);
Engine.MoveTo(-119412,48723,165);
Engine.MoveTo(-119436,48533,212);
Engine.MoveTo(-119400,48068,312);
Engine.MoveTo(-119428,47662,364);
Engine.MoveTo(-119395,47207,364);
Engine.MoveTo(-119284,46938,341);
Engine.MoveTo(-119027,46857,341);
Engine.MoveTo(-117966,46335,329);
Engine.MoveTo(-117550,46039,323);
Engine.MoveTo(-117101,45733,326);
Engine.MoveTo(-116739,45431,341);
Engine.MoveTo(-116347,45241,388);
Engine.MoveTo(-115416,44773,476);
Engine.MoveTo(-115222,44670,490);
Engine.MoveTo(-115025,44684,490);
Engine.SetTarget(32170);
Delay(1000);
Engine.DlgOpen;
Delay(1000);
Engine.DlgSel(5);
Delay(1000);
Engine.DlgSel(1);
Engine.MoveTo(-115031,44669,491);
Engine.MoveTo(-115181,44647,492);
Engine.MoveTo(-115546,44734,476);
Engine.MoveTo(-115871,45347,476);
Engine.MoveTo(-116015,45673,478);
Engine.MoveTo(-116560,45917,341);
Engine.MoveTo(-117257,46676,341);
Engine.MoveTo(-117468,47194,365);
Engine.CancelTarget;
Engine.MoveTo(-117636,47458,422);
Engine.MoveTo(-117775,47666,418);
Engine.MoveTo(-117965,48051,430);
Engine.MoveTo(-117814,47575,418);
Engine.MoveTo(-117750,47579,418);
Engine.MoveTo(-117729,47614,418);
Engine.MoveTo(-118363,47536,418);
Engine.MoveTo(-118680,47559,418);
Engine.MoveTo(-118975,47592,418);
Engine.MoveTo(-119246,47627,426);
Engine.MoveTo(-119393,47820,364);
Engine.MoveTo(-119423,48504,213);
Engine.MoveTo(-119423,49132,-2);
Engine.SetTarget('Маркелла');
Engine.DlgOpen;
Engine.DlgSel(3);
Delay(1000);
Engine.DlgSel(1);
Engine.MoveTo(-119436,48950,72);
Engine.MoveTo(-119396,48454,213);
Engine.MoveTo(-119419,48087,306);
Engine.MoveTo(-119411,47667,364);
Engine.MoveTo(-119391,47156,364);
Engine.MoveTo(-119303,46955,341);
Engine.MoveTo(-118574,46908,341);
Engine.CancelTarget;
Engine.MoveTo(-118025,47031,341);
Engine.MoveTo(-117604,47309,408);
Engine.MoveTo(-117266,47430,422);
Engine.MoveTo(-117152,47687,432);
Engine.MoveTo(-117140,47962,430);
Engine.SetTarget('Ника');
Engine.DlgOpen;
Engine.DlgSel(3);
Delay(1000);
Engine.MoveTo(-117161,47939,430);
Engine.MoveTo(-117150,47809,430);
Engine.MoveTo(-117223,47498,424);
Engine.MoveTo(-117784,47417,422);
Engine.MoveTo(-118616,47459,422);
Engine.MoveTo(-119147,47604,422);
Engine.MoveTo(-119410,47779,364);
Engine.MoveTo(-119429,48599,212);
Engine.MoveTo(-119415,49224,-14);
Engine.SetTarget('Маркелла');
Engine.DlgOpen;
Engine.DlgSel(3);
Delay(1000);
Engine.DlgSel(1);
Delay(1000);
engine.useitem (10473); // юзаем шмот
Delay(1000);
engine.useitem (2386); // юзаем шмот
Delay(1000);
engine.useitem (49); // юзаем шмот
Delay(1000);
engine.useitem (43); // юзаем шмот
Delay(1000);
engine.useitem (37); // юзаем шмот
Delay(1000);
engine.useitem (23); // юзаем шмот

Engine.MoveTo(-119518,48683,181);
Engine.MoveTo(-119546,47976,341);
Engine.MoveTo(-119592,47403,364);
Engine.MoveTo(-119645,46726,364);
Engine.MoveTo(-119689,45940,364);
Engine.MoveTo(-119757,45078,392);
Engine.MoveTo(-119763,44581,341);
Engine.MoveTo(-119737,44519,341);

Engine.SetTarget(32135);
Delay(1000);
Engine.DlgOpen; //бафаемся
Delay(1000);
Engine.DlgSel(5);
Delay(1000);
Engine.DlgSel(1);
Engine.SetTarget(32135);
Delay(1000);
Engine.DlgOpen; //бафаемся
Delay(1000);
Engine.DlgSel(4);
Delay(1000);
Engine.DlgSel(1);
Engine.MoveTo(-84047,243241,-3755);
Engine.MoveTo(-83867,242927,-3755);
Engine.MoveTo(-83329,242337,-3755);
Engine.MoveTo(-82835,241849,-3755);
Engine.MoveTo(-82523,241549,-3755);
Engine.MoveTo(-82220,241470,-3755);
Engine.MoveTo(-82228,241557,-3755);
Engine.SetTarget(30039);
Delay(1000);
Engine.DlgOpen; //
Delay(1000);
Engine.DlgSel(3);
Delay(1000);
Engine.DlgSel(1);
Engine.MoveTo(-82312,241450,-3755);
Engine.MoveTo(-83343,242149,-3755);
Engine.MoveTo(-83683,242718,-3755);
Engine.MoveTo(-83962,243250,-3755);
Engine.MoveTo(-84195,243623,-3755);
Engine.CancelTarget;
Engine.MoveTo(-84602,244078,-3755);
Engine.MoveTo(-84408,244415,-3755);
Engine.MoveTo(-84291,244526,-3755);
Engine.MoveTo(-84167,244589,-3755);
Engine.SetTarget('Миллия');
Engine.DlgOpen;
Delay(1000);
Engine.DlgSel(3);
Delay(1000);
Engine.DlgSel(10);
Engine.MoveTo(-98585,238619,-3582);
Engine.MoveTo(-98036,239176,-3504);
Engine.MoveTo(-97813,239505,-3539);
end;
begin
while (User.Level<15) and user.inrange(-97813,239505,-3539, 250, 150) do
Delay(1000);
Engine.FaceControl(0,true); //turn on bot
Delay(1000);
engine.LoadConfig('11.xml');

while (User.Level=15) do begin
Delay(1000);
Engine.FaceControl(0,false); //turn on bot
Delay(1000);
engine.useitem (12753); // юзаем скрол тп (это не стандартное сое)
Delay(5000);

end;
end;
begin
if user.inrange(-85348,244638,-3753, 250, 150)
then
begin
Engine.SetTarget(32135);
Delay(1000);
Engine.DlgOpen;
Delay(1000);
Engine.DlgSel(1);
Delay(1000);
Engine.MoveTo(-85348,244638,-3753);
Engine.MoveTo(-85558,244354,-3755);
Engine.MoveTo(-85395,243923,-3755);
Engine.MoveTo(-84759,243456,-3755);
Engine.MoveTo(-84407,243360,-3755);
Engine.MoveTo(-84152,243273,-3755);
Engine.MoveTo(-83484,242588,-3755);
Engine.MoveTo(-82892,241985,-3755);
Engine.MoveTo(-82453,241520,-3755);
Engine.MoveTo(-82301,241474,-3755);
Engine.MoveTo(-82277,241511,-3755);
Engine.SetTarget(30039);
Delay(1000);
Engine.DlgOpen;
Delay(1000);
Engine.DlgSel(3);
Delay(1000);
Engine.DlgSel(1);
Engine.MoveTo(-82475,241537,-3755);
Engine.MoveTo(-83279,242226,-3755);
Engine.MoveTo(-83617,242638,-3755);
Engine.MoveTo(-83855,242975,-3755);
Engine.MoveTo(-84006,242866,-3755);
Engine.SetTarget('Элиас');
Engine.DlgOpen;
Delay(1000);
Engine.DlgSel(1);
Delay(1000);
Engine.DlgSel(1);
Engine.MoveTo(-84050,242878,-3720);
Engine.MoveTo(-83940,243202,-3755);
Engine.MoveTo(-84272,243726,-3755);
Engine.MoveTo(-84574,244029,-3755);
Engine.MoveTo(-84233,244466,-3755);
Engine.MoveTo(-84142,244548,-3755);
Engine.SetTarget('Миллия');
Engine.DlgOpen;
Delay(1000);
Engine.DlgSel(3);
Delay(1000);
Engine.DlgSel(9);

end;

end;
begin
while (User.Level<16) and user.inrange(-106693,214682,-3454, 250, 150) do
Delay(1000);
Engine.FaceControl(0,true); //turn on bot
Delay(1000);
engine.LoadConfig('11.xml');

begin
while (User.Level=16) do begin
Delay(1000);
Engine.FaceControl(0,false); //turn on bot
Delay(1000);
engine.useitem (12753); // юзаем скрол тп (это не стандартное сое)
Delay(5000);

end;
end;
end;
end;
end.

дописал до 15го лвла теперь взял квест на пауков в талкинг исланде и после тп он должен начать качаться на пауках до 16го лвла а он сое юзает
походу он считывает строчку с 15м лвлом хотя не должен изза условия. помогите с этими условиями плиз начиная с 242 строчки там чтото не так

PalmaDeMajorka · 24 Янв 2016

Код:

//поменяй местами эти условия ))))

while (User.Level<15) and user.inrange(-97813,239505,-3539, 250, 150) do
Delay(1000);
Engine.FaceControl(0,true); //turn on bot
Delay(1000);
engine.LoadConfig('11.xml');
 
 
 
while (User.Level=15) do begin
 Delay(1000);
Engine.FaceControl(0,false); //turn on bot
 Delay(1000);
engine.useitem (12753); // юзаем скрол тп (это не стандартное сое)
 Delay(5000);

pitrus · 24 Янв 2016

@PalmaDeMajorka,
тоесть юзер ин рейдж во втарое действие подставить? чтото я не понял какие условия поменять
что я только не пробывал и один фиг врубает бота берёт моба в таргет и вырубает моба и юзает сое
как в этом языке лог включить чтоб отследить где именно ошибка? комманда есть какаянить на лог?

PalmaDeMajorka · 24 Янв 2016

@pitrus, кароче вот так

Код:

while (User.Level<15) do
Delay(1000);
Engine.FaceControl(0,true); //turn on bot
Delay(1000);
engine.LoadConfig('11.xml');
 
 
 
while (User.Level=15) do begin
 Delay(1000);
Engine.FaceControl(0,false); //turn on bot
 Delay(1000);
engine.useitem (12753); // юзаем скрол тп (это не стандартное сое)
 Delay(5000);

pitrus · 24 Янв 2016

PalmaDeMajorka написал(а):
while (User.Level<15) do Delay(1000); Engine.FaceControl(0,true); //turn on bot Delay(1000); engine.LoadConfig('11.xml'); while (User.Level=15) do begin Delay(1000); Engine.FaceControl(0,false); //turn on bot Delay(1000); engine.useitem (12753); // юзаем скрол тп (это не стандартное сое) Delay(5000);

нифига он всеравно включает выключает и делает сое

может ктонить подсказать на данное действие другой вариант условия? и подскажите как мне вычислить на каком этапе он делает сое так как в скрипте 3 раза повтаряется жто действие правда с разнвми условиями

PalmaDeMajorka · 24 Янв 2016

Как вариант, сделать велосипед. И на каждый уровень, сделать своё условие. т.е не < не > а =

pitrus · 24 Янв 2016

@PalmaDeMajorka,
да с этим походу разобрался а вот как в скрипт вписать лог? тоесть как в с шарп чтоб он выл лог на определённых местах скрипта? ато непонять на каком месте ковырять когда скрипт большой и некторые условия повтаряются

Agonia · 24 Янв 2016

смотрю на код и мне как-будто в глаза миксером ебанули))) надеюсь это так на сайте отобразило)

pitrus · 24 Янв 2016

пост обновил и выложил туда последнию наработку

pitrus · 25 Янв 2016

1.помогите мне с проверкой плиз
нужно условие на проверку тоесто если нпц ид такойта в радиусе то делать тота
если не сложно плиз

2.и ещё нужно условие для проверки рассы и желательно профы бвлобы не плохо

pitrus · 27 Янв 2016

я гляжу тут всем по барабану и помоч никто нехочет. ясненько

PalmaDeMajorka · 27 Янв 2016

@pitrus, Лично я, не сталкивался с тем, что ты хочешь узнать. Зайди в архив скриптов, может там есть откуда кусок вырвать

pitrus · 27 Янв 2016

@PalmaDeMajorka,

да пробывал в условие вставить если бот включен то делать а он не понимает))

Gika2dl · 29 Янв 2016

@pitrus, Напиши мне в Скайп Gika2dll я тебе помогу чуть чуть разобраться