I need help with another dropping procedure this script is not complete will add antiban and randoms + much more DTMS or bitmaps will be aprreciated
I left a gap for dropping procedure alsos please help with the mining procedure it says identifier expeted in script at the until bit
SCAR Code:
program PoWeRmInEr;
{.include SRL/SRL.scar}
//JADS AnitBan Credit Goes To Him.
Const
Loads = 2;//How Many Loads.
NumberOfUsers = 1;//How Many Players Are You Using.
StartPlayer = 0;// What Player To Start Remember Theres A Player 0 Before 1.
RudeProggy = True;//Use My Proggy Please For Reports.
Color = 4418452;//The Color Of The Ore You Want To Mine.
ClickRock = 5000;//How Long To Click Again
Procedure DeclarePlayers;
//If Not Using Any Left Over Players Delete There Forms.
Begin
HowManyPlayers:= NumberOfUsers;
NumberOfPlayers( HowManyPlayers );
CurrentPlayer := StartPlayer;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Active:=True;
Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :='';
Players[2].Active:=True;
Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
Players[3].Active:=True;
Players[4].Name :='';
Players[4].Pass :='';
Players[4].Nick :='';
Players[4].Active:=True;
end;
Procedure FindRocks;
Begin
If
(FindColorSpiral(x,y,Color,2,2,418,304)) Then
Begin
Writeln('Found Ore Now Starting Script')
End Else
Writeln('Didnt Find Ore');
end;
Procedure MineRocks;
Begin
if
(findColorSpiral(x,y,Color,2,2,418,304)) Then
MMouse(x,y,3,3)
IsTextAt2(9,9,'Mine',20)
Mouse(x,y,2,2,True)
Wait(ClickRock + Random(500))
until(InvFull)
if(InvFull = True)then
end;
Procedure DropOres;
Begin
End;
Begin
SetupSRL;
DeclarePlayers;
FindRocks;
MineRocks;
DropOres;
end.