SRL Archive - Archive

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

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
yes
from scar-scripts.com

Programming Knowledge
Delphi

Other Communitys
scar-scripts.com

How Long have You Played Runescape
3 years

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

ok, im 15 i have been autoing for about a year mainly using scar-scripts.com because there very useful for learning, i also am great at making GIF animations and runescape cartoons with real rs figs, i am classed pritty low on this site because i use scar-scripts my name on that is takeout aswell believe it or not as addy officer if that helps

heres some of my work

and by scar only you mean no SRL?

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

program HighAlcher;
{.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 := 351;
FrmDesign.Top := 70;
FrmDesign.BorderStyle := bsSingle;
FrmDesign.Caption := 'Jen'#39's High Alcher 1.2';
FrmDesign.ClientHeight := 140;
FrmDesign.ClientWidth := 316;
FrmDesign.Color := clGreen;
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 := 'High Alcher';
Label1.Font.Color := clYellow;
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 Jens';
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 := 'Number of notes :';
CheckBox1 := TCheckBox.Create(frmDesign);
CheckBox1.Parent := frmDesign;
CheckBox1.Left := 10;
CheckBox1.Top := 92;
CheckBox1.Width := 97;
CheckBox1.Height := 17;
CheckBox1.Caption := 'Use Anti-Ban?';
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('JensHighAlcher','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 Alching!';
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 := 'Exit';
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('JensHighAlcher', '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('iTunes');
MagicTab;
Randoms;
Status('Alching…');
repeat
Click('Alch');
Randoms;
Click('Note');
Count := Count + 1;
Wait(1290 + random(200));
until (Count >= Notes)
Randoms;
Status('Done Alching');
Logout;
end.

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

http://www.scar-scripts.com/view/858
…

SaveSetting('JensHighAlcher', 'Notes', Edit1.Text);

I understand your frustration at wanting to become a member and being denied…. http://www.villavu.com/forum/showthread.php?t=12062?t=13418

But applying with other people's scripts is no excuse…

Please try again in 90 days with an Original script from you…

..and be glad this isn't a banable offense…..yet

~RAM


:f:http://www.villavu.com/forum/showthread.php?t=16284?p=198421#post198421 :f:

I hope you get banned.

Never copy scripts, ever, that aren't yours. :X