SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
PHP,Delphi,HTML,Java,vB

Other Communitys
Sythe,Fagex,Zamorak.org

How Long have You Played Runescape
1 Year

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
One of my Delphi applications are attached - A basic scar-like app. the commands are "Mouse(x,y); and Click(x,y,bool);"
Please write down a paragraph about Yourself.

Hello, I would like to have SRL membership status, I have been codeing (Web) for about 4 years now, am very experienced at it, have made Forum software, websites ect.
I have also made numberous bots/macro's for other popular games with Delphi, So that's kinda cool =).

SCAR Is Kind of like Delphi, same syntax ect, so It was relatively easy to pick up on (about 7 months ago I started SCAR (leeching ect, sorry but im honest lol)).

I am 14 and very Mature for my age.


I will be of great help to the community as I know of many programming languages, and am relatively good at them.

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

program CBall;
{
________________________________________________________________________________
Al Kharid Cannon Ball Smelter
________________________________________________________________________________
Start In Bank.
________________________________________________________________________________
By Leo Anderson

}
{.include SRL\SRL.scar}
{.include SRL\SRL\Extended\xDTM.scar}
{.include SRL\SRL\Skill\Smithing.scar}
{.include SRL\SRL\Extended\xAntiBan.scar}

var
  //DTM's
  SteelBank, Mould, SteelInv, FurnaceMS, SteelBarTXT, CBallINV, SandColor,
    SandColor2: integer;
  //LoadCounter
  loads, maxloads: integer;

procedure Declare;
begin
  SteelInv := DTMFromString('78DA632C66626098CEC8800C26B4B531A4006' +
    '990E87F20602C01AA5982AA06220B2381741650CD42026A32806A' +
    '6610505300543381809A4AA09A8904D4341061571550CD3CFC6A0' +
    '0570C0E93');

  Mould := DTMFromString('78DA63F462646098C980024AB2B319FE0369A' +
    '00CC37F2060B403B2A632A00146241248FB0259FD04D4840259B3' +
    '08A87107B29610501308642D23A0C61AC85A48408D3390D54B404' +
    'D38903509BF1A00C8D70E61');
  SteelBank := DTMFromString('78DA638C636060F0654001E5F9790C29409A1' +
    '188FF030163029011C58006189148201D08244208A8090712DE04' +
    'D424010937026A728830278DB07B0098E30A8E');
  FurnaceMS := DTMFromString('78DA6364606460F065400133B525C0342394C' +
    'FF81148C4A2AA29F330405523C888A126DBC90A55CD2720E186AA' +
    'A6574F0A558D1023869A024B6D54354C986AE618CAA2A8010039F' +
    '20936');
  SteelBarTXT := DTMFromString('78DA63FCC7C0C0D0C6C8800C2A0AF2197E016' +
    '990E87F20606404B216A0AAB1B1B000D33051C6E740623A013520' +
    '436B30ED425123026435E35703001C8B1015');
  CBallINV := DTMFromString('78DA632C62626078CA00068C108AC1DECA8A2' +
    '105CAFF0F048CB94035EF18D000238A1EC674A09A1704D46400D5' +
    '3C22A0260BA8E61E0135E54035B709A8A922C29C5A22DC530D54F' +
    '39A809A12C2E10300C0B612AA');
  SandColor := BitmapFromString(3, 3, 'z78DA7332B474333572229104004EC8' +
    '0C22');
  SandColor2 := BitmapFromString(3, 3, 'z78DA733176763477762191040068CC' +
    '0D1E');

end;

function OpenFurnaceDirX(Dir: string): Boolean;
var
  breaker: Integer;
begin
  if (FindObj3(x, y, 'furn', 1715604, 30)) then
  begin
    case LowerCase(dir) of
      'n': y := y - 60;
      'e': x := x + 45;
      's': y := y + 45;
      'w': x := x - 45;
    end;
    Mouse(x, y, 0, 0, True)
  end
  else
  begin
    if (FindColorSpiralTolerance(x, y, 1715604, MSX1, MSY1, MSX2, MSY2, 30))
      then
    begin
      case LowerCase(dir) of
        'n': y := y - 45;
        'e': x := x + 45;
        's': y := y + 45;
        'w': x := x - 45;
      end;
      Mouse(x, y, 5, 5, False)
        while not (PopUp('nace')) do
      begin
        Wait(500)
          breaker := breaker + 1
          if (breaker > 12) then
        begin
          Result := False;
          Exit;
        end;
      end
    end
  end;
  breaker := 0
    while not (GetColor(104, 441) = 0) do
  begin
    Wait(500)
      breaker := breaker + 1
      if (breaker > 20) then
    begin
      Result := False
        Exit;
    end;
  end;
  Result := True;
end;

function FindAndClickSymbol(SymbolName: string): Boolean;
begin
  repeat
    Wait(500 + random(100))
      SendArrowSilent(3);
  until (FindSymbol(x, y, SymbolName)) //Repeats until find symbol
  Mouse(x, y, 5, 5, true) //Clicks on symbol
  Flag; //Waits for flag to dissapear
  Result := True; //Returns True
end;

procedure SetChatsOff;
begin
  SetChat('off', 1);
  SetChat('off', 2);
  SetChat('off', 3);
end;

procedure WalkToFurny;
var
  AutoSandColor: integer;
begin
  if (not (LoggedIn)) then
    Exit;
  AutoSandColor := AutoColorThis(SandColor, 100, 663, 40, 683, 88)
    AutoSandColor := AutoColorThis(SandColor2, 100, 663, 40, 683, 88)
    if (not (RadialWalk(AutoSandColor, 45, 46, 50, 0, 0))) then
    RadialWalk(AutoSandColor, 45, 46, 50, 0, 0);
  // FindFastRandoms;
   //FindNormalRandoms;
  Flag;
  Wait(150 + Random(150));
  if (FindSymbol(x, y, 'Furnace')) or
    (FindMMColorTol(x, y, 2056444, 45)) or
    (FindMMColorTol(x, y, 1798900, 45)) or
    (FindMMColorTol(x, y, 286180, 45)) then
    Mouse(x + 5 + Random(3), y, 2, 2, true);
  // FindNormalRandoms;
  // FindFastRandoms;
  Flag;
end;

procedure WalkToBank;
var
  AutoSandColor: integer;
begin
  if (not (LoggedIn)) then
  begin
    Exit;
  end;
  AutoSandColor := AutoColorThis(SandColor, 100, 663, 40, 683, 88);
  AutoSandColor := AutoColorThis(SandColor2, 100, 663, 40, 683, 88);
  if (not (RadialWalk(AutoSandColor, 160, 161, 100, 0, 0))) then
    RadialWalk(AutoSandColor, 160, 161, 100, 0, 0);
  Flag;
  Wait(150 + Random(150));
  if (FindSymbol(x, y, 'Bank')) or
    (FindMMColorTol(x, y, 5095656, 20)) or
    (FindMMColorTol(x, y, 4838112, 20)) or
    (FindMMColorTol(x, y, 3587534, 20)) then
    Mouse(x, y, 2, 2, true);
  Flag;
end;

procedure WithdrawMould;
begin
  FindMSDTM(x, y, Mould);
  MMouse(x, y, 5 + random(2), 5 + random(2));
  ClickMouse(x, y, True);
  Status('Taken out Ammo Mould!');
  wait(500 + random(100));
end;

procedure DepositCBalls;
begin
  wait(500 + random(250));
  FindInvDTM(x, y, CBallINV);
  MMouse(x, y, 5, 5);
  wait(500 + random(100));
  PopUp2(x, y, 4, 4, 'All');
  ChooseOption(x, y, 'All');
end;

procedure WithdrawSteel;
begin
  FindMSDTM(x, y, SteelBank);
  MMouse(x, y, 5 + random(3), 5 + random(2));

  PopUp2(x, y, 5, 5, 'All');
  Status('Taken out Steel!');

end;

procedure MakeBalls;
begin
  //LOL at the name =)
  Status('Making C-Balls');
  FindDTMIn(x, y, SteelBarTXT, 200, 350, 315, 425);
  MMouse(x, y, 10 + random(5), 10 + random(10));
  PopUp2(x, y, 10, 10, 'Make All');
  ChooseOption(x, y, 'Make All');
  repeat
    wait(1000);
    MMouse(random(700), random(500), 10, 10);
  until (not (ExistsItem(28)));
  Status('Made 28 C-Balls, Banking...');

end;

procedure DoBalls;
begin
  //LOL at the name =)
  {FindMSDTM(x,y,FurnaceMS);
  MMouse(x,y,50+random(6),50+random(8));
  PopUp2(x,y,10,10,'}
  GameTab(4);
  wait(500 + random(250));
  FindInvDTM(x, y, SteelInv);
  MMouse(x, y, 5, 5);
  wait(500 + random(100));
  PopUp2(x, y, 4, 4, 'Use');
  ChooseOption(x, y, 'Use');
  //Ok, its clicked Use, now, to find the furnace
  //and use it with it!
  OpenFurnaceDirX('N');
  Status('Found Furnace');
  wait(1000 + random(200));
  MakeBalls;

end;

procedure DoBank;
begin
  repeat
    OpenBank3;
  until (BankScreen)
end;

// Lets do this!
begin
  setupsrl;
  Declare;
  ClearDebug;
  ActivateClient;
  if (not (loggedin)) then
    LoginPlayer;

  if (LoggedIn) then
  begin
    SetChatsOff;
    SetRun(True);
    DoBank;
    WithdrawMould;
    WithdrawSteel;
    CloseBank;
    repeat
      MakeCompass('N');
      WalkToFurny;
      MakeCompass('W');
      HoverEvery(1, 'smithing');
      DoBalls;
      HoverEvery(1, 'smithing');
      MakeCompass('N');
      WalkToBank;
      DoBank;
      DepositCBalls;
      WithdrawSteel;
      loads := loads + 1;
      WriteLn(IntToStr(loads));
    until (not (LoggedIn) or (loads = maxloads));
  end;
  WriteLn('Terminated (Not Logged In)');
end.

ADDED STANDARDS!
This script works, but with no anti randoms and gets confused sometimes with the minimap.

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

Hmm, Right off the Bat, I have to ask…What happened to your standards towards the end of your script ?
~RAM

Well, my standards have never been good, but I can still read it, so that's all that has matterd throughout my codeing experience.
I am trying to learn about formatting(standards) ect.

repeat
OpenBank3;
until(BankScreen)




Whoah! You need to break out of loops like that! What if the script isn't in the bank? It will repeat looking for the bank forever, and get you banned!

And as RAM said.. About your standards. I don't think this script is 100% yours, if it's even 1% yours.

No. sorry.

Ya, your standards are hard to read, and i want to wait for the copy check anyway, and im sure you need more failsafes.

And I think u should add a proggy :D

From: Leo123
Well, my standards have never been good, but I can still read it, so that's all that has matterd throughout my codeing experience.
I am trying to learn about formatting(standards) ect.

I think we need to be able to read it too, if we are supposed to rate the script and vote.. I'm sorry, but no.

From: GoF
I think we need to be able to read it too, if we are supposed to rate the script and vote.. I'm sorry, but no.

you can read the script. I dont see why im getting no's because of the alignment of my scripts…

No from me. The standards - Non-standards is suspicious and the script isnt uber enough.

Attached example Delphi proggy,

In the top textbox, input the Window's Name you want to use.
In the big middle box, put in the script, ( only 2 functions supported atm. and multi-tasking isnt capable yet. ), and the little box at thebottom is Debug.

No from me. The standards - Non-standards is suspicious and the script isnt uber enough.

From: n3ss3s
No from me. The standards - Non-standards is suspicious and the script isnt uber enough.

Why did you post that twice?? lol :p

And we aren't voting no just for your standards, thats just one of my reasons. You need to break out of some of your loops, like repeat OpenBank3 until(BankScreen). If your not in the bank, or something goes worng, the script will die. You don't have anti ban or anti randoms. Another repeated loop I found is:

repeat
Wait(500+random(100))
SendArrowSilent(3);
until(FindSymbol(x, y, SymbolName))

Guess what that's going to do? If the symbol isn't there, then it will keep repeating! And if it keeps repeating until its not logged in, it will still keep repeating!

Add:

• Failsafes
• Anti ban
• Anti randoms
• progress report
• proper standards

and then you may get a yes from me.. Check out my tut (links in sig) Learning the things to become a SRL member. That teaches you all those things.

So no, standards isn't the only reason we voted no, it's because this isn't a reliable script yet. Keep at it, it's a good try.

I agree, no because of the endless loops.

And in this case *cough* JAD *cough* the standards aren't acceptable. In certain other apps where the scripter designed his own odd standards I think it is okay, but yours doesn't seem to have any semblance of organization.

sorry, keep up with scripting though.

There, I added standards…

O sry there was sum kinda lagg

You double/triple voted no? -.-