
Originally Posted by
fabis94
I need an END; or BEGIN? But where...
SCAR Code:
procedure StartCuttin;
begin//1
SeeIfCut:=0;
MouseItem(1,true);
MouseItem(2,true);
ChooseOption('Cut All');
MMouseItem(28);
Wait(5000);
repeat
MMouseItem(28);
if (isuptext('ncut')) then
begin//2
SeeIfCut:= SeeIfCut + 1;
Writeln('Cutting Not Completed. Waiting...');
Wait(5000);
end else//this is end 1
begin //not needed
if (isuptext(WhatGemNo)) then Donextluls;
until(SeeIfCut >= 7);
Writeln('Gems didnt cut completelly.');
Writeln('Terminating script!');
Logout;
TerminateScript;
end;//2
end;//?
end;//?
SCAR Code:
procedure StartCuttin;
var
seeifcut: integer;
begin // See , first begin
SeeIfCut := 0;
MouseItem(1, true);
MouseItem(2, true);
ChooseOption('Cut All');
MMouseItem(28);
Wait(5000);
repeat
MMouseItem(28); //IsUpText Requires string inside so you need these -> ''
if (isuptext('ncut')) then
begin //Second begin
SeeIfCut := SeeIfCut + 1;
Writeln('Cutting Not Completed. Waiting...');
Wait(5000);
end//first end
else if (isuptext('WhatGemNo')) then Donextluls;
until (SeeIfCut >= 7);
Writeln('Gems didnt cut completelly.');
Writeln('Terminating script!');
Logout;
TerminateScript;
end;//second end
Try like that . You will see what is different .
~Eerik~