Can anyone help me with this, I dont know why, or if it even runs. BUT i know it loggs in and laggs....
SCAR Code:
/////@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/////
/////@@@@@@/ _ \@@@@@@@@@@/\@@@@@@/\@@@@@@@@@@/\@@@@@@/\@@@@@@@@@@@@@@@@@@@@@@/////
/////@@@@@/ /_\ \@@@@@@@@/ \@@@@/ \@@@@@@@@/ \@@@@/ \@@@@@@@@/ \@@@/////
/////@@@@/ ___ \@@@@@@/ \ / \@@@@@@/ \ / \@@@@@@/ \@@/////
/////@@@/ /@@@\ \@@@@/ /\ \/ /\ \@@@@/ \/ \@@@@/ /\ \@/////
/////@@/ /@@@@@\ \@@/ /@@\ /@@\ \@@/ /@@\ /@@\ \@@| || |/////
/////@@| |@@@@@| |@| |@@@| |@@@| |@| |@@| |@@| |@@@\ \/ /@/////
/////@@\ /@@@@@\ /@\ /@@@\ /@@@\ /@\ /@@\ /@@\ /@@@@\ /@@/////
/////@@@\/@@@@@@@\/@@@\/@@@@@\ /@@@@@\/@@@\/@@@@\ /@@@@\/@@@@@@\ /@@@/////
/////@@@@@@@@@@@@@@@@@@@@@@@@@\/@@@@@@@@@@@@@@@@@@\/@@@@@@@@@@@@@@@@@@@@@@@@@@/////
////////////////////////////Power Miner!///////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////
program AmmoAutoMiner;
{.include srl/srl.scar}
{include srl/srl/skill/mining.scar}
{Setup Lines!-------------------------------}
Const
Orecolor = 3758718; //No Autopick, I'm a noob :P. Dont be lazy, pick it yourself.
pickequipped = False;
///////////DONT TOUCH////////////////
Var ///
Orestotal: Integer; ///
/////////////////////////////////////
{-------------------------------------------}
Procedure DeclarePlayers;
begin
HowmanyPlayers:=1; //No Changing...
NumberofPlayers(HowmanyPlayers);
Currentplayer:=0; //No Changing...
Players[0].name:='' //Your RS Username You wish to use.
Players[0].pass:='' //The password to THAT username.
Players[0].nick:='' //Three to Four letters out of that username.
End;
{Progress report, DONT touch------STOP setup}
procedure ProgReport;
begin
WriteLn('<------------- Report ------------->');
Writeln('Name:'+Players[CurrentPlayer].Name);
writeln('Worked for '+ TimeRunning);
WriteLn('Mined '+IntToStr(OresTotal)+' Ores.');
WriteLn('<---------------------------------->');
SRLRandomsReport;
end;
{Logging In----------------------------------}
Procedure Login;
Begin
If(not(loggedin))then;
Loginplayer;
End;
{Mining-------------------------------------}
procedure mine;
begin
repeat
if (FindMSColor(x,y,orecolor)) then
Mouse(x,y,2,2,true);
Wait(4000+random(3000));
until(InvFull)
end;
{Dropping------------------------------------}
Procedure DropOres;
var OresDropped:integer;
Begin
If(pickequipped)=true then
Begin
Gametab(4);
Dropto(1,28)
Oresdropped:= OresDropped+28
OresTotal:=OresTotal+OresDropped
End;
Begin;
If(pickequipped)=False then
Begin
Gametab(4);
Dropto(2,28)
Oresdropped:= OresDropped+27
OresTotal:=OresTotal+OresDropped
end;
end;
end;
{-------------Main Loop-----------------------}
begin
DeclarePlayers;
SetupSRL;
DisguiseScar('Windows Media Player');
repeat
if(not (LoggedIn)) then
LoginPlayer;
until(false)
repeat
ActivateClient;
ClearDebug;
Antiban;
ProgReport;
mine;
dropores;
until(false)
end.
{Thx Stol3n, I read and learned off your powermining script.}