Aidan
2006-11-03 19:12:03
Here is my code
[PHP]
program TutRunner;
{.include SRL/SRL.scar}
var
AcceptDTM, px, py, i : integer;
const
girl=False;//True if you want a girl player
Procedure LoadDTMs;
begin
AcceptDTM := DTMFromString('78DA636464646090066264708081E13F90028' +
'9FE070246108B03550D1F1F0F98868932DE65204E8D1E0135208B' +
'0D50D5080909A0AAD100B20C51D5C8C84862AA21E01E0066790AC' +
'6');
End;
Procedure SetLooks;
begin
if (girl=True) then
begin
FindColorTolerance(x, y, 2070783, 408, 277, 494, 316, 50);
Mouse(x, y, 10, 10, true);
end;
wait(250+Random(100));
If(FindColorTolerance(x, y, 11909574, 29, 72, 191, 107, 50)) then
begin for i := 1 to (Random(10)) do begin
Mouse(x, y, 5, 5, true);
wait(250+Random(100));
end;
end;
wait(500+Random(250));
If(FindColorTolerance(x, y, 11909574, 29, 109, 191, 141, 50)) then
begin for i := 1 to (Random(10)) do begin
Mouse(x, y, 5, 5, true);
wait(250+Random(100));
end;
end;
wait(500+Random(250));
If(FindColorTolerance(x, y, 11909574, 29, 146, 191, 175, 50)) then
begin for i := 1 to (Random(10)) do begin
Mouse(x, y, 5, 5, true);
wait(250+Random(100));
end;
end;
wait(500+Random(250));
If(FindColorTolerance(x, y, 11909574, 29, 183, 191, 209, 50)) then
begin for i := 1 to (Random(10)) do begin
Mouse(x, y, 5, 5, true);
wait(250+Random(100));
end;
end;
wait(500+Random(250));
If(FindColorTolerance(x, y, 11909574, 29, 220, 191, 243, 50)) then
begin for i := 1 to (Random(10)) do begin
Mouse(x, y, 5, 5, true);
wait(250+Random(100));
end;
end;
wait(500+Random(250));
If(FindColorTolerance(x, y, 11909574, 29, 257, 191, 277, 50)) then
begin for i := 1 to (Random(10)) do begin
Mouse(x, y, 5, 5, true);
wait(250+Random(100));
end;
end;
wait(500+Random(250));
If(FindColorTolerance(x, y, 11909574, 29, 294, 191, 311, 50)) then
begin for i := 1 to (Random(10)) do begin
Mouse(x, y, 5, 5, true);
wait(250+Random(100));
end;
end;
wait(500+Random(250));
If(FindColorTolerance(x, y, 11909574, 326, 77, 489, 148, 50)) then
begin for i := 1 to (Random(10)) do begin
Mouse(x, y, 5, 5, true);
wait(250+Random(100));
end;
end;
wait(500+Random(250));
If(FindColorTolerance(x, y, 11909574, 326, 114, 489, 182, 50)) then
begin for i := 1 to (Random(10)) do begin
Mouse(x, y, 5, 5, true);
wait(250+Random(100));
end;
end;
wait(500+Random(250));
If(FindColorTolerance(x, y, 11909574, 326, 151, 489, 216, 50)) then
begin for i := 1 to (Random(10)) do begin
Mouse(x, y, 5, 5, true);
wait(250+Random(100));
end;
end;
wait(500+Random(250));
If(FindColorTolerance(x, y, 11909574, 326, 188, 489, 250, 50)) then
begin for i := 1 to (Random(10)) do begin
Mouse(x, y, 5, 5, true);
wait(250+Random(100));
end;
end;
wait(500+Random(250));
If(FindColorTolerance(x, y, 11909574, 326, 215, 489, 284, 50)) then
begin for i := 1 to (Random(10)) do begin
Mouse(x, y, 5, 5, true);
wait(250+Random(100));
end;
end;
wait(250+Random(100));
if (FindDTM(AcceptDTM, x , y, 215, 260, 300, 310)) then
Writeln('Done the Play Looks part OK now clicking Accept');
Mouse( x, y, 1, 1, true);
wait(250+Random(100));
end;
Procedure RuneScapeGuide;
begin
FindObj(px, py, 'alk', 396659, 5);
wait(200);
Mouse(x, y, 5, 5, false);
wait(350);
PopUp('alk');
end;
begin
LoadDTMs;
SetLooks;
PerfectNorth;
RuneScapeGuide;
end.
[/PHP]
I get this erorr:
[PHP][Runtime Error] : Exception: Access violation at address 0065478C in module 'scar.exe'. Read of address 00000000 in line 173 in script C:\Program Files\SCAR 2.03\includes\srl\srl\core\Text.scar[/PHP]
Thanx for any help!
Aidan (Btw this script will be realesed for free ;) )
P.S Put into PHP because SCAR BBCode is messed up.
[PHP]
program TutRunner;
{.include SRL/SRL.scar}
var
AcceptDTM, px, py, i : integer;
const
girl=False;//True if you want a girl player
Procedure LoadDTMs;
begin
AcceptDTM := DTMFromString('78DA636464646090066264708081E13F90028' +
'9FE070246108B03550D1F1F0F98868932DE65204E8D1E0135208B' +
'0D50D5080909A0AAD100B20C51D5C8C84862AA21E01E0066790AC' +
'6');
End;
Procedure SetLooks;
begin
if (girl=True) then
begin
FindColorTolerance(x, y, 2070783, 408, 277, 494, 316, 50);
Mouse(x, y, 10, 10, true);
end;
wait(250+Random(100));
If(FindColorTolerance(x, y, 11909574, 29, 72, 191, 107, 50)) then
begin for i := 1 to (Random(10)) do begin
Mouse(x, y, 5, 5, true);
wait(250+Random(100));
end;
end;
wait(500+Random(250));
If(FindColorTolerance(x, y, 11909574, 29, 109, 191, 141, 50)) then
begin for i := 1 to (Random(10)) do begin
Mouse(x, y, 5, 5, true);
wait(250+Random(100));
end;
end;
wait(500+Random(250));
If(FindColorTolerance(x, y, 11909574, 29, 146, 191, 175, 50)) then
begin for i := 1 to (Random(10)) do begin
Mouse(x, y, 5, 5, true);
wait(250+Random(100));
end;
end;
wait(500+Random(250));
If(FindColorTolerance(x, y, 11909574, 29, 183, 191, 209, 50)) then
begin for i := 1 to (Random(10)) do begin
Mouse(x, y, 5, 5, true);
wait(250+Random(100));
end;
end;
wait(500+Random(250));
If(FindColorTolerance(x, y, 11909574, 29, 220, 191, 243, 50)) then
begin for i := 1 to (Random(10)) do begin
Mouse(x, y, 5, 5, true);
wait(250+Random(100));
end;
end;
wait(500+Random(250));
If(FindColorTolerance(x, y, 11909574, 29, 257, 191, 277, 50)) then
begin for i := 1 to (Random(10)) do begin
Mouse(x, y, 5, 5, true);
wait(250+Random(100));
end;
end;
wait(500+Random(250));
If(FindColorTolerance(x, y, 11909574, 29, 294, 191, 311, 50)) then
begin for i := 1 to (Random(10)) do begin
Mouse(x, y, 5, 5, true);
wait(250+Random(100));
end;
end;
wait(500+Random(250));
If(FindColorTolerance(x, y, 11909574, 326, 77, 489, 148, 50)) then
begin for i := 1 to (Random(10)) do begin
Mouse(x, y, 5, 5, true);
wait(250+Random(100));
end;
end;
wait(500+Random(250));
If(FindColorTolerance(x, y, 11909574, 326, 114, 489, 182, 50)) then
begin for i := 1 to (Random(10)) do begin
Mouse(x, y, 5, 5, true);
wait(250+Random(100));
end;
end;
wait(500+Random(250));
If(FindColorTolerance(x, y, 11909574, 326, 151, 489, 216, 50)) then
begin for i := 1 to (Random(10)) do begin
Mouse(x, y, 5, 5, true);
wait(250+Random(100));
end;
end;
wait(500+Random(250));
If(FindColorTolerance(x, y, 11909574, 326, 188, 489, 250, 50)) then
begin for i := 1 to (Random(10)) do begin
Mouse(x, y, 5, 5, true);
wait(250+Random(100));
end;
end;
wait(500+Random(250));
If(FindColorTolerance(x, y, 11909574, 326, 215, 489, 284, 50)) then
begin for i := 1 to (Random(10)) do begin
Mouse(x, y, 5, 5, true);
wait(250+Random(100));
end;
end;
wait(250+Random(100));
if (FindDTM(AcceptDTM, x , y, 215, 260, 300, 310)) then
Writeln('Done the Play Looks part OK now clicking Accept');
Mouse( x, y, 1, 1, true);
wait(250+Random(100));
end;
Procedure RuneScapeGuide;
begin
FindObj(px, py, 'alk', 396659, 5);
wait(200);
Mouse(x, y, 5, 5, false);
wait(350);
PopUp('alk');
end;
begin
LoadDTMs;
SetLooks;
PerfectNorth;
RuneScapeGuide;
end.
[/PHP]
I get this erorr:
[PHP][Runtime Error] : Exception: Access violation at address 0065478C in module 'scar.exe'. Read of address 00000000 in line 173 in script C:\Program Files\SCAR 2.03\includes\srl\srl\core\Text.scar[/PHP]
Thanx for any help!
Aidan (Btw this script will be realesed for free ;) )
P.S Put into PHP because SCAR BBCode is messed up.