SRL Archive - Archive

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

What is the meaning to life?
To accept me as a member obviously….


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


Programming Knowledge
Nope

Other Communitys
None

How Long have You Played Runescape
A year

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

Yo… Im "Shadows-Collide" I'v been scripting 4 days and absoloutely love it.

I know I'm not experienced, but I think I'v got to grasps with scripting really well, and have already made some close bonds in the community, 3Gerrett3 for one, who helped me implement some SRL functions into my script, however the script is entirely my own work, and it took some doing! Especially the forms…

I can confidently write a script, and fix any errors which come up, but I'd like to become a member so I can enhance my knowledge, especialy with some of the functions SCAR has to offer, like the progress bar in the form editor! I'd also like to be closer to the community, and help anyone completely new out.

I'd also like to be able to improove my RadialWalking scripting ability…

Anyway, check my script out let me know what you think, its also under the first scripts section in the forum.

Check ya later guys, peace out.

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

///////////////////////////
////   Power-Cutter    ////
////                   ////
//// A Shadows~Collide ////
////      Script       ////
///////////////////////////

// This script will cut any tree
// you tell it to, use the color
// clicker to pick a large color
// on the tree, then paste it
// into the const section and hit
// run. Ignore the forms for now!

// Start at the log-in page,
// Dont worry, the log-in
// Procedure will get better!


program PowerCutter;
{.include SRL/SRL.scar}

////////////////////////////////
//         Set-up             //
////////////////////////////////

const
  TreeColor = 3168336;

///////////////////////////////
//       End of Set-up       //
///////////////////////////////

var
  TreesCut, Clicks, Chop: Integer;

  frmDesign: TForm;
  Title: TLabel;
  User: TLabel;
  Pass: TLabel;
  CharNick: TLabel;
  EditUser: TEdit;
  EditPass: TEdit;
  EditNick: TEdit;
  StartButton: TButton;



procedure ClickStartButton(sender: TObject);
begin
  ClearDebug;
  Writeln('                                       ');
  Writeln('  --- A Shadows~collide Script ---');
  Writeln('                                       ');
  Writeln('  This is my first script.');
  Writeln('  Hopefully it will chop any tree you set the color too!');
  Writeln('  Please post any feedback or suggestions.');
  Writeln('                                       ');
  Writeln('  --- A Shadows~collide Script ---');
  wait(10 + random(800));




  frmDesign.ModalResult := mrOk;
end;

procedure ProgressReport;
begin
  ClearDebug;
  Writeln('[]========================================[]');
  Writeln('---------------->Progress report<----------------');
  Writeln('  Cut ' + IntToStr(TreesCut) + ' logs ' + '    ');
  Writeln('---------------------------------------------');
  Writeln('  Did ' + IntToStr(Clicks) + ' Clicks' + '        ');
  Writeln('[]========================================[]');
end;

procedure DoAntiRandoms;
begin
  FindTalk;
  FindNormalRandoms;
  if (FindFight = true) then
  begin
    RunAwayDirection('N');
    Wait(10000 + random(2000));
    RunBack;
  end;
end;

procedure MainForm;
begin
  frmDesign := CreateForm;
  frmDesign.Left := 250;
  frmDesign.Top := 114;
  frmDesign.Width := 417;
  frmDesign.Height := 266;
  frmDesign.Caption := 'A Shadows-Collide Script';
  frmDesign.Color := clMonkeyGreen;
  frmDesign.Font.Color := clWindowText;
  frmDesign.Font.Height := -11;
  frmDesign.Font.Name := 'MS Sans Serif';
  frmDesign.Font.Style := [];
  frmDesign.Visible := False;
  frmDesign.PixelsPerInch := 96;
  Title := TLabel.Create(frmDesign);
  Title.Parent := frmDesign;
  Title.Left := 24;
  Title.Top := 10;
  Title.Width := 348;
  Title.Height := 22;
  Title.Caption := 'Shadows-Collide Power-Cutter';
  Title.Color := clBtnFace;
  Title.Font.Color := clWindowText;
  Title.Font.Height := -19;
  Title.Font.Name := 'Rockwell Extra Bold';
  Title.Font.Style := [fsBold];
  Title.ParentColor := False;
  Title.ParentFont := False;
  User := TLabel.Create(frmDesign);
  User.Parent := frmDesign;
  User.Left := 25;
  User.Top := 45;
  User.Width := 61;
  User.Height := 19;
  User.Caption := 'Username';
  User.Font.Color := clWindowText;
  User.Font.Height := -16;
  User.Font.Name := 'Times New Roman';
  User.Font.Style := [];
  User.ParentFont := False;
  Pass := TLabel.Create(frmDesign);
  Pass.Parent := frmDesign;
  Pass.Left := 25;
  Pass.Top := 75;
  Pass.Width := 60;
  Pass.Height := 19;
  Pass.Caption := 'Password';
  Pass.Font.Color := clWindowText;
  Pass.Font.Height := -16;
  Pass.Font.Name := 'Times New Roman';
  Pass.Font.Style := [];
  Pass.ParentFont := False;
  CharNick := TLabel.Create(frmDesign);
  CharNick.Parent := frmDesign;
  CharNick.Left := 25;
  CharNick.Top := 105;
  CharNick.Width := 121;
  CharNick.Height := 19;
  CharNick.Caption := 'Character nickname';
  CharNick.Font.Color := clWindowText;
  CharNick.Font.Height := -16;
  CharNick.Font.Name := 'Times New Roman';
  CharNick.Font.Style := [];
  CharNick.ParentFont := False;
  EditUser := TEdit.Create(frmDesign);
  EditUser.Parent := frmDesign;
  EditUser.Left := 205;
  EditUser.Top := 45;
  EditUser.Width := 121;
  EditUser.Height := 21;
  EditUser.ParentShowHint := False;
  EditUser.ShowHint := True;
  EditUser.TabOrder := 8;
  EditUser.Text := 'Enter Username';
  EditPass := TEdit.Create(frmDesign);
  EditPass.Parent := frmDesign;
  EditPass.Left := 205;
  EditPass.Top := 75;
  EditPass.Width := 121;
  EditPass.Height := 21;
  EditPass.ParentShowHint := False;
  EditPass.ShowHint := True;
  EditPass.TabOrder := 9;
  EditPass.Text := 'Enter Password';
  EditNick := TEdit.Create(frmDesign);
  EditNick.Parent := frmDesign;
  EditNick.Left := 205;
  EditNick.Top := 105;
  EditNick.Width := 121;
  EditNick.Height := 21;
  EditNick.TabOrder := 10;
  EditNick.Text := '3 letters of user, in order';
  StartButton := TButton.Create(frmDesign);
  StartButton.Parent := frmDesign;
  StartButton.Left := 160;
  StartButton.Top := 160;
  StartButton.Width := 75;
  StartButton.Height := 25;
  StartButton.Caption := 'StartButton';
  StartButton.TabOrder := 11;
  StartButton.OnClick := @ClickStartButton;

end;

procedure LoadForm;
var
  V: TvariantArray;
begin
  Setarraylength(V, 0);
  ThreadSafeCall('MainForm', V);
end;

procedure ShowFormModal;
begin
  frmDesign.ShowModal;
end;

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

procedure DeclarePlayers;
begin

  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := EditUser.Text;
  Players[0].Pass := EditPass.Text;
  Players[0].Nick := EditNick.Text;
  Players[0].Active := True

end;

procedure CutTheTree;
begin
  repeat;
    wait(1000 + random(500));
    if FindColorSpiralTolerance(x, y, TreeColor, 3, 3, 514, 338, 5) then
    begin
      MMouse(x, y, 5, 8);
      Wait(50 + random(25));
      if (IsUpText('hop')) then
      begin
        Wait(200 + random(100));
        Mouse(x, y, 1, 1, true);
        Wait(500 + random(500));
        DoAntiRandoms;
      end;
    end;
    Wait(3000 + random(500));
    DoAntiRandoms;
    TreesCut := TreesCut + 1;
  until (InvFull);
end;


procedure DropLogs;
begin
  wait(100 + random(50));
  wait(2000 + random(1000));
  dropto(2, 28);
  wait(100 + random(50));

end;

begin
  SetupSRL;
  LoadForm;
  ShowFormModal2;
  DeclarePlayers;
  repeat
    ActivateClient;
    LoginPlayer;
    HighestAngle;
    CutTheTree;
    DropLogs;
    ProgressReport;
  until (False)
end.

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

No from me sorry.

The script is mostly a form.

There's no anti ban or multi player, and not any fail safes (at least I didn't see any, if there was a few, you still need more).

Good try though, keep it up!

If you had of told me you were going for members, I would have told you that you need anti-ban, multiplayer, and stuff like that. You told me it was just to start learning, not to apply for members. I'm sorry, but it is still pretty basic for SRL member. I'm going to have to say no unless you fix it up alot. I think you are a really quick learner, with alot of potential. You learned Forms easier than me. I learned something about forms from YOU. You have tons of ability, you just need more time to get to know the community, and to enhance your abilities more, and you will get in. I really wish that there wasnt a 1 month waiting period in between applications. You should be able to get in within a few weeks, but you NEED to wait 1 Month, or else everyone will vote no anyway. Update this script alot, and you might get in this time, but it is still really basic for right now, sorry.

I will hold my vote though, because you seem like you could really help out the community and be a great asset to SRL.

From: 3garrett3
If you had of told me you were going for members, I would have told you that you need anti-ban, multiplayer, and stuff like that. You told me it was just to start learning, not to apply for members. I'm sorry, but it is still pretty basic for SRL member. I'm going to have to say no unless you fix it up alot. I think you are a really quick learner, with alot of potential. You learned Forms easier than me. I learned something about forms from YOU. You have tons of ability, you just need more time to get to know the community, and to enhance your abilities more, and you will get in. I really wish that there wasnt a 1 month waiting period in between applications. You should be able to get in within a few weeks, but you NEED to wait 1 Month, or else everyone will vote no anyway. Update this script alot, and you might get in this time, but it is still really basic for right now, sorry.

I will hold my vote though, because you seem like you could really help out the community and be a great asset to SRL.

and you really needed to ask me why you got the bear ? Very Well said :)

~RAM

:) Ty Ram.

Bla lol!

Ok guys, ill make the script better, looking back on it after my fifth day scripting, it looks complete shite lmao! Your right, it is almost all form! There are no antiban features, and it dosnt do multiplayers… and the failsafes are pretty shoddy, at least i got a list of things to add now, on top of images in that form of course :P :)

Cheers for checking it out, ill impress you all next month!

I'm looking forward to it :)

How about the best newcomer cup, just for effort :D

All fixes you need to make have been said.
Closed.