Okay so I just read the http://www.sythe.org/showthread.php?t=148839 ' TUT on scar '.
Decided to learn how to write a script.
And I have a question.
So instead of using COLOR FINDER I TRIED using Bitmap, but it isnt going as expected.
Here is what I am trying to do - PROGRESS
[ ]Run to Tenzing -Working On it-
[ ]Buy Climbing Boots
[ ]Teleport to City For Bank
[ ]Repeat.
Decided to learn how to write a script.
And I have a question.
So instead of using COLOR FINDER I TRIED using Bitmap, but it isnt going as expected.
Here is what I am trying to do - PROGRESS
[ ]Run to Tenzing -Working On it-
[ ]Buy Climbing Boots
[ ]Teleport to City For Bank
[ ]Repeat.
program BitmapExample6;
var
Tenzing2: Integer;
x,y: Integer;
procedure LoadBmps;
begin
Tenzing2 := BitmapFromString(37, 85, 'beNqtmYdXVGmaxitXQZGz' +etc etc etc )
end;
procedure UseBitmap;
begin
if(FindBitmapIn(Tenzing2,x,y,0,0,505,424)) 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(Tenzing2);
end;
begin
LoadBmps;
UseBitmap;
FreeBmps;
end.


