Кач сх L2Tales 1-80+

[SARCAZM]

Пока работает на л2тейлс, простой скрипт выкачки СХ с 1 до 80+ лвл

Спойлер: Скрипт

function CheckItemCount (const itemID: Integer; const quest: Boolean = False) : Integer;
var tempItem: TL2Item;
begin
if quest then Inventory.Quest.ByID(itemID, tempItem)
else Inventory.User.ByID(itemID, tempItem);
Result := tempItem.Count;
end;

procedure CheckEquip();
begin
Engine.BypassToServer('_bbshome', True);
Delay (500);
Engine.BypassToServer('_bbsgetfav', True);
Delay (500);
Engine.BypassToServer('_bbsgatekeeper', True);
Delay (500);
Engine.BypassToServer('16', True);
Delay (8000);
Shmot();
end;

procedure Newbie_Buff();
begin
// Бафнемся у нуби бафера
Engine.BypassToServer('_bbshome', True);
Delay (500);
Engine.BypassToServer('_bbsgetfav', True);
Delay (500);
Engine.BypassToServer('_bbsgatekeeper', True);
Delay (500);
Engine.BypassToServer('16', True);
Delay (8000);
Engine.MoveTo(-83112,150744,-3104);
Delay (500);
Engine.MoveTo(-83080,150696,-3104);
Delay (500);
Engine.CancelTarget;
Engine.MoveTo(-83112,150776,-3104);
Delay (500);
Engine.SetTarget('Newbie Guide');
Delay (500);
Engine.DlgOpen;
Delay (500);
Engine.BypassToServer('01', True);
end;


var
Item:TL2Item;
procedure Soski();
begin
// НГ соски
if (CheckItemCount(1835) < 1100) and (User.Level<40) then
begin
Engine.BypassToServer('_bbshome', True);
Delay (500);
Engine.BypassToServer('_bbsgetfav', True);
Delay (500);
Engine.BypassToServer('_bbsfile:smallNpcs/gmshop', True);
Delay (500);
Engine.BypassToServer('116', True);
Delay (500);
Engine.NpcExchange(1835,2200); // закупка 700 итемов с ИД 728
end;


Delay (500);

// Ц Соски
if CheckItemCount(1464) < 1000 then
begin
Engine.BypassToServer('_bbshome', True);
Delay (500);
Engine.BypassToServer('_bbsgetfav', True);
Delay (500);
Engine.BypassToServer('_bbsfile:smallNpcs/gmshop', True);
Delay (500);
Engine.BypassToServer('116', True);
Delay (500);
Engine.NpcExchange(1464,25000); // закупка 700 итемов с ИД 728
end;




// Ц болты
if CheckItemCount(9634) < 2000 then
begin
Engine.BypassToServer('_bbshome', True);
Delay (500);
Engine.BypassToServer('_bbsgetfav', True);
Delay (500);
Engine.BypassToServer('_bbsfile:smallNpcs/gmshop', True);
Delay (500);
Engine.BypassToServer('115', True);
Delay (500);
Engine.NpcExchange(9634,10000); // закупка 700 итемов с ИД 728
end;


Delay (500);


if (User.Level>=76) then
begin
// Ы шоты
if CheckItemCount(1467) < 5000 then
begin
Engine.BypassToServer('_bbshome', True);
Delay (500);
Engine.BypassToServer('_bbsgetfav', True);
Delay (500);
Engine.BypassToServer('_bbsfile:smallNpcs/gmshop', True);
Delay (500);
Engine.BypassToServer('116', True);
Delay (500);
Engine.NpcExchange(1467,15000); // закупка 700 итемов с ИД 728
end;
// Ы болты
if CheckItemCount(9637) < 5000 then
begin
Engine.BypassToServer('_bbshome', True);
Delay (500);
Engine.BypassToServer('_bbsgetfav', True);
Delay (500);
Engine.BypassToServer('_bbsfile:smallNpcs/gmshop', True);
Delay (500);
Engine.BypassToServer('115', True);
Delay (500);
Engine.NpcExchange(9637,15000); // закупка 700 итемов с ИД 728
end;
end;
end;


procedure Shmot();
begin
//Шоты
Soski();
Delay (500);

// Ц шмот
if(User.Level<61) then begin
// Ц Пуха - Эмик [Точность]
if CheckItemCount(4822) < 1 then
if CheckItemCount(9301) < 1 then
begin
Engine.BypassToServer('_bbshome', True);
Delay (500);
Engine.BypassToServer('_bbsgetfav', True);
Delay (500);
Engine.BypassToServer('_bbsfile:smallNpcs/gmshop', True);
Delay (500);
Engine.BypassToServer('12', True);
Delay (500);
Engine.NpcExchange(4822,1); // закупка 700 итемов с ИД 728
end;


Delay (500);


// ПЛ СЕТ - ВЕРХ
if CheckItemCount(398) < 1 then
begin
Engine.BypassToServer('_bbshome', True);
Delay (500);
Engine.BypassToServer('_bbsgetfav', True);
Delay (500);
Engine.BypassToServer('_bbsfile:smallNpcs/gmshop', True);
Delay (500);
Engine.BypassToServer('18', True);
Delay (500);
Engine.NpcExchange(398,1); // закупка 700 итемов с ИД 728
end;


Delay (500);

// ПЛ СЕТ - НИЗ
if CheckItemCount(418) < 1 then
begin
Engine.BypassToServer('_bbshome', True);
Delay (500);
Engine.BypassToServer('_bbsgetfav', True);
Delay (500);
Engine.BypassToServer('_bbsfile:smallNpcs/gmshop', True);
Delay (500);
Engine.BypassToServer('18', True);
Delay (500);
Engine.NpcExchange(418,1); // закупка 700 итемов с ИД 728
end;


Delay (500);

// ПЛ СЕТ - БОТЫ
if CheckItemCount(2431) < 1 then
begin
Engine.BypassToServer('_bbshome', True);
Delay (500);
Engine.BypassToServer('_bbsgetfav', True);
Delay (500);
Engine.BypassToServer('_bbsfile:smallNpcs/gmshop', True);
Delay (500);
Engine.BypassToServer('18', True);
Delay (500);
Engine.NpcExchange(2431,1); // закупка 700 итемов с ИД 728
end;


Delay (500);

// Ц Бижа
if (CheckItemCount(119) < 1) and (CheckItemCount(854) < 2)
and (CheckItemCount(886) < 2) then
begin
Engine.BypassToServer('_bbshome', True);
Delay (500);
Engine.BypassToServer('_bbsgetfav', True);
Delay (500);
Engine.BypassToServer('_bbsfile:smallNpcs/gmshop', True);
Delay (500);
Engine.BypassToServer('1e', True);
Delay (500);
Engine.NpcExchange(119,1); // закупка 700 итемов с ИД 728
Delay (500);
Engine.NpcExchange(854,1); // закупка 700 итемов с ИД 728
Delay (500);
Engine.NpcExchange(854,1); // закупка 700 итемов с ИД 728
Delay (500);
Engine.NpcExchange(886,1); // закупка 700 итемов с ИД 728
Delay (500);
Engine.NpcExchange(886,1); // закупка 700 итемов с ИД 728
end;

Delay (500);
// Одеваем ц шмот, если не одет
if Inventory.User.ByID(4794,Item)
and not Item.Equipped then
if (User.Level>=40) and (User.Level<61) then
begin
Engine.UseItem(4794); //id
end;


Delay (500);
// Одеваем ц шмот, если не одет
if Inventory.User.ByID(398,Item)
and not Item.Equipped then
if (User.Level>=40) and (User.Level<61) then
begin
Engine.UseItem(398); //id
end;


Delay (500);
// Одеваем ц шмот, если не одет
if Inventory.User.ByID(418,Item)
and not Item.Equipped then
if (User.Level>=40) and (User.Level<61) then
begin
Engine.UseItem(418); //id
end;




// Одеваем ц шмот, если не одет
if Inventory.User.ByID(2431,Item)
and not Item.Equipped then
if (User.Level>=40) and (User.Level<61) then
begin
Engine.UseItem(2431); //id
end;
end;

end;

var Captcha:string;
var i:integer;
procedure PassCaptcha();
begin
Captcha := Engine.DlgText;
i:=pos('to Enter',Captcha);
//Cap:=copy(Captcha,i+6,5);
if i <> 0 then
PlaySound('Sounds/Good.wav',false);
// Delay(1800);
end;

begin
while Engine.Status = lsOnline do
begin
PassCaptcha(); // КАПЧА!!!
// Если умираем, бафаемся и возвращаемся

engine.facecontrol(0, false);
If (User.Level>=1) and (User.Level<10) then
begin
engine.loadconfig('SH_1-20');
engine.facecontrol(0, true);
end;

if User.Dead then
begin

engine.facecontrol(0, false);
Delay(500);
Engine.GoHome;
Delay(8000);

If (User.Level>=1) and (User.Level<10) then
begin
engine.loadconfig('SH_1-20');
engine.facecontrol(0, true);
end;


end;

// --------------------------
// КАЧ С 1 ДО 9 ЛВЛ НА ГРЕМЛИНАХ
// --------------------------

// Если же наш лвл от 10 до 20
If (User.Level>=10) and (User.Level<20) then
begin
engine.loadconfig('SH_1-20');
// Если мы не на месте, летим к диону
if not user.InRange(23808, 144396, -3296,2500,2500) then
begin
engine.facecontrol(0, false);

Delay (1000);

Engine.BypassToServer('_bbshome', True);
Delay (500);
Engine.BypassToServer('02', True);
Delay (500);
Engine.BypassToServer('0a', True);
Delay (500);
Engine.BypassToServer('012', True);


Engine.MoveTo(19032,145416,-3104);
Delay (500);
Engine.MoveTo(19480,145576,-3088);
Delay (500);
Engine.MoveTo(20056,145640,-3104);
Delay (500);
Engine.MoveTo(21256,145832,-3128);
Delay (500);
Engine.MoveTo(21720,145848,-3152);
Delay (500);
Engine.MoveTo(23208,144248,-3312);
Delay (500);
Engine.MoveTo(23624,144264,-3312);
//Delay (8000);
end
else
engine.facecontrol(0, true); //Как прилетим, качаемся
end;

// Если же наш лвл от 20 до 40
If (User.Level>=20) and (User.Level<40) then
begin
engine.loadconfig('SH_20-40');
// Брека
if not user.InRange(85872, 131616, -3664,8000,8000) then
begin
engine.facecontrol(0, false);
Delay (1000);

Engine.BypassToServer('_bbshome', True);
Delay (500);
Engine.BypassToServer('02', True);
Delay (500);
Engine.BypassToServer('0a', True);
Delay (500);
Engine.BypassToServer('024', True);
Delay (500);
Engine.BypassToServer('0d', True);
end
else
engine.facecontrol(0, true); //Как прилетим, качаемся
end;

// Если же наш лвл от 40 до 53
If (User.Level>=40) and (User.Level<53) then
begin
engine.loadconfig('SH_40-76');
if not user.InRange(56156, 162818, -2768,12000,50000) then
begin
engine.facecontrol(0, false);
Delay (1000);

Engine.BypassToServer('_bbshome', True);
Delay (500);
Engine.BypassToServer('02', True);
Delay (500);
Engine.BypassToServer('0a', True);
Delay (500);
Engine.BypassToServer('024', True);
Delay (500);
Engine.BypassToServer('0b', True);
end
else
engine.facecontrol(0, true); //Как прилетим, качаемся
end;

// Если же наш лвл от 53 до 62
If (User.Level>=53) and (User.Level<62) then
begin
engine.loadconfig('SH_40-76');
if not user.InRange(106488, -2961, -3424,15000,15000) then
begin
engine.facecontrol(0, false);
Delay (500);
Engine.BypassToServer('_bbshome', True);
Delay (500);
Engine.BypassToServer('02', True);
Delay (500);
Engine.BypassToServer('0a', True);
Delay (500);
Engine.BypassToServer('01e', True);
Delay (500);
Engine.BypassToServer('0c', True);
end
else
engine.facecontrol(0, true); //Как прилетим, качаемся
end;





// Если же наш лвл от 62 до 70
If (User.Level>=62) and (User.Level<71) then
begin
engine.loadconfig('SH_40-76');
if not user.InRange(149620, -112337, -2048,25000,25000) then
begin
engine.facecontrol(0, false);
Delay (500);
Engine.BypassToServer('_bbshome', True);
Delay (500);
Engine.BypassToServer('02', True);
Delay (500);
Engine.BypassToServer('0a', True);
Delay (500);
Engine.BypassToServer('01f', True);
Delay (500);
Engine.BypassToServer('011', True);
end
else
engine.facecontrol(0, true); //Как прилетим, качаемся
end;




// Если же наш лвл от 71 до 85
If (User.Level>=71) and (User.Level<85) then
begin
engine.loadconfig('SH_40-76');
if not user.InRange(110844, -54541, -2846,25000,25000) then
begin
engine.facecontrol(0, false);
Delay (500);
Engine.BypassToServer('_bbshome', True);
Delay (500);
Engine.BypassToServer('02', True);
Delay (500);
Engine.BypassToServer('0a', True);
Delay (500);
Engine.BypassToServer('01f', True);
Delay (500);
Engine.BypassToServer('0b', True);
Delay(8000);
Engine.MoveTo(108552,-54008,-2576);
Engine.MoveTo(110760,-54600,-2864);
end
else
engine.facecontrol(0, true); //Как прилетим, качаемся
end;


Delay(2700); // Бесконечный цикл, не грузим ЦП
end;
end.

Профили: Посмотреть вложение Settings.rar
Профили закидывать в папку Settings

 

[phoenix]

Заместо норм текста у меня не понятные буквы , в чём может быть проблема ?

 

[LOAL]

Заместо норм текста у меня не понятные буквы , в чём может быть проблема ?

c кодировкой наверно что-то не так

 

[SARCAZM]

Заместо норм текста у меня не понятные буквы

Где? Какого текста?

 

[F1ghter.]

В начальной локе цикл бафа продолжается бесконечно >.<

 

[phoenix]

Заместо норм текста у меня не понятные буквы

Где? Какого текста?

С этим решил уже проблемы , с циклом бафа какая-то фигня ( по кд юзает альт б но не бафает )

 

[SARCAZM]

Проверяйте чтобы с графе "Self buff" у вас был правильно настроен баф по игровому шаблону:

Спойлер: Скрины

Байпассы для маг бафа (те, что на скрине):

_bbshome
02
0b
0b

 

[an0m4li]

Благодарствую. Буду разбираться что да как, а то с 0 мне нифига не понятно в скриптах, зато когда разбираю по частям всё становится ясно и сам могу состряпать рабочий вариант.

Хотелось бы ещё узнать в какую сторону копать чтобы, когда бот бежит до спота из города фармить или портается через альт+б, на пути убивать агрессивных мобов/сагрившихся мобов. Готовый вариант меня не интересует. Нужно лишь ткнуть носом в команду скриптовую.

 

[SARCAZM]

@an0m4li, лучше создать отдельную темку. Надо делать проверку на сагренных мобов и убивать всех, кто есть в списке агра наверное. Может, есть решение и легче, но тут не об этом.

 

[platemate]

Thank you!

 

[Zorinn]

Решил затестить скрипт, на сервере стоит гвард и при попытке запустить адрик просто выбивает персонажа

 

[anywaywelcome]

Скрипт зацикливается вначале на баффе.

 

[vktr4]

@Zorinn, надо платный значит

 

[Ashir]

@anywaywelcome, Я переделал условия для бафа и для атаки все норм пошло .

 

[Zorinn]

@vktr4, В платной версии все эти гварды обходятся?

 

[Ashir]

@Zorinn, +

 

[vktr4]

@Zorinn, да. крякнутый не обходит смартгвард, платный обходит

 

[279]

@SARCAZM, на другие сервера не подойдет скрипт?

 

[Ashir]

@279, нужно будет переделывать .

 

[воробей]

вопрос на 0,1 рейты он подойдет?