hairy first of all you must not read the whole scipt, it should type A after it logs in, findcolor will still send back to scar saying that it found the color he just has it split into procedures...kinda and he is trying to just plain out get the script to type back 'A' 'B' and 'C'
SCAR Code:
program Ogrefighter;
{.include SRL/SRL.Scar}
var
z: Integer;
w: Integer;
const
Nickk = 'shock';
procedure DeclarePlayers;
begin
HowManyPlayers := 1; //Number of players
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;
Players[0].Name :='Shock_Norris';
Players[0].Pass :='xxxxxxxxxxxx';
Players[0].Nick :='shock';
Players[0].Active:=True;
end;
procedure FindClickOgre;
begin
If (FindColor(x,y, 4473929, 22,30,517,337)) or (FindColor(x,y, 9352394, 22, 30,517,337)) then
Movemousesmoothex(x, y, 3, 10, 7, 15, 1);
z := z + 1;
end;
procedure ClickOgre;
begin
z := 0;
Wait(100+randomrange(100, 500));
ClickMouse(x+random(5), y+random(5), true);
Wait(20000+randomrange(3000, 4500));
w := w + 1;
FindNormalRandoms;
end;
procedure CheckOgres;
begin
Writeln(InttoStr(w));
end;
begin
SetUpSRL;
DeclarePlayers;
LoginPlayer;
NickNameBMP := CreateBitmapMaskFromText(Nickk, UpChars);
FindNormalRandoms;
Writeln('A');
Repeat;
Repeat;
FindClickOgre;
WriteLn('B');
Until(z = 10);
ClickOgre;
WriteLn('C');
FindNormalRandoms;
CheckOgres;
FindNormalRandoms;
Until(false)
end.
that should run now and type back A B and C for you, but that is not good to have click mouse...this would make it more simple
SCAR Code:
program Ogrefighter;
{.include SRL/SRL.Scar}
var
z: Integer;
const
Nickk = 'shock';
procedure DeclarePlayers;
begin
HowManyPlayers := 1; //Number of players
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;
Players[0].Name :='Shock_Norris';
Players[0].Pass :='xxxxxxxxxxxx';
Players[0].Nick :='shock';
Players[0].Active:=True;
end;
procedure FindClickOgre;
begin
If (FindColor(x,y, 4473929, MSx1,MSy1,MSx2,MSy2)) or (FindColor(x,y, 9352394, MSx1,MSy1,MSx2,MSy2)) then
Mouse( x, y, 3, 3, true);
z := z + 1;
FindNormalRandoms;
end;
begin
SetUpSRL;
repeat;
z := 0;
DeclarePlayers;
LoginPlayer;
NickNameBMP := CreateBitmapMaskFromText(Nickk, UpChars);
Writeln('A');
Repeat;
FindClickOgre;
WriteLn('B');
Until(z = 10);
WriteLn('C');
Until(false)
end.
the MSx1,MSy1,MSx2,MSy2 looks for that color in the runescape mainscreen
BIG PS: nickname would not be shock it would be ock or hoc ...