SRL Archive - Archive

How Long have You Played Runescape?
5 Year(s)


Are you affilated in anyway with Jagex LTD?
No

Were you Referred to SRL?
Was not referred


What is your general programming knowledge?
SCAR/SRL, MSL (MIRC), and i can probobly make a basic HTML code if i had too


Are you a member of any other communities?
Freddy1990, RS-Hacking


Tell us about yourself…

From: akwardsaw
Im a freshman in Highschool, play all 3 seasons in sports. I played second string center for the JV football team, varsity wrestling, got to state, and currently a varsity thrower in track ( shotput and disk)

on my free time i play rs, work out, chill with friends, and script/ learn different scripting methods and uses.

Please give show us one of your scripts.

Here is my Akward Auto Alcher:

[scar]program AAAlcher;
{.include SRL\SRL\Misc\Smart.scar}
{.include SRL/SRL.scar}


//thanks to superbatman, for solving two bugs that i couldnt figure out



var
  frmDesign : TForm;
  Label1 : TLabel;
  Label2 : TLabel;
  Label3 : TLabel;
  Label4 : TLabel;
  Label5 : TLabel;
  Label6 : TLabel;
  Label7 : TLabel;
  Label8 : TLabel;
  Label9 : TLabel;
  Label10 : TLabel;
  Label11 : TLabel;
  Label12 : TLabel;
  Label13 : TLabel;
  Button1 : TButton;
  UserEdit : TEdit;
  PassEdit : TEdit;
  NickEdit : TEdit;
  STEdit : TEdit;
  SFEdit : TEdit;
  AlchEdit : TEdit;
  SrlIdEdit : TEdit;
  SrlPEdit : TEdit;
  smartedit : TEdit;
  AntiBEdit : TEdit;
  HAedit : TEdit;
  SleepEdit : TEdit;
  SrlIdName, SrlPass, SmartB, AntiBanB, AlchB, SleepB: string;
  Username, Password, Alchs, Nick, SleepT, SleepF: string;
  SRL_Time, Counter, exp, SleepN, x, y, R, RG, C : integer;

procedure prog; forward;


procedure StartClick(sender: TObject);
begin
  Writeln('Get Ready To Alch!');
  frmDesign.ModalResult:= mrOk; // Closes the form
  Username := UserEdit.Text;//
  Password := PassEdit.Text;//
  Nick := NickEdit.Text;//
  Alchs := AlchEdit.Text;//
  SleepT := STEdit.Text;//
  SleepF := SFEdit.text;//
  SrlIdName := SrlIdEdit.Text;//
  SrlPass := SrlPEdit.Text;//
  SmartB := smartedit.Text;//
  AntiBanB := AntiBEdit.Text;//
  AlchB := HAedit.Text;//
  SleepB := SleepEdit.Text;
  WriteLn('Username = ' + Username);
end;

procedure InitForm;
begin
  ///////////////// Generated from: AAA form.dfm
frmDesign := CreateForm;
frmDesign.Left := 250;
frmDesign.Top := 114;
frmDesign.Width := 379;
frmDesign.Height := 259;
frmDesign.Caption := 'frmDesign';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.ShowHint := True;
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 24;
Label1.Top := 48;
Label1.Width := 53;
Label1.Height := 13;
Label1.Caption := 'User Name';
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 24;
Label2.Top := 72;
Label2.Width := 46;
Label2.Height := 13;
Label2.Caption := 'Password';
Label3 := TLabel.Create(frmDesign);
Label3.Parent := frmDesign;
Label3.Left := 64;
Label3.Top := 0;
Label3.Width := 232;
Label3.Height := 29;
Label3.Caption := 'Awkward Auto Alcher:';
Label3.Font.Color := clMaroon;
Label3.Font.Height := -24;
Label3.Font.Name := 'MS Sans Serif';
Label3.Font.Style := [];
Label3.ParentFont := False;
Label4 := TLabel.Create(frmDesign);
Label4.Parent := frmDesign;
Label4.Left := 184;
Label4.Top := 96;
Label4.Width := 26;
Label4.Height := 13;
Label4.Caption := 'Alchs';
Label5 := TLabel.Create(frmDesign);
Label5.Parent := frmDesign;
Label5.Left := 184;
Label5.Top := 48;
Label5.Width := 53;
Label5.Height := 13;
Label5.Caption := 'Sleep Time';
Label6 := TLabel.Create(frmDesign);
Label6.Parent := frmDesign;
Label6.Left := 24;
Label6.Top := 96;
Label6.Width := 22;
Label6.Height := 13;
Label6.Caption := 'Nick';
Label7 := TLabel.Create(frmDesign);
Label7.Parent := frmDesign;
Label7.Left := 184;
Label7.Top := 72;
Label7.Width := 45;
Label7.Height := 13;
Label7.Caption := 'Sleep For';
Label8 := TLabel.Create(frmDesign);
Label8.Parent := frmDesign;
Label8.Left := 24;
Label8.Top := 120;
Label8.Width := 35;
Label8.Height := 13;
Label8.Caption := 'SRL ID';
Label9 := TLabel.Create(frmDesign);
Label9.Parent := frmDesign;
Label9.Left := 184;
Label9.Top := 120;
Label9.Width := 69;
Label9.Height := 13;
Label9.Caption := 'SRL password';
Label10 := TLabel.Create(frmDesign);
Label10.Parent := frmDesign;
Label10.Left := 24;
Label10.Top := 144;
Label10.Width := 33;
Label10.Height := 13;
Label10.Caption := 'Smart?';
Label11 := TLabel.Create(frmDesign);
Label11.Parent := frmDesign;
Label11.Left := 184;
Label11.Top := 144;
Label11.Width := 46;
Label11.Height := 13;
Label11.Caption := 'Anti Ban?';
Label12 := TLabel.Create(frmDesign);
Label12.Parent := frmDesign;
Label12.Left := 24;
Label12.Top := 168;
Label12.Width := 46;
Label12.Height := 13;
Label12.Caption := 'High Alch';
Label13 := TLabel.Create(frmDesign);
Label13.Parent := frmDesign;
Label13.Left := 184;
Label13.Top := 168;
Label13.Width := 27;
Label13.Height := 13;
Label13.Caption := 'Sleep';
Button1 := TButton.Create(frmDesign);
Button1.Parent := frmDesign;
Button1.Left := 112;
Button1.Top := 192;
Button1.Width := 145;
Button1.Height := 25;
Button1.Caption := 'Start';
Button1.TabOrder := 8;
Button1.OnClick := @StartClick;
UserEdit := TEdit.Create(frmDesign);
UserEdit.Parent := frmDesign;
UserEdit.Left := 80;
UserEdit.Top := 48;
UserEdit.Width := 97;
UserEdit.Height := 21;
UserEdit.TabOrder := 9;
PassEdit := TEdit.Create(frmDesign);
PassEdit.Parent := frmDesign;
PassEdit.Left := 80;
PassEdit.Top := 72;
PassEdit.Width := 97;
PassEdit.Height := 21;
PassEdit.TabOrder := 10;
PassEdit.passwordchar := '*';
NickEdit := TEdit.Create(frmDesign);
NickEdit.Parent := frmDesign;
NickEdit.Left := 80;
NickEdit.Top := 96;
NickEdit.Width := 97;
NickEdit.Height := 21;
NickEdit.TabOrder := 11;
STEdit := TEdit.Create(frmDesign);
STEdit.Parent := frmDesign;
STEdit.Left := 240;
STEdit.Top := 48;
STEdit.Width := 97;
STEdit.Height := 21;
STEdit.TabOrder := 12;
SFEdit := TEdit.Create(frmDesign);
SFEdit.Parent := frmDesign;
SFEdit.Left := 240;
SFEdit.Top := 72;
SFEdit.Width := 97;
SFEdit.Height := 21;
SFEdit.TabOrder := 13;
AlchEdit := TEdit.Create(frmDesign);
AlchEdit.Parent := frmDesign;
AlchEdit.Left := 240;
AlchEdit.Top := 96;
AlchEdit.Width := 97;
AlchEdit.Height := 21;
AlchEdit.TabOrder := 14;
SrlIdEdit := TEdit.Create(frmDesign);
SrlIdEdit.Parent := frmDesign;
SrlIdEdit.Left := 80;
SrlIdEdit.Top := 120;
SrlIdEdit.Width := 97;
SrlIdEdit.Height := 21;
SrlIdEdit.TabOrder := 15;
SrlPEdit := TEdit.Create(frmDesign);
SrlPEdit.Parent := frmDesign;
SrlPEdit.Left := 264;
SrlPEdit.Top := 120;
SrlPEdit.Width := 73;
SrlPEdit.Height := 21;
SrlPEdit.TabOrder := 16;
SrlPEdit.passwordchar := '*';
smartedit := TEdit.Create(frmDesign);
smartedit.Parent := frmDesign;
smartedit.Left := 80;
smartedit.Top := 144;
smartedit.Width := 97;
smartedit.Height := 21;
smartedit.TabOrder := 17;
smartedit.Text := 'True';
AntiBEdit := TEdit.Create(frmDesign);
AntiBEdit.Parent := frmDesign;
AntiBEdit.Left := 240;
AntiBEdit.Top := 144;
AntiBEdit.Width := 97;
AntiBEdit.Height := 21;
AntiBEdit.TabOrder := 18;
AntiBEdit.Text := 'True';
HAedit := TEdit.Create(frmDesign);
HAedit.Parent := frmDesign;
HAedit.Left := 80;
HAedit.Top := 168;
HAedit.Width := 97;
HAedit.Height := 21;
HAedit.TabOrder := 19;
HAedit.Text := 'True';
SleepEdit := TEdit.Create(frmDesign);
SleepEdit.Parent := frmDesign;
SleepEdit.Left := 240;
SleepEdit.Top := 168;
SleepEdit.Width := 97;
SleepEdit.Height := 21;
SleepEdit.TabOrder := 20;
SleepEdit.Text := 'True';
end;

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

  Players[0].Name := Username;
  Players[0].Pass := Password;
  Players[0].Nick := Nick;
  Players[0].Active := True;
  Players[0].BoxRewards := 'XP';
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 AkwardAntiBan;
var
  abc : integer;
begin
  if AntiBanB = 'True' then
  begin
    if (not(LoggedIn))then LoginPlayer;
      abc := 0;
      repeat
        for R := 300 to 500 do
        for RG := 1 to 6 do
        case Random(50) of
          0:begin
              inc(abc);
              writeln('anti ban 1');
              HoverSkill('Magic', False);
              wait(100 + random(R));
              HoverSkill('Range', False);
              SleepAndMoveMouse(600 + random(400));
           end;
         1:begin
             inc(abc);
             writeln('anti ban 2');
             Gametab(RG);
             wait(R + random (R));
             GameTab(7);
           end;
         2:begin
             inc(abc);
             writeln('anti ban 3');
             PickUpMouse;
             wait(R + random (r));
             PickUpMouse;
             wait(R + random (r));
           end;
      //3: begin
           //inc(abc);
           //writeln('anti ban 4');
           //SayCurrentLevels('Magic');
         //end;
        4: begin
             inc(abc);
             writeln('anti ban 5');
             MakeCompass('S');
             Wait(R + random(R));
             MakeCompass('N');
             Wait(R + random(R));
           end;
    end;
      until abc = 1;
  end else
  begin
    writeln('what the Hell? you`r not using antiban?!?!?!?');
    wait(1000);
    writeln('have fun being banned...');
  end;
end;

procedure sleeps;
begin
  if SleepB = 'True' then
  begin
    if TimeFromMark(SRL_Time) > ((strtoint(SleepT) + Random(10)) * 60000) then
    begin
      Writeln('Sleeping...');
      Logout;
      Wait(((strtoint(SleepF))) * 60000);
      LoginPlayer;
      SRL_Time := 0;
      SleepN := SleepN + 1;
      ReportVars[2] := ReportVars[2] + 1;
      SrlRandomsReport;
      SetAngle(True);
    end;
  end;
end;

function findtabs: Boolean;
begin
  wait(500);
  if (TabExists(4) = true) and (TabExists(7) = true) then
  begin
    result := true;
  end else
  begin
    Writeln('One of the tabs does not show up, waiting.');
    Result := false;
    wait(10000);
    if (TabExists(4) = true) and (TabExists(7) = true) then
    begin
      result := true;
      writeln('nevermind! they are up now, going on');
    end else
    begin
      Result := False;
      writeln('well, your out of luck, the tabs arent showing up, terminating');
      Terminatescript;
    end;
  end;
end;

function findspell(HighAlch: boolean): boolean;
var
  x, y, HAlchDTM, LAlchDTM: integer;
begin
  HAlchDTM := DTMFromString('78DA63B46662604860644006BFBEF18069982' +
       '8A31D504D04AA1A982C5C8D03116A9C816A5209A83102AA4922A0' +
       'C61EA82604BF1A004F1D05B8');
  findtabs;
  GameTab(7);
  wait(500);
  if HighAlch = True then
  begin
    if  FindDTM(HAlchDTM, x, y, 559, 336, 583, 360) then
    begin
      FreeDTM(HAlchDTM);
      result := True;
    end else
    begin
      writeln('High Alch was not found, terminating');
      Result := False;
      Wait(10000);
      if findcolortolerance(x , y, 84658, 559, 336, 583, 360, 20)then
      begin
        writeln('never mind, lucky bastard');
        FreeDTM(HAlchDTM);
        result := True;
      end else
      begin
        writeln('yep, your screwed. terminating');
        terminatescript;
      end;
    end;
  end else
  begin
   LAlchDTM := DTMFromString('78DA633CC1C4C0C0C0C8800C7E7DE301D3305' +
       '1C68B4035FF509430181C3440557319D31C181FAEE60CA639186A' +
       '4076FD24A0E608500D0B7EBB00F5980B03');


    if  FindDTM(LAlchDTM, x, y, 706, 242, 726, 261) then
    begin
      result := True;
    end else
    begin
      writeln('Low Alch was not found, terminating');
      Result := False;
      Wait(10000);
    end;
    if findcolortolerance(x ,y, 84658, 706, 242, 726, 261, 20)then
    begin
      writeln('Never Mind! Low Alch was found, going on');
      result := True;
    end else
    begin
      writeln('Low Alch was not found, terminating');
      Result := False;
    end;
  end;
end;

procedure clickspell;
begin
  if findspell(strtobool(AlchB)) then
  begin
    writeln('changing coords');
    mousebox(563, 339, 582, 349, 3);
    getmousepos(x, y);
  end else
  begin
    mmouse(717, 253, 6, 6);
    GetMousePos(x, y);
  end;
  if (IsUpText('ast')) then
  begin
    c := 0;
    repeat
      begin
        findspell(strtobool(AlchB))
        writeln('clicked spell #' + inttostr(c));
        mouse(x, y, 0, 0, true);
        wait(150 + random (200));
        mouse(x, y, 0, 0, true);
        wait(2000 + random (100));
        inc(c);
        Counter := counter + 1;
        exp:= exp + 65;
        ReportVars[0] := ReportVars[0] + 1;
        ReportVars[1] := ReportVars[1] + 65;
        SrlRandomsReport;
        sleeps;
      end;
    until (c = 100 + random (50));
    cleardebug;
    prog;
    AkwardAntiBan;
  end;
end;


procedure alch;
begin
  Writeln('starting alching');
  repeat
    begin
      clickspell;
    end;
  until strtoint(alchs) = counter
end;

procedure prog;
begin
  writeln(' ');
  writeln('Akwardsaw says "Thanks for using my Auto Alcher! Please post your proggy!');
  writeln(' ');
  writeln('Or, you can pm it to me on villavu.com or email at [email]akardsaw@yahoo.com[/email]!"');
  writeln('--------------------------------------');
  writeln('While running for: ' + TimeRunning);
  writeln('And alching: ' + IntToStr(Counter) + ' Things,');
  writeln('You have gained a whopping ' +  IntToStr(exp) + ' Exp!');
  writeln('you have slept ' + InttoStr(SleepN) + ' times');
  writeln('--------------------------------------');
  writeln(' ');
  writeln('Do you have a question? Do you have a concern?');
  writeln(' ');
  writeln('Or do you just want to tell me how awesome I am?');
  writeln(' ');
  writeln('Then pm me on the forums, or e-mail me at [email]akardsaw@yahoo.com[/email]');
end;

procedure ScriptTerminate;
begin
  prog;
end;

procedure MySmartSetup;
begin
  if SmartB = 'True' then
  begin
    writeln('setting up smart');
    SMARTSetupEx(100, True, True, False);
    SetTargetDC(SMARTGetDC);
  end else
  begin
    writeln('Not using smart eh? well your not too smart your self');
    wait(500);
    writeln('but then again your using this script, so heres a cookie!');
  end;
end;

begin
  SetUpSRL;
  SafeInitForm;
  SafeShowFormModal;
  SRLID := SrlIdName;
  SRLPassword := SrlPass;
  ScriptID := '1207';
  mousespeed := 7;
  MySmartSetup;
  DeclarePlayers;
  LogInPlayer;
  MarkTime(SRL_Time);
  ClearDebug;
  alch;
end.

and this is a small script i made to cover stuff i didnt with my alcher ( multi player, map walking, anti randoms ).

this is a Lumby - draynor walker. if you want to test, start in lumby square and hit run. it will go to draynor bank

program L2DWalker;
{.include SRL\SRL.scar}
var
  x, y : integer;

procedure DeclarePlayers;
begin
  HowManyPlayers := 1; //Amount of Characters using
  NumberOfPlayers(HowManyPlayers); //Don't touch
  CurrentPlayer := 0; //Player to start with (eg. Players[0] = 0)

  Players[0].Name := ''; //Username
  Players[0].Pass := ''; //Password
  Players[0].Nick := ''; //3-4 small letters of the username
  Players[0].Active := True; //Using Character? True = yes; False = no
  {Players[1].Name := ''; //Username
  Players[1].Pass := ''; //Password
  Players[1].Nick := ''; //3-4 small letters of the username
  Players[1].Active := True; //Using Character? True = yes; False = no}
end;




procedure NextPlayerP;
begin
  writeln('Could Not Find Color, Next Player');
  Players[CurrentPlayer].Active := False; // Set your player to false!!
  Players[CurrentPlayer].Loc := 'Walking to there';
  LogOut; // Log him out!!
  NextPlayer(Players[CurrentPlayer].Active);
end;

procedure AR;
var
  i: integer;
begin
  if not loggedin then exit;
  for i:= 0 to 3 do
    begin
      case i of
        0: FindMod;
        1: FindDead;
        2: if nogametab then NextPlayerP;
      end;
    end;
end;

procedure Walk;
begin
  if not RadialRoadWalk(FindLumbyRoadColor,40,90,90, 1,1) then exit;
  AR;
  if not RadialRoadWalk(FindLumbyRoadColor,300, 370,90, 1,1) then exit;
  AR;
  if not RadialRoadWalk(FindLumbyRoadColor,270,340,90, 1,1)then exit;
  AR;
  writeln('got out of lumby');
  wait(200);
  if not RadialRoadWalk(FindDirtRoadColor,180,290,90, 1, 1)then exit;
  AR;
  if not RadialRoadWalk(FindDirtRoadColor,180,290,90, 1,1)then exit;
  AR;
  if not RadialRoadWalk(FindDirtRoadColor,180,290,90, 1,1)then exit;
  AR;
  if not RadialRoadWalk(FindDirtRoadColor,180,290,90, 1,1)then exit;
  AR;
  if not RadialRoadWalk(FindDirtRoadColor,180,290,90, 1,1)then exit;
  AR;
  writeln('got to draynor');
  wait(200);
  if not RadialRoadWalk(FindRoadColor,270,340,90, 1,1)then exit;
  AR;
  if not RadialRoadWalk(FindRoadColor,270,340,90, 1,1)then exit;
  AR;
  if FindSymbol(x, y, 'Bank') then mouse(x, y, 4, 4, true) else exit;
  writeln('woot, got to draynor bank =D');
end;

begin
  SetUpSRL;
  DeclarePlayers;
  Walk;
  NextPlayerP;
  walk;
end.

Hi.

writeln('anti ban 1');
HoverSkill('Magic', False);
wait(100 + random(R));
HoverSkill('Range', False);

Why hover both skills in the same order each time?

end else
begin
writeln('what the Hell? you`r not using antiban?!?!?!?');
wait(1000);
writeln('have fun being banned…');
end;

Unnecessary. That will cause a large amount of spam.
Edit: Also, did you know you can use two ' symbols to have WriteLn accept it as only one ' ? It looks much more professional than a ` symbol.

SleepN := SleepN + 1;
ReportVars[2] := ReportVars[2] + 1;

To save space, and compiling speed, you can replace it with Inc(Var); or IncEx(var,Times_to_increase);.

writeln('Not using smart eh? well your not too smart your self');

I lol'd, a lot of people I know do not use SMART as it can be slow at times, and a pain to setup.

Your standards are a bit off on your form.


I suck at stating what someone did "good", I am only good at pointing out flaws. But besides the things I mentioned, including a few misspellings and poor standards in just a few places, it looks nice.

And as I state on all applications, I do not usually vote. I will leave it up to the other members.

Best of luck.
~ Harry

Other than what Harry already said, you should look more into failsafe's.

Instead of just stopping if it messes up, why not try to make it fix itself?

I can see you know some basics but I dont think your quite ready yet.

No this time.

Maybe next time. Sorry, I agree with Harry.

For great looking form code, check out Ron's Form Parser.. I think its in SRL now.

Global variables are a no-no! Use them sparingly please.

Nice form :)

Pretty simply object finding…FindColorTolerance, etc. Try not to use TerminateScript as a failsafe.

Memory leaks! You don't free LAlchDTM and HAlchDTM isn't freed in all cases.

Nothing to say about your second script. Just a bunch of RRWs without failsafes.

Pretty simple scripts, but I like your attitude. Stick around and learn some more and you may just get in.

No. :(

I disagree with Harry on using Inc/IncEx - compiling and running time difference is minuscule to the point where it's unimportant unless you run it a few hundred times in a row.

With your form, same type variables can be placed in a comma separated list with ": Type;" on the end and using descriptive names for the labels would be nice. That little change makes the variable section much cleaner and shorter.

One option that may be worth looking into would be to hold your TEdit's in an array as well as the user information strings (nick, pass etc.) so that you could just loop through all the TEdit's and copy the data across using a for loop, ie

  for i := 0 to High(edtData) do
    strData[i] := edtData[i].text;

It may look harder to read at first, but with a bit of commenting it becomes concise and cuts down on repetitive code. Both ways are fine though as far as I'm concerned.

You may want to revise your anti-ban - if you read through it, then it loops through R 201 times and then RG 6 times per those 201, resulting in 1201 loops through the Random(50). The Random(50) has an 8% chance to go off, but an 8% chance that happens 1201 times gives the opportunity for quite a high anti-ban chance. Not only that, but you don't break or anything like that after performing the anti-ban, so you could end up running some hundred anti-ban's in a row! Lastly, as you make it repeat until it runs an anti-ban, the whole loop system is pointless and you may as well just use a case with Random(5); then having options for 0 - 4.

In several parts of the form script, you compare collected variables to things like 'true' or convert to an int, where that should have been done earlier using StrToBoolEx, StrToIntEx etc. and you should use the …Ex versions of them in other bits so it won't crash if an invalid string is supplied ie 'meow' trying to be converted to a boolean).

You don't need to put "if (x = true) then" if it is a boolean - you can just do "if (x) then" or if you want to do "if (x = false) then" you can use "if (not x) then".

There's a few other things, but those above were the main ones.
In your walking script, you don't actually use random finding - only mod finding, checking if you're dead and if no game tabs are present.

A few failsafes would also be quite nice in the walking - extending the start and end positions and the like are simple ways to stop if failing and can sometimes save it from having to crash. Using minimap icon finding or D/DTM's as backups are nice as well as they can be used quite reliably when radial walking cannot.

Lastly, since your main loop doesn't have a loop, it can only walk two players at most, rather than as many as the user wants. That means that it isn't actually multiplayer in the generally used sense and just that it supports more than one user.

No from me.
Why? Things stated before and no failsafes in walking, no TPA's, no DDTM's.

I think this is a very very simple script made a very very hard way.
procedure AR; is useless, just use FindNormalRandoms instead.

Also the number of lines u use to your antiban procedure is not comparative to the chance you'll get banned. This is what i am using and its just fine.

procedure AntiBan;
begin
 case random(10) of
  0: Gametab(1+random(13));
  1: hoverskill('random', false);
  2: autotalk;
  3: begin
      MakeCompass(IntToStr(random(361)));
      SleepAndMoveMouse(1000+random(500));
      MakeCompass(IntToStr(random(361)));
     end;
 end;
end;

procedure NextPlayerP; //fixed your procedure
begin
  writeln('Could Not Find Color, Next Player');
  Players[CurrentPlayer].Loc := 'Walking to there';
  NextPlayer(false);
end;

You seem to have made your walkingscript because you read that Radialwalk is necessary to become a member? Well, thats not. I got in without any walking.
Walking without failsafes is like russian roulette.

I don't find your script advanced enough. It's a no. Better luck next time!

Hints:
- TPA. Even if you didn't use object finding, using TPAs shows that you know stuff
- Less writeln
- Multiplayer for unlimited players

Not advanced enough…

To much on a simple task tbh.

Sorry, Try again in a month with a bigger task then alching and i'm sure you get it ;)

Note: Take this feedback, and work on it.
If you need help, add my msn - [email]N_1_c_e@hotmail.com[/email]

omg, wow. thanks for the feed back :) its so much better than the stuff i get posting in the srl junior scripts.

@ harry: for the hovering over the same skills, i tried random and it didn't really work, so i just did those, and when i added those var := var + 1 it was really late and i forgot about inc(var), thanks though :) and yes, i did that smart thing as a joke, that's why i put the writeln after it

@ NCDS i will add failsafes right now =p honestly, i thought that gametab, and mousebox, and the isuptext was good enough

@ nava i'll check it out :)

@ lordsaturn fixing them variables right now. and thanks, although it could and will be better next version. and sorry for the memory leaks :( must have gotten rid of them when i changed around the procedure. and yes, i made the walking script in about 5 min by just using the rs world map and testing it twice, so i will add in more failsafes, since im planning on using it later for a script i'm planning on making. and I'll fix the main loop in a little bit

edit for lord: you must have looked over the freedtms, unless i didnt do it right :D

 if HighAlch = True then
  begin
    if  FindDTM(HAlchDTM, x, y, 559, 336, 583, 360) then
    begin
      FreeDTM(HAlchDTM); //<----
      result := True;
    end else 

@ mixter oh thanks, i forgot about those =p i just copied and pasted from the debug box. also, can you point out where it repeats that much? i know it does, but i don't know where.

@ floor66 okay =D there gonna be my fail safes for the walker

@ marpis eh, i just added a bunch of stuff in because i was bored at the time i made it (which was a while back) then i just added it in to this one instead of making a new one, then i changed some stuff to fit the alching script. also, i made the walking script to show more of an anti-random + multi player, since in alching, you rarely need both if you do it right, then i tried walking just to show that i know something else. also, the writelns where for debugging, forgot to take them out =\

and @ n1ke, don't worry, the script that I'm working on atm would be quit epic, imo =p with a whole bunch of complex stuff, i hope :)

also, i cant really figure this out for my self, but how would you save the information you put into the form, and then load it back after words? i know theres stuff in srl for it, but dunno how to use it =p

From: akwardsaw
also, i cant really figure this out for my self, but how would you save the information you put into the form, and then load it back after words? i know theres stuff in srl for it, but dunno how to use it =p

You would have to get the form information and save it to a file. Then when the form loads again, you need to get that information from the file then display it in your form text fields. You might want to look at the "File functions" in the SCAR Manual on what you would use if you wanted to go about doing that.

Maybe use and array for the form things :),

Maybe you can cut down on begins and ends,

Sorry no :(

0 - Yes
8 - No


Sorry but you didn't make it

Please stick around and read some tutorials and take what people have suggested to improve on your script then apply in one month.