Code:
program MinerSmelterAndSmither;
var // here just have const skill = 3; insted of all the var stuff
skill: integer;
procedure SetUpVar;
begin
skill := 3; //1 is for mining, 2 for smelting & 3 for smithing
end;
procedure Mine;
begin
if (skill = 1) then
movemousesmooth(335, 240);
clickmouse(335, 240, false);
wait(100);
movemousesmooth(420, 325);
clickmouse(420, 325, true);
wait(100);
end;
procedure RepeatDaMine;
begin
if (skill = 1) then
repeat
Mine
until (false);
end;
procedure Smelt;
begin
if (skill = 2) then
movemousesmooth(335, 150);
clickmouse(335, 150, false);
wait(100);
movemousesmooth(425, 225);
clickmouse(425, 225, true);
wait(100);
end;
procedure RepeatDaSmelt;
begin
if (skill = 2) then
repeat
Smelt
until (false);
end;
procedure Smith;
begin
if (skill = 3) then
movemousesmooth(335, 210);
clickmouse(335, 210, false);
wait(100);
movemousesmooth(425, 300);
clickmouse(425, 300, true);
wait(100);
movemousesmooth(425, 313);
clickmouse(425, 313, true);
wait(100);
end;
procedure RepeatDaSmith;
begin
if (skill = 3) then
repeat
Smith
until (false);
end;
begin
RepeatDaMine;
RepeatDaSmelt;
RepeatDaSmith;
writeln('yay im finished');
end.
I've changed some stuff, like "if (skill > 1) then" because that means if skill is 2 or 3 then it will do somthing that could be wrong, so we want it "if (skill = 2 (you can have 2 or 3)) then".
For
Code:
var // here just have const skill = 3; insted of all the var stuff
skill: integer;
procedure SetUpVar;
begin
skill := 3; //1 is for mining, 2 for smelting & 3 for smithing
end;
all you need is "const skill = 1; //1 is for mining, 2 for smelting & 3 for smithing".
Also, by chance is it for Atitd?