Results 1 to 3 of 3

Thread: need hlp with script

  1. #1
    Join Date
    Aug 2007
    Posts
    42
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default need hlp with script

    i wrote this script but i keep getting errors and i can't figure out why
    { Justin PowerChopper Version 1.2 }
    program Woodcutter;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/skill/WoodCutting.scar}
    const
    LoadsPerPlayer = 10;// loads each player before switching accounts
    Tree = 4621949;
    Oak = 2648413;
    Willow = 2577740;
    Yew = 1454376;
    HowManyPlayersYouHave = 5;
    procedure DeclarePlayers;
    begin
    SetupSRL;
    NumberOfPlayers(HowManyPlayersYouHave)

    Players[0].Name := '';{fill in players name}
    Players[0].Pass := '';{password of player}
    Players[0].Nick := ''; { nickname 3 letters of players name}
    Players[0].Active := True;{ true if player is to be used false for not}

    Players[1].Name := ''; {fill in players name}
    Players[1].Pass := ''; {password of player}
    Players[1].Nick := ''; { nickname 3 letters of players name}
    Players[1].Active := False;

    Players[2].Name := ''; {fill in players name}
    Players[2].Pass := ''; {password of player}
    Players[2].Nick := ''; { nickname 3 letters of players name}
    Players[2].Active := False;

    Players[3].Name := ''; {fill in players name}
    Players[3].Pass := ''; {password of player}
    Players[3].Nick := ''; { nickname 3 letters of players name}
    Players[3].Active := False;

    Players[4].Name := ''; {fill in players name}
    Players[4].Pass := ''; {password of player}
    Players[4].Nick := ''; { nickname 3 letters of players name}
    Players[4].Active := False;

    end;

    procedure Cut;

    var
    x,y : integer;

    begin
    repeat
    if FindObj(x,y,'hop',Willow,30) then

    begin
    Mouse(x,y,0,0,True);
    wait(7500+random(3750));
    end;
    until false
    end;
    procedure Drop;
    var x,y,Logs:integer;
    begin
    SetupSRL;
    Logs := DTMFromString('78DA63CC61626078CA80029C6D24C134239 4C' +
    'F980954F381010D30A2AA4900AA794B404D1A50CD1D026AAA 816A' +
    '9E1150530E54F386809A62A09A9BF8D50000AF080A04');
    repeat
    if(FindDTM(Logs,x,y,MIX1,MIY1,MIX2,MIY2))then

    begin
    end;
    until false
    begin
    SetupSRL;
    Mouse(x,y,5,5,False);
    if(ClickOption('rop',2))then
    begin
    Wait(1000+random(500));

    end;
    end;
    begin
    SetupSRL;
    begin
    DeclarePlayers
    end;
    begin
    repeat
    Cut
    until false
    end;
    begin
    repeat
    Drop;
    until false
    end;

  2. #2
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    Can you post it up here please?


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  3. #3
    Join Date
    Aug 2007
    Posts
    42
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    it isnt done yet but i don't wanna finish it until i get this fixed

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •