не могу понять , хелп

[RomaroFait]

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

помогите что не так плз :

Begin

while 1<>2 do begin
if not inventory.User.ByID(1835, Item) or (Item.count < 50 ) then begin
Engine.UseItem(736);

begin
Engine.FaceControl(0,false);
end;

end;
end;

if user.InRange(115098, -178170, -918,500,500) then begin

Engine.MoveTo(115452, -178537, -957);
end;

if user.InRange(115248,-178816,-912,500,500) then begin

delay(3000);


Engine.MoveTo(115452, -178537, -957);
end;

if user.InRange(116738,-181494,-1392,500,500) then begin

delay(3000);
Engine.MoveTo(116632,-179880,-1136);
Engine.MoveTo(115544,-178776,-944);

Engine.MoveTo(115452, -178537, -957);

delay(5000);
end;

if user.InRange(116476,-182904,-1536,500,500) then begin
Engine.FaceControl(0,false);
delay(3000);
Engine.MoveTo(116584,-181704,-1424);
Engine.MoveTo(116632,-179848,-1136);
Engine.MoveTo(115576,-178712,-944);

Engine.MoveTo(115452, -178537, -957);

delay(5000);
end;

if user.InRange(115485,-178077,-912,100,100) then begin
Engine.FaceControl(0,false);
delay(3000);

Engine.MoveTo(115452, -178537, -957);

delay(5000);
end;

if user.InRange(115271,-178561,-912,100,100) then begin
Engine.FaceControl(0,false);
delay(3000);

Engine.MoveTo(115452, -178537, -957);

delay(5000);
end;

if user.InRange(115271,-178561,-912,100,100) then begin
Engine.FaceControl(0,false);
delay(3000);

Engine.MoveTo(115452, -178537, -957);

delay(5000);
end;

if user.InRange(116176,-182448,-1488,100,100) then begin
Engine.FaceControl(0,false);
delay(3000);
Engine.MoveTo(116696,-180504,-1224);
Engine.MoveTo(116488,-179672,-1120);
Engine.MoveTo(115512,-178616,-928);

Engine.MoveTo(115452, -178537, -957);

delay(5000);
end;

if user.InRange(116352,-179264,-1072,100,100) then begin
Engine.FaceControl(0,false);
delay(3000);
Engine.MoveTo(115512,-178616,-928);

Engine.MoveTo(115452, -178537, -957);

delay(5000);
end;

if user.InRange(116321,-182734,-1504,100,100) then begin
Engine.FaceControl(0,false);
delay(3000);
Engine.MoveTo(116680,-180184,-1168);
Engine.MoveTo(115528,-178664,-928);

Engine.MoveTo(115452, -178537, -957);

delay(5000);
end;

if user.InRange(116507,-179597,-1120,100,100) then begin
Engine.FaceControl(0,false);
delay(3000);
Engine.MoveTo(115480,-178616,-928);

Engine.MoveTo(115452, -178537, -957);

delay(5000);
end;

if user.InRange(116725,-180147,-1168,100,100) then begin
Engine.FaceControl(0,false);
delay(3000);
Engine.MoveTo(115528,-178616,-928);

Engine.MoveTo(115452, -178537, -957);

delay(5000);
end;

if user.InRange(115790,-179146,-976,100,100) then begin
Engine.FaceControl(0,false);
delay(3000);
Engine.MoveTo(115528,-178616,-928);

Engine.MoveTo(115452, -178537, -957);

delay(5000);
end;


if User.inrange(115452, -178537, -957, 250, 150) then begin
delay(2550);

Engine.MoveTo(115915, -177734, -888);
Engine.MoveTo(116150, -177733, -880);
Engine.MoveTo(116249, -177541, -880);



Engine.SetTarget(30519);

Engine.DlgOpen();
Engine.DlgSel(1);
Engine.NpcExchange(1835,150);
Engine.NpcExchange(736,1);
Delay(3000);

end;

 

[CMAK]

Begin
while 1<>2 do begin
if inventory.User.ByID(1835, Item) and (Item.count < 50 ) then begin

 Engine.SetTarget(30519); delay(400);
 Engine.DlgOpen(); delay(400);
 Engine.DlgSel(1); delay(400);
 Engine.NpcExchange(1835,150); delay(400);
 Engine.NpcExchange(736,1); delay(400);

после каждого действия у нпс лучше ставь делей на свое усмотрение, но не меньше 300 , чтобы не тупил