I used poolikemax's tut. Thx
Please help with why this script of mine isn't working
please fix somebody!
Script
SCAR Code:
program powerminer;
{.include SRL/SRL.scar}
const
rockcolor1= 485369;//set the color of the rock
rockcolor2= 658735;//set color of rock
var x,y,randomm: integer;
Procedure DeclarePlayers;
begin
HowManyPlayers :=1; // Set Number of Players here.
NumberOfPlayers(HowManyPlayers); // Sets the Players Array Length;
CurrentPlayer:=0; // CurrentPlayer = Array Index
Players[0].Name :='username';//USERNAME
Players[0].Pass :='pass';//PASS
Players[0].Nick :='ser';//3-4 LETTERS OF YOUR USERNAME NOT THE FIRST ONE
Players[0].Active:=True;//PLAYER IN USE OR NOT
end;
Procedure Randoms;
Begin
FindTalk; //finds talkin randoms
FindNormalRandoms; //finds normal randoms
SolveChatRandom; //sloves chat randoms
FindLamp('Woodcutting'); //solves lamp and then choses a skill to update
SolvePinball; //solves pinball random
DwarfItem; //dropes dawalf items
If(FindFight)Then //runs away from fight
Begin
MakeCompass('N');
RunTo('W', True);
Wait(7000 +Random(3000));
RunTo('E', True);
End;
End;
Procedure minerock;
begin
if not LoggedIn then
Exit;
repeat
if FindObjCustom(x, y, ['Min', 'ine'], [rockcolor1, rockcolor2], 7) then
begin
MoveMouseSmoothEx(x,y, 20,40,45,25,20);
FTWait(1);
clickmouse(x,y,false);
Wait(500+(random(150)));
ChooseOption('ine')
randoms
writeln('found rock');
end else
writeln('couldnt find rock');
randoms;
until( InvFull )
end;
Procedure Drop;
var
i: Integer;
begin
GameTab(4);
For I := 1 To 28 Do
If ExistsItem(i) Then
DropItem(i);
end;
end;
begin
SetupSRL;
DeclarePlayers;
LoginPlayer;
repeat
minerock;
drop;
until(false);