Results 1 to 5 of 5

Thread: Someone give me a hand

  1. #1
    Join Date
    Dec 2006
    Location
    Australia
    Posts
    698
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default Someone give me a hand

    Ive hit a brick wall can someone help? the script aint running.. ive tried to find answers but no luck

    SCAR Code:
    {
              <>< <>< <>< <>< <>< <>< <>< <>< <>< <>< <>< <><
              <>< <>< <>< <>< <>< <>< <>< <>< <>< <>< <>< <><
              <>< <><                                 <>< <><
              <>< <><        The Gits Abattoir        <>< <><
              <>< <><     Cow Killer, Hide Banker     <>< <><
              <>< <><        And Bone Burrier         <>< <><
              <>< <><                                 <>< <><
              <>< <>< <>< <>< <>< <>< <>< <>< <>< <>< <>< <><
              <>< <>< <>< <>< <>< <>< <>< <>< <>< <>< <>< <><
    }

    Program Abattoir;
    {.include SRL\SRL.Scar}

       var
       killed : integer;

       Const
            StartPlayer = 0;           // Starting Player
            MyNumberOfPlayers = 1;     // Number of players

            //Colours
            Bone = 13421772;           //Bone Colour
            Hide = 11185588;           //Hide Colour
            Tolerance = 5;
            MonsterName = 'Cow';
            kills = 10;



       Procedure ProgressReport;
       Begin
            WriteLn('<>< <>< <>< <>< <>< <>< <>< <>< <>< <>< <>< <><');
            WriteLn('<>< <><                                 <>< <><');
            WriteLn('<>< <><        The Gits Abattoir        <>< <><');
            WriteLn('<>< <><                                 <>< <><');
            WriteLn('<>< <>< <>< <>< <>< <>< <>< <>< <>< <>< <>< <><');
            WriteLn('');
            WriteLn('Player        Status        Kills        Time  ');
       End;
       
       Procedure DeclarePlayers;
       Begin
          HowManyPlayers:= MyNumberOfPlayers;
          NumberOfPlayers(HowManyPlayers);

            Players[0].Name :='trader';
            Players[0].Pass :='';
            Players[0].Nick :='eed';
            Players[0].Active :=True;

       End;

      function InFight: Boolean;
    begin
      Result := (FindColor(x, y, 65280, 230, 130, 280, 180) or FindColor(x, y, 255,
        230, 130, 280, 180))
    end;

      function AttackMonster(Tolerence: Integer): Boolean;
      begin
      repeat
      begin
      InFight;
      wait(100)
      if InFight = false then
      begin
      if (FindColorTolerance(x, y, 14804196, 79, 95, 592, 429, Tolerence)) and
        (FindColorTolerance(x, y, 2576236, 79, 95, 592, 429, Tolerence)) and
        (FindColorTolerance(x, y, 2708595, 79, 95, 592, 429, Tolerence)) and
        (Option2('Attack ' + 'Cow' + '')) then
        begin
          Mouse(x, y, 5, 5, True)
          writeLn('WOOOOO COOWWWW');
          wait(100)
          killed:=killed + 1 ;
            Result := True;
        end
      else
        if (FindColorTolerance(x, y, 14804196, 79, 95, 592, 429, Tolerence)) and
          (FindColorTolerance(x, y, 2576236, 79, 95, 592, 429, Tolerence)) and
          (Option2('Attack ' + 'Cow' + '')) then
        begin
          Mouse(x, y, 5, 5, True)
          writeLn('WOOOOO COOWWWW');
          wait(100)
          killed:=killed + 1 ;
            Result := True;
        end
        else
          if (FindColorTolerance(x, y, 2576236, 79, 95, 592, 429, Tolerence)) and
            (FindColorTolerance(x, y, 2708595, 79, 95, 592, 429, Tolerence)) and
            (Option2('Attack ' + 'Cow' + '')) then
          begin
            Mouse(x, y, 5, 5, True)
            writeLn('WOOOOO COOWWWW');
            wait(100)
            killed:=killed + 1 ;
              Result := True;
          end
          else
            if (FindColorTolerance(x, y, 14804196, 79, 95, 592, 429, Tolerence)) and
              (FindColorTolerance(x, y, 2708595, 79, 95, 592, 429, Tolerence)) and
              (Option2('Attack ' + MonsterName + '')) then
            begin
              Mouse(x, y, 5, 5, True)
              writeLn('WOOOOO COOWWWW');
              wait(100)
              killed:=killed + 1 ;
              Result := True;
            end
            else
            begin
              Result := False
                Exit;
            end;
         end;
    end;
    until killed=kills;
    end;

       Procedure ScriptBegin;
      Begin
      if(not(LoggedIn))then
           LoginPlayer;
      InFight;
      MouseSpeed:= 8 + random(3);
      if InFight=false then
           begin
            AttackMonster;
           end
      End;

      Procedure Setup;
      Begin
           SetUpSRL;         //SRL Setup
           DisguiseScar('Itunes'); //Cloak Scar just incase
           ActivateClient;   //Activate client window
           ClearReport;      //Clears report
           ClearDebug;       //Clears Debug
           DeclarePlayers;   //Player Declare
           CurrentPlayer:= StartPlayer; //  Sets starting player
           ProgressReport;   //Progress Report
           ScriptBegin;             //Main Loop
           if(not(LoggedIn))then
           LoginPlayer;
      End;
     
    Begin
         Setup;
    End.

  2. #2
    Join Date
    Oct 2006
    Location
    New Zealand
    Posts
    423
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    {
              <>< <>< <>< <>< <>< <>< <>< <>< <>< <>< <>< <><
              <>< <>< <>< <>< <>< <>< <>< <>< <>< <>< <>< <><
              <>< <><                                 <>< <><
              <>< <><        The Gits Abattoir        <>< <><
              <>< <><     Cow Killer, Hide Banker     <>< <><
              <>< <><        And Bone Burrier         <>< <><
              <>< <><                                 <>< <><
              <>< <>< <>< <>< <>< <>< <>< <>< <>< <>< <>< <><
              <>< <>< <>< <>< <>< <>< <>< <>< <>< <>< <>< <><
    }

    Program Abattoir;
    {.include SRL\SRL.Scar}

       var
       killed : integer;

       Const
            StartPlayer = 0;           // Starting Player
            MyNumberOfPlayers = 1;     // Number of players

            //Colours
            Bone = 13421772;           //Bone Colour
            Hide = 11185588;           //Hide Colour
            Tolerance = 5;
            MonsterName = 'Cow';
            kills = 10;



       Procedure ProgressReport;
       Begin
            WriteLn('<>< <>< <>< <>< <>< <>< <>< <>< <>< <>< <>< <><');
            WriteLn('<>< <><                                 <>< <><');
            WriteLn('<>< <><        The Gits Abattoir        <>< <><');
            WriteLn('<>< <><                                 <>< <><');
            WriteLn('<>< <>< <>< <>< <>< <>< <>< <>< <>< <>< <>< <><');
            WriteLn('');
            WriteLn('Player        Status        Kills        Time  ');
       End;

       Procedure DeclarePlayers;
       Begin
          HowManyPlayers:= MyNumberOfPlayers;
          NumberOfPlayers(HowManyPlayers);

            Players[0].Name :='trader';
            Players[0].Pass :='';
            Players[0].Nick :='eed';
            Players[0].Active :=True;

       End;

      function InFight: Boolean;
    begin
      Result := (FindColor(x, y, 65280, 230, 130, 280, 180) or FindColor(x, y, 255,
        230, 130, 280, 180))
    end;

      function AttackMonster: Boolean;
      var Tolerence: Integer;
      begin
      repeat
      begin
      InFight;
      wait(100)
      if InFight = false then
      begin
      if (FindColorTolerance(x, y, 14804196, 79, 95, 592, 429, Tolerence)) and
        (FindColorTolerance(x, y, 2576236, 79, 95, 592, 429, Tolerence)) and
        (FindColorTolerance(x, y, 2708595, 79, 95, 592, 429, Tolerence)) and
        (Option2('Attack ' + 'Cow' + '')) then
        begin
          Mouse(x, y, 5, 5, True)
          writeLn('WOOOOO COOWWWW');
          wait(100)
          killed:=killed + 1 ;
            Result := True;
        end
      else
        if (FindColorTolerance(x, y, 14804196, 79, 95, 592, 429, Tolerence)) and
          (FindColorTolerance(x, y, 2576236, 79, 95, 592, 429, Tolerence)) and
          (Option2('Attack ' + 'Cow' + '')) then
        begin
          Mouse(x, y, 5, 5, True)
          writeLn('WOOOOO COOWWWW');
          wait(100)
          killed:=killed + 1 ;
            Result := True;
        end
        else
          if (FindColorTolerance(x, y, 2576236, 79, 95, 592, 429, Tolerence)) and
            (FindColorTolerance(x, y, 2708595, 79, 95, 592, 429, Tolerence)) and
            (Option2('Attack ' + 'Cow' + '')) then
          begin
            Mouse(x, y, 5, 5, True)
            writeLn('WOOOOO COOWWWW');
            wait(100)
            killed:=killed + 1 ;
              Result := True;
          end
          else
            if (FindColorTolerance(x, y, 14804196, 79, 95, 592, 429, Tolerence)) and
              (FindColorTolerance(x, y, 2708595, 79, 95, 592, 429, Tolerence)) and
              (Option2('Attack ' + MonsterName + '')) then
            begin
              Mouse(x, y, 5, 5, True)
              writeLn('WOOOOO COOWWWW');
              wait(100)
              killed:=killed + 1 ;
              Result := True;
            end
            else
            begin
              Result := False
                Exit;
            end;
         end;
    end;
    until killed=kills;
    end;

       Procedure ScriptBegin;
      Begin
      if(not(LoggedIn))then
           LoginPlayer;
      InFight;
      MouseSpeed:= 8 + random(3);
      if InFight=false then
           begin
            AttackMonster;
           end;
      End;

      Procedure Setup;
      Begin
           SetUpSRL;         //SRL Setup
           DisguiseScar('Itunes'); //Cloak Scar just incase
           ActivateClient;   //Activate client window
           ClearReport;      //Clears report
           ClearDebug;       //Clears Debug
           DeclarePlayers;   //Player Declare
           CurrentPlayer:= StartPlayer; //  Sets starting player
           ProgressReport;   //Progress Report
           ScriptBegin;             //Main Loop
           if(not(LoggedIn))then
           LoginPlayer;
      End;

    Begin
         Setup;
    End.

    compiles now. there was a few minor errors in it:
    the variables in attack monster were in wrong place
    if InFight=false then
    begin
    AttackMonster;
    end//no colon
    End;

    i think youll need to tweek the procedures alot now that it compiles

  3. #3
    Join Date
    Sep 2006
    Location
    West U.S.
    Posts
    2,172
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    something is wrong with your Attackmonster function

    your prolly missing some sort of variable but i cant tell what because of all your colortolerences lol

    They are sisters...
    Runescape Classic

  4. #4
    Join Date
    Dec 2006
    Location
    Australia
    Posts
    698
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    ok starting rebuild.. complete scrap of the first verison

  5. #5
    Join Date
    Oct 2006
    Location
    New Zealand
    Posts
    423
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    you should just build on the one i posted because it compiles and will probably work if your procedures do

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Need A Hand
    By Rich in forum OSR Help
    Replies: 5
    Last Post: 12-09-2008, 09:36 PM
  2. can some one give me a hand with this error?
    By jakeyboy29 in forum OSR Help
    Replies: 3
    Last Post: 06-29-2008, 04:25 PM
  3. Trying my hand at web design.
    By Torrent of Flame in forum Graphics and Multimedia
    Replies: 17
    Last Post: 06-02-2008, 10:02 PM
  4. ugh can anyone give me a hand...
    By Camaro' in forum News and General
    Replies: 9
    Last Post: 07-16-2007, 12:46 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
  •