Форум работает в тестовом режиме. Все данные были перенесены со старого сайта 2018 года. Некоторая информация может быть недоступна, например вложения или хайды. Просьба сообщать о данных случаях через функционал "Жалоба", прямо под постом, где отсуствуют данные из хайда или проблемы с вложением.
Могут быть проблемы в "выкидыванием" с форума (слетевшей авторизацией). Нужно собрать статистику таких случаев.
Есть Тема, куда можете сообщить о проблемах с сайтом либо просто передать привет.

Незивестная ошибка (Engine.fckinError)

PandaTrader

PandaTrader

Рег
7 Дек 2015
Сообщения
125
Реакции
0
Привет всем.В общем,у меня случилась такая проблема.В конце скрипта вылетает неизвестная ошибка.
http://prntscr.com/9r4ypm
Пробовал просто строку "end.",и пробовал "end; end." ,всё та же ошибка.После того,как убираю строку "end",ошибка переходит уже на "Engine.Useitem(10650);" и так далее.Помогите решить проблему.
 
Может ты выше процедуру/функцию не закрыл или после объявления не описал. Без всего скрипта тебе явно тут не помогут)
 
@PandaTrader, 13 begin'ов и 11 end'ов.
Есть пара begin'ов, которые вроде как должны объявлять начало процедуры/функции, а имя функции и ее параметры не объявлены строкой выше. (Строки 17 и 34)
Да и хайды бестолку ставить в разделе помощи
 
@SARCAZM, если после 34-й строки ставлю end; то ошибка появляется уже там.
 
@PandaTrader,

SARCAZM написал(а):
Есть пара begin'ов, которые вроде как должны объявлять начало процедуры/функции, а имя функции и ее параметры не объявлены строкой выше
Нажмите для раскрытия...
 
@Krickt, Конкретнее, дай команды, которых не хватает. Обосрать много ума не надо.
 
for sure it problems with "begin" and "end"
example part of script

begin
Engine.Useitem(22087); //Открыть физ пак бафа
Delay(1000);
Engine.Useitem(22088); //Маг пак бафа
Delay(1000);
Engine.Useitem(22049); //Берс баф
Delay(7000);
Engine.Useitem(22041);
Delay(7000);
Engine.Useitem(12753); //свиток к крылатым;
Delay(30000);
Engine.Settarget(32135); //Взять в таргет НПЦ баффера;
Delay(1500);
Engine.Dlgopen;
Engine.MoveTo(-119490, 47880, 384);
Engine.MoveTo(-119379, 49216, 8);

begin
Delay(2500);
Engine.Settarget(32173);
Delay(1500);
Engine.Dlgopen;
Delay(2000);
Engine.DlgSel(3);
Delay(1500);
Engine.DlgSel(1);
Delay(1500);
Engine.DlgSel(1);
Delay(1500);
Engine.BypassToServer('00');
Delay(1500);

only begin, if really i have no idea why need add begin like this..
probably my delphi to low understand this xd
 
@PalmaDeMajorka,
объясняю.
табуляция это отступы слева на каждом уровне вложенности. при их наличии у ТСа скорее всего бы не было проблем и юзерам форума было бы удобнее смотреть скрипт.
под проверками я имел ввиду проверки, которые бы запускали скрипт с нужного момента при дисконекте и прочих неприятностях.
 
@PalmaDeMajorka, проблемы в этой части скрипта тоже есть.Если ставлю end; в конце каждого этого begin,то ошибка вылетает там.
 
@PalmaDeMajorka, гугл юзнул бы. Я же сказал, повышает читаемость сильно. Тем, кто привык с ней читать, вообще потом трудно обычный код читать. В программировании без табуляции по шапке бьют, только нубы без нее пишут.
Если бы была табуляция, сразу было бы видно, какой блок не закрыт.

Пример кода с табуляцией:
l2ZelYnt87xM4m.png
 
@PalmaDeMajorka, во-первых даже в редакторе адрика отступ делается автоматически. во-вторых лучше потратить немного больше времени, дабы потом было удобно поддерживать(исправлять, дополнять) код.
не могу сказать, что это отнимает много времени, при уверенном использовании клавиатуры.
 
i dont know, i remoevd wich for me looks not necesery so you can try this
Код: 
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
Print('Dead. Pressing to vellage.');
Delay(1000);
Engine.FaceControl(0, false);
Engine.GoHome;
Delay(10000);
end;
Result := false;
end;
 
begin
Engine.Useitem(22087); //Открыть физ пак бафа
Delay(1000);
Engine.Useitem(22088); //Маг пак бафа
Delay(1000);
Engine.Useitem(22049); //Берс баф
Delay(7000);
Engine.Useitem(22041);
Delay(7000);
Engine.Useitem(12753); //свиток к крылатым;
Delay(30000);
Engine.Settarget(32135); //Взять в таргет НПЦ баффера;
Delay(1500);
Engine.Dlgopen;
Engine.MoveTo(-119490, 47880, 384);
Engine.MoveTo(-119379, 49216, 8);
Delay(2500);
Engine.Settarget(32173);
Delay(1500);
Engine.Dlgopen;
Delay(2000);
Engine.DlgSel(3);
Delay(1500);
Engine.DlgSel(1);
Delay(1500);
Engine.DlgSel(1);
Delay(1500);
Engine.BypassToServer('00');
Delay(1500);
Engine.Dlgopen;
Delay(2000);
Engine.DlgSel(3);
Delay(1500);
Engine.DlgSel(2);
Delay(1500);
Engine.DlgSel(1);
Delay(1500);
Engine.BypassToServer('00');
Delay(1500);
Engine.MoveTo(-119416, 47928, 400);
Engine.MoveTo(-119320, 46920, 376);
Engine.MoveTo(-116824, 45784, 376);
Engine.MoveTo(-115992, 45560, 520);
Engine.MoveTo(-115208, 44632, 528);
Engine.MoveTo(-115000, 44648, 528);
Engine.Settarget(32170);
Engine.Dlgopen;
Delay(1500);
Engine.DlgSel(5);
Delay(1500);
Engine.MoveTo(-115560, 44728, 512);
Engine.MoveTo(-118888, 46888, 376);
Engine.MoveTo(-119350, 47038, 381);
Engine.MoveTo(-119416, 48552, 248);
Engine.MoveTo(-119368, 49208, 24);
Engine.Settarget(32173);
Engine.Dlgopen;
Delay(1500);
Engine.DlgSel(3);
Delay(1500);
Engine.DlgSel(1);
Delay(1500);
Engine.Dlgopen;
Delay(1500);
Engine.DlgSel(3);
Delay(1500);
Engine.DlgSel(2);
Delay(1500);
Engine.MoveTo(-119381, 47992, 378);
Engine.MoveTo(-119336, 47016, 376);
Engine.MoveTo(-117192, 47640, 472);
Engine.MoveTo(-117144, 47976, 472);
Engine.Settarget(32167);
Engine.Dlgopen;
Delay(1500);
Engine.DlgSel(3);
Delay(1500);
Engine.MoveTo(-117176, 47640, 472);
Engine.MoveTo(-117606, 47446, 462);
Engine.MoveTo(-119240, 47688, 464);
Engine.MoveTo(-119368, 47944, 392);
Engine.MoveTo(-119368, 49192, 32);
Engine.Settarget(32173);
Engine.Dlgopen;
Delay(1500);
Engine.DlgSel(3);
Delay(1500);
Engine.DlgSel(1);
Delay(1500);
Engine.Dlgopen;
Delay(1500);
Engine.DlgSel(3);
Delay(1500);
Engine.DlgSel(2);
Delay(1500);
Engine.BypassToServer('00');
Delay(1500);
Engine.MoveTo(-119565, 47130, 392);
Engine.MoveTo(-119725, 44492, 360);
 

Engine.Settarget(32135); //Взять в таргет НПЦ баффера;
Delay(1500);
Engine.Dlgopen;
Engine.DlgSel(2);
Engine.DlgSel(1);
Engine.Dlgopen;
Engine.DlgSel(1);
Engine.DlgSel(1);
Engine.Dlgopen;
Engine.DlgSel(4);
Engine.DlgSel(1);
Delay(10000);
Engine.MoveTo(-84494, 243194, -3755);
Engine.MoveTo(-84481, 242797, -3755);
Engine.Settarget(30048); //Таргет Darin
Engine.Dlgopen;
Engine.DlgSel(1);
Delay(1500);
Engine.DlgSel(1);
Delay(1500);
Engine.DlgSel(2);
Delay(1500);
Engine.DlgSel(1);
Delay(1500);
Engine.MoveTo(-85160, 244064, -3755);
Engine.MoveTo(-84195,244552,-3755);
Engine.Settarget(30006); // Таргет Roxxy
Engine.Dlgopen;
Engine.DlgSel(7);
Delay(1500);
Engine.DlgSel(1);
Delay(1500);
Engine.MoveTo(-85160, 244064, -3755);
Engine.MoveTo(-84481, 242797, -3755);
Engine.Settarget(30048); //Таргет Darin
Engine.Dlgopen;
Delay(1000);
Engine.DlgSel(1);
Engine.MoveTo(-85448,244447,-3755);
Engine.MoveTo(-84879,245095,-3753);
Engine.Settarget(30033); //Таргет Baulro
Engine.Dlgopen;
Delay(1000);
Engine.DlgSel(4);
Engine.MoveTo(-84879,245095,-3753);
Engine.MoveTo(-85448,244447,-3755);
Engine.MoveTo(-84481, 242797, -3755);
Engine.Settarget(30048); //Таргет Darin
Engine.Dlgopen;
Engine.DlgSel(1);
 

Delay(20000);
Engine.MoveTo(-84477,243235,-3755);
Engine.MoveTo(-84120,243242,-3755);
Engine.Settarget(30598); //Таргет НубоХелпера;
Engine.Dlgopen;
Delay(1000);
Engine.DlgSel(1);
Delay(1000);
Engine.Dlgopen;
Engine.DlgSel(6);
Delay(1000);
Engine.DlgSel(2);
Delay(1000);
Engine.NpcExchange(10479,1); //Покупка сворда;
Engine.Useitem(10479);
Delay(1000);
Engine.Settarget(30598); //Таргет НубоХелпера;
Engine.Dlgopen;
Engine.DlgSel(5);
Delay(1000);
Engine.DlgSel(1); //Бафаемся.
Engine.MoveTo(-82154, 241338, -3755); //Путь от НпцБафера к гварду;
Engine.Settarget(30039); //Таргет Gilbert
Engine.Dlgopen;
Engine.DlgSel(3);
Delay(1000);
Engine.DlgSel(1);
Engine.MoveTo(-84571,239050,-3749); //Путь к оркам;
Engine.MoveTo(-87342,240676,-3629);
Engine.MoveTo(-90635,242401,-3573);
Engine.MoveTo(-92685,243432,-3540);
Engine.MoveTo(-93936,243945,-3630);
Engine.LoadConfig('1for15');
while User.Level<15 do begin
Engine.AutoSoulshot(5789,true); //Автоюз маг сосок ид5790, файтер соски5789
Engine.Settarget(20130);
Engine.Attack(50); //Engine.UseSkill(1177);
end;
while User.Level<15 do begin
Engine.AutoSoulshot(5789,true); //Автоюз маг сосок ид5790, файтер соски5789
Engine.Attack(50);
if User.InCombat = false then break;
end;
Engine.UseItem(10650);
Delay(20000);

 

Delay(20000);
Engine.MoveTo(-85703,244232,-3755); //Пусть от респа(храм) к Гилберту;
Engine.MoveTo(-84265,242559,-3755); //
Engine.MoveTo(-82198,241415,-3755); //
Engine.Settarget(30039); //Таргет Gilbert
Engine.Dlgopen;
Delay(1000);
Engine.DlgSel(3);
Delay(1000);
Engine.DlgSel(1);
Engine.MoveTo(-82532,241574,-3755); //Путь от Гилберта к НПЦ бафферу;
Engine.MoveTo(-84018,243164,-3755);
Engine.Settarget(30598); //Таргет НубоХелпера;
Engine.Dlgopen;
Engine.DlgSel(5);
Delay(1000);
Engine.DlgSel(1); //Бафаемся.
Engine.MoveTo(-84815,243462,-3755); //Идем в церковь
Engine.MoveTo(-85448,244479,-3755);
Engine.MoveTo(-85001,244952,-3753);
Engine.Settarget(30033); //Таргет Baulro
Engine.Dlgopen();
Engine.DlgSel(1);
Engine.LearnSkill(1177); // Wind Strike
Delay(1500);
Engine.LearnSkill(1177); //Wind Strike [2]
Delay(1500);
Engine.LearnSkill(244); //Armor Mastery
Delay(1500);
Engine.LearnSkill(249); //Weapon Mastery
Delay(1500);
Engine.LearnSkill(146); //Anti Magic
Delay(1500);
Engine.MoveTo(-84574,245337,-3753); //Идем к ТП
Engine.MoveTo(-84212,244934,-3755);
Engine.MoveTo(-84119,244695,-3755);
Engine.Settarget(30006); //Таргет Roxxy
Engine.Dlgopen;
Engine.DlgSel(3);
Delay(1000);
Engine.DlgSel(8);
Delay(5000);
Engine.MoveTo(-113126,244492,-3465); //Идем на спот
Engine.MoveTo(-114154,245244,-3335);
//Engine.MoveTo(-115729,246620,-3280);
//Engine.MoveTo(-115649,247153,-3282);
//Engine.MoveTo(-115688,247817,-3277);
 
while User.Level<15 do begin
Engine.AutoSoulshot(5789,true);
Engine.AutoTarget(2000);
Engine.Attack(50);
Engine.PickUp();
if (user.level = 15) then break;
end;
while User.Level<15 do begin
Engine.AutoSoulshot(5789,true); //Автоюз маг сосок ид5790, файтер соски5789
Engine.Attack(50);
Engine.PickUp();
if User.InCombat = false then break;
end;
Engine.UseItem(10650);
Delay(30000);
Engine.MoveTo(-85631,244313,-3755); //Путь от респа к Elias
Engine.MoveTo(-84743,243265,-3755);
Engine.MoveTo(-84408,242679,-3755);
Engine.MoveTo(-84115,242780,-3755);
Engine.Settarget(30050); //Таргет Elias квест 15+
Engine.Dlgopen();
Engine.DlgSel(1);
Delay(1000);
Engine.DlgSel(1);
Delay(1000);
Engine.MoveTo(-84023,243270,-3755); //Путь от Елиаса к тп
Engine.MoveTo(-84266,243737,-3755);
Engine.MoveTo(-84536,244002,-3755);
Engine.MoveTo(-84147,244543,-3755);
Engine.Settarget(30006); //Таргет Roxxy
Engine.Dlgopen;
Engine.DlgSel(3);
Delay(1000);
Engine.DlgSel(8);
Delay(5000);
Engine.MoveTo(-113126,244492,-3465); //Идем на спот
Engine.MoveTo(-114154,245244,-3335);
//Engine.MoveTo(-115729,246620,-3280);
//Engine.MoveTo(-115649,247153,-3282);
//Engine.MoveTo(-115688,247817,-3277);
while User.Level<20 do begin
Engine.AutoSoulshot(5789,true); //Автоюз маг сосок ид5790, файтер соски5789
Engine.Settarget(20108);
Engine.Attack(50);
Engine.PickUp();
if Inventory.Quest.ByID(703 ,Item) then break;
end;
while User.Level<20 do begin
Engine.AutoSoulshot(5789,true); //Автоюз маг сосок ид5790, файтер соски5789
Engine.Attack(50);
Engine.PickUp();
if User.InCombat = false then break;
end;
Engine.UseItem(10650);
Delay(40000);
Engine.Settarget(30032);//Таргет Yohanes
Engine.MoveToTarget(-20);
Delay(3000);
Engine.Dlgopen();
Delay(2000);
Engine.DlgSel(5);
Delay(2000);
Engine.MoveTo(-85631,244313,-3755); //Путь от респа к Elias
Engine.MoveTo(-84743,243265,-3755);
Engine.MoveTo(-84408,242679,-3755);
Engine.MoveTo(-84115,242780,-3755);
Engine.Settarget(30050); //Таргет Elias квест 15+
Engine.Dlgopen();
Engine.DlgSel(1);
Engine.Settarget(30598);//Таргет нубобафера
Engine.MoveToTarget(-20);
Delay(2000);
Engine.Dlgopen();
Engine.MoveTo(-84023,243270,-3755); //Путь к тп
Engine.MoveTo(-84266,243737,-3755);
Engine.MoveTo(-84536,244002,-3755);
Engine.MoveTo(-84147,244543,-3755);
Engine.Settarget(30006); //Таргет Roxxy
Engine.Dlgopen;
Engine.DlgSel(3);
Delay(1000);
Engine.DlgSel(5);//тп к оркам
Delay(15000);
Engine.MoveTo(-45049,-113037,-265);
Engine.MoveTo(-45808,-113586,-250);
Engine.MoveTo(-46277,-113515,-228);
Engine.MoveTo(-46302,-112946,-200);
Engine.MoveTo(-46293,-112825,-228);
Engine.MoveTo(-45959,-112602,-228);
Engine.Settarget(30572);
Engine.Dlgopen;
Engine.DlgSel(4);
Delay(1000);
Engine.DlgSel(2);
Delay(1000);
Engine.DlgSel(1);
Delay(15000);
Engine.MoveTo(-46310,-112948,-228);
Engine.MoveTo(-46275,-113432,-228);
Engine.MoveTo(-46006,-113611,-227);
Engine.MoveTo(-45528,-113415,-265);
Engine.MoveTo(-44999,-112957,-265);
Engine.MoveTo(-45208,-112588,-265);
Engine.Settarget(30576); //Гк у окрков
Engine.Dlgopen;
Engine.DlgSel(1);
Delay(1000);
Engine.DlgSel(3); //тп в штудгарт
Delay(30000);
Engine.MoveTo(87363,-143133,-1319);
Engine.MoveTo(87782,-142589,-1366);
Engine.MoveTo(88864,-142281,-1366);
Engine.MoveTo(89672,-141806,-1567);
Engine.MoveTo(90069,-142394,-1567);
Engine.MoveTo(90509,-143005,-1567);
Engine.MoveTo(90424,-143176,-1566);
Engine.MoveTo(90266,-143192,-1553);
Engine.MoveTo(90049,-143172,-1553);
Engine.Settarget(31979); //Таргет Moira
Engine.Dlgopen;
Engine.DlgSel(3);
Delay(1000);
Engine.DlgSel(1);
Delay(1000);
Engine.DlgSel(1);
Engine.MoveTo(90049,-143172,-1553);
Engine.MoveTo(90266,-143192,-1553);
Engine.MoveTo(90424,-143176,-1566);
Engine.MoveTo(90509,-143005,-1567);
Engine.MoveTo(90069,-142394,-1567);
Engine.MoveTo(89672,-141806,-1567);
Engine.MoveTo(88864,-142281,-1366);
Engine.MoveTo(87782,-142589,-1366);
Engine.MoveTo(87363,-143133,-1319);
Engine.MoveTo(87149,-143331,-1319);
Engine.Settarget(31964);//Таргет гк в шутдаграде
Engine.Dlgopen();
Engine.DlgSel(1);
Delay(1000);
Engine.DlgSel(14);
Delay(15000);
Engine.Settarget(32017);//Таргет Karuda
Engine.Dlgopen();
Engine.DlgSel(1);
Delay(1500);
Engine.DlgSel(2);
Delay(1500);
Engine.DlgSel(1);//Сдали первый
Engine.Dlgopen();
Engine.DlgSel(1);
Delay(1000);
Engine.DlgSel(2);
Delay(1500);
Engine.DlgSel(1);//Сдали второй
Engine.Useitem(10650);
end.
 
Войдите или зарегистрируйтесь для ответа.
Назад
Сверху