Results 1 to 5 of 5

Thread: BMP help

  1. #1
    Join Date
    Jun 2007
    Location
    Greenville, SC
    Posts
    1,149
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    BMP help

    i need some help. lets say i got three BMP's... how would i make scar search for BMP1 or BMP2 or BMP3 and if it finds one of them, Found BMP = True

    thanks in advance

    ~rs2pro666

  2. #2
    Join Date
    Jan 2007
    Location
    Illinois.. >.<
    Posts
    1,158
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    If (FindBitmap(BMP1, x, y)) OR
       (FindBitmap(BMP2, x, y)) OR
       (FindBitmap(BMP3, x, y)) Then
         FoundBMP := True;

  3. #3
    Join Date
    Jun 2007
    Location
    Greenville, SC
    Posts
    1,149
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thank you soooooo much

  4. #4
    Join Date
    Apr 2007
    Location
    UK
    Posts
    2,295
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Lol nvm, too late

    Rogeruk's Al-Kharid Tanner V1.1 [Released]
    Rogeruk's Barbarian Crafter [Coming Soon]
    Rogeruk's Guild Fisher [Coming Soon]
    !! - Taking Requests - !!

  5. #5
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    This Works Too

    SCAR Code:
    program Find3Bitmap;
    var TheBitmap: array[1..3] of Integer;
         X,Y,I:Integer;

    Procedure DeclareBitmaps;
    Begin
      TheBitmap[1]  :=  BitmapFromString(4, 4, '000001000001000001D2CCCC9B9' +
           '090A19595CEC7C79B909089807FDED9D9CAC3C29A8E8E000001C7' +
           'BFBFA99D9D000001');
      TheBitmap[2]  :=  BitmapFromString(4, 4, '000001000001000001D2CCCC9B9' +
           '090A19595CEC7C79B909089807FDED9D9CAC3C29A8E8E000001C7' +
           'BFBFA99D9D000001');
      TheBitmap[3]  :=  BitmapFromString(4, 4, '000001000001000001D2CCCC9B9' +
           '090A19595CEC7C79B909089807FDED9D9CAC3C29A8E8E000001C7' +
           'BFBFA99D9D000001');
    End;

    begin
      DeclareBitmaps
      For I:=1 To 3 Do
      Begin
        If FindBitmap(x,y,TheBitmap[i]) Then
        Writeln('Found Bitmap '+IntToStr(i));
      End;
    end.

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
  •