Results 1 to 9 of 9

Thread: not working :S

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

    Default not working :S

    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, SST2, lx, ly, x, HowWeClick, SST1,  FindFastRandomsTime, FindNorMalRandomsTime, attack,y:integer;

    const
     Location = 'other'; //You can use Chicken Pen, Lumbridge, or Other.
     Skill    = attack; // skill
    {=====================================================================================]
                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 WaitPlusAntiRandoms(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');
     end;

    Procedure casthometeleport;
     begin
      gametab(7);
      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' and  skill=attack then
        begin
          casthometeleport;
          HighestAngle;
          MakeCompass('N');
          FindRoadColor;
          SetRun(true);
          RadialRoadWalk(RoadColor, 60, 65, 66, 0, 0);
          WriteLn('to bridge');
          FFlag(5);
          RadialRoadWalk(RoadColor, 80, 120, 63, 0, 0);
          WriteLn('passed the bridge');
          FFlag(5);
          RadialRoadWalk(RoadColor, 30, 50, 66, 0, 5);
          WriteLn('almost next to goblin house');
          FFlag(5);
          RadialRoadWalk(RoadColor, 360, 335, 65, 0, 0);
          WriteLn('passed 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('in chickenpen');
          FFlag(5);
        SetRun(false);
      end
    if Location='Lumbridge' and skill=attack then
      begin
          HighestAngle;
          MakeCompass('N');
          FindRoadColor;
          SetRun(true);
          RadialRoadWalk(RoadColor, 60, 65, 66, 0, 0);
          WriteLn('to bridge');
          FFlag(5);
          RadialRoadWalk(RoadColor, 80, 120, 63, 0, 0);
          WriteLn('passed the bridge');
          FFlag(5);
          RadialRoadWalk(RoadColor, 30, 50, 66, 0, 5);
          WriteLn('almost next to goblin house');
          FFlag(5);
          RadialRoadWalk(RoadColor, 360, 335, 65, 0, 0);
          WriteLn('passed 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('in chickenpen');
          FFlag(5);
         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,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;
    loadbitmaps;
    Move;
    antiban;
    killchicken;
    end.
    ~Hermen

  2. #2
    Join Date
    Nov 2006
    Posts
    1,103
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    any additional information?
    Infractions, reputation, reflection, the dark side of scripting, they are.

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

    Default

    i want that some1 can say which skill
    and then in a moveto procedure if loc is other and skill=attack but that gives an error
    ~Hermen

  4. #4
    Join Date
    Nov 2006
    Posts
    1,103
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    if (Location='Lumbridge') and (skill=attack) then
    Infractions, reputation, reflection, the dark side of scripting, they are.

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

    Default

    thanks

    SCAR Code:
    skill=(attack);
    Line 12: [Error] (12952:8): Unknown identifier '' in script H:\Documents and Settings\Hermen\Bureaublad\lumby all in one.scar


    skill=(attack) is a const the problem is line 12 skill=(attack)
    dont know whats wrong i needs a var?
    ~Hermen

  6. #6
    Join Date
    Nov 2006
    Posts
    1,103
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    doh, 'attack'
    Infractions, reputation, reflection, the dark side of scripting, they are.

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

    Default

    i already did that
    ~Hermen

  8. #8
    Join Date
    Nov 2006
    Posts
    1,103
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    SCAR Code:
    skill = attack
    !=
    SCAR Code:
    skill = 'attack'
    Infractions, reputation, reflection, the dark side of scripting, they are.

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

    Default

    i know i tried that before but maybe i did somthing else wrong thanks dude
    ~Hermen

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
  •