SRL Archive - First Scripts

Hello guys! i made my first script :)
i started this script yesterday and finaly finished today :)
it's not very good script but please try it and post proggies :)

added new version. v.1



proggys:

[PHP]********m4r1us willow power chopper********
*******************************************
Time Ran: 14 Minutes and 31 Seconds
Loads done: 5
LOGS CHOPPED: 135
Xp gained: 9110
*****THANKS FOR USING MY FIRST SCRIPT******
********************************************[/PHP]

[PHP]********************************************
********m4r1us willow power chopper********
*******************************************
Time Ran: 1 Hours, 40 Minutes and 58 Seconds
Loads done: 31
LOGS CHOPPED: 837
Xp gained: 56482
*****THANKS FOR USING MY FIRST SCRIPT******
********************************************[/PHP]

For

willowcolor1= 4683362;
willowcolor2= 2444868;
logcolor1= 1325891;
logcolor2= 1391941;

Try AutoColoring them

your CutWillow Procedure

procedure cuttwillow;
begin
  Setrun(true);
  WriteLn('chopping');
  if(FindObjCustom(x, y, ['hop', 'dow'], [willowcolor1, willowcolor2], 7))then
  begin
  case (Random(2)) of
    0: begin
      Mouse(x, y, 4, 4,false);
      wait(300+random(200));  //- it can take some time for rs to show the option menu
      ChooseOption('hop');
      wait(5000+random(800));
    end;
    1: begin
      Mouse(x, y, 4, 4, True);
      wait(5000+random(800));
           [b]if not(FindObjCustom(x, y, ['hop', 'dow'], [willowcolor1, willowcolor2], 7)) then
            begin
            WriteLn('coudnt find tree');
            stopcheating;
           end;[/b]
       end;
    end;
  end;
end;

{The bit I made bold}
that will only check if you can find the tree if it does the Case1
if you would like to make it check everytime do:

procedure cuttwillow;
begin
  Setrun(true);
  WriteLn('chopping');
  if(FindObjCustom(x, y, ['hop', 'dow'], [willowcolor1, willowcolor2], 7))then
  begin
  case (Random(2)) of
    0: begin
      Mouse(x, y, 4, 4,false);
      wait(300+random(200));  //- it can take some time for rs to show the option menu
      ChooseOption('hop');
      wait(5000+random(800));
    end;
    1: begin
      Mouse(x, y, 4, 4, True);
      wait(5000+random(800));
       end;
           begin
           if not(FindObjCustom(x, y, ['hop', 'dow'], [willowcolor1, willowcolor2], 7)) then
            begin
            WriteLn('coudnt find tree');
            stopcheating;
           end;
       end;
    end;
  end;
end;

Procedure AntiRandoms

Procedure AntiRandoms;
var
  i : Integer;
Begin
if (not(loggedin)) then exit;
 for i := 0 to 3 do
   FindNormalRandoms;
   FindNonInventoryRandoms;
 wait(1)
end;

You may want to add an InFight check.
Also, why do you wait 0.001 second at the end?
Also, do Wait(xxx);

Procedure DropLogs

Procedure Droplogs;
begin
WriteLn('dropping');
if (invfull) then
for i := 2 to 28 do
dropItem(i);
Inc(loadsDone);
end;

Make a check to see if they are wielding the axe or not.
Maybe add a const:

AxeWielded = True;

then in DropLogs have:

Procedure Droplogs;
begin
WriteLn('dropping');
if (invfull) then
if AxeWielded then
begin
for i := 1 to 28 do
dropItem(i);
Inc(loadsDone);
end else
begin
for i := 2 to 28 do
dropItem(i);
Inc(loadsDone);

Good first script.
Do them things, add multiplayer.
You may want to add DTMs and TPAs and failsafes.
If you need any help with anything I have said/or anything just ask :)

thanks for help ohaidar. i think i'll update my script or i'll start new.
wanna be partners? :P

No problem :)
Um, what are you thinking of making?

i want make guild miner and banker. :P

Go for it.
What ya need help with?

i'm pmed you

running this script for 7 days now my char never died end reached from 64 to 78 realy good script! x

From: crezzur
running this script for 7 days now my char never died end reached from 64 to 78 realy good script! x

That's funny, seeing as you only registered 4-5 days ago, stop spamming!

From: crezzur
running this script for 7 days now my char never died end reached from 64 to 78 realy good script! x

i think it's impossible :D

From: m4r1us
thanks for help ohaidar. i think i'll update my script or i'll start new.
wanna be partners? :P

Partners with thieving scum?

i didin't gave password for him. :) because i don't want lost my account