Results 1 to 14 of 14

Thread: tried much not working

  1. #1
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default tried much not working

    need some help evrytime if i try the fighting
    it says found chicken color succesfully logged out

    SCAR Code:
    program LumbyAllInOne;

    {.include SRL/SRL.scar}
    {.include SRL/SRL/skill/woodcutting.scar}
    {.include SRL/SRL/skill/cooking.scar}
    {.include SRL/SRL/skill/fighting.scar}

    var
    hometeleport, lx, ly, x, y,  HowWeClick:integer;



    const
     Location = 'Chicken Pen'; //You can use Chicken Pen, Lumbridge, or Other.



    {=====================================================================================]
                DONT TOUCH THIS BELOW IF YOU DONT KNOW WHAT YOUR DOING!
    [=====================================================================================}


    procedure loadbitmaps; //I made a new BMP, this one was out of date.
     begin
      hometeleport := BitmapFromString2(False, 'a84B1878DA8D8E510A0' +
           '3210C44AF944493D84F75F5FE47EA8E5B4C410A55181EE14D9488' +
           '58E93ECCF94E6D6063014F4316A469D9AC23D8247C4B7D9B52D63' +
           '6ED7BCFC75C5DD7894C17260DCF7BCBC1D2839DC27FC936F94297' +
           '5AA5F5F739701F3E274953B6E1D5EB2C4FFED33ABBDFCE797FB5D' +
           'E870');
     end;

    Procedure casthometeleport;
     begin
      gametab(7);
      WriteLn('Opened Tab');
      wait(400+Random(600));
       If(FindBitmap(hometeleport, lx, ly)) Then
        Begin
        wait(100 + Random(150));
        Mouse(lx, ly, 5, 5, True);
        wait(15000);
        WriteLn('your in limbridge, have a nice day!');
      end
       else
        If Not(FindBitmap(HomeTelePort, lx, ly)) Then
         begin
          WriteLn('couldnt fin spell.');
       end;
    end;


    procedure Move;
    begin
      if Location='Other' then
        begin
          casthometeleport;
          HighestAngle;
          MakeCompass('N');
          FindRoadColor;
          SetRun(true);
          RadialRoadWalk(RoadColor, 60, 65, 66, 0, 0);
          WriteLn('to bridge');
          FFlag(5);
          RadialRoadWalk(RoadColor, 80, 110, 63, 0, 0);
          WriteLn('on bridge');
          FFlag(5);
          RadialRoadWalk(RoadColor, 30, 50, 66, 0, 5);
          WriteLn('next to goblin house');
          FFlag(5);
          RadialRoadWalk(RoadColor, 360, 335, 65, 0, 0);
          WriteLn('next to goblin house');
          FFlag(4);
          RadialRoadWalk(RoadColor, 332, 350, 71, 0, 1);
          WriteLn('next to cows');
          FFlag(6);
          RadialRoadWalk(RoadColor, 315, 330, 72, 0, 0);
          WriteLn('next to cows');
          FFlag(5);
          RadialRoadWalk(RoadColor, 337, 350, 65, 0, 1);
          WriteLn('next to cows');
          FFlag(5);
          SetRun(false);
        end
      if Location='Lumbridge' then
        begin
          HighestAngle;
          MakeCompass('N');
          FindRoadColor;
          SetRun(true);
          RadialRoadWalk(RoadColor, 60, 65, 66, 0, 0);
          WriteLn('Clicked 1');
          FFlag(5);
          RadialRoadWalk(RoadColor, 80, 120, 63, 0, 0);
          WriteLn('Clicked 2');
          FFlag(5);
          RadialRoadWalk(RoadColor, 30, 50, 66, 0, 5);
          WriteLn('Clicked 3');
          FFlag(5);
          RadialRoadWalk(RoadColor, 360, 335, 65, 0, 0);
          WriteLn('Clicked 4');
          FFlag(4);
          RadialRoadWalk(RoadColor, 332, 350, 71, 0, 1);
          WriteLn('Clicked 5');
          FFlag(6);
          RadialRoadWalk(RoadColor, 315, 330, 72, 0, 0);
          WriteLn('Clicked 6');
          FFlag(5);
          RadialRoadWalk(RoadColor, 337, 350, 65, 0, 1);
          WriteLn('Clicked 7');
          SetRun(false);
      end
        If Location='Chicken Pen' Then
         Begin
          Exit;
        end;
    end;

    function findchicken(var x, y: Integer): Boolean;
    begin
       if(FindColorSpiralTolerance(x,y,857197,MSX1,MSY1,MSX2,MSY2,50))or
         (FindColorSpiralTolerance(x,y,6521491,MSX1,MSY1,MSX2,MSY2,50))or
         (FindColorSpiralTolerance(x,y,2638679,MSX1,MSY1,MSX2,MSY2,50))then
    writeln('found chicken color')
    else
    writeln('cant find chicken color')
    end;

    procedure KillChicken;
    begin
      if findchicken(x,y)then
      begin
       case HowWeClick of
         1 : if findchicken(x,y)then
             begin
               mmouse(x,y,1,0);
               mouse(x,y,0,1,true);
             end;
         2 :if findchicken(x,y)then
             begin
               mmouse(x,y,0,1);
               mouse(x,y,1,0,false);
            end;
         else
         writeln('cant find chicken color')
         end;
      end;
    end;

    begin
    SetupSrl;
    activateclient;
    loadbitmaps;
    Move;
    KillChicken;
    end.
    ~Hermen

  2. #2
    Join Date
    Jan 2007
    Posts
    117
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    2 things- first ur nt looping yr killing procedure and two u rnt giving a value to howweclick.
    No Signature Assigned.

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

    Default

    you dont have a result in your findchicken procedure

    fix:

    SCAR Code:
    function findchicken(var x, y: Integer): Boolean;
    begin
       if(FindColorSpiralTolerance(x,y,857197,MSX1,MSY1,MSX2,MSY2,50))or
         (FindColorSpiralTolerance(x,y,6521491,MSX1,MSY1,MSX2,MSY2,50))or
         (FindColorSpiralTolerance(x,y,2638679,MSX1,MSY1,MSX2,MSY2,50))then
      begin
        writeln('found chicken color')
        Result:=True;
     end else
       begin
         writeln('cant find chicken color')
         Result:=False;
       end;
    end;

  4. #4
    Join Date
    Mar 2007
    Posts
    1,700
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Default

    Standards please...and capitalization. I was bored so I fixed it up for you.

    SCAR Code:
    program LumbyAllInOne;

    {.include SRL/SRL.scar}
    {.include SRL/SRL/skill/woodcutting.scar}
    {.include SRL/SRL/skill/cooking.scar}
    {.include SRL/SRL/skill/fighting.scar}

    var
      HomeTeleport, lx, ly, x, y, HowWeClick : Integer;



    const
      Location = 'Chicken Pen'; //You can use Chicken Pen, Lumbridge, or Other.



    {=====================================================================================]
                DONT TOUCH THIS BELOW IF YOU DONT KNOW WHAT YOUR DOING!
    [=====================================================================================}


    procedure LoadBitmaps; //I made a new BMP, this one was out of date.
     begin
      HomeTeleport := BitmapFromString2(False, 'a84B1878DA8D8E510A0' +
           '3210C44AF944493D84F75F5FE47EA8E5B4C410A55181EE14D9488' +
           '58E93ECCF94E6D6063014F4316A469D9AC23D8247C4B7D9B52D63' +
           '6ED7BCFC75C5DD7894C17260DCF7BCBC1D2839DC27FC936F94297' +
           '5AA5F5F739701F3E274953B6E1D5EB2C4FFED33ABBDFCE797FB5D' +
           'E870');
     end;

    procedure CastHomeTeleport;
    begin
      Gametab(7);
      WriteLn('Opened Tab');
      Wait(400+Random(600));
      if(FindBitmap(HomeTeleport, lx, ly)) then
      begin
        Wait(100 + Random(150));
        Mouse(lx, ly, 5, 5, True);
        Wait(15000);
        WriteLn('your in limbridge, have a nice day!');
      end else
      if not(FindBitmap(HomeTeleport, lx, ly)) then
      begin
        WriteLn('couldnt fin spell.');
      end;
    end;


    procedure Move;
    begin
      if Location='Other' then
      begin
        CastHomeTeleport;
        HighestAngle;
        MakeCompass('N');
        FindRoadColor;
        SetRun(true);
        RadialRoadWalk(RoadColor, 60, 65, 66, 0, 0);
        WriteLn('to bridge');
        FFlag(5);
        RadialRoadWalk(RoadColor, 80, 110, 63, 0, 0);
        WriteLn('on bridge');
        FFlag(5);
        RadialRoadWalk(RoadColor, 30, 50, 66, 0, 5);
        WriteLn('next to goblin house');
        FFlag(5);
        RadialRoadWalk(RoadColor, 360, 335, 65, 0, 0);
        WriteLn('next to goblin house');
        FFlag(4);
        RadialRoadWalk(RoadColor, 332, 350, 71, 0, 1);
        WriteLn('next to cows');
        FFlag(6);
        RadialRoadWalk(RoadColor, 315, 330, 72, 0, 0);
        WriteLn('next to cows');
        FFlag(5);
        RadialRoadWalk(RoadColor, 337, 350, 65, 0, 1);
        WriteLn('next to cows');
        FFlag(5);
        SetRun(false);
      end;
      if Location='Lumbridge' then
      begin
        HighestAngle;
        MakeCompass('N');
        FindRoadColor;
        SetRun(true);
        RadialRoadWalk(RoadColor, 60, 65, 66, 0, 0);
        WriteLn('Clicked 1');
        FFlag(5);
        RadialRoadWalk(RoadColor, 80, 120, 63, 0, 0);
        WriteLn('Clicked 2');
        FFlag(5);
        RadialRoadWalk(RoadColor, 30, 50, 66, 0, 5);
        WriteLn('Clicked 3');
        FFlag(5);
        RadialRoadWalk(RoadColor, 360, 335, 65, 0, 0);
        WriteLn('Clicked 4');
        FFlag(4);
        RadialRoadWalk(RoadColor, 332, 350, 71, 0, 1);
        WriteLn('Clicked 5');
        FFlag(6);
        RadialRoadWalk(RoadColor, 315, 330, 72, 0, 0);
        WriteLn('Clicked 6');
        FFlag(5);
        RadialRoadWalk(RoadColor, 337, 350, 65, 0, 1);
        WriteLn('Clicked 7');
        SetRun(false);
      end;
      if Location='Chicken Pen' then
      begin
        Exit;
      end;
    end;

    function FindChicken(var x, y: Integer): Boolean;
    begin
      if(FindColorSpiralTolerance(x,y,857197,MSX1,MSY1,MSX2,MSY2,50))or
        (FindColorSpiralTolerance(x,y,6521491,MSX1,MSY1,MSX2,MSY2,50))or
        (FindColorSpiralTolerance(x,y,2638679,MSX1,MSY1,MSX2,MSY2,50))then
      begin
        WriteLn('found chicken color')
        Result:=True;
      end else
      begin
        WriteLn('cant find chicken color')
        Result:=False;
      end;
    end;

    procedure KillChicken;
    begin
      if FindChicken(x,y)then
      begin
      case HowWeClick of
        1: if findchicken(x,y)then
           begin
             MMouse(x,y,1,0);
             Mouse(x,y,0,1,true);
           end;
        2: if findchicken(x,y)then
           begin
             MMouse(x,y,0,1);
             Mouse(x,y,1,0,false);
           end;
         else
         WriteLn('cant find chicken color')
        end;
      end;
    end;

    begin
      SetupSrl;
      ActivateClient;
      LoadBitmaps;
      Move;
      KillChicken;
    end.

  5. #5
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    one problem it always find the chicken color even if im not logged in bit strange isnt
    if i just run it on my desktop then i get this
    SRL Compiled in 140 msec
    found chicken color
    cant find chicken color
    Successfully executed
    ~Hermen

  6. #6
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by joerobo View Post
    2 things- first ur nt looping yr killing procedure and two u rnt giving a value to howweclick.
    \

    please learn good english or write as you can english and
    i cant add a value then it says its not working
    ~Hermen

  7. #7
    Join Date
    Jul 2007
    Location
    UK
    Posts
    307
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    Its possiable that it can find it in the desktop because it has same color? your better searching for one color and using it for a box then search for another color in that.

    - Please space out between parameters

  8. #8
    Join Date
    Apr 2007
    Location
    Perth, Australia
    Posts
    3,926
    Mentioned
    3 Post(s)
    Quoted
    2 Post(s)

    Default

    Quote Originally Posted by hermpie View Post
    \

    please learn good english or write as you can english and
    i cant add a value then it says its not working
    Lol I can barely understand your English...

  9. #9
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    its than his isnt?
    i dont use '''is anoying and yes i am from the netherlands but i try to do it good

    i am not gonna talk like w00t h@w !s !t g@!ng d4d3
    he says he found it and he says he didnt found it thats not good


    but on topic
    ~Hermen

  10. #10
    Join Date
    Jan 2007
    Posts
    117
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by hermpie View Post
    \

    please learn good english or write as you can english and
    i cant add a value then it says its not working


    im nt gonna say am frm netherlands cos im from england- cant quite see how that dosnt make sense albeit its not as clear as it could be being written in such a concise form.

    1: your killing procedure isnt looped so it only occurs once.
    2:you are declarig the variable howweclick and calling it later on, but at no point have you given it a value- cant see why it shudnt work, wat happens if you give it a value?

    lol zephyrs fury
    No Signature Assigned.

  11. #11
    Join Date
    Dec 2006
    Location
    .̿̂̔͋͗̎̆ͥ̍̒ͤ͂̾̌̀̅
    Posts
    3,012
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    Maybe loop your 'move' and 'Killchicken' ? And add a result to findchicken, as it won't ever be true if you don't make it result true

    I also suggest adding player array and using Players[].Loc, instead of a constant, so you can make it check if you are lost etc. and then set players location to for example, lumby and then you can use the walkback to check if location is lumby and walk back if needed.. Because if you'd loop it now and set the constant 'Lumbridge' it would repeat walkback time after time..

    Also, remove x and y from your variables, as they're automatically in SRL so you'll get a duplicate identifier error..

    Maybe you should talk to me on msn so I could help you more, if you want my help .. i think I've added you before, but you've blocked me ...

  12. #12
    Join Date
    Jan 2007
    Posts
    117
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    well u need x and y declared, because they are no longer declared in srl, but do everything else suggested
    No Signature Assigned.

  13. #13
    Join Date
    Dec 2006
    Location
    .̿̂̔͋͗̎̆ͥ̍̒ͤ͂̾̌̀̅
    Posts
    3,012
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    Ooh Didn't know that . As you can see, I haven't had too much time to check the new SRL.

  14. #14
    Join Date
    Jan 2007
    Posts
    117
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    lol
    No Signature Assigned.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. is srl working yet.
    By th3ko in forum NOTA
    Replies: 2
    Last Post: 10-20-2008, 08:06 PM
  2. ~~~~Working Edge cooker WORKING~~~
    By NiCbaZ in forum RS3 Outdated / Broken Scripts
    Replies: 5
    Last Post: 10-29-2007, 11:16 PM
  3. [Working on].:Autoseller:.[/Working on]
    By dritar in forum First Scripts
    Replies: 10
    Last Post: 10-07-2007, 06:13 AM

Posting Permissions

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