SRL Archive - First Scripts

Well This is My First Script it is a Willow Chopper And Dropper, WARNING if you do use this script constantly check back or dont leave the room for a long time cause it isnt all to do with randoms, and the script wont look or find your axe if broken or if it fell off. Well enough warnings here is the Chopper

Well I Found Out About the Drop Bug So I fixed it and Added Proggy!!=) So here is Version 1.5

I like this kinda thing, simple, yet effective. Although you are right about not leaving the room. Just add FindNormalRandoms if you want it to find randoms

Just Updated It And Thanks For Reply dude_richard

Thanks, I'll be sure to try this out.

From: n00b? n00b?
Thanks, I'll be sure to try this out.

:fiery: STOP GOING THROUGH EVERY POST, POSTING CRAP TO GET YOUR POST COUNT UP:fiery:

Yeah people do get anoying when they do that, I've seen loads of threads with "I'll check this out, it looks good" but you never hear from them again. But I think the red text was a bit over the top :D

EDIT: In your new version you haven't actually used the variables xx, yy, xy, yx and your standards aren't that great so I took the liberty of making the script look better:

Program WillowChopperDropper;
{.include srl/srl.scar}
{.include srl/srl/skill/woodcutting.scar}

Var
x, y, Time, LogsDropped, Logs :integer;

Const
WT=1000; //How Log to Wait In Milliseconds Per each Tree
Tol=10 ; //Increase If not Finding Tree!!!
Name='Mozilla Firefox Start Page - Mozilla Firefox';//What To Diguise Scar As


Procedure LBitmap;
Begin
  Logs:= DTMFromString('78DA6394606060006124A0A5C2CDF01F48330' +
       '2F17F20609407327818D000231209A48581043F01355C40429C80' +
       '1A5E20A140408D2C116AD48184147E35004C6206B2');
end;


Procedure DeclarePlayers;
Begin
     HowManyPlayers := 1;
     NumberOfPlayers(HowManyPlayers);
     CurrentPlayer := 0;

     Players[0].Name :='';  //UserName
     Players[0].Pass :=''; //Password
     Players[0].Nick :=''; //Nickname 3 - 4 Letter's of Username Not Using First Letter!!
     Players[0].Active := True;
     
     Writeln(inttostr(HowManyPlayers) + ' Players');
end;


Procedure AntiRandoms;
Begin
  FindNormalRandoms;
  if FindFight then
  begin
  RunAway('N', False,1,8000);
  Wait(5000 + random(3000));
  end;
end;

Procedure AntiBan;
Begin
  case Random(10) of
    1: HoverSkill('woodcutting', false);
    2: BoredHuman;
    3: Mouse(646, 188,2,2,true)//This Clicks On Inventory I hope At least ="=
  end;
end;


procedure Waiting;
begin
  MarkTime(Time)
  Repeat
    FindEnt(x, y, true);
    AntiBan;
    FindNormalRandoms;
    If InChat('wc') then
      SayCurrentLevels('woodcutting');
  until(not(IsUpText('Chop'))) or (TimeFromMark(Time) > WT+random(20))
end;


Procedure Cut;
Begin
  if IsUpText('illow')then
  begin
    Mouse(x,y,0,0,false);
    ChooseOption('hop')
  end;
end;

Procedure FindWillows;
Begin
  MakeCompass('N')
  If(FindObjCustom(x,y,['illo'],[4022890,4682364,3099730],Tol))then
     If IsUpText('hop') then
        Begin
          Repeat
            Cut;
            FindEnt(x,y,true);
            Waiting;
          until(InvFull)
        end;
end;


Procedure Drop;
Begin
  Repeat
    If not FindDTM(Logs, x, y, MIX1, MIY1, MIX2, MIY2)then break;
    Mouse(x, y, 2, 2, false);
    ChooseOption('rop');
    LogsDropped := LogsDropped + 1;
  until (false);
end;


Procedure ProgressReport;
Begin
  ClearDebug;
  SrlRandomsReport;
  writeln('========================');
  Writeln('Goblinos Power Chopper ProgessReport');
  Writeln('Worked:'+timerunning);
  Writeln('Dropped '+inttostr(LogsDropped)+' logs.');
  writeln('========================');
end;

Begin
  SetupSRL;
  Disguise(Name);
  DeclarePlayers;
  ActivateClient;
  if(not(loggedin))then loginplayer;
  LBitmap;
  Repeat
    if(not(loggedin))then loginplayer;
    Repeat
      FindWillows;
    until(InvFull)
    if (InvFull)then
      Begin
        Mouse(646, 188,2,2,true)
        Repeat
          ProgressReport;
          Drop;
        until(FindDTM(Logs,x,y,MIX1,MIY1,MIX2,MIY2))=false;
    end;
  until(False)
end.

thanks works fine…itwiold b pretty cool to have a progress report that prints every hour thet it is running….nice tho

it worked good but then it messed up a ton…
:(

Ffs, stop going around posting on old threads, the script is likely to be outdated. And don't double post to get your post count up.