Abyssal
2006-06-09 18:00:34
I haven't done SCAR in ages, so how about a little help? :P
This script loads and does nothing. Anyone know why?
This script loads and does nothing. Anyone know why?
2006-06-09 18:00:34
2006-06-09 18:02:10
2006-06-09 18:14:36
2006-06-09 18:19:17
{-----------------------------------]
[- Lumbridge Man Thiever -]
[-----------------------------------]
[- Setup: -]
[- 1. Start either logged in, or -]
[- out. -]
[- 2. Set RuneScape to V-Bright. -]
[- 3. Start right outside of -]
[- Lumbridge Castle, by the -]
[- man with the blue shirt. -]
[- 4. Pick the colors and start. -]
[-----------------------------------}
program Lumbridge_Man_Thiever;
{.include SRL\SRL.scar}
const
Shirt = 13270644; //The man's shirt.
var
a, b: Integer;
PickPocket: Integer;
procedure LoadBitmaps;
begin
PickPocket:= BitmapFromString(21, 2, 'z78DA3375313531317743020660802' +
'90201A660F5101297B81B0E80A906BF7A62CCC7256E800320AB04' +
'0037A23AD2');
end;
procedure ThieveMan;
begin
if(Findobj(a, b, 'Attack Man', Shirt, 15))then
begin
Mouse(a, b, 2, 2, False);
if(FindBitmapSpiralTolerance(PickPocket, a, b, MCX1, MCX2, MCY1, MCY2, 10))then
begin
Mouse(a, b, 2, 2, True);
Wait(2000);
if(FindColorSpiralTolerance(a, b, 2024692, MCX1, MCX2, MCY1, MCY2, 10))then
begin
Wait(5000);
end;
end;
end;
end;
begin
SetupSRL;
LoadBitmaps;
repeat
ThieveMan;
until(False);
end.2006-06-09 18:21:45
2006-06-09 18:22:51
2006-06-09 19:40:25
{-----------------------------------]
[- Lumbridge Man Thiever -]
[-----------------------------------]
[- Setup: -]
[- 1. Start either logged in, or -]
[- out. -]
[- 2. Set RuneScape to V-Bright. -]
[- 3. Start right outside of -]
[- Lumbridge Castle, by the -]
[- man with the blue shirt. -]
[- 4. Pick the colors and start. -]
[-----------------------------------}
program Lumbridge_Man_Thiever;
{.include SRL\SRL.scar}
const
Shirt = 13270644; //The man's shirt.
var
a, b: Integer;
PickPocket: Integer;
procedure LoadBitmaps;
begin
PickPocket:= BitmapFromString(21, 2, 'z78DA3375313531317743020660802' +
'90201A660F5101297B81B0E80A906BF7A62CCC7256E800320AB04' +
'0037A23AD2');
end;
procedure ThieveMan;
begin
if(Findobj(a, b, 'ttack Man', Shirt, 15))then
begin
Mouse(a, b, 2, 2, False);
if(FindBitmapSpiralTolerance(PickPocket, a, b, MSX1,MSY1,MSX2,MSY2, 10))then
begin
Mouse(a, b, 2, 2, True);
Wait(2000);
if(FindColorSpiralTolerance(a, b, 2024692, MSX1,MSY1,MSX2,MSY2, 10))then
begin
Wait(5000);
end;
end;
end;
end;
begin
SetupSRL;
LoadBitmaps;
repeat
ThieveMan;
until(False);
end.
2006-06-09 20:14:11