Помогите с скриптом

IamFormat · 26.03.2018, 01:15

Написал свой первый скрипт на квест дракончика. почему то в конце не закрывается через "end." помогите пожалуйста:

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 Girantp;
begin
if User.InRange(81376,148095,-3464, 250, 150) then begin
Engine.MoveTo(81376,148095,-3464);
Engine.MoveTo(81881,148025,-3467);
Engine.MoveTo(83027,148020,-3467);
Engine.MoveTo(83402,147946,-3403);
end;
if User.InRange(82292,149450,-3464, 250, 150) then begin
Engine.MoveTo(82292,149450,-3464);
Engine.MoveTo(82865,148876,-3467);
Engine.MoveTo(83054,148281,-3467);
Engine.MoveTo(83402,147946,-3403);
end;
if User.InRange(81562,147782,-3464, 250, 150) then begin
Engine.MoveTo(81562,147782,-3464);
Engine.MoveTo(82284,148077,-3467);
Engine.MoveTo(83077,148159,-3467);
Engine.MoveTo(83402,147946,-3403);
end;
if User.InRange(83409,148578,-3400, 250, 150) then begin
Engine.MoveTo(83409,148578,-3400);
Engine.MoveTo(83427,148206,-3403);
Engine.MoveTo(83402,147946,-3403);
end;
if User.InRange(81440,149119,-3464, 250, 150) then begin
Engine.MoveTo(81440,149119,-3464);
Engine.MoveTo(82200,149222,-3467);
Engine.MoveTo(82722,148485,-3467);
Engine.MoveTo(83087,148101,-3467);
Engine.MoveTo(83402,147946,-3403);
end;
if User.InRange(82496,148095,-3464, 250, 150) then begin
Engine.MoveTo(82496,148095,-3464);
Engine.MoveTo(83092,148094,-3467);
Engine.MoveTo(83402,147946,-3403);
end;
if User.InRange(83473,149223,-3400, 250, 150) then begin
Engine.MoveTo(83473,149223,-3400);
Engine.MoveTo(83355,148728,-3403);
Engine.MoveTo(83358,148292,-3403);
Engine.MoveTo(83402,147946,-3403);
end;
if User.InRange(82272,147801,-3464, 250, 150) then begin
Engine.MoveTo(82272,147801,-3464);
Engine.MoveTo(82565,148080,-3467);
Engine.MoveTo(83101,148099,-3467);
Engine.MoveTo(83402,147946,-3403);
end;
if User.InRange(82480,149087,-3464, 250, 150) then begin
Engine.MoveTo(82480,149087,-3464);
Engine.MoveTo(82623,148694,-3467);
Engine.MoveTo(83087,148157,-3467);
Engine.MoveTo(83402,147946,-3403);
end;
if User.InRange(81637,149427,-3464, 250, 150) then begin
Engine.MoveTo(81637,149427,-3464);
Engine.MoveTo(82229,149197,-3467);
Engine.MoveTo(82610,148669,-3467);
Engine.MoveTo(83088,148170,-3467);
Engine.MoveTo(83402,147946,-3403);
end;
if User.InRange(81062,148144,-3464, 250, 150) then begin
Engine.MoveTo(81062,148144,-3464);
Engine.MoveTo(81574,147997,-3467);
Engine.MoveTo(82302,147975,-3467);
Engine.MoveTo(83070,148109,-3467);
Engine.MoveTo(83402,147946,-3403);
end;
if User.InRange(83426,148835,-3400, 250, 150) then begin
Engine.MoveTo(83426,148835,-3400);
Engine.MoveTo(83422,148276,-3403);
Engine.MoveTo(83402,147946,-3403);
end;
if User.InRange(81033,148883,-3464, 250, 150) then begin
Engine.MoveTo(81033,148883,-3464);
Engine.MoveTo(81769,149191,-3467);
Engine.MoveTo(82322,149192,-3467);
Engine.MoveTo(82622,148656,-3467);
Engine.MoveTo(83079,148163,-3467);
Engine.MoveTo(83402,147946,-3403);
end;
if User.InRange(83415,148235,-3400, 250, 150) then begin
Engine.MoveTo(83415,148235,-3400);
Engine.MoveTo(83402,147946,-3403);
end;
end;
procedure Orentp;
begin
if User.InRange(80334,54400,-1552, 250, 150) then begin
Engine.MoveTo(80334,54400,-1552);
Engine.MoveTo(80969,53698,-1558);
Engine.MoveTo(81540,53454,-1494);
Engine.MoveTo(82480,53340,-1494);
Engine.MoveTo(82950,53186,-1494);
end;
if User.InRange(82323,55466,-1520, 250, 150) then begin
Engine.MoveTo(82323,55466,-1520);
Engine.MoveTo(82403,54498,-1523);
Engine.MoveTo(82589,53861,-1486);
Engine.MoveTo(82950,53186,-1494);
end;
if User.InRange(82123,53535,-1488, 250, 150) then begin
Engine.MoveTo(82123,53535,-1488);
Engine.MoveTo(82950,53186,-1494);
end;
if User.InRange(80304,56241,-1552, 250, 150) then begin
Engine.MoveTo(80304,56241,-1552);
Engine.MoveTo(81470,55682,-1523);
Engine.MoveTo(82256,55294,-1523);
Engine.MoveTo(82510,54035,-1494);
Engine.MoveTo(82950,53186,-1494);
end;
if User.InRange(82445,56012,-1520, 250, 150) then begin
Engine.MoveTo(82445,56012,-1520);
Engine.MoveTo(82341,54950,-1523);
Engine.MoveTo(82574,53833,-1486);
Engine.MoveTo(82950,53186,-1494);
end;
if User.InRange(80054,53209,-1552, 250, 150) then begin
Engine.MoveTo(80054,53209,-1552);
Engine.MoveTo(80624,53611,-1558);
Engine.MoveTo(81772,53468,-1494);
Engine.MoveTo(82289,53472,-1494);
Engine.MoveTo(82950,53186,-1494);
end;
if User.InRange(80513,52980,-1552, 250, 150) then begin
Engine.MoveTo(80513,52980,-1552);
Engine.MoveTo(80165,53065,-1558);
Engine.MoveTo(80630,53610,-1558);
Engine.MoveTo(81688,53447,-1494);
Engine.MoveTo(82303,53338,-1494);
Engine.MoveTo(82950,53186,-1494);
end;
if User.InRange(80267,55497,-1552, 250, 150) then begin
Engine.MoveTo(80267,55497,-1552);
Engine.MoveTo(80359,54536,-1558);
Engine.MoveTo(80792,53785,-1558);
Engine.MoveTo(81495,53421,-1494);
Engine.MoveTo(82323,53362,-1494);
Engine.MoveTo(82950,53186,-1494);
end;
if User.InRange(79933,55752,-1552, 250, 150) then begin
Engine.MoveTo(79933,55752,-1552);
Engine.MoveTo(80349,55208,-1558);
Engine.MoveTo(80470,54217,-1558);
Engine.MoveTo(81053,53602,-1558);
Engine.MoveTo(81974,53465,-1494);
Engine.MoveTo(82950,53186,-1494);
end;
if User.InRange(80594,55837,-1552, 250, 150) then begin
Engine.MoveTo(80594,55837,-1552);
Engine.MoveTo(81899,55492,-1523);
Engine.MoveTo(82240,55142,-1523);
Engine.MoveTo(82531,53946,-1494);
Engine.MoveTo(82950,53186,-1494);
end;
if User.InRange(82213,53964,-1488, 250, 150) then begin
Engine.MoveTo(82213,53964,-1488);
Engine.MoveTo(82668,53709,-1486);
Engine.MoveTo(82950,53186,-1494);
end;
if User.InRange(83327,55410,-1520, 250, 150) then begin
Engine.MoveTo(83327,55410,-1520);
Engine.MoveTo(82607,55592,-1523);
Engine.MoveTo(82184,54809,-1523);
Engine.MoveTo(82563,53882,-1488);
Engine.MoveTo(82950,53186,-1494);
end;
if User.InRange(79706,52986,-1552, 250, 150) then begin
Engine.MoveTo(79706,52986,-1552);
Engine.MoveTo(80427,53549,-1558);
Engine.MoveTo(80812,53655,-1558);
Engine.MoveTo(81979,53439,-1494);
Engine.MoveTo(82950,53186,-1494);
end;
if User.InRange(82880,55390,-1520, 250, 150) then begin
Engine.MoveTo(82880,55390,-1520);
Engine.MoveTo(82375,55524,-1523);
Engine.MoveTo(82367,54313,-1493);
Engine.MoveTo(82651,53734,-1486);
Engine.MoveTo(82950,53186,-1494);
end;
if User.InRange(82552,53447,-1488, 250, 150) then begin
Engine.MoveTo(82552,53447,-1488);
Engine.MoveTo(82950,53186,-1494);
end;
if User.InRange(82638,53885,-1488, 250, 150) then begin
Engine.MoveTo(82638,53885,-1488);
Engine.MoveTo(82950,53186,-1494);
end;
end;
procedure farm1;
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;
begin
while CheckItemCount (3820, True) < 10 do
Engine.LoadConfig('toad lord.xml');
Engine.FaceControl(0,true);
end;
if CheckItemCount(3820, True) >= 10 then
Engine.FaceControl(0, false);
Delay(1000);
Engine.UseItem(736);
delay(15000);
end;
procedure faarm2;
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;
begin
while CheckItemCount (3827, True) < 20 do
Engine.LoadConfig('Scavenger.xml');
Engine.FaceControl(0,true);
end;
if CheckItemCount(3827, True) >= 20 then
Engine.FaceControl(0, false);
Delay(1000);
Engine.UseItem(736);
delay(15000);
end;
procedure part1;
begin
Engine.FaceControl(0, false);
engine.MOVETO(83505,147972,-3431);
engine.MOVETO(83612,147795,-3431);
engine.MOVETO(83261,147729,-3495);
engine.MOVETO(82610,147604,-3495);
engine.MOVETO(81586,147560,-3495);
engine.MOVETO(81574,147427,-3491);
engine.MOVETO(81594,146731,-3559);
engine.MOVETO(81396,145709,-3559);
engine.MOVETO(81276,145553,-3559);
engine.MOVETO(81042,145560,-3559);
engine.MOVETO(81099,145823,-3559);
Engine.SetTarget('Cooper');
Engine.DlgOpen;
engine.dlgsel(8);
delay(100);
engine.dlgsel(2);
delay(100);
engine.dlgsel(1);
end;
procedure part2;
begin
engine.MOVETO(81137,145550,-3559);
engine.MOVETO(81462,145565,-3559);
engine.MOVETO(81589,146811,-3559);
engine.MOVETO(81537,147385,-3500);
engine.MOVETO(81646,147653,-3495);
engine.MOVETO(82198,147631,-3495);
engine.MOVETO(83454,147655,-3441);
engine.MOVETO(83567,147723,-3431);
engine.MOVETO(83596,147985,-3431);
engine.MOVETO(83444,147919,-3431);
Engine.SetTarget('Clarissa');
Engine.DlgOpen;
engine.dlgsel(1);
delay(100);
engine.dlgsel(8);
DELAY(3000);
Engine.SetTarget('Elisa');
Engine.DlgOpen;
engine.dlgsel(1);
delay(100);
engine.dlgsel(9);
DELAY(3000);
MOVETO(117046,76893,-2728);
MOVETO(117446,76330,-2727);
MOVETO(117753,76429,-2720);
Engine.SetTarget('Cronos');
Engine.DlgOpen;
engine.dlgsel(1);
delay(100);
engine.dlgsel(1);
delay(100);
engine.dlgsel(1);
delay(100);
engine.dlgsel(1);
delay(100);
engine.dlgsel(1);
delay(100);
engine.dlgsel(1);
DELAY(3000);
end;
procedure part3;
begin
MOVETO(117572,76328,-2720);
MOVETO(117057,76889,-2727);
Engine.SetTarget('Esmeralda');
Engine.DlgOpen;
engine.dlgsel(1);
delay(100);
engine.dlgsel(1);
DELAY(3000);
Engine.SetTarget('Elisa');
Engine.DlgOpen;
engine.dlgsel(1);
delay(100);
engine.dlgsel(6);
DELAY(3000);
engine.MOVETO(16662,144316,-3015);
engine.MOVETO(16914,144730,-3026);
engine.MOVETO(17224,145226,-3078);
engine.MOVETO(18009,145556,-3114);
engine.MOVETO(18743,145691,-3125);
engine.MOVETO(19266,145702,-3121);
engine.MOVETO(19279,145927,-3096);
engine.MOVETO(19136,146010,-3096);
engine.MOVETO(19084,145981,-3096);
engine.Engine.SetTarget('Maria');
Engine.DlgOpen;
engine.dlgsel(1);
delay(100);
engine.dlgsel(1);
DELAY(1000);
Engine.MOVETO(19186,146141,-3096);
Engine.MOVETO(19251,146016,-3096);
Engine.MOVETO(19294,145655,-3128);
end;
procedure part4;
begin
Engine.MoveTo(17848,145768,-3088);
Engine.MoveTo(16600,144312,-2976);
Engine.MoveTo(15896,143160,-2736);
Engine.MoveTo(15720,142856,-2688);
Engine.SetTarget('Trisha');
Engine.DlgOpen;
engine.dlgsel(1);
delay(100);
engine.dlgsel(10);
DELAY(3000);
Engine.MoveTo(16856,114104,-3424);
Engine.MoveTo(15672,114456,-3560);
Engine.MoveTo(16328,115608,-3568);
Engine.MoveTo(18408,115656,-3560);
Engine.MoveTo(19144,114872,-3568);
Engine.MoveTo(19240,112968,-3584);
Engine.MoveTo(17960,111832,-3568);
Engine.MoveTo(16344,111544,-3664);
DELAY(2000);
farm1;
end;
procedure part5;
begin
engine.MOVETO(19266,145702,-3121);
engine.MOVETO(19279,145927,-3096);
engine.MOVETO(19136,146010,-3096);
engine.MOVETO(19084,145981,-3096);
engine.Engine.SetTarget('Maria');
Engine.DlgOpen;
engine.dlgsel(1);
delay(100);
engine.dlgsel(1);
DELAY(1000);
engine.dlgsel(1);
DELAY(1000);
end;
procedure part6;
begin
engine.MOVETO(19252,145976,-3096);
engine.MOVETO(19291,145610,-3132);
engine.MOVETO(17995,145803,-3137);
engine.MOVETO(17081,144949,-3047);
engine.MOVETO(15928,143403,-2812);
engine.MOVETO(15753,143092,-2738);
engine.MOVETO(15688,142973,-2732);
Engine.SetTarget('Trisha');
Engine.DlgOpen;
engine.dlgsel(1);
delay(100);
engine.dlgsel(7);
DELAY(3000);
Engine.SetTarget('Elisa');
Engine.DlgOpen;
engine.dlgsel(1);
delay(100);
engine.dlgsel(9);
DELAY(3000);
engine.MOVETO(116168,75695,-2740);
engine.MOVETO(116010,75454,-2631);
engine.MOVETO(115068,74373,-2621);
Engine.SetTarget('Byron');
Engine.DlgOpen;
engine.dlgsel(2);
delay(100);
engine.dlgsel(1);
delay(100);
engine.dlgsel(1);
engine.MOVETO(115409,74722,-2626);
engine.MOVETO(117080,76799,-2726);
Engine.SetTarget('Esmeralda');
Engine.DlgOpen;
engine.dlgsel(1);
delay(100);
engine.dlgsel(5);
DELAY(3000);
Engine.MoveTo(104760,36408,-4576);
Engine.MoveTo(105944,36600,-4528);
Engine.MoveTo(106968,37256,-4576);
Engine.MoveTo(108104,38712,-4560);
Engine.MoveTo(109448,39144,-4576);
Engine.MoveTo(109960,40696,-4608);
Engine.MoveTo(110392,41656,-4616);
Engine.LoadConfig('Scavenger2.xml');
Engine.FaceControl(0,true);
DELAY(3000);
Engine.SetTarget('Mimyu');
Engine.DlgOpen;
engine.dlgsel(1);
delay(100);
engine.dlgsel(1);
delay(100);
engine.dlgsel(1);
delay(100);
engine.dlgsel(1);
delay(100);
Engine.UseItem(736);
Engine.FaceControl(0,false);
end;
procedure part7;
begin
engine.MOVETO(117023,76768,-2735);
Engine.SetTarget('Esmeralda');
Engine.DlgOpen;
engine.dlgsel(1);
delay(100);
engine.dlgsel(2);
Delay(3000);
engine.MOVETO(82347,53417,-1522);
engine.MOVETO(81571,53525,-1522);
engine.MOVETO(81101,53480,-1586);
engine.MOVETO(81057,53077,-1586);
engine.MOVETO(81049,52053,-1752);
engine.MOVETO(80980,50077,-2179);
engine.MOVETO(80586,49498,-2235);
engine.MOVETO(79058,48046,-2579);
engine.MOVETO(78531,45942,-2881);
engine.MOVETO(77879,45018,-2932);
engine.MOVETO(77132,44554,-3017);
engine.MOVETO(75189,43815,-2887);
engine.MOVETO(74449,43597,-2770);
engine.MOVETO(74022,43456,-2646);
engine.MOVETO(73652,43314,-2594);
engine.MOVETO(73342,43269,-2581);
engine.MOVETO(72072,41975,-2471);
engine.MOVETO(71951,41759,-2398);
engine.MOVETO(71769,41770,-2304);
engine.MOVETO(71573,42226,-2136);
engine.MOVETO(71485,42848,-2006);
engine.MOVETO(71572,43510,-1774);
engine.MOVETO(71545,43329,-1915);
engine.MOVETO(71408,43283,-1927);
engine.MOVETO(71392,43460,-1884);
engine.MOVETO(71542,43545,-1756);
engine.MOVETO(71542,43624,-1688);
engine.MOVETO(71626,43649,-1709);
engine.MOVETO(71553,43866,-1617);
Engine.SetTarget('Kalibran');
Engine.DlgOpen;
engine.dlgsel(1);
delay(100);
engine.dlgsel(1);
Delay(1000);
Engine.UseItem(736);
end;
procedure part8;
begin
orentp;
engine.MOVETO(117023,76768,-2735);
Engine.SetTarget('Valentina');
Engine.DlgOpen;
engine.dlgsel(1);
delay(100);
engine.dlgsel(2);
Delay(3000);
Engine.SetTarget('Clarissa');
Engine.DlgOpen;
engine.dlgsel(1);
delay(100);
engine.dlgsel(11);
DELAY(3000);
Engine.MoveTo(69976,118392,-3504);
Engine.MoveTo(69240,118856,-3456);
Engine.MoveTo(67864,118712,-3600);
farm2;
end;
procedure part9;
begin
girantp;
Engine.SetTarget('Clarissa');
Engine.DlgOpen;
engine.dlgsel(1);
delay(100);
engine.dlgsel(1);
DELAY(3000);
engine.MOVETO(82347,53417,-1522);
engine.MOVETO(81571,53525,-1522);
engine.MOVETO(81101,53480,-1586);
engine.MOVETO(81057,53077,-1586);
engine.MOVETO(81049,52053,-1752);
engine.MOVETO(80980,50077,-2179);
engine.MOVETO(80586,49498,-2235);
engine.MOVETO(79058,48046,-2579);
engine.MOVETO(78531,45942,-2881);
engine.MOVETO(77879,45018,-2932);
engine.MOVETO(77132,44554,-3017);
engine.MOVETO(75189,43815,-2887);
engine.MOVETO(74449,43597,-2770);
engine.MOVETO(74022,43456,-2646);
engine.MOVETO(73652,43314,-2594);
engine.MOVETO(73342,43269,-2581);
engine.MOVETO(72072,41975,-2471);
engine.MOVETO(71951,41759,-2398);
engine.MOVETO(71769,41770,-2304);
engine.MOVETO(71573,42226,-2136);
engine.MOVETO(71485,42848,-2006);
engine.MOVETO(71572,43510,-1774);
engine.MOVETO(71545,43329,-1915);
engine.MOVETO(71408,43283,-1927);
engine.MOVETO(71392,43460,-1884);
engine.MOVETO(71542,43545,-1756);
engine.MOVETO(71542,43624,-1688);
engine.MOVETO(71626,43649,-1709);
engine.MOVETO(71553,43866,-1617);
Engine.SetTarget('Kalibran');
Engine.DlgOpen;
engine.dlgsel(1);
delay(100);
engine.dlgsel(1);
Delay(1000);
Engine.UseItem(736);
end;
procedure part10;
begin
Orentp;
Engine.SetTarget('Valentina');
Engine.DlgOpen;
engine.dlgsel(1);
delay(100);
engine.dlgsel(10);
Delay(3000);
Engine.SetTarget('Esmeralda');
Engine.DlgOpen;
engine.dlgsel(1);
delay(100);
engine.dlgsel(5);
DELAY(3000);
Engine.MoveTo(104760,36408,-4576);
Engine.MoveTo(105944,36600,-4528);
Engine.MoveTo(106968,37256,-4576);
Engine.MoveTo(108104,38712,-4560);
Engine.MoveTo(109448,39144,-4576);
Engine.MoveTo(109960,40696,-4608);
Engine.MoveTo(110392,41656,-4616);
Engine.LoadConfig('scavenger2.xml');
Engine.FaceControl(0,true);
DELAY(3000);
Engine.SetTarget('Mimyu');
Engine.DlgOpen;
engine.dlgsel(1);
delay(100);
engine.dlgsel(1);
delay(100);
Engine.UseItem(736);
Engine.FaceControl(0,false);
end;
while 1<>2 do
begin
part1;
part2;
part3;
part4;
part5;
part6;
part7;
part8;
part9;
part10;
end;
end.

ScythLab · 26.03.2018, 17:55

Отформатируй свой скрипт и многие проблемы уйдут:

Код:

function Min(a, b: Integer): Integer;
begin
  if (a < b) then
    Result := a
  else
    Result := b;
end;

Читать такую простыню и тем более пытаться в ней разобраться - это тот еще мазохизм.

IamFormat · 26.03.2018, 22:36

Цитата:

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


	Отформатируй свой скрипт и многие проблемы уйдут: Код: function Min(a, b: Integer): Integer; begin if (a < b) then Result := a else Result := b; end; Читать такую простыню и тем более пытаться в ней разобраться - это тот еще мазохизм.

Простите за тупость но я ничего не понял куда ставить эти коды? как с ним быть вообще? ))

ScythLab · 27.03.2018, 13:38

Этот куда никуда не нужно ставить, я тебе показал пример оформления кода (в частности отступы после begin, if и подобных конструкций языка), если перепишешь свой скрипт с подобным форматированием, то разобраться в этой каше из нескольких сот строк будет значительно проще и будет значительно понятней где у тебя не хватает операторных скобок.

Помогите с скриптом

Скрипты и перехват пакетов