SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
None

Other Communitys
None

How Long have You Played Runescape
four years on and off

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

Well I first came here so i could cheat in Runescape and make lots of money. since my arrival here i have found the community:
-Friendly
-Very Helpful
Thus I decided to stay and not just leech. Since then I have been studying other people's scripts and looking at the way things worked and studying many Tutorials. Prior to coming here i had no experience in this area at all.

There was also a mix up with a previous application so here is the proper thing, it's all written out properly etc. so no one gets confused

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

//////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////
//                  THE NOOBIEST                      //
//                   POWERMINER                      //
//                  BY RKROXPUNK                    //
//                                                 //
////////////////////////////////////////////////////
///////////////////////////////////////////////////

//First I'd like to thank everyone at SRL. I had a million and one questions and they were all answered
//special thanks to Pentti and Boreas with help with a lot of errors.

program PowerMiner;
{.include SRL/SRL.scar}
{.include srl\srl\skill\Mining.scar}
{.include SRL\SRL\Misc\Trade.scar}

////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////
//                  LOGIN AND SETUP                     //
/////////////////////////////////////////////////////////
////////////////////////////////////////////////////////
var
  Loads: Integer;
  Loads2: Integer;
  PickEquip: Boolean;
  OreMined: Integer;
  OreMined2: Integer;
  OreDTM: integer;
  GasAvoided: Integer;

const
  VersionNumber = '2'; //Leave this
  Loadz = 1; //How Many Loads.
  NumberOfUsers = 3; //How Many Players Are You Using.
  UseAntiBan = True; //AntiBan will be used if set to true.
  AntiBanAmount = 3; //0 is lots of antiban, 1 less, 2 even more less, etc.
  OreeColor = 4022407; //Put the colour of the ore you want to mine here
  WaitTime = 20000; //How long before it clicks again
  RunDirec = 'N'; //Direction you want to run in if find smoking rock


procedure DeclarePlayers;

begin
  HowManyPlayers := 5; // Set Number of Players here.
  NumberOfPlayers(HowManyPlayers); // Sets the Players Array Length;
  CurrentPlayer := 0;
  EquipPick := Players[CurrentPlayer].Boolean1;

  Players[0].Name := '';
  Players[0].Pass := '';
  Players[0].Nick := '';
  Players[0].Loc := 'Loc1';
  Players[0].Skill := 'Mining';
  Players[0].Boolean1 := False; // Is your pick equipped. true = yes, false =  no
  Players[0].Active := True;

  Players[1].Name := '';
  Players[1].Pass := '';
  Players[1].Nick := '';
  Players[1].Loc := 'Loc1';
  Players[1].Skill := 'Mining';
  Players[1].Boolean1 := False; // Is your pick equipped. true = yes, false =  no
  Players[1].Active := True;

  Players[2].Name := '';
  Players[2].Pass := '';
  Players[2].Nick := '';
  Players[2].Loc := 'Loc1';
  Players[2].Skill := 'Mining';
  Players[2].Boolean1 := False; // Is your pick equipped. true = yes, false =  no
  Players[2].Active := True;

  Players[3].Name := '';
  Players[3].Pass := '';
  Players[3].Nick := '';
  Players[3].Loc := 'Loc1';
  Players[3].Skill := 'Mining';
  Players[3].Boolean1 := True; // Is your pick equipped. true = yes, false =  no
  Players[3].Active := True;

  Players[4].Name := '';
  Players[4].Pass := '';
  Players[4].Nick := '';
  Players[4].Loc := 'Loc1';
  Players[4].Skill := 'Mining';
  Players[4].Boolean1 := True; // Is your pick equipped. true = yes, false =  no
  Players[4].Active := True;

  writeln(inttostr(HowManyPlayers) + ' Players');
end;

////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////
//                  PROGGY!                             //
/////////////////////////////////////////////////////////
////////////////////////////////////////////////////////

Procedure PlayerReport;

Var
  Active: String;
  I:Integer;

Begin
  For I  :=  0 to HowManyPlayers - 1 Do
   Begin
     If Players[i].Active=True Then Active := 'T' Else Active := 'F';
     WriteLn( (IntToStr(I))+' : '+Players[I].nick+ ' = '+
     Active+'; Mined: '+IntToStr(Players[I].Integer2)+' Ores; M lvl:'+IntToStr(Players[i].Level[15]));
     WriteLn(' Mining level is ' + IntToStr(GetSkillLevel('Mining')));
   End;
End;

procedure Report;
begin
  Writeln('[]----------THE NOOBIEST PROGGY!----------[]');
  Writeln('[]------------------By RK-----------------[]');
  writeln('RRRRRRRRRRRRRRRRR   KKKKKKKKK    KKKKKKK')
    wait(500)
    writeln('R::::::::::::::::R  K:::::::K    K:::::K')
    wait(500)
    writeln('R::::::RRRRRR:::::R K:::::::K    K:::::K')
    wait(500)
    writeln('RR:::::R     R:::::RK:::::::K   K::::::K')
    wait(500)
    writeln('  R::::R     R:::::RKK::::::K  K:::::KKK ')
    wait(500)
    writeln('  R::::R     R:::::R  K:::::K K:::::K')
    wait(500)
    writeln('  R::::RRRRRR:::::R   K::::::K:::::K')
    wait(500)
    writeln('  R:::::::::::::RR    K:::::::::::K')
    wait(500)
    writeln('  R::::RRRRRR:::::R   K:::::::::::K')
    wait(500)
    writeln('  R::::R     R:::::R  K::::::K:::::K')
    wait(500)
    writeln('  R::::R     R:::::R  K:::::K K:::::K')
    wait(500)
    writeln('  R::::R     R:::::RKK::::::K  K:::::KKK')
    wait(500)
    writeln('RR:::::R     R:::::RK:::::::K   K::::::K')
    wait(500)
    writeln('R::::::R     R:::::RK:::::::K    K:::::K')
    wait(500)
    writeln('R::::::R     R:::::RK:::::::K    K:::::K')
    wait(500)
    writeln('RRRRRRRR     RRRRRRRKKKKKKKKK    KKKKKKK')
    Writeln('            Worked For : ' + ScriptTime2(2))
    Writeln('              Mined :' + IntToStr(Loads2) + ' Loads');
  WriteLn('        Ores Mined/Dropped : ' + IntToStr(OreMined2));
  WriteLn('----------------------------------------------')
  WriteLn('')
  PlayerReport;
  SRLRandomsReport;
  WriteLn('')
  WriteLn('----------------------------------------------')
  Writeln('[]------------------By RK-----------------[]');
  Writeln('[]----------THE NOOBIEST PROGGY!----------[]');
end;

/////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////
//                                                       //
//              RANDOMS AND ANTIBAN                     //
//                                                     //
////////////////////////////////////////////////////////
///////////////////////////////////////////////////////

procedure AntiRandoms;
begin
  FindTalk;
  SRLRandomsReport;
  FindNormalRandoms;
  if (FindFight = true) then
  begin
    RunAwayDirection(RunDirec);
    Wait(10000 + random(2000));
    RunBack;
  end;
end;

function FindFastRandoms: Boolean; // By WT-Fakawi.

var
  i: Integer;

begin
  for I := 1 to 11 do
  begin
    case I of
      1: if FindDead then
          Result := True;

      2: if FindMod then
          Result := True;

      3: if FindMime then
          Result := True;

      4: if FindMaze then
          Result := True;

      5: if FindQuiz then
          Result := True;

      6: if FindDemon then
          Result := True;

      7: begin
          if NoGameTab then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'No GameTab';
            Logout;
            Exit;
          end;
        end;

      8: if RC then
          Result := True;

      9: if FindFight then
        begin
          Result := True;
          RunTo(RunDirec, True);
        end;

      10: if FindTalk then
          Result := True;

      11: if HandleTrade then
          Result := True;
    end;
    Wait(1);
  end;
end;

procedure FindGasses;
begin
  if FindGas(x, y) then
  begin
    RunAwayDirection(RunDirec);
    Wait(10000 + random(2000));
    RunBack;
  end;
end;

procedure MouseAntiBan; //From Yakman.
begin
  if not (LoggedIn) then Exit;
  case Random(6) of
    0: IdleTime(1000 + Random(350), 500, 1.0);
    1: IdleTime(1000 + Random(350), 1000, 1.0);
    2: IdleTime(1000 + Random(350), 750, 0.5);
    3: SleepAndMoveMouse(2500 + Random(2500));
    4: SleepAndMoveMouse(1500 + Random(1500));
    5: SleepAndMoveMouse(500 + Random(500));
  end
end;

procedure MyAntiBan; //From Yakman
var
  DItem, DBanMe, AntiBanRatio: Integer;
begin
  if not (LoggedIn) then Exit;
  AntiBanRatio := 25 + (25 * AntiBanAmount);
  DBanMe := Random(AntiBanRatio);
  case DBanMe of
    0: MMouse(Random(MSX2), Random(MSY2), 0, 0);
    1: RandomRClickEvery(2 + Random(13));
    2: HoverSkill('mining', False);
    3: HoverSkill('smithing', False);
    4: RotateEvery(20 + random(10));
    5: LeaveScreenEvery(5 + random(5));
    6: HoverEvery(15 + random(5), 'random');
    7: HoverEvery(15 + random(5), players[currentplayer].skill);
    8: MouseAntiBan;
    9: begin
        DItem := 1 + random(14);
        if (ExistsItem(DItem)) then
          DragItem(DItem, 15 + random(10));
      end
      10: begin
        GameTab(1 + random(12));
        wait(1500 + random(500));
        GameTab(4);
      end;
  end;
end;
/////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////
//                                                       //
//                  MINEING AND DROPPING                //
//                                                     //
////////////////////////////////////////////////////////
///////////////////////////////////////////////////////


function FindOre: Boolean;
begin
  if FindObj(x, y, 'Mine', OreeColor, 5) then
  begin
    Result := True;
    Status('Found Ore =D');
  end else
    Status('Did not find Ore =(');
  wait(5 + random(5));
end;

function MouseAndClick: Boolean;
begin
  repeat
    if (FindOre) then
    begin
      MMouse(x, y, 0, 0);
      Result := True;
      Wait(20 + random(150));
      Mouse(x, y, 0, 0, true);
      wait(500);
      OreMined := OreMined + 1
        Break;
    end;
  until (false)
end;

procedure UntilMined(Time: Integer);
var
  timer: integer;
begin
  Status('waiting for pick swing')
    wait(700 + random(200));
  if FindText(x, y, 'You swing your', smallchars, 18, 415, 477, 433) then
  begin
    marktime(Timer);
    repeat
      wait(700 + random(900));
      FindFastRandoms;
      FindPick;
      FindGasses;
    until FindText(x, y, 'anage', smallchars, 20, 401, 477, 433) or
      (timefrommark(Timer) > Time);
  end;
end;


function CoordsToInvSpot(gx, gy: integer): integer; //Help here from Boreas
var col, row: integer;
begin
  if ((gx > 569) and (gx < 600)) then col := 1;
  wait(20 + random(7));
  if ((gx > 611) and (gx < 642)) then col := 2;
  wait(20 + random(7));
  if ((gx > 653) and (gx < 684)) then col := 3;
  wait(20 + random(7));
  if ((gx > 695) and (gx < 723)) then col := 4;

  if ((gy > 213) and (gy < 244)) then row := 1;
  wait(20 + random(7));
  if ((gy > 249) and (gy < 280)) then row := 2;
  wait(20 + random(7));
  if ((gy > 285) and (gy < 316)) then row := 3;
  wait(20 + random(7));
  if ((gy > 322) and (gy < 352)) then row := 4;
  wait(20 + random(7));
  if ((gy > 357) and (gy < 387)) then row := 5;
  wait(20 + random(7));
  if ((gy > 393) and (gy < 424)) then row := 6;
  wait(20 + random(7));
  if ((gy > 429) and (gy < 459)) then row := 7;

  result := ((row - 1) * 4) + col;
end;

procedure drop; //Help here from Boreas
begin
  if (invfull) then
  begin
    GameTab(4);
    OreDTM := DTMFromString('78DA634C636060706740038C48249006A9F12' +
      '3A0261F487813A12688809A1C201141847BA209A84902123104D4' +
      'C4028944026AA2893007E4DE28026A828930071436A104D484128' +
      'E0B0047CA0967');
    repeat
      if FindDTM(OreDTM, x, y, MIx1, MIY1, MIx2, MIY2) then
        DropItem(coordstoinvspot(x, y));
      wait(200 + random(200));
    until not (FindDTM(OreDTM, x, y, MIx1, MIY1, MIx2, MIY2));
    freedtm(OreDTM);
    Loads := Loads + 1;
    Report;
  end;
end;
/////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////
//                                                       //
//                    MAIN LOOP                         //
//                                                     //
////////////////////////////////////////////////////////
///////////////////////////////////////////////////////
begin
  ClearDebug;
  SetupSRL;
  SetupSRLMining;
  DeclarePlayers;
  Activateclient;
  wait(1000);
  LoginPlayer;
  wait(1000);
  MakeCompass('N');
  HighestAngle;
  SetRun(true);
  FindPickHeadColor;
  repeat
    repeat
      Gametab(4);
      FindOre;
      MouseAndClick;
      FindPick;
      FindGasses;
      FindFastRandoms;
      UntilMined(WaitTime);
      CoordsToInvSpot(x, y);
      Drop;
      FindPick;
      FindGasses;
      AntiRandoms;
      MyAntiBan;
      MouseAntiBan;
    until (Loads = Loadz);
    if (Loads = Loadz) then
    begin
      Loads2 := Loads2 + Loads;
      OreMined2 := OreMined2 + OreMined;
      Report;
      Logout;
      Nextplayer(true);
      Loads := 0
        MakeCompass('N');
      HighestAngle;
      SetRun(true);
      FindPickHeadColor;
    end;
  until (false);
end.

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

You need to wait a month before applying again. as far as I know, you applied already shorter then a month ago didn't you?

oh…..where's it say that and yes I did. But well that kinda sux seeing as there was a mix up…….and I got voted all no and no one will look at my other app again…..*sighs*
Guess someone's gonna have to delete this

I have saved you from you stupidity.
All of your accout passwords have been saved by me.
NEVER EVER EVER post your passwords/usernames in a script you post here.
Always double check.
Lucky i got them before some noob did.
I will PM you all the new passwords tomorrow because i gtg RIGHT NOW.

=) Saved you LIFE

Whoa thanks so much! I owe you one…..anyway do I wait a month or what? cya