SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
A little html

Other Communitys
http://www.moparisthebest.org/smf/

How Long have You Played Runescape
About 2-3 years

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

Hello all,
I've been playing runescape since rs2 came out (2-3 years?). But only started autoing about 3 months ago. And since then all my free time has been spent testing,reading,learning and making scripts. And now I think I am ready to become a member.I know I have a low post count but I read These forums A LOT. If I don't make it please tell me why and how I can improve.
Thanks,MylesMadness

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

{                                  SETUP
Start With shop open then press start and fill out The form and press begin }


program RuneBuyer;
{.include SRL/SRL.scar}
var
  Form1 : TForm;
  Label1 : TLabel;
  Label2 : TLabel;
  Label3 : TLabel;
  RadioButton1 : TRadioButton;
  RadioButton2 : TRadioButton;
  RadioButton3 : TRadioButton;
  RadioButton4 : TRadioButton;
  RadioButton5 : TRadioButton;
  Edit1 : TEdit;
  Edit2 : TEdit;
  Edit3 : TEdit;
  Button1 : TButton;
  RadioButton6 : TRadioButton;
  RadioButton7 : TRadioButton;
  WhatToBuy:Integer;
  death:Integer;
  chaos:Integer;
  fire:Integer;
  water:Integer;
  air:Integer;
  earth:Integer;
  mind:Integer;
  body:Integer;

procedure ClickButton(sender: TObject);
begin
  form1.Caption:= form1.Caption + '.';
  form1.ModalResult:= mrOk;
end;

procedure MakeForm;
begin
  Form1 := CreateForm;
  Form1.Left := 192;
  Form1.Top := 114;
  Form1.Width := 345;
  Form1.Height := 196;
  Form1.Caption := 'Form1';
  Form1.Color := clBtnFace;
  Form1.Font.Color := clWindowText;
  Form1.Font.Height := -11;
  Form1.Font.Name := 'Tahoma';
  Form1.Font.Style := [];
  Form1.PixelsPerInch := 96;
  Label1 := TLabel.Create(Form1);
  Label1.Parent := Form1;
  Label1.Left := 120;
  Label1.Top := 8;
  Label1.Width := 52;
  Label1.Height := 13;
  Label1.Caption := 'User Name';
  Label2 := TLabel.Create(Form1);
  Label2.Parent := Form1;
  Label2.Left := 120;
  Label2.Top := 80;
  Label2.Width := 49;
  Label2.Height := 13;
  Label2.Caption := 'Nick Name';
  Label3 := TLabel.Create(Form1);
  Label3.Parent := Form1;
  Label3.Left := 120;
  Label3.Top := 40;
  Label3.Width := 46;
  Label3.Height := 13;
  Label3.Caption := 'Password';
  RadioButton1 := TRadioButton.Create(Form1);
  RadioButton1.Parent := Form1;
  RadioButton1.Left := 0;
  RadioButton1.Top := 0;
  RadioButton1.Width := 113;
  RadioButton1.Height := 17;
  RadioButton1.Caption := 'Buy Air Runes';
  RadioButton1.Checked := True;
  RadioButton1.TabOrder := 0;
  RadioButton1.TabStop := True;
  RadioButton2 := TRadioButton.Create(Form1);
  RadioButton2.Parent := Form1;
  RadioButton2.Left := 0;
  RadioButton2.Top := 24;
  RadioButton2.Width := 113;
  RadioButton2.Height := 17;
  RadioButton2.Caption := 'Buy water Runes';
  RadioButton2.TabOrder := 1;
  RadioButton3 := TRadioButton.Create(Form1);
  RadioButton3.Parent := Form1;
  RadioButton3.Left := 0;
  RadioButton3.Top := 72;
  RadioButton3.Width := 113;
  RadioButton3.Height := 17;
  RadioButton3.Caption := 'Buy Fire Runes';
  RadioButton3.TabOrder := 2;
  RadioButton4 := TRadioButton.Create(Form1);
  RadioButton4.Parent := Form1;
  RadioButton4.Left := 0;
  RadioButton4.Top := 96;
  RadioButton4.Width := 113;
  RadioButton4.Height := 17;
  RadioButton4.Caption := 'Buy Body Runes';
  RadioButton4.TabOrder := 3;
  RadioButton5 := TRadioButton.Create(Form1);
  RadioButton5.Parent := Form1;
  RadioButton5.Left := 0;
  RadioButton5.Top := 48;
  RadioButton5.Width := 113;
  RadioButton5.Height := 17;
  RadioButton5.Caption := 'Buy earth Runes';
  RadioButton5.TabOrder := 4;
  Edit1 := TEdit.Create(Form1);
  Edit1.Parent := Form1;
  Edit1.Left := 176;
  Edit1.Top := 8;
  Edit1.Width := 153;
  Edit1.Height := 21;
  Edit1.TabOrder := 5;
  Edit1.Text := 'User Name';
  Edit2 := TEdit.Create(Form1);
  Edit2.Parent := Form1;
  Edit2.Left := 176;
  Edit2.Top := 80;
  Edit2.Width := 153;
  Edit2.Height := 21;
  Edit2.TabOrder := 6;
  Edit2.Text := 'Nick Name';
  Edit3 := TEdit.Create(Form1);
  Edit3.Parent := Form1;
  Edit3.Left := 176;
  Edit3.Top := 40;
  Edit3.Width := 153;
  Edit3.Height := 21;
  Edit3.TabOrder := 7;
  Edit3.Text := 'Password';
  Button1 := TButton.Create(Form1);
  Button1.Parent := Form1;
  Button1.Left := 120;
  Button1.Top := 112;
  Button1.Width := 217;
  Button1.Height := 49;
  Button1.Caption := 'Start';
  Button1.TabOrder := 8;
  button1.ONCLICK := @clickbutton
  RadioButton6 := TRadioButton.Create(Form1);
  RadioButton6.Parent := Form1;
  RadioButton6.Left := 0;
  RadioButton6.Top := 144;
  RadioButton6.Width := 113;
  RadioButton6.Height := 17;
  RadioButton6.Caption := 'Buy Death Runes';
  RadioButton6.TabOrder := 9;
  RadioButton7 := TRadioButton.Create(Form1);
  RadioButton7.Parent := Form1;
  RadioButton7.Left := 0;
  RadioButton7.Top := 120;
  RadioButton7.Width := 113;
  RadioButton7.Height := 17;
  RadioButton7.Caption := 'Buy Chaos Runes';
  RadioButton7.TabOrder := 10;
end;

procedure SafeShowWF;
var
  tva: TVariantArray;
begin
  setarraylength(tva, 0);
  ThreadSafeCall('MakeForm', tva);
end;

procedure ShowFormModal;
begin
  Form1.ShowModal
end;

procedure SafeShowFormModal;
var
  tva: TVariantArray;
begin
  setarraylength(tva, 0);
  ThreadSafeCall('ShowFormModal', tva);
end;

procedure Form;
begin
  SafeShowWF;
  SafeShowFormModal;
end;

procedure loadbitmaps;
begin
  chaos := BitmapFromString(10, 10, 'z78DABD91410E80300804BF5' +
       '41264F15885FEFF49D6EAA189C1E04548E6B4B31CB05685561B74' +
       'F6D237A04D494B582CBC14BD1835CCC9FFDD0C332E319D3398772' +
       '3EBEBF5CC8FDE1B9E1955785F459196E9BC2DC686AA02C37E0023' +
       'E789B3');
  death := BitmapFromString(10, 10, 'z78DA8D8F510AC4201043AF5' +
       '4AD7692CFB18EF73FD25AA70B966ECB1A78204C42A2911BB3AE04' +
       '453716AAD3922D5D13B5B0B19D340D5D0B13937AC2E0DD7549002' +
       'B77555AD7CED0658C8C4FF72185E30D9E09A31B0143BD5FBE7B9D' +
       '5C71D85FBD4F444346FEE7F287B72020BC2FBDF4CCDDA14E6C526' +
       '507C4C4FA6F91E6BC7BBD212304E24B91A4C83761F0B161C5DA35' +
       '25200A8527E71C6F32F719EBE6840F038187CD');
  fire := BitmapFromString(10, 10, 'z78DAE58E510EC4200844AF54' +
       'B594994FDAEAFD8F5457D944D3762FB0217924C0BC404341E1C15' +
       '0ABD1B618C26A0B577E19B9512C1154A7909F8E03BB13C8387B96' +
       'A33333324ECE666384429950839D9E7D71FAB6397122D52A10C8B' +
       '8F59BEE14ECB0693ED86058B4DCB36FCEE9069A353FCCDB57BFB3' +
       'FFC30B8D147FFF');
  water := BitmapFromString(10, 10, 'z78DA8D906D0AC3201005AF1' +
       '4E3C7BEF7538DDEFF485D762D58A4A57930606026127606DDE0AD' +
       '33D68B89A9DE2CCC2105D652234159CC24510B1B2B818167B1626' +
       '2D26BC6E57A6D6B7A87112A32A3A152D0D116ADE6EE4773BBA1BE' +
       'CD3AA39E04ABE6D6728FA6D7F47B41E77C1075D6D9DD55D86F684' +
       '491473A2043869E2E99CED33DEF86244DDE05E3697D2BE016FD61' +
       '8BD6F9EDEE05BD6BD64DD1C70BFFB84EE912755BE17FF70561E88' +
       '405');
  air := BitmapFromString(10, 10, 'z78DA7D8F510E80200C43AF842' +
       '2B6FB0494FB1FC9C5F10199C8927ED0AE79636362929D20EEE30E' +
       '3AAF4A626116B0B28CFFA36A62D3B91819BD2B91429A2E1B32039' +
       'AE9F4FF5271C13625D5C2BDA2B286E5EE890BF583E7F7AE9E3C50' +
       '903DC9D830BAEA257412EE108827F96F98DA1AF4AD1A3EF2199B4' +
       'E45C4749191789EBE4584B3D9AEBFC5183C89E90371F4888D');
  earth := BitmapFromString(10, 10, 'z78DABD90410AC3300C04BF9' +
       '4A4EECEFA68C7F1FF9F5413A7E0928BA1A512CC490CDAB539389C' +
       'BC509DBD7A550E5ECA0C1DC8A4F9FB5FB17DFC6C5B69E38D48BC7' +
       '8FE6351D8DD73DDD2B1F368DB0D77CF68183DA781C4CADB307A26' +
       '0C9845F5FF5D7DC52A049BA2224159E9A254B4F7441F9D0CADBE0' +
       '0EB8E864E');
  mind := BitmapFromString(10, 10, 'z78DA95913B12C3200C44AF04' +
       '06BCAB92EFFD8F146228C4C8458266B6D0E7B18836082F025696A' +
       '5F18EC951AB54F133BA5C331ECD4EA2440E2626DBFF42203B9BE4' +
       '393116CDF62C9A5C0421E13B7210120BB376C84C87B174671A038' +
       '3A659C2AEDE68A8243AFACE147A7ACBD9B38FAB5D8D28C89AB075' +
       'F9519C97D90B0239089AA3DE629D60609E7F095A17C1728E1BD55' +
       '6A76D778F5FFED7EEE403AA0A8232');
  body := BitmapFromString(10, 10, 'z78DA75D0618EC5200804E02B' +
       '89ADCF999FD0E2FD8FB43E7113CC66319998A25F69A58B3FA37C4' +
       'B54E974350E8E9DAEA2624D676BCC2A51626ECD5AEC6509FAA151' +
       '157CF9EC5C5A7425BDC5D48A95FC5C2F827D672389D0F299C8988' +
       '40F652E6765D5C29BF7CECA0F5B38871FA66BD52AB77C2B65D622' +
       'F7ADD0B219E71B0C7A0880E3A562606CEDCF84B3D7D058D1D18FB' +
       'B4BDBD9F1C0B696CCD993B95E5C732DE7102ECCC3FF395094FE2B' +
       '24E710D654E1E4FF0674EFBE3339712B7F511662861F539B8584');
end;

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := Edit1.Text;
  Players[0].Pass := Edit2.Text;
  Players[0].Nick := Edit3.Text;
  Players[0].Active := True;

  NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;

function FindFastRandoms: Boolean; //By WT-Fakawi.
var
  i: Integer;
begin
  for i := 1 to 8 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;
      7: begin
          if InBlack then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'InBlack';
            Logout;
            Exit;
          end;
        end;
      8: RC;
    end;
    wait(1);
  end;
end;

procedure FindRandoms;
begin
  FindFastRandoms;
  FindNormalRandoms;
end;


procedure NoGP;
begin
  CloseWindow;
  FindRandoms;
  LogOut;
  writeln('Ran out of money logged out');
  TerminateScript;
end;

procedure NoRunes;
begin
  writeln('The shop ran out of stock logging out');
  CloseWindow;
  FindRandoms;
  LogOut;
  TerminateScript;
end;

procedure BuyAirRunes;
begin
  if(FindBitmapToleranceIn(air, x, y, 23, 61, 494, 315, 90)) then
   begin
    wait(200 + random(100));
    Mouse(x, y, 4, 4, false);
    wait(200 + random(100));
    case random(4) of
    1:ChooseOption(x,y,'uy 10');
    2:ChooseOption(x,y,'uy 5');
    3:ChooseOption(x,y,'uy 10');
    4:ChooseOption(x,y,'uy 10');
    end;
   end;
end;

procedure BuychaosRunes;
begin
  if(FindBitmapToleranceIn(chaos, x, y, 23, 61, 494, 315, 90)) then
   begin
    wait(200 + random(100));
    Mouse(x, y, 4, 4, false);
    wait(200 + random(100));
    case random(4) of
    1:ChooseOption(x,y,'uy 10');
    2:ChooseOption(x,y,'uy 5');
    3:ChooseOption(x,y,'uy 10');
    4:ChooseOption(x,y,'uy 10');
    end;
   end;
end;

procedure BuyDeathRunes;
begin
  if(FindBitmapToleranceIn(death, x, y, 23, 61, 494, 315, 90)) then
   begin
    wait(200 + random(100));
    Mouse(x, y, 4, 4, false);
    wait(200 + random(100));
    case random(4) of
    1:ChooseOption(x,y,'uy 10');
    2:ChooseOption(x,y,'uy 5');
    3:ChooseOption(x,y,'uy 10');
    4:ChooseOption(x,y,'uy 10');
    end;
   end;
end;

procedure BuyFireRunes;
begin
  if(FindBitmapToleranceIn(Fire, x, y, 23, 61, 494, 315, 90)) then
   begin
    wait(200 + random(100));
    Mouse(x, y, 4, 4, false);
    wait(200 + random(100));
    case random(4) of
    1:ChooseOption(x,y,'uy 10');
    2:ChooseOption(x,y,'uy 5');
    3:ChooseOption(x,y,'uy 10');
    4:ChooseOption(x,y,'uy 10');
    end;
   end;
end;

procedure BuyWaterRunes;
begin
  if(FindBitmapToleranceIn(water, x, y, 23, 61, 494, 315, 90)) then
   begin
    wait(200 + random(100));
    Mouse(x, y, 4, 4, false);
    wait(200 + random(100));
    case random(4) of
    1:ChooseOption(x,y,'uy 10');
    2:ChooseOption(x,y,'uy 5');
    3:ChooseOption(x,y,'uy 10');
    4:ChooseOption(x,y,'uy 10');
    end;
   end;
end;

procedure BuyEarthRunes;
begin
  if(FindBitmapToleranceIn(earth, x, y, 23, 61, 494, 315, 90)) then
   begin
    wait(200 + random(100));
    Mouse(x, y, 4, 4, false);
    wait(200 + random(100));
    case random(4) of
    1:ChooseOption(x,y,'uy 10');
    2:ChooseOption(x,y,'uy 5');
    3:ChooseOption(x,y,'uy 10');
    4:ChooseOption(x,y,'uy 10');
    end;
   end;
end;

procedure BuyMindRunes;
begin
  if(FindBitmapToleranceIn(mind, x, y, 23, 61, 494, 315, 90)) then
   begin
    wait(200 + random(100));
    Mouse(x, y, 4, 4, false);
    wait(200 + random(100));
    case random(4) of
    1:ChooseOption(x,y,'uy 10');
    2:ChooseOption(x,y,'uy 5');
    3:ChooseOption(x,y,'uy 10');
    4:ChooseOption(x,y,'uy 10');
    end;
   end;
end;

procedure BuyBodyRunes;
begin
  if(FindBitmapToleranceIn(body, x, y, 23, 61, 494, 315, 90)) then
   begin
    wait(200 + random(100));
    Mouse(x, y, 4, 4, false);
    wait(200 + random(100));
    case random(4) of
    1:ChooseOption(x,y,'uy 10');
    2:ChooseOption(x,y,'uy 5');
    3:ChooseOption(x,y,'uy 10');
    4:ChooseOption(x,y,'uy 10');
    end;
   end;
end;

procedure BuyingWater;
begin
if(RadioButton2.checked)then
  WhatToBuy:= Water
end;

procedure BuyingEarth;
begin
if(RadioButton5.checked)then
  WhatToBuy:= Earth
end;

Procedure buyingAir;
begin
if(RadioButton1.checked)then
  WhatToBuy:= Air
end;

procedure BuyingFire;
begin
if(RadioButton3.checked)then
  WhatToBuy:= Fire
end;

procedure Buyingchaos;
begin
if(RadioButton7.checked)then
  WhatToBuy:= chaos
end;

procedure BuyingBody;
begin
if(RadioButton4.checked)then
  WhatToBuy:= Body
end;

Procedure BuyingDeath;
begin
if(RadioButton6.checked)then
  WhatToBuy:= Death
end;

Procedure Buyingwhat;
begin
  BuyingWater;
  BuyingEarth;
  BuyingAir;
  BuyingFire;
  BuyingWater;
  Buyingchaos;
  Buyingbody;
  BuyingDeath;
end;

procedure BuyThem;
begin
case WhatToBuy of
  'Air': BuyAirRunes;
  'water': BuywaterRunes;
  'earth': BuyEarthRunes;
  'Fire': BuyFirehRunes;
  'Chaos': BuyChaosRunes;
  'Body': BuybodyRunes;
  'Death': BuyDeathRunes;
end;
end;


procedure AreWeIn;
begin
if(not(LoggedIn))then
  TerminateScript;
end;

procedure SetupScript;
begin
  ActivateClient;
  DisguiseScar('Itunes')
  loadbitmaps;
  Form;
  DeclarePlayers;
  Buyingwhat;
  ActivateClient;
  AreWeIn;
end;

begin
  setupsrl;
  SetupScript;
repeat
  Buythem;
  if(InChat('enough coin')) then NoGP;
  if(InChat('shop'))Then NoRunes;
until(False)
end.

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

Good forum work and all. but its very simple.
YOu also have no mtulitpleryer/antiban/antirandoms.
You also could have made it just 1 buying procedure instead of one for every rune.
Somethign like

Function Rune:Integer;;
BEgin
  case WhatToBuy of
    'Air': Result:=Air;
    'water': Result:=water;
    'earth': Result:=earth;
    'Fire': Result:=Fire
    'Chaos': Result:=Chaos
    'Body': Result:=Air;
    'Death': Result:=Death;
  End;
End;

 if(FindBitmapToleranceIn(Rune, x, y, MSX1, MSY1, MSX2, MSY2, 30)) then
ect ect.

In my opinion, you need to learn more scar techniques like multiplyer, antiban, antirandoms. And i also think that a rune buyer is too simple to get into members with.
Youv got a good start though, hope to see more from you later.

It has Antirandoms and also do i need antiban for being out of the shop for what 10 seconds. and also multiplayer I would have to add find (insert your favorite rune shop here) finder and i would have to do so many different shops it would take so long. I understand it's not the best but I know what needs to be fixed and how do do it. It's a matter of time more then anything.
Thanks anyway

There are only 2 different Rune shops in the f2p world…
Script is pretty simple =\ I remember when I tried applying with a rune buying script :p Sorry, but its a no, for all the reasons that YoHoJo pointed out.

Just out of curiosity what did you guys make it in with?
I'm a members so i didn't remember what shops are where. Would guess your army's aren't all members tho..

I made it in with a fighter. Maybe you can try combining your rune buyer and arrow buyer, add a responder and stuff then apply again. You could try make it bank runes every 1k you buy just in case you die or something…just an idea.