Results 1 to 13 of 13

Thread: could some1 fix this

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

    Default could some1 fix this

    i got a small thingy
    ehm it wont do the rrw it worked before it doesnt do anything the failsafes i made are workign they say cant find....

    ehm i tried couple of things but cnat make this pieece of shit working

    SCAR Code:
    program LumbyAllInOne;
    {.include SRL/SRL.scar}


    var
    hometeleport, canthometeleport, SST2, lx, ly, x, HowWeClick, SST1,  FindFastRandomsTime, FindNorMalRandomsTime, woodcutting, chickens, y:integer;
    ky, kx:integer;
    const
     Location = 'lumbridge'; //You can use Chicken Pen, Lumbridge, or Other.
     Skill = 'woodcutting';//skill you want to train
    {=====================================================================================]
                DONT TOUCH THIS BELOW IF YOU DONT KNOW WHAT YOUR DOING!
    [=====================================================================================}


    Function FindFastRandoms: Boolean;
    var
      i: Integer;
    begin
      for i:=1 to 9 do
      begin
        case I of
         1:  If FindDead then
               Result := True;
         2:  If FindMod then
               Result := True;
         3:  If FindMime then
               Result := True;
         4:  If FindMaze then
               Result := True;
         5:  If FindQuiz then
               Result := True;
         6:  If FindDemon then
               Result := True;
         7: begin
               if NoGameTab then
               begin
                 Result := True;
                 Players[CurrentPlayer].loc := 'No GameTab';
                 Logout;
                 Exit;
               end;
             end;
         8: begin
               if InBlack then
               begin
                 Result := True;
                 Players[CurrentPlayer].loc := 'InBlack';
                 Logout;
                 Exit;
               end;
             end;
         9: begin
               if FindFight then
               begin
                 RunTo('N',False);
               end;
             end;
        end;

      end;
    end;


    //credits to WT-FAWAKI-----------------------------------------//
    // -- Performs Wait and FindTalk. + calls FindNormalRandoms every 10 secs and
    // -- FindFastRandoms every 3 secs.
    //----------------------------------------------------------------------------//

    Procedure WaitPlus(Time:Integer);
    var T: integer;
      begin
        For T := 1 to Time do
        begin
          if not LoggedIn then exit;
          Wait(200 + Random(50));
          FindTalk;
          RC;
        end;

        FindTalk;
        MarkTime(FindNorMalRandomsTime);
        if FindNorMalRandomsTime - SST1 >(10000 + Random(5000)) then
          begin
            FindNorMalRandoms;
            MarkTime(SST1);
          end;

        MarkTime(FindFastRandomsTime);
        if FindFastRandomsTime - SST2 >(1500 + Random(1500)) then
          begin
            FindFastRandoms;
            MarkTime(SST2);
          end;
    end;

    procedure antiban;
    begin
      Case Random(10) Of
        1 : HoverSkill('defense', False);
        2 : HoverSkill('strenght', False);
        3 : begin
             GameTab(1+Random(12));
             Wait(2000+Random(400));
             GameTab(4);
            end;
        4 : RandomRClick;
        5 : PickUpMouse;
        6 : HoverSkill('attack', False);
        7 : almostlogout;
        8 : begin
            gametab(9);
            gametab(5);
            gametab(1);
            gametab(2);
            end;
        9 :begin
           mmouse(x,y,333,273);
           end;



      end;
    end;


    procedure loadbitmaps;
     begin
      hometeleport := BitmapFromString2(False, 'a84B1878DA8D8E510A0' +
           '3210C44AF944493D84F75F5FE47EA8E5B4C410A55181EE14D9488' +
           '58E93ECCF94E6D6063014F4316A469D9AC23D8247C4B7D9B52D63' +
           '6ED7BCFC75C5DD7894C17260DCF7BCBC1D2839DC27FC936F94297' +
           '5AA5F5F739701F3E274953B6E1D5EB2C4FFED33ABBDFCE797FB5D' +
           'E870');
     canthometeleport := BitmapFromString2(False, 'a046E278DA8D534BB2C' +
           '42008BC129AC1CF524D72FF233D119FC12853E3A2CB6A5AC01601' +
           'C0A40F54F415C0C58BD05842E7882F8D07D260700FFAF044318C5' +
           '39D09B4C70F65C37C0D8D0D2D0F92086FCAE32CD73D08BDA9E8DB' +
           '299F49E92E3AE5F1263C4E62323E51DEDBF2ECDB2DBA3EDAA14C8' +
           '118B8295B5D25E714F1845C22BE983366C652A998383AF8AA67A5' +
           'E4A592F7AC3C6D31B1A8286AF56C73746498A2CCCBCE5BC55EF72' +
           '83619B57FCEC01A815DC34C28982C2388C5B7967797CC2FD1B55B' +
           'D9A15CD219CDBD8D7271E6E573D17B50DFC2E42BC1EA98F44D5B9' +
           'A27DA2C6D7D189A75327BFEEFAFBC3AB69BC3AD63EB544F28BA52' +
           '1D13CCD4A1E2A1F62BB5591A2FFE9A81D5B1C9B7F5B7CACE8503B' +
           'D8AE4FFBD85E8A60CED2EDF1DEB3D2C7F6133E7B2BA32757FD5D');
     chickens := BitmapFromString2(False, 'aF5E9278DA7D904B0EC' +
           '4200C43AF9484FCBAA403DCFF484D40D3328BE9E6C9728C2D0100' +
           '6815824C41D1D472C2647F9C36E91A54E024D787C74C8EBC8A7CD' +
           '2C1D9D63D48CEB7BF329AC778559233A3E3B81DC39CD753527336' +
           '5B2D371D3269A565C6B3C8642429FB715E71401984C8DCA9222A3' +
           '160DF491D1BF27BC688C797EEC2A44B8BC63788A216831F361347' +
           '8E5A817F5C8B3BF7F55DEFEBCB79DFBD00D73');
     woodcutting := BitmapFromString2(False, 'aCBF7C78DABD92DD0E8' +
           '33008465F0968F9F1D26A7DFF479AA0E9D8DC9665178BC9490387' +
           'AF1805009C2BECD41D20464EBC93D59C327B45C4C936C8ADFB193' +
           'C81E7987200F7E8D63E66D97C962C4C5E9C9B0C5FBB5FAFBC0D4A' +
           '6C2553F1CAC2CE5607659BFC1CF9B2C66CECAFE4C9A23866A5F92' +
           'C1637EB344B13203D0955895EF073F73F3436AA27DF3B6B38EBCF' +
           '4EEE0671A98CE51B677F3AC2790E12B3E1F4E0A4FA95D929CA852' +
           '0778F1CEAC4D0DEA565279B47DAF92EC73EB16D36B37F7CF15A69' +
           '45CB7CF85B2ECEB53B28177EE33CF106C4D');

     end;

    Procedure casthometeleport;
     begin
      loadbitmaps;//loadsbitmaps
      gametab(7);
      wait(400+Random(600));
       If(FindBitmap(hometeleport, lx, ly)) Then
        Begin
        wait(100 + Random(150));
        Mouse(lx, ly, 5, 5, True);
        if (FindBitmap(canthometeleport, kx, ky)) then
        begin
        writeln('cant use home teleport logging out');
        logout;
        end
        else
        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;
    freebitmap(hometeleport);
    freebitmap(canthometeleport);
    freebitmap(chickens);
    freebitmap(woodcutting);
    end;




    procedure WalkToTree;
    begin
      HighestAngle;
      MakeCompass('N');
      FindRoadColor;
      SetRun(true);

      RadialRoadWalk(RoadColor, 60, 65, 66, 0, 0);       //radialroadwalking
       fflag(10);
       WriteLn('to bridge');
      RadialRoadWalk(RoadColor, 300, 335, 75, 0, 0);
        WriteLn('to shop');
      RadialRoadWalk(RoadColor, 300, 335, 65, 0, 0);
        WriteLn('at shop');
      RadialWalk(1403451 , 260, 280, 70, 0, 0);     //radial walk
        WriteLn('at tree,s');
    end;



    procedure WalkToChickens;
    begin
      if Location='other' then
        begin



          casthometeleport;//casts home teleport
          HighestAngle;     //standard stuff
          MakeCompass('N');
          FindRoadColor;
          SetRun(true);

          RadialRoadWalk(RoadColor, 60, 65, 66, 0, 0);//radialroadwalking
            WriteLn('to bridge');
          RadialRoadWalk(RoadColor, 80, 120, 63, 0, 0);
            WriteLn('passed the bridge');
          RadialRoadWalk(RoadColor, 30, 50, 66, 0, 5);
            WriteLn('almost next to goblin house');
          RadialRoadWalk(RoadColor, 360, 335, 65, 0, 0);
            WriteLn('passed goblin house');
          RadialRoadWalk(RoadColor, 332, 350, 71, 0, 1);
            WriteLn('next to cows');
          RadialRoadWalk(RoadColor, 315, 330, 72, 0, 0);
            WriteLn('next to cows');
          RadialRoadWalk(RoadColor, 337, 350, 65, 0, 1);
            WriteLn('in chickenpen');

        SetRun(false);
      end
    if Location='Lumbridge'then
      begin
          HighestAngle;    //standard stuff
          MakeCompass('N');
          FindRoadColor;
          SetRun(true);

          RadialRoadWalk(RoadColor, 60, 65, 66, 0, 0); //radialroadwalking
            WriteLn('to bridge');
          RadialRoadWalk(RoadColor, 80, 120, 63, 0, 0);
            WriteLn('passed the bridge');
          RadialRoadWalk(RoadColor, 30, 50, 66, 0, 5);
            WriteLn('almost next to goblin house');
          RadialRoadWalk(RoadColor, 360, 335, 65, 0, 0);
            WriteLn('passed goblin house')
          RadialRoadWalk(RoadColor, 332, 350, 71, 0, 1);
            WriteLn('next to cows');
          RadialRoadWalk(RoadColor, 315, 330, 72, 0, 0);
            WriteLn('next to cows');
          RadialRoadWalk(RoadColor, 337, 350, 65, 0, 1);
            WriteLn('in chickenpen');
            SetRun(false);
          end;
       If Location='Chicken Pen' Then
         Begin
          Exit;
        end;
    end;


    function WalkTo:boolean;
    begin
    if skill='attack'then
      begin
        findroadcolor;
        WalkToChickens;
         If (FindBitmap(chickens, lx, ly)) Then
         Begin
           result:=true
           writeln('can find symbol at chickens exit')
         end
         else
           result:=false
           writeln('cant find symbol at chickens logging out...')
         logout;
      end;

    if skill='WoodCutting' then
      begin
        findroadcolor;
        WalkToTree;
        If(FindBitmap(woodcutting, lx, ly)) Then
         Begin
           result:=true
           writeln('found woodcutting place')
         end
         else
           result:=false
           writeln('cant find bitmap at woodcutting place logging out...')
         logout;
      end;
    end;



    function FindChicken(var x, y: Integer): Boolean;
    begin
      if(FindColorSpiralTolerance(x,y,857197,MSX1,MSY1,MSX2,MSY2,10))or
        (FindColorSpiralTolerance(x,y,6521491,MSX1,MSY1,MSX2,MSY2,10))or
        (FindColorSpiralTolerance(x,y,2638679,MSX1,MSY1,MSX2,MSY2,10))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
        0: if findchicken(x,y)then
           begin
             MMouse(x,y,1,0);
             Mouse(x,y,0,1,true);
           end;
        1: 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;
    WalkTo;
    end.
    ~Hermen

  2. #2
    Join Date
    Oct 2006
    Posts
    2,297
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    you need more failsafes while you walk.
    The best to solve this is locationing your character after every walk or every 2 walks by DDTMs of symbols even the music you have, just find something so you know were your character is located.

    I hope i helped,

    Stijn.
    [QUOTE=Santa_Clause;277761]I love you too TSN :p[/QUOTE]
    [CENTER][URL="http://www.stats.srl-forums.com/sigs"][IMG]http://www.stats.srl-forums.com/sigs/1324.png[/IMG][/URL][/CENTER]

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

    Default

    ehm.. for that piece of shit all that?
    ill will make new one :/
    ~Hermen

  4. #4
    Join Date
    Oct 2006
    Posts
    2,297
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by hermpie View Post
    ehm.. for that piece of shit all that?
    ill will make new one :/
    yea, just make sure that you c an localize your character at some points, not just once at the end
    [QUOTE=Santa_Clause;277761]I love you too TSN :p[/QUOTE]
    [CENTER][URL="http://www.stats.srl-forums.com/sigs"][IMG]http://www.stats.srl-forums.com/sigs/1324.png[/IMG][/URL][/CENTER]

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

    Default

    k some1 on this forum maked it working but i didnt safed it ...
    but its somthign with script not rrw i ques
    ~Hermen

  6. #6
    Join Date
    Aug 2007
    Location
    England
    Posts
    734
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    1. Work on your english

    2. If your feeling lazy then just
    Check your Start Point
    Walk
    Check Your end point

    that way if you dont find your endpoint then your lost and should switch characters
    The truth finally came out...


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

    Default

    i know i am really not good at english
    ~Hermen

  8. #8
    Join Date
    Oct 2006
    Posts
    2,297
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by mat_de_b View Post
    1. Work on your english

    2. If your feeling lazy then just
    Check your Start Point
    Walk
    Check Your end point

    that way if you dont find your endpoint then your lost and should switch characters
    Laughing people out because of their language problems is really low dude, change your attitude or be banned..
    [QUOTE=Santa_Clause;277761]I love you too TSN :p[/QUOTE]
    [CENTER][URL="http://www.stats.srl-forums.com/sigs"][IMG]http://www.stats.srl-forums.com/sigs/1324.png[/IMG][/URL][/CENTER]

  9. #9
    Join Date
    May 2006
    Posts
    1,230
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Look for stuff while you walking. Use symbols, dtms, landmarks, etc to find where your person is at all times.

  10. #10
    Join Date
    Aug 2007
    Location
    England
    Posts
    734
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    laughing people out? i wasnt mean about him speaking english
    its just quite hard ot understand whats hes trying to say with bits like that

    not rrw i ques
    The truth finally came out...


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

    Default

    wait the scar noob i can realize your reaction and mat the b's reaction its all cool i am just not so good at enlish i am 13..
    ~Hermen

  12. #12
    Join Date
    Aug 2007
    Location
    England
    Posts
    734
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yeh,basically i wasnt trying to be mean to you
    The truth finally came out...


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

    Default

    now your going to far!!!!!



    ~Hermen

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Can Some1 Help Me??!?!?!?!?
    By hunter_killer in forum OSR Help
    Replies: 7
    Last Post: 10-26-2007, 12:34 PM
  2. need help from a srl member or some1..
    By ShowerThoughts in forum OSR Help
    Replies: 2
    Last Post: 07-30-2007, 04:26 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
  •