Ok. I don't know where to start. Basiclly i don't want to take other peoples scripts so i went on heaps of tutorials to find out how to write my own. The best i found was the Unmatched Beginner's Tutorial
I had a small problem though. Actually a big problem.
The color functions on my SCAR program will not work!!!!
I put this into my SCAR program as a test after the tut to see if it worked.
SCAR Code:
program FindAndClickOnColor;
var
x,y: Integer;
const
testcolor = 293491;
begin
if(FindColor(x,y,testcolor,0,0,100,100)) then
begin
MoveMouseSmoothEx(x,y +random(0),20,40,45,25,20);
Wait(100+random(10));
ClickMouse(x,y,true);
end;
end.
but it didn't work. in fact when i ran it this messege came up
WHAT!!!!
Nothing had hapenned. It just said it had finished but nothing had hapenned.
The same thing hapenned with my bit map searching scripts.
This is what I made.
SCAR Code:
program BitmapClick;
var
rune: Integer;
x,y: Integer;
procedure LoadBmps;
begin
rune := BitmapFromString(512, 384, 'beNrt3V1LXFcUBmD9EemFBB' +
'KKhECl0zLFoB00pqbKgCRYmw/ENMiQpomIiAyxo5GJlSS16UUp/b1' +
'ddcPu6XxpSi/OSZ+HfSUkF/vifffaZ+bM2BgAAAAAAAAAAAAAAAAA' +
'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA8K8t3/ziP1' +
'zNxdmBf7fPAB92/g9b9hmgovk/NjY+bMl/gA8v/3PId1+8OP5x/+S' +
'g8/rl4dujo9Nu993xq19PfvrtzZuLtIB9BqhK/qdUb29vd3Z3D/f2' +
'jtrtYgWkFsgV8PvPb0e3gH0GKH/+pyTffvJk99mzyP/9nZ2eCkirv' +
'wL++OV0WAXYZ4CS538EeOvRxg+bmyn/97a2ihWQWiAXwcAp4LOrV+' +
'U/QLXyP9J74/69nP87T5+mCoj8TytaIBdBrGEVIP8BKpf/62trm+v' +
'rkf/PW61iBaRBIM0CxS6IQeDkoFOsgIEjgH0GKG3+R27fbTZz/qcK' +
'yC2QimBgF6RBoKcCiuH/1Zef22eAkuf/g9XVxw8fth5txPr+8Xexi' +
'kWQJ4KeIkiDwOuXh6kC0ghQ/C6wfQYoZ/5HYi/Oz68sL317587G/X' +
'tRATEFxOopgnwv1D8UxCBw1G6fHHROu91UAfIfoBL5v9BoNG/fjvx' +
'fX1uLCkgtMLoIem6HYhDId0GpAuQ/QPnzf25mJvL/m5WVB6ursaIF' +
'3rcIYkUFpCng3fGr4oNg+wxQ2vyfnZ5eunUr8j9WTAGxeopgRAvkC' +
'tjb2urs7sYIcNrtyn+ASuT/jXp9cX7+brMZK7fAiFmgfxBIXxnb39' +
'lJz4LzU+BY9hmgtPlfr9UWGo2V5aVYxQq44CCQ8z89BTg56Dj/A1Q' +
'i/z+5fj09AsgVcMFBILVAVEC6/8kfB8357/wPUOb8vzY5mR4BRAUU' +
'W2DEIFD8pGjk//NWK78v6Kjd/vv8P+f8D1De/L88MZEeAfRXwLnXQ' +
'WkEiPwvvizO/T9A+fM/VUBtairyP1XARVqgWAEp//MrQ1P4528B22' +
'eAcub/2St6xj++ciVGgIVG49wWKFZAHgGKr4zreQucfQYoYf5H+Kf' +
'8/+jSpfQUOCpgWAsMq4DiW0Pz4V/+A5T8/J+vgGIEqNdqUQH9LTDs' +
'uXDxCih9ELT/FdD2GaDk+X95YiJGgNnp6Vi5BXoGgWIF5BEgfxy0/' +
'/Av/wFKnv95BIgKiCkgt0D/IDCwAtIU4PdfAKqY/2ef1fzrQUCxBf' +
'oHgVwBxRZIPxzff/iX/wBlzv9/vq5/PN0FXZucrE1N3ajXUwXk1d8' +
'FOfn9/jtAFc//eUWMF1sgZoFY0QUxEUQdxMpXQyOO/emTRfIfoEL5' +
'H7kdE0FugRFr2LE//oeFmU+d/wGqlf89s8DoNeLf+v4vQFXyP93YD' +
'P773DlNkd720/OXsy+XAVC98/+w9fXN+sDTvue/AB92/l9kef4LUN' +
'38H3YjdPFlnwH+b+d/+Q8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
'AAAAAAAAAAAAADAe/gTXjb/Bw==');
end;
procedure UseBitmap;
begin
if(FindBitmapIn(rune,x,y,0,0,100,100)) then
begin
MoveMouseSmoothEx(x,y+random(0),20,40,45,25,20);
Wait(1000+random(100));
ClickMouse(x,y,true);
end;
end;
procedure FreeBmps;
begin
FreeBitmap(rune);
end;
begin
LoadBmps;
UseBitmap;
FreeBmps;
end.
Again
NOTHING HAD HAPENNED!!!!!!!!!!!!!!!!!!!!!!!!!
Please somebody help me out!