СКРИПТ НА кбп стил гф в логове зла

[Алеку]

var obj: TL2NPC;
obj2: TL2Effect;


Enemy: TL2Live;
Begin
while 1<>2 do begin // бесконечный цикл




// этот кусок не трогаем
if User.Dead then // умер- вырубаем интерфейс, возврат в город и пауза 15 секунд
begin
Engine.FaceControl(0,false);
Engine.gohome;
delay(15000);
end;
if User.inrange(87184,-140256,-1536, 250, 150) then begin
Engine.MoveTo(87184,-140256,-1536);
Engine.MoveTo(87368,-140838,-1512);
Engine.MoveTo(87319,-141796,-1338);
Engine.MoveTo(87145,-142916,-1313);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(87408,-142304,-1336, 250, 150) then begin
Engine.MoveTo(87408,-142304,-1336);
Engine.MoveTo(87145,-142916,-1313);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(88240,-142736,-1336, 250, 150) then begin
Engine.MoveTo(88240,-142736,-1336);
Engine.MoveTo(87585,-142662,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(85056,-141328,-1528, 250, 150) then begin
Engine.MoveTo(85056,-141328,-1528);
Engine.MoveTo(85181,-141845,-1539);
Engine.MoveTo(85804,-142279,-1339);
Engine.MoveTo(87157,-142636,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(88624,-142480,-1336, 250, 150) then begin
Engine.MoveTo(88624,-142480,-1336);
Engine.MoveTo(87548,-142686,-1331);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(86400,-142672,-1336, 250, 150) then begin
Engine.MoveTo(86400,-142672,-1336);
Engine.MoveTo(87143,-142570,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(86560,-140320,-1536, 250, 150) then begin
Engine.MoveTo(86560,-140320,-1536);
Engine.MoveTo(87300,-140655,-1539);
Engine.MoveTo(87385,-141436,-1339);
Engine.MoveTo(87246,-142537,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(88448,-140512,-1536, 250, 150) then begin
Engine.MoveTo(88448,-140512,-1536);
Engine.MoveTo(87410,-140642,-1539);
Engine.MoveTo(87299,-141493,-1338);
Engine.MoveTo(87291,-142607,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(89712,-141472,-1528, 250, 150) then begin
Engine.MoveTo(89712,-141472,-1528);
Engine.MoveTo(89497,-141893,-1539);
Engine.MoveTo(88963,-142272,-1339);
Engine.MoveTo(87737,-142631,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(87344,-141696,-1336, 250, 150) then begin
Engine.MoveTo(87344,-141696,-1336);
Engine.MoveTo(87354,-142594,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(85472,-140752,-1536, 250, 150) then begin
Engine.MoveTo(85472,-140752,-1536);
Engine.MoveTo(85191,-141803,-1539);
Engine.MoveTo(85909,-142322,-1338);
Engine.MoveTo(87096,-142671,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(89360,-140944,-1536, 250, 150) then begin
Engine.MoveTo(89360,-140944,-1536);
Engine.MoveTo(89539,-141762,-1539);
Engine.MoveTo(88910,-142276,-1339);
Engine.MoveTo(87637,-142734,-1332);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(87776,-140384,-1536, 250, 150) then begin
Engine.MoveTo(87776,-140384,-1536);
Engine.MoveTo(87403,-140707,-1539);
Engine.MoveTo(87351,-141645,-1338);
Engine.MoveTo(87310,-142568,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(84720,-141936,-1536, 250, 150) then begin
Engine.MoveTo(84720,-141936,-1536);
Engine.MoveTo(85201,-141842,-1539);
Engine.MoveTo(85807,-142262,-1339);
Engine.MoveTo(87116,-142704,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(85968,-142384,-1336, 250, 150) then begin
Engine.MoveTo(85968,-142384,-1336);
Engine.MoveTo(87116,-142704,-1338);
Engine.MoveTo(87070,-143418,-1290);
end;
if User.inrange(87070,-143418,-1290, 150) then begin // бежим к ГК и тпишмся в руины
delay(2550);
Engine.SetTarget(31964);
Engine.DlgOpen();
Engine.DlgSel(1);
Engine.DlgSel(11);
end;
Engine.MoveTo(69096, -111032, -1824);
Engine.MoveTo(69336, -111272, -1792);
Engine.MoveTo(69768, -111752, -1776);
Engine.MoveTo(70104, -112152, -1728);
Engine.MoveTo(70168, -112232, -1728);
Engine.MoveTo(70248, -112328, -1728);
Engine.MoveTo(70184, -112360, -1728);
Engine.MoveTo(70136, -112344, -1720);
Engine.SetTarget(32016);
Engine.DlgOpen;
Engine.DlgSel('Quest');
Delay(500);
DlgSel(1);
if CheckItemCount(1087, True)<10 then begin
Engine.MoveTo(69176, -109976, -1808);
Engine.MoveTo(68008, -109800, -1848);
Engine.MoveTo(67496, -109656, -1808);
Engine.MoveTo(67416, -109192, -1552);
Engine.MoveTo(67544, -108616, -1288);
Engine.FaceControl(0,True);
if CheckItemCount(1087, True)>=180 then begin
Engine.FaceControl(0,False);
Engine.MoveTo(67512, -109432, -1688);
Engine.MoveTo(67416, -109928, -1952);
Engine.MoveTo(68088, -110216, -1984);
Engine.MoveTo(68888, -110520, -1888);
Engine.MoveTo(69048, -110824, -1888);
Engine.MoveTo(69256, -111208, -1808);
Engine.MoveTo(70072, -112088, -1744);
Engine.MoveTo(70216, -112216, -1728);
Engine.MoveTo(70200, -112328, -1728);
Engine.MoveTo(70120, -112392, -1728);
Engine.MoveTo(70088, -112392, -1728);
Engine.DlgOpen;
Engine.DlgSel('Quest');
Engine.DlgSel(1); // сдает квест
Engine.DlgSel(2); //берет кбп
end;
end;
end;
end.

ребят хелп ругается на
Engine.DlgOpen;
Engine.DlgSel('Quest');
Delay(500);
DlgSel(1); //на эту строчку

 

[Agonia]

DlgSel(1); //на эту строчку

Engine.DlgSel(1);

 

[Алеку]

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

 

[SARCAZM]

@Алеку, Человек помог, мог бы спасибку тыкнуть. Обращение к процедуре должно содержать список входных параметров, даже если их нет (скобки после названия)

cbp();
Если это было объявление процедуры, то следовало написать так:

procedure cbp();
begin
   Код процедуры
end;

 

[Алеку]

@SARCAZM,

Хоть убей что то не так (

 

[Алеку]

function CheckItemCount (const itemID: Integer; const quest: Boolean = False) : Integer;
var obj: TL2NPC;
obj2: TL2Effect;

Enemy: TL2Live;
procedure cbp();
Begin
while 1<>2 do begin // бесконечный цикл
Engine.FaceControl(0,False);
Engine.SetTarget(32016);
Engine.DlgOpen;
Engine.DlgSel('Quest');
Delay(500);
Engine.DlgSel(1);
if CheckItemCount(8087, True) < 10 then begin
Engine.MoveTo(69176, -109976, -1808);
Engine.MoveTo(68008, -109800, -1848);
Engine.MoveTo(67496, -109656, -1808);
Engine.MoveTo(67416, -109192, -1552);
Engine.MoveTo(67544, -108616, -1288);
Engine.FaceControl(0,True);
if CheckItemCount(8087, True) >= 180 then begin
Engine.FaceControl(0,False);
Engine.MoveTo(67512, -109432, -1688);
Engine.MoveTo(67416, -109928, -1952);
Engine.MoveTo(68088, -110216, -1984);
Engine.MoveTo(68888, -110520, -1888);
Engine.MoveTo(69048, -110824, -1888);
Engine.MoveTo(69256, -111208, -1808);
Engine.MoveTo(70072, -112088, -1744);
Engine.MoveTo(70216, -112216, -1728);
Engine.MoveTo(70200, -112328, -1728);
Engine.MoveTo(70120, -112392, -1728);
Engine.MoveTo(70088, -112392, -1728);
Engine.DlgOpen;
Engine.DlgSel('Quest');
Engine.DlgSel(1); // сдает квест
Engine.DlgSel(2); //берет кбп
end;
end;
end;
end;
begin
cbp
end;
end.

Переделал скрипт но выдает : cbp (46): "begin" expected but "end" found

 

[SARCAZM]

У тебя функция CheckItemCount не описана, если что.

 

[Groma]

допиши после процедуры begin

 

[Agonia]

зачем в процедуре () если там ничего не объявляется, непойму

Procedure blabla; // если нифига не объявляешь, то и скобки нефиг тыкать)

 

[dushatar]

Доброго всем времени суток! Кто либо может показать полностью исправленный этот скрипт мне нубу ? А то я никак не пойму что исправить в итоге надо и как должен выглядеть полностью верный этот скрипт! Заранее спасибо за помощь