Results 1 to 3 of 3

Thread: Dupe identifier Bitmapcount

  1. #1
    Join Date
    Jan 2007
    Posts
    834
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Dupe identifier Bitmapcount

    Something with my bitmaps???

    Code:
    //JUNKJ LRKJUNKJ LRKJUNKJ LRKJUNKJ LRKJUNKJ LRKJUNKJ LRKJUNKJ LRK
    //JUNKJ LRKJUNKJ LRKJUNKJ LRKJUNKJ LRKJUNKJ LRKJUNKJ LRKJUNKJ LRK
    //JUNKJ LRKJUNKJ LRKJUNKJ LRKJUNKJ LRKJUNKJ LRKJUNKJ LRKJUNKJ LRK
    //JUNKJ LRKJUNKJ LRKJUNKJ LRKJUNKJ LRKJUNKJ LRKJUNKJ LRKJUNKJ LRK
    //JUNKJ LRKJUNKJ LRKJUNKJ LRKJUNKJ LRKJUNKJ LRKJUNKJ LRKJUNKJ LRK
    ///////////////////////////////////////////////////////////////////
    //                            JUNK's LRK
    //bitmap eating procedure           infight to keep fighting if not done
    //bitmap hp checker                 cooked meat eater(sorry)
    //failsafes                         small const, big result
    //////////////////////////////V1.00////////////////////////////////
    
    
    program LRK;
    {.include srl/srl.scar}
    {.include srl/srl/skill/fighting.scar}
    {.include srl/srl/Core/Bitmaps.scar}
    
    Var
    x,y,foodbmp,kill,hpchk :integer;
    /////////////////////fill this in/////////////////////////////////////////////
    const
    mousecolor= 4013378;// your mouse color
    eat= true; //do you want to eat?Cooked meat can only be eaten
             //cook raw beef from a fire and get Cookes meat
    howmanykills= 10; //how many do you want to kill
    //////////////////////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////dont touch the rest
    procedure EatFood;    // thanks to marpis
    begin
        foodbmp := BitmapFromString(13, 12, 'beNpzMpoV7zEpyqU/0rnWV' +
           '2BAENBqZERdZbhUEmkaJagn3KkxwGZqjCseK7pCHer8rEs9zBal+A' +
           'AjAqvi9mB7oDkQZSsz/Zek+cIVQyIOiIDmAJW1BNlV+1hmAwB9+ZV' +
           'I');
           if(eat = true)then
           begin
           Writeln('said yes to eat.');
         GameTab(tab_Inv);
        wait(100+random(20));
       if (FindBitmapToleranceIn(foodbmp, x, y, MIX1, MIY1, MIX2, MIY2, 20)) then
      begin
        Mouse(x, y, 2, 2, true);
        freebmp(foodbmp);
         writeln('Ate food successfully!');
          wait(1500+random(200));
          end
           else
         if not(FindBitmapToleranceIn(foodbmp, x, y, MIX1, MIY1, MIX2, MIY2, 20))then
        writeln('Could not find food');
        end
       else
       if (eat = false )then
       begin
       Writeln('Said no to eat');
       end;
      end;
    
    Procedure hpcheck; //marpis again tought me bitmaps
    begin
    gametab(2);
      hpchk := BitmapFromString(32, 11, 'beNp1kzFOQzEQRB0EHIEmBT0' +
           'NFR1NpFD84iMFJVJCASfgBJwCDkNHkXugXCU89KRh5Q/RKJq1d2fX' +
           'Y//dehwHsFwuVg8jZBju5JvNClI5u+bUtPCaAKcEDtnu1pYnGfL0/' +
           'Mhixw3VF114PDZgJiUUOhtbdEkLuzhGxxe3N0CFZMpRZqu1nxa1EN' +
           'gIZEJDmlauD3ZxkdkqR5wE9Pm5aDm1/scTpTr+p//MlgPqD9xGlqe' +
           'RFkk0rePqd2FECD2CLQwpb20WxCWd0duaAFx0ZhR8J1blIvg5Gyv7' +
           '65NABbcoMXy/PAWv83PBSvXcuyPfa2Ul/jvk18u9OFzNREb9uDgDU' +
           '33H1vlcIlz/dSlv5vD5BmqLeqLody3q8/Dz0ajWfh+PW1P9/1pMj6' +
           'CNfoD1LsK335Y7N7k=');
        if(FindBitmapToleranceIn(foodbmp, x, y, MIX1, MIY1, MIX2, MIY2, 20)) then
         begin
          writeln('Health is 3, eating food');
           EatFood;
           freebmp(hpchk)
           end
          else
         if not(FindBitmapToleranceIn(foodbmp, x, y, MIX1, MIY1, MIX2, MIY2, 20)) then
        begin
       writeln('Health not 3,skipping eat');
    end;
    end;
    
    Procedure clickkiller;
     begin
     hpcheck;
      if FindObj(x, y, 'ttack', mousecolor, 35) then
       begin
       writeln('found the fight');
      mouse(x,y,3,3,false);
       Chooseoption('ttack');
        boredhuman;
         randommovement;
        sleepandmovemouse(5000+random(1000))
       if(infight)then
      begin
     repeat
     writeln('Not done with fight, repeating until its done');
      boredhuman;
        randommovement;
         sleepandmovemouse(5000+random(1000));
        until not(infight)
        if not (infight) then
        writeln('done with fight');
        kill:=kill+1
      end;
     end;
    end;
    
    procedure proggy;
    begin
    writeln('Killed aprroximitely ' + inttostr(kill));
    writeln('ran for '+ (timerunning));
    writeln('Junkjs Lumbridge Rat Killer');
    writeln('end of the script');
    end;
    
    begin;
    setupsrl;
    cleardebug;
    activateclient;
    repeat
    clickkiller;
    hpcheck;
    until(kill>=howmanykills)
    if(kill>=howmanykills)then
    logout;
    proggy;
    terminatescript;
    end.
    erroruplicate identifier 'srl_BitmapCount' in script C:\Program Files\SCAR 3.21\includes\srl\srl\Core\Bitmaps

  2. #2
    Join Date
    Feb 2007
    Posts
    3,616
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Take out:

    SCAR Code:
    {.include srl/srl/Core/Bitmaps.scar}

    And it works fine. You do have a line that says Freebmp in there which you will need to change to FreeBitmap for it to compile. Everything in the core folder is included in every script as long as you have a {.include SRL/SRL.scar}, so no need to include anything extra from there.

  3. #3
    Join Date
    Jan 2007
    Posts
    834
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks again jad.

Thread Information

Users Browsing this Thread

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

Posting Permissions

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