SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
uber jesus - SRL Member Application Form
uber jesus

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
no


Programming Knowledge
Delphi, VB, Scar, Pascal

Other Communitys
Sythe, Fagex

How Long have You Played Runescape
6 years

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

I have been programming for 3 years now. Started to get into scar shortly after I discovered there was something better than Delphi for clicking and making scripts. I have experimented with a few scripts and have got some great results.

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

So far, this has been my best progress report…

+———————————————–]
| Uber' Jesus Rock Smasher
| Worked for 4 Hours 17 Minutes 43 Seconds
| Mined and dropped 700 Iron ores
| Gained 24500 mining xp
| Avoided Gas 3 times
+———————————————–]

{.Script Info:
# ScriptName  = Uber Jesus' Rock Smasher
# Author      = Uber Jesus
# Description = An awesome powerminer
# Version     = 0.01
/Script Info}

program RockSmasher;
{.include srl/srl.scar}
{.include srl/srl/skill/mining.scar}
{.include SRL\SRL\Misc\Trade.scar}

{Setup lines 16 - 28 and Players Array is lines 163 - 165}

const
HMD = 10000;           // How many loads to mine then drop
mins = 12;             // Log out every how many mins?
forxmins = 2;          // Stay logged out for how many mins?
ranmins = 5;           // Random mins to be added to mins
ranlmins = 1;          // Random mins to be added to forxmins
RunDirection = 'N';    // Run away direction
Rockname = 'Iron';     // The name of the rock you are mining
UAB = 'Yes';           // Use AntiBan, Yes or No
Startplayer = 0;       // Player that starts
Tolerance = 3;         // Tolerance for the monster colours
waittime = 2;          // How long in seconds do you want to wait inbetween clicking on each rock
range = 725;           // A random number, between 500 and 1000

//---------------------------Do not touch below---------------------------\\

var
Color1, Color2, Color3, Min3d, LoadCount, SkillTimer, TabTimer, ab, z:integer;
Dx, Dy, Gasses, exp, xp, TotalOres, TotalXP:integer;

procedure OrezColorz;
begin
exp := 0;
a := 0;
TotalOres := 0;
LoadCount := 0;
if (RockName = 'Tin') then
begin
Color1 := 8421514;
Color2 := 7960962;
Color3 := 5000274;
xp := 17;
exp := (xp + (xp div 2));
end
if (RockName = 'Copper') then
begin
Color1 := 8618893;
Color2 := 4483988;
Color3 := 4417422;
xp := 17;
exp := (xp + (xp div 2));
end
if (RockName = 'Iron') then
begin
Color1 := 1317933;
Color2 := 2305870;
Color3 := 1844542;
exp := 35;
end
TotalXP := TotalOres * exp;
end;

procedure report;
begin
SRLRandomsReport;
writeln('+-----------------------------------------------]');
writeln('| Uber Jesus'#39' Rock Smasher');
writeln('| Worked for '+ TimeRunning);
writeln('| Mined and dropped ' + IntToStr(TotalOres) + ' ' + RockName + ' ores');
writeln('| Gained ' + IntToStr(totalxp) + ' mining xp');
writeln('| Avoided Gas ' + IntToStr(Gasses) + ' times');
writeln('+-----------------------------------------------]');
end;

Function LogOutEveryM(mins, forxmins: Integer):Boolean;
var
  Mark: Integer;
begin
  if ((TimeFromMark(LogOutMark) / 1000) / 60 >= mins) then
  begin
    MarkTime(LogOutMark);
    MMouse(Random(500), -10, 0, 0)
      Logout;
    WriteLn('Logging out and coming back in about ' + IntToStr(forxmins) +
      ' min(s)');
    MarkTime(Mark);
    repeat
      MMouse(0, 0, 100, 100)
        Wait(90000 + Random(1000));
      Wait(15 + Random(15) + Random(15))
    until (TimeFromMark(Mark) >= forxmins);
    Wait(Random(30000) + Random(30000));
    LoginPlayer;
    Wait(Random(15000) + Random(15000));
  end;
end;

procedure ranz;
begin
SetScreenName(Players[0].Name);
Findtalk;
if (FindTalk = true) then
begin
SolveTalkingRandom('Talk to');
end
FindNormalRandoms;
FindFight;
if (FindFight = true) then
  begin
    RunWhere(RunDirection, true);
  end
If FindGas(Dx, Dy - 20) Then
  Begin
    FTWait(40);
    Gasses := Gasses + +1;
    WriteLn('Gas Found... avoiding');
    Exit;
  End;
FindPick;
LogOutEveryM(mins + random(ranmins), forxmins+random(ranlmins));
end;

procedure RandomTab;
begin
 MarkTime(TabTimer);
 repeat
   if TimeFromMark(TabTimer) > 2000 then
   begin
   Wait(600+random(500))
     Gametab(1+random(12))
     MarkTime(Tabtimer);
   end else Wait(500);
 until false;
end;

procedure SkillCheck;
begin
z := random(3);
if z = 0 then
begin
  writeln('Checking skill... Mining');
  HoverSkill('Mining',false);
end
if z = 1 then
begin
  writeln('Checking skill... Smithing');
  HoverSkill('Smithing',false);
end
if z = 2 then
begin
  writeln('Checking skills... Mining & Smithing');
  HoverSkill('Mining',false);
  wait(1000 + random(500));
  HoverSkill('Smithing',false);
end
end;

procedure DeclarePlayers;
begin

HowManyPlayers := 1;
NumberOfPlayers(howmanyplayers);
CurrentPlayer := StartPlayer;

Players[0].Name :='1224678297'; // Name
Players[0].Pass :='123abc456def'; // Pass
Players[0].Nick := '1224678297'; // About 3 letters of ur name
Players[0].Active := True;

writeln('Using '+inttostr(howmanyplayers)+' player[s]');
end;

function FindDatRok(Color1, Color2, Color3, Tolerance: Integer; RockName: String): Boolean;
var
 i, x, y: Integer;
begin
 FFlag(5);
 for i:= 1 to 5 do
begin
  if(FindColorTolerance(x, y, Color1, MSX1, MSY1, MSX2, MSY2, Tolerance + i))and
    (FindColorTolerance(x, y, Color2, MSX1, MSY1, MSX2, MSY2, Tolerance + i))and
    (FindColorTolerance(x, y, Color3, MSX1, MSY1, MSX2, MSY2, Tolerance + i))then
   begin
     MMouse(x, y, 3, 3);
     wait(80 + random(60));
     if(IsUpText('Mine Rocks'))then
    begin
      result := true;
      GetMousePos(x, y);
      Mouse(x, y, 0, 0, true);
      wait(40 + random(20));
      FFlag(5);
      wait((waittime*1000)+random(range));
      exit;
    end;
   end;
end;
end;

procedure MineDemRox;
begin
Repeat;
MarkTime(TabTimer);
MarkTime(SkillTimer);
ranz;
FindDatRok(Color1, Color2, Color3, Tolerance, RockName);
Report;
ranz;
wait(1000+Random(550));
if TimeFromMark(SkillTimer) > 30000 then
   begin
   Wait(1000+random(500))
     SkillCheck;
     End;

if TimeFromMark(TabTimer) > 25000 then
   begin
   Wait(1000+random(500))
     Gametab(1+random(12))
     end;

If (InvFull = true) then
begin
ranz;
TotalOres := TotalOres + 28;
DropAll;
end

ranz;

if (UAB = 'Yes') then
  begin
    AntiBan;
  end

until(LoadCount >= HMD);
end;

begin
OrezColorz;
ClearDebug;
SetupSRL;
SetupSRLMining;
LoadMiningBitMaps;
Declareplayers;
loginplayer;
wait(1500+random(500));
HighestAngle;
FindPickHeadColor;
MineDemRox;
Logout;
end.

——————————————————
<!– END TEMPLATE: formanswers –>

No for me. There are so many functions you could add from SRL that would make this script better… take more time on it.

Im going to go ahead And give you some advice. Drop all will obviously drop the pick and if it gets strange boxs, multiply those too. I would say make it find the ore color in inv, then false click, then drop. Somewhere in the include

If( FindNewBox ) then SolveBox;

^^ thats something I think is not used enough in dorpping procedures b\c all you will do is multiply the boxes then your screwed..

You may get at least a few more yes's this way. Also, make a better antiban including going off the screen, maybe randomchatting, and maybe an autoresponder

player switching, standards, declare players at top. work on it some more, good start though.

Youv improved a lot from last time, but theres a lot of little things that can sill be fixed.
Ill come back in a few days and point them out to you.
Im busy right now though.

That prog is looking damn sexy to me though =).
Im pretty sure if you listen to all of the critique you get on this thread you can get in next time for SURE, if you don't get in this time that is.

No for now. Maybe add multiplayers in it and something else what makes it even better. Its not that good it would make you SRL member.