Results 1 to 4 of 4

Thread: Issues with my Wcer

  1. #1
    Join Date
    Dec 2007
    Posts
    19
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Issues with my Wcer

    Note that this is only a way to test out my skills, and probably won't be released.. I don't know yet..

    Anyways.. It does wierd things. On the first run, before it drops, it right clicks on the prayer symbol then spikes to the left dragon next to the minimap, then drops just fine. On the second one, it goes to hell.. I can't really explain it.. Look at it for yourselves, if you would, and help me..

    Code:
    program woodcutter;
    {.include SRL/SRL.scar}
    const
      oc1 = 4095859; //Oak Color 1
      oc2 = 6327692; //Oak Color 2
      loads = 2; //How many loads do you wanna do?
    var
      x,y,l,e: Integer;
    
    procedure findandcuttree;
    begin
      ClearDebug;
      if (FindObjCustom(x, y, ['cho', 'hop', 'oak'], [oc1, oc2], 5)) then
        begin
          If (IsUpText('Oak'))then //uptext of tree might not be right
            begin
              Mouse(x,y,3,3,true);
              Flag;//from srl which ripped from go know where
            end;
        end else
        begin
          WriteLn('Cannot find an Oak tree.. Sleeping..');
          Sleep(3000);
        end;
    end;
    
    procedure DropInventory;
     Begin
      repeat
        MouseItem(e,false);
        e:=e+1
        Wait(265 + random(201));
        ChooseOption('Drop');
        Until(e = 29);
        l:=l+1;
    End;
    
    procedure Settup_Stuff;
    begin
      SetupSRL;
      l:=0;
    end;
    
    begin
      Settup_Stuff;
      repeat
          repeat
            Wait(4000);
            findandcuttree;
          until(invfull)
            DropInventory;
      until(l = loads);
      ClearDebug;
      WriteLN('****************************FINISHED!!*******************************');
      WriteLN('#####################################################################');
      WriteLN('#########ProphesyOfWolf Thanks You For Using His Woodcutter##########');
      WriteLN('#####################################################################');
      WriteLN('###I thank XCCD for his help, and almost literal guidance, of this###');
      WriteLN('##########################script.####################################');
      TypeSend('Whew! That was some hard work! Time to go to bed..');
      Wait(2500);
      LogOut;
    end.

  2. #2
    Join Date
    Dec 2006
    Location
    UK!!
    Posts
    910
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    program woodcutter;
    {.include SRL/SRL.scar}
    const
      oc1 = 4095859; //Oak Color 1
      oc2 = 6327692; //Oak Color 2
      loads = 2; //How many loads do you wanna do?
    var
      x, y, l, Tloads: Integer;

    procedure findandcuttree;
    begin
      ClearDebug;
      if (FindObjCustom(x, y, ['hop', 'op ', 'ak'], [oc1, oc2], 5)) then //i changed this too i  think this is the prob???
        begin
          MMouse(x, y, 2, 2);
          If (IsUpText('ak'))then //Thats the uptext, srl doesnt liks CAPS
            begin
              Mouse(x,y,3,3,true);
              Flag;//its ok its from the include
            end;
        end else
        begin
          WriteLn('Cannot find an Oak tree.. Sleeping..'); // thing is what about if its say in a
          Sleep(3000);                                              // then you will be sleeping for ages
        end; // read about fail safes, i wont add it otherwise its not ur script eh?? :P
    end;

    {procedure DropInventory;
     Begin
      repeat
        MouseItem(e,false);
        e:=e+1
        Wait(265 + random(201));
        ChooseOption('Drop');
        Until(e = 29);
        l:=l+1;
    End;}


    procedure drop;    // if you want to drop everything then use this?
      begin            // or try something like for i := 0 do 25 to
        dropall;
        TLoads := Tloads + 1
      end;

    procedure Settup_Stuff;
    begin
      SetupSRL;
      l:=0;
    end;

    begin
      Settup_Stuff;
      repeat
          repeat
            Wait(4000);
            findandcuttree;
          until(invfull)
            Drop;
      until TLoads := (Loads);
      ClearDebug;
      WriteLN('****************************FINISHED!!*******************************');
      WriteLN('#####################################################################');
      WriteLN('#########ProphesyOfWolf Thanks You For Using His Woodcutter##########');
      WriteLN('#####################################################################');
      WriteLN('###I thank XCCD for his help, and almost literal guidance, of this###');
      WriteLN('##########################script.####################################');
      TypeSend('Whew! That was some hard work! Time to go to bed..');
      Wait(2500);
      LogOut;
    end.

    try that, you had the wrong names for the drop and chop, srl doesnt like CAPS

    overall read about failsafes, like what happens if
    SCAR Code:
    if not (FindObjCustom(x, y, ['hop', 'op ', 'ak'], [oc1, oc2], 5)) then
    if it cant find the tree then what?? so you could have
    SCAR Code:
    if not (FindObjCustom(x, y, ['hop', 'op ', 'ak'], [oc1, oc2], 5)) then
    writeln(' not finding tree');
    CurrentPlayer.loc := 'lost'
    NextPlayer(False); // means that the next player will come but this player will be false
    ok try something like that

    EDIT forgot to mention that for the nextplayer thing u need multiplayer :P

    ~Spaz

  3. #3
    Join Date
    Dec 2007
    Posts
    19
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Oh, I know about the multiplayer function that SRL offers.. I just didn't put Multi in there for now. As I said, this is a pretty basic script..

    And, for a note.. I purposefully didn't use Dropall because of it's random dropping sequence. Not many players drop like that, especially not me.

  4. #4
    Join Date
    Dec 2007
    Posts
    19
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Close thread please : I fixed my problems on my own.. Thank you for the ideas, anyways!~

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. power wcer
    By haurp00ned in forum RS3 Outdated / Broken Scripts
    Replies: 4
    Last Post: 05-07-2007, 05:00 PM
  2. my first wcer =]
    By krw in forum First Scripts
    Replies: 3
    Last Post: 04-21-2007, 12:37 PM

Posting Permissions

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