Code:
procedure WalkToStore;
begin
setrun(true);
wait(1000);
{ if (FindSymbol(x, y, 'Quest')) then
Mouse(x, y, 2, 1, True);
wait(3000);
Flag;}
if (FindSymbol(x, y, 'Water')) then
Mouse(x, y, 2, 1, True);
wait(3000 + random(2));
flag;
if (FindSymbol(x, y, 'Store')) then
Mouse(x, y, 2, 1, True);
wait(3000 + random(2));
flag;
wait(6000 + random(2));
GameTab(4);
if (FindColor(x, y, 5931423, 0, 0, 600, 600)) then
MMouse(x, y, 0, 0);
wait(1000 + random(2));
if (IsUpText('hop')) then
Mouse(x, y, 0, 0, false);
if (IsUpText('rade')) then
wait(400 + random(100));
ChooseOption(x, y, 'Trade');
wait(1000 + random(2));
begin
logs := DTMFromString('78DA639CCFC4C0F098010544062A324802694' +
'620FE0F048C33816AEE30A00146B81A306F2A116A1601D5DC24A0' +
'661950CD1B026AA603D57CC4AF060001280E78');
repeat
wait(800 + random(200));
if FindDTM(Log, x, y, 0, 0, 800, 600) then
begin
wait(400 + random(100));
MMouse(x, y, 0, 0);
Mouse(x, y, 4, 6, false);
wait(500);
if (ChooseOption(x, y, 'Sell 10')) then
end;
until (not (FindDTM(log, x, y, 0, 0, 700, 500)));
wait(1000);
if (FindSymbol(x, y, 'Water')) then
Mouse(x, y, 2, 1, True);
wait(3000 + random(2));
flag;
if (FindSymbol(x, y, 'Ranges')) then
Mouse(x, y, 2, 1, True);
wait(3000 + random(2));
flag;
wait(1000 + random(2));
if (FindSymbol(x, y, 'quest')) then
Mouse(x, y, 2, 1, True);
wait(3000 + random(2));
flag;
Clicks := Clicks + 27;
Loads := Loads + 1;
end;
now the procedures that say Indentifire expected in script