SRL Archive - Archive

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

What is the meaning to life?


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



Programming Knowledge
Java,javascript, c++,Basic visual Basic etc

Other Communitys
rsca.net Silab.com etc etc

How Long have You Played Runescape
3 yrs +

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

well i have been a part of this comunity for a while and come to the conclusion its time to better my self..(or try)

well some of you may know me or have seen me around etc
i realy like this comunity my son is apart of this comunity
i have helped as much as i can to people on this forum its a nice freindly comunity that i wish to stay with for a good while..

id realy like to say keep up the good work peeps!!!

hope i get in and thanks every1 who has helped me

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

program PowerMineR;


//Credits! Torrent Of Flames, Hy, Sumilion And every1 @ SRL!!!! :=)!

{.include SRL/SRL/misc/SMART.scar}
{.include SRL/SRL.scar}
{.include SRL/SRL/Misc/Smart.scar}
{.include SRL/SRL/skill/mining.scar}
{.include srl/srl/misc/users.scar}




const
//ore colours
  tin=8553100;
  copper=4813211;
  iron=2832990;

var x, y, Tries: integer;

var Loads, mininglevel,gained,Dropped: Integer;


procedure DeclarePlayers;
begin
  SRLPlayerForm(True,['bank'],['Loads','Time Between Clicks','Remaining Xp'],['Ore Type','nick','srl ID','srl pass'],[]);
end;

procedure AntiRandoms;
begin
  If(FindFight = true)then
  begin
     RunAway('N', True,1,15000);
       Wait(7000 + Random(3000));
     RunTo('S', True);
  end;
    FindTalk;
     FindNormalRandoms;
  FindLamp('Mining');
end;


procedure loaddtms;
begin
  oredtm := DTMFromString('78DA63CC636260D065644006F7EACC19FE036' +
       '990E87F20602C01AA5142550391859140BA02A8C698809A78A01A' +
       '53026AE2806AB408A8C904AAB1C2AF06009ACB0A4D');
end;


Procedure LoadPaxeDTMs;
begin
  DamagedPick := DTMFromString('78DA63B4666660F8C180020C14D9C0342394C' +
       'F680B54F399010D30A2AA3107AAF94A408D11116A0C816ABE1350' +
       '630254F393801A4722D47800D5FC2642CD5F026A5C8850030A1F5' +
       '646C27EE727420D270135A640358CF8D5000017B60DA9');

  Pickaxe := DTMFromString('78DA6374626260B8CD80020C14D918FE03694' +
       '620FE0F048C1E986A20B2301248DB03D5DC20A0C684087302806A' +
       '1E1250630154F309BF1A00172B0C31');
end;


Procedure LoadBrokenPick;
begin
  PickHandle := BitmapFromString(16, 27, 'beNqV070KwkAQBOAE' +
       '/17AyiKmELQKgloJIWV8/xdyw8Cy3G1mNzBFim+Hyy03vuZxyW96k' +
       'zRNK8F36EV+bsfv44QR+LUpMcP1oP7Z99bXI5u8YuLtSNJjxGIJcN' +
       'JzLHHL7WmJL8r17zLlxQVaj5H65O6CCh8uFHGvZRMOfbh9Xs59fXX' +
       'q3XL+iEg58cny+2VvFxSWw2fK4bvzTkYy5eol3Bf36R4GwN2X4rVH' +
       't+QPszLuhg==');

  PickGone := BitmapFromString(43, 11, 'beNqNVNEKgkAQvP9/8KEQu' +
       't76AyOKKBKikKA+qtXJYdz1QllkvVtn5mZXU/pctxbP4wbxOKwtNL' +
       'Hozll3u3ONZMjzEDVw3pc+SamHtV0sMrD7i9uOOZBJQSLgo8ASLk7' +
       'FZNQg0ng5UrxOARQMnREWgV0cnzUGAj0jVHaAdEDptGDigwhQIj7S' +
       'E4C8Tnm8Z2dvFBBbMBslB9wYuGOOB88lASZyCbt2DRcHDAK4juOgl' +
       'bHREWchKRxggpwCmFvXLIcVCs48ivGjLjPv3mqbFcApoG0qW6QAsH' +
       'MwZknnBQhpyQQ6wNZHB3C/7yv8AdBfN+dFAQUNKMBdrY5i9FEX4wf' +
       '1x5BZdpoAASRypDpX/Kx00WlYModakL6VUibV');
end;

procedure getorecolour;
begin
  case lowercase(Players[CurrentPlayer].Strings[0]) of
    'copper'  : begin
                  orec:= copper;
                  p:=17;
                end;
    'tin'     : begin
                  orec:= tin;
                  p:=17;
                end;
    'iron'    : begin
                  orec:= iron;
                  p:=35;
                end;

Procedure AntiBan;
Var perform: integer;
begin
  perform:= random(500);
  case Perform of
    1: HoverSkill(players[currentplayer].skill, false);
    1 - 125: PickUpMouse;
    3: AlmostLogout;
    4:
    begin
      Wait2(4000 + random(1000), true);
      wait(1000 + random(500));
      makecompass('N');
    end;
    5: BoredHuman;
  end;
end;


Procedure Grats;//*lots of talking:)
Begin
    If (FindBlackChatMessage('Congratulations')) Or
        (FindBlackChatMessage('you just advance')) Or
        InChat('Congratulations') Or InChat('just advance') Or InChat('congratulations,') Then
    Begin
        Writeln('Gained a levled!!!');
        Begin
            Case Random(18) Of
                0: TypeSend('woot finnally LEVELED!!');
                1: TypeSend('muwahah lvled');
                2: TypeSend('leveled yay me!');
                3: TypeSend('woot got a minning lvl :)');
                4: TypeSend('omg.. i didnt even know i just leveld');
                5: TypeSend('why do i lag when i level?');
                6: TypeSend('w00t grats fer me');
                7: TypeSend('Dang!');
                8: TypeSend('haters!');
                9: TypeSend('yay leveld!');
                10: TypeSend('clap for me!');
                11: Typesend('good i just leveld minnin');
                12: TypeSend('yay!');
                13: TypeSend('yay me');
                14: TypeSend(':D');
                15: TypeSend('lol');
                16: TypeSend('lol...');
                17: TypeSend('its about time');
            End;
             End;
        writeln('you HAVE JUST LEVELED minning! now post about it please');
        ReportVars[9] := ReportVars[9] + 1;
        Gained := Gained + 1;
    End;


procedure fixrandoms;
begin
  FindNormalRandoms;
  SolveChatRandom;
  if FindFight then RunAway('N', true, 1, 7500 + Random(2500));
end;


Procedure CheckPickaxe;
begin
  if not LoggedIn then Exit;
  LoadPaxeDTMs;
  GameTab(5);
  Wait(2000);
  If FindDTM(Pickaxe, x, y, MIX1, MIY1, MIX2, MIY2) then
  begin
    writeln('Found Pickaxe!');
    PickTab := 5;
    GameTab(4);
    FreeDTM(Pickaxe);
    FreeDTM(DamagedPick);
    Exit;
  end;
  If FindDTM(DamagedPick, x, y, MIX1, MIY1, MIX2, MIY2) then
  begin
    writeln('Pickaxe is damaged, logging out...');
    Players[CurrentPlayer].Loc := 'Broken/No Pick';
    FreeDTM(Pickaxe);
    FreeDTM(DamagedPick);
    Logout;
    Exit;
  end;
  GameTab(4);
  Wait(300);
  If FindDTM(Pickaxe, x, y, MIX1, MIY1, MIX2, MIY2) then
  begin
    writeln('Found Pickaxe!');
    PickTab := 4;
    Mouse(x, y, 0, 0, true);
    FreeDTM(Pickaxe);
    FreeDTM(DamagedPick);
    Exit;
  end;
  If FindDTM(DamagedPick, x, y, MIX1, MIY1, MIX2, MIY2) then
  begin
    writeln('Pickaxe is damaged, logging out...');
    Players[CurrentPlayer].Loc := 'Broken/No Pick';
    FreeDTM(Pickaxe);
    FreeDTM(DamagedPick);
    Logout;
    Exit;
  end;
  writeln('Could not find pickaxe, logging out.....');
  Logout;
  Players[CurrentPlayer].Loc := 'Broken/No Pick';
end;


procedure RockMining;
begin
if not LoggedIn then
  Exit;
  if (not (FindObjCustom(x, y, ['Mi', 'ne'], [RockColour1, RockColour2], 7))) then
    Wait(100+random(100));
    Tries := Tries + 1;
    if(Tries = 20)then
      begin
        Logout;
        Exit;
      end else
  if FindObjCustom(x, y, ['Min', 'ine'], [RockColour1, RockColour2], 7) then
  repeat
    case (Random(2)) of
      1: begin
            Mouse(x, y, 4, 4,false);
            ChooseOption('ine');
          end;
      2: Mouse(x, y, 4, 4, True);
    end
  until (InvFull)
end;


Procedure CheckForGas;
Begin
  if not LoggedIn then Exit;
  If (GasFound(x, y))
  or (FindColorTolerance (x, y, 10596274, 203, 139, 313, 236, 0))
  or (FindColorTolerance (x, y, 10925239, 203, 139, 313, 236, 0))
  or (FindColorTolerance (x, y, 10465203, 203, 139, 313, 236, 0))
  or (FindColorTolerance (x, y, 12699850, 203, 139, 313, 236, 0))then
  begin
    writeln('Gas! Running away...');
    Randoms;
    SetRun(True);
    MakeCompass('N');
    RunAway(RunDir, False, 2, 17000); //Runs away and stays
    SetAngle(False);
    RunAway(RunDir, False, 3, 1000); //Also just means RunBack
    GasRespond;
    SetAngle(True);
  end;
end;


procedure Drop;
begin
  mousebox(645, 187,645, 187,1);
  for i := 3 to 28 do
  begin
    DropItem(i);
    wait(100+random(10))
  end;
  ran:= Random(3);
  case ran of
    0:typesend('iron dropped here');

    1:typesend('droping iron here');

    2:typesend('droped ore');
  end;
  invents:=invents+1
  tinvents:=tinvents+1
  blot:=0
end;



procedure ProgressReport;
begin
ClearDebug;
   Writeln('<<=================================================>>')
   Writeln('<<          Power Miner         ')
   Writeln('<<          Worked For: ' + TimeRunning)
   Writeln('<<          Mined: ' + IntToStr(Loads) + ' Ores ')
   Writeln('<<          Total load Dropped: ' + IntToStr(Dropped) + ' Loads   ')
   Writeln('<<          Total levels gained: ' + IntToStr(Gained) +' Levels Gained ')
   Writeln('<<=================================================>>')
   SRLRandomsReport;
end;

 procedure FindGainedLevel;
begin
  if MiningLevel > (Players[CurrentPlayer].Integers[2]) then
  begin
    Gained := Gained + 1;
  end;
end;


Procedure Disguises;
Begin
  Case Random(4) of
    0: Disguise('AIM');

    1: Disguise('Firefox');

    2: Disguise('iTunes');

    3: Disguise('IGN Boards');
  End;
End;

procedure startup;
begin
  if (not(loggedin))then
  begin
    loginplayer;
  end;
  cleardebug;
  wait(10)
  writeln('Scaper123 Power miner')
  ActivateClient;
  makecompass('N');
  report;
end;


Procedure SetUp;
Begin
     smartSetupex(71, False, true);
      While Not (SmartReady) Do
      Wait(100);
        SetTargetDC(SmartGetDC);
          If Not (LoggedIn) Then
            While Not (SmartGetColor(386, 249) = 65535) Do
             Wait(100);
           SetUpSrl;
            SetUpSRLReport;
       ScriptID := '';
    DeclarePlayers;
    LoadDtms;
  begin
    if ((players[currentplayer].strings[0] = '') or (players[currentplayer].strings[1] = ''))then
    begin
      Writeln('FUCKING LEECHING NOOB');
      Writeln('Get an SRL I.D. and pass now');
      Writeln('Opening Required page for you!!');
      Writeln('Www.Stats.Srl-Forums.com');
      Writeln('Please Allow For This Page!!!');
      OpenWebPage('http://www.stats.srl-forums.com/');
      terminatescript;
    end else
    SRLID:=players[currentplayer].strings[0];
    SRLPassword:=players[currentplayer].strings[1];
  end;
end;


Begin
    SetUp;
    Startup;
  SRLID := SRLStatsPass;
  SRLPassWord := SRLStatsPass;
  Disguises;
  repeat
    Wait(2000 + Random(1000))
    RockMining;
    DropRocks;
    AntiBan;
    Cleardebug;
    ProgressReport;
    Loads := 0;
    Gained := 0;
  until (IsFKeyDown(12));
  Until (False);
end.

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

Your active and stuff, I want to say yes because of that but I have to say No because the script is a little to simple.

ok thankjs for your oppinion

same as ironman…you're active and all but dang man this is WAY too basic…You needa expand your knowledge of SCAR functions… No from me

thanksfor you oppinion too!!!

Sorry, a no from me. Very basic and your standards are a little bit messy. In the CheckForGas procedure you're using coordinate finding, which can fail as gas changes most of the time. In the AntiBan procedure you did this:

Var perform: integer;
begin
  perform:= random(500);
  case Perform of

When you could've done this:

begin
  case Random(500) of

That is just one thing i have pointed out, there are more. Also, haven't you created another application about 1-2 week(s) ago? This is too soon.

Sorry, but try again in one month. Also, have you tested this script? If you have, then can you run a Progress Report that lasts for at least 30 minutes or more?

From: IP-Drowner
Sorry, a no from me. Very basic and your standards are a little bit messy. In the CheckForGas procedure you're using coordinate finding, which can fail as gas changes most of the time. In the AntiBan procedure you did this: ScarScript:By Drunkenoldma [LEFT]Var perform: integer; begin perform:= random(500); case Perform of [/LEFT]

When you could've done this: ScarScript:By Drunkenoldma [LEFT]begin case Random(500) of [/LEFT]

That is just one thing i have pointed out, there are more. Also, haven't you created another application about 1-2 week(s) ago? This is too soon.

Sorry, but try again in one month. Also, have you tested this script? If you have, then can you run a Progress Report that lasts for at least 30 minutes or more?

morelike 2-3monthes ago

I'm going to say no. You seem to know what you are doing in your script (I'm trying to convince voters to look at applications differently at the moment), and the only *real* problem I see is that you forgot to end one of your procedures.

What made me vote no is that all of your methods are fairly simple…

Ok you need 2 repeats in your MainLoop;

until (IsFKeyDown(12));

^ That won't actually stop the script as it will keep on running becuase you have an Until(False); ^

Sorry its a no.

Try again in 1 month

mhm, it's not bad..but should be more ..mhm - complex, shorter and effective..

No for this time, good luck next time.

Sorry, I'm afraid you're not getting in this time.
You may try again in one month, good luck.
Closed.