SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
His infernal Majesty - SRL Member Application Form
His infernal Majesty

What is the meaning to life?


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


Programming Knowledge
not alot

Other Communitys
www.sythe.com,www.moparisthebest.com

How Long have You Played Runescape
2 years

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

Hi everyone,Am His infernal Majisty AS obvious:P,now that i have learned many functions at scar and so on.. i decied to register at Srl memebers hoping i would help developing it or what so ever:),i was trying to learn some Java,but still sox ther :D..,i made several woodcutter that stop at lvl 30 when cutting oaks:P, now i'v created an auto high alcher called THE Alchemist,i liked the boarder i did:)where i used some silly functions:P:P,i hope i get more advanced ,and hopeu vote for me:D

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

{                                                     HIS INFERNAL MAJESTY!
                                                      ----------------------
*Setup*:-only run,Dont touch any part of the script.
        -Runs only with Non Divi scar.(exv.2.03)
        -stop script by pressing Alt+f4
*description*:-Will high alches Every note in inventoryn XD.
---->Enjoy it! xD
--------------------------------------------------------------------------}

program Alchemist;
{.include SRL/SRL.scar}
var
  Count, ux, uy, Notes: Integer;
  AntiBanFeature: Boolean;
  frmDesign: TForm;
  Label1, Label2, Label3: TLabel;
  CheckBox1: TCheckBox;
  Edit1: TEdit;
  Button1, Button2: TButton;

procedure StartButtonClick(sender: TObject);
begin
  FrmDesign.Caption := frmDesign.Caption + '.';
  FrmDesign.ModalResult := mrOk;
end;

procedure CancelButtonClick(sender: TObject);
begin
  FrmDesign.Caption := frmDesign.Caption + '.';
  FrmDesign.ModalResult := mrOk;
  Terminatescript;
end;

procedure InitForm;
begin
  FrmDesign := CreateForm;
  FrmDesign.Left := 400;
  FrmDesign.Top := 75;
  FrmDesign.BorderStyle := bsSingle;
  FrmDesign.Caption := 'His'#39'infernal majesty';
  FrmDesign.ClientHeight := 140;
  FrmDesign.ClientWidth := 900;
  FrmDesign.Color := clBlue;
  FrmDesign.Font.Color := clWindowText;
  FrmDesign.Font.Height := -11;
  FrmDesign.Font.Name := 'MS Sans Serif';
  FrmDesign.Font.Style := [];
  FrmDesign.Visible := False;
  FrmDesign.PixelsPerInch := 96;
  Label1 := TLabel.Create(frmDesign);
  Label1.Parent := frmDesign;
  Label1.Left := 66;
  Label1.Top := 4;
  Label1.Width := 178;
  Label1.Height := 37;
  Label1.Caption := 'The Alchemist';
  Label1.Font.Color := clWhite;
  Label1.Font.Height := -32;
  Label1.Font.Name := 'MS Sans Serif';
  Label1.Font.Style := [fsBold];
  Label1.ParentFont := False;
  Label2 := TLabel.Create(frmDesign);
  Label2.Parent := frmDesign;
  Label2.Left := 124;
  Label2.Top := 40;
  Label2.Width := 64;
  Label2.Height := 20;
  Label2.Caption := 'By HIs iNfernal majesty ';
  Label2.Font.Color := clYellow;
  Label2.Font.Height := -16;
  Label2.Font.Name := 'MS Sans Serif';
  Label2.Font.Style := [fsBold];
  Label2.ParentFont := False;
  Label3 := TLabel.Create(frmDesign);
  Label3.Parent := frmDesign;
  Label3.Left := 10;
  Label3.Top := 71;
  Label3.Width := 84;
  Label3.Height := 13;
  Label3.Caption := 'How many Notes?';
  CheckBox1 := TCheckBox.Create(frmDesign);
  CheckBox1.Parent := frmDesign;
  CheckBox1.Left := 10;
  CheckBox1.Top := 92;
  CheckBox1.Width := 97;
  CheckBox1.Height := 17;
  CheckBox1.Caption := 'Anti-ban right?';
  CheckBox1.Checked := True;
  CheckBox1.State := cbChecked;
  CheckBox1.TabOrder := 8;
  Edit1 := TEdit.Create(frmDesign);
  Edit1.Parent := frmDesign;
  Edit1.Left := 103;
  Edit1.Top := 68;
  Edit1.Width := 121;
  Edit1.Height := 21;
  Edit1.TabOrder := 9;
  Edit1.Text := LoadSetting('HIs infernal Majesty','Notes');
  Button1 := TButton.Create(frmDesign);
  Button1.Parent := frmDesign;
  Button1.OnClick := @StartButtonClick;
  Button1.Left := 102;
  Button1.Top := 108;
  Button1.Width := 124;
  Button1.Height := 26;
  Button1.Caption := 'Start script?';
  Button1.TabOrder := 10;
  Button2 := TButton.Create(frmDesign);
  Button2.Parent := frmDesign;
  Button2.OnClick := @CancelButtonClick;
  Button2.Left := 283;
  Button2.Top := 0;
  Button2.Width := 31;
  Button2.Height := 15;
  Button2.Caption := 'Leave';
  Button2.TabOrder := 11;
end;

procedure SafeInitForm;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('InitForm', v);
end;

procedure ShowFormModal;
begin
  frmDesign.ShowModal;
end;

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

procedure SetupAll;
begin
  Notes := StrToInt(Edit1.Text);
  if (CheckBox1.State = cbChecked) then
  begin
    AntiBanFeature := true;
  end else ;
  if not (CheckBox1.State = cbChecked) then
  begin
    AntiBanFeature := false;
  end;
  SaveSetting('His infernal majesty', 'Notes', Edit1.Text);
end;

procedure MagicTab;
begin
  if (not (GetColor(733, 177) = 2829182)) then
    Mouse(730, 179, 19, 22, true);
end;

function Click(What: string): boolean;
begin
  repeat
    if (What = 'Alch') then
    begin
      MMouse(711, 325, 20, 18);
    end else
      MMouse(569, 213, 31, 31);
    Wait(50 + Random(79));
  until (ReadUpText('Cast'))
    Wait(Random(27));
  GetMousePos(ux, uy);
  Mouse(ux, uy, 0, 0, true);
  Result := true;
end;

procedure Randoms;
var SafeBan: Integer;
begin
  FindNormalRandoms;
  if (AntiBanFeature) then
  begin
    SafeBan := Random(100);
    case SafeBan of
      1: RotateEvery(10 + Random(2));
      2: RandomRClickEvery(5 + Random(6));
      3: LeaveScreenEvery(8 + Random(9));
      4: HoverSkill('Magic', false);
      5: PickUpMouseEvery(2 + Random(4));
      6: WWait(5400 + Random(1500));
      7: PickUpMouse;
      8: AlmostLogout;
      9: BoredEvery(10 + Random(2));
    end;
  end;
end;

begin
  ActivateClient;
  SetupSRL;
  SafeInitForm;
  SafeShowFormModal;
  SetupAll;
  DisguiseScar('Windows Live messenger');
  MagicTab;
  Randoms;
  Status('alchemisting :)');
  repeat
    Click('Alch');
    Randoms;
    Click('Note');
    Count := Count + 1;
    Wait(1290 + random(200));
  until (Count >= Notes)
    Randoms;
  Status('Finish');
  Logout;
end.

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

too simple. Make a more complex script. Alchers are not actually usually scripts which get people in. try making a good powerminer, fisher or something like that.
Try again when you feel ready and more experienced.

:(just apreciae my work atleast:(

i post my woodcutter?but i feel this 1 is better for that!idk..

I appreciate ur work, but youre not ready :)

ok.lets just here some extra good votes.

by the way, did u try it out?b

i wish you ppl vote positive , and appreciate my work,thx nice souls.:)

Please do not double/triple post.
SILLY GOOSE
http://www.fagex.net/showthread.php?t=40003
http://www.scar-scripts.com/view/858

Coppying scripts is deeply frowned upon at SRL.

OMFG!.
You are himlol…
We are gonna proly IP ban you now…

2 Copied Apps,
2 Blank apps
Multiple accounts.
Tisk Tsik

From: His infernal Majesty
:(just apreciae my work atleast:(

Your work…? Ye, right.

From: His infernal Majesty
i wish you ppl vote positive , and appreciate my work,thx nice souls.:)

your your your….

From: His infernal Majesty
i post my woodcutter?but i feel this 1 is better for that!idk..

And who's that woodcutter would be? I guess it would be someone else's work again.
With the work you have done here should make you banned…

I'm sorry if this is off-topic, but I haven't seen any home-made scripts in all of the 8 appliances I've looked at so far…=/. Ah well, that's a no from me.

-Dunceiam

Obviously it's a no from me.

The applications used to be so much more honest :(

From: Dunceiam
I'm sorry if this is off-topic, but I haven't seen any home-made scripts in all of the 8 appliances I've looked at so far…=/. Ah well, that's a no from me.

-Dunceiam

Yup….just rejoice when u see an original that's actually remotely good lol.

When somebody goes to apply, there should be something that pops up (like when you get a new pm) that says:

"Do not try to copy somebody else's script and claim it to be yours! We have a LOT of people who will bust you! And please don't post a blank app, if you do, you will be Automatically Declined!