Results 1 to 6 of 6

Thread: Bitmap problem

  1. #1
    Join Date
    Oct 2006
    Posts
    13
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Bitmap problem

    I'm trying to write a script for an online (text-based) game me and a couple of friends play.

    On my computer, everything works, it finds the bitmaps etc.
    But on the computer of my friend, it doesn't =/

    I have compared a couple of screenshots (in RAW format, so nothing gets lost) and saw that his pixels were a little bit darker then mine.

    I edited my script with FindBitmapToleranceIn instead of FindBitmap, but it still doesn't work =/
    Here is the script, the problem should be in the ClickBitmap section =/
    SCAR Code:
    program Tribalwars;

    var
      Login, Bouwopdracht, Dorp, World, Hout, Uitbouwen, Klassiek, x, y, width, height,  i : Integer;
      acc : extended;
      W : Array [0..7] of Integer;
      Gebouw : Array [0..15] of Integer;
      Num : Array [0..9] of Integer;
      MousePos : Array [0..1] of Integer;
      Beschikbaar : Array [0..15] of Boolean;

    procedure Loadbmps;
    begin
      Login := BitmapFromString(2, 12, 'beNpzcPi0exsQ/QeDq6UFj5qaf' +
           'n/88J8UsNDBYSEA8PRAUg==');
      W[0] := BitmapFromString(6, 9, 'beNoL93t3puP4qqLstLDIcBAbiIAM' +
           'OIKIIIvTWgTZdhACAJjrW1c=');
      W[6] := BitmapFromString(7, 9, 'beNo70xEZ7oeJ3p3pQEY1JYlogsdX' +
           'FQFFgOKYyoBSaMqy08Iwle1dlEOpMgBIx3B0');
      W[7] := BitmapFromString(7, 9, 'beNo703Fnb117Y1Z2WlhkuB+QBLKB' +
           'IjUliUDu3kU57850LOuLh0gBSSACikAQhAtUD1d5fFURRARoAkQ9x' +
           'GQggpsJVANEEDMhIphmQsSBaoAiQJMhIpjufAcA/5VdkA==');
      Gebouw[0] := BitmapFromString(90, 11, 'beNq1ls1u2kAQx3mzmoc' +
           'BQfMSXIBDm9AT3Cu4GCjqAxB8jAht+IhaWemlBWOXpOLDxiY5dbyz' +
           'u9712qZqVWkOZpgdz/z2v+N1netCrqLl9KHl7azjfn0cleFnpXC5O' +
           'tj+wQ7cjWgn7/H5+IQGzzH/i/9rUQuztdqTwHXQfJLHNy+bkFbTRq' +
           'ZNPYqFb9+voQwwd7ui9YCxtdcm/Zf6mf25U7TYe9H+moYIhNGYGsU' +
           'wW9eQUfxPGuhJ82fQSLRzNAbdsBK01wtG48X/2Iv8F+i/r3NPrlK8' +
           'soAGZouM0Ujyk3rGWA+aPiKbyGm06apme8zo9fQoSWm2l+O/QlNdn' +
           'T2jbiu1Plnb435Ysmxr4V/VXiaNPkGRN8wNw3JxH9JAFHnjG39G/5' +
           '2kDfMq0oOojZRnsULehRATVstjCNW+El+eCzokWopoBAbCDGOObDu' +
           'a72/4FugjW9yLyAiNFRIrNixyHOhM6NzZnTzxv7OJTlASrc7nwP0k' +
           '0rBwOYIVul6l+NlGvP1BRD6rogxuxe5gW+c16md5aPxUiYecEg33Q' +
           '5f5MTlZ/mZJCYeUMrRBX1cbBIk06gM8NYs6ljHxD5MEGkSZCTQUP5' +
           'WrbLHuOA0Y1DRPtevJNECTLVVv5hpKYiT7YdfVHllSmmN+Us95Gqn' +
           'aaFjeI8zPBX3FxNvd/guNmDb42Be7C1wKPKKhaIPHG6bD9QDPQnda' +
           'E4cS+dksaHhMsmlkzA2d+U8e+svTne1ux0lzQzrLwhyI+/lIhGJww' +
           'kO/UKREQ+g0bW4wAliGTIOPIGnycNTOqBBNb5HGkvzkmXH+LNgtgk' +
           'HI8blE9pFqAzn7XF3Kt0M5FK+GX1bwVXW3N0N5jkFHp4dGSz4+PL/' +
           'QTljGjF0krHj+vPEAMv4J0sJ+sUGIpB8a8gWUrgRJxi9RMSOZnfgV' +
           'i8Vn55TuFcMSjrLvW6RBLTom8nuzc/JrFVb4fNzI9yUnMVLNn9a1a' +
           'tlFnqWhXir4wY/do9QXnSUco0G2LKKRFhnZb00N7Kg=');
      Gebouw[1] := BitmapFromString(54, 9, 'beNqtk81OwkAQx/tmLg8D' +
           'ofASvVBPiid4gXppQZ6gtNwMmCBgNI2etAU/g1AK6sndmd3utjVGj' +
           'ckcZmc709/+Z8ZbbNddm2gG0Ww32rxGyaqDR8Psbtf0drGLH1V72z' +
           'y9J8+p0aMa/9i+7OJ71bDIDy1ZzalRDGrxMgSeeY5w0sjgfUNIYVJ' +
           'INDz+FyEaRDqS0K0yvPJByFM4vLCSHwDhoG5k4lr7eAx4Y78ig46P' +
           'hEIB66CFxQNwCPEsHb9sWSNBOOyXZQWKBMCOIESH9IO5+i6uXtBss' +
           '9vaTO3yzREE6xdMyZ7DX0HBTsAn1M8/UxJCp7ivT6UgpH8VCSoGkx' +
           'KmFe5WKmHXycglCQWS1hnANPo1SG9G0NyZCdpaZ1JDT9RMNQwkFfM' +
           '9HQFuob/nDS5vvLQ5YaNqc82H2VKsubsYeSQhMhj7PVyW0CrlWv9b' +
           'wtAixQoqoZxDnitSKlSWAiGOIlwhYSIUiPKb8kcNcWvUdbA9FuG7T' +
           'PQJ/QBTKofspz5OtT6L0zEr+dcPRRKxIOyBQJWPp4TKjO25l6GiFf' +
           'VDCpOrIN4oBhs2emoKwU3dEYRRoR3QTZo78sqZ+Ff1FUK5EUhI7dT' +
           'NVfgEPi2yeg==');
      Gebouw[2] := BitmapFromString(14, 16, 'beNpd0csrhGEUx/E/Sdl' +
         'IsjEbIpcGY8G4LBBZyQZZTHYjySiNQkkil1wWmixlYyMLO1uXJcZl66NTb2/q' +
         '19t5z+/7nHOe81RfP9+eQo/3l5dH5aXCzPz0GAn8Sn5/vHy9P1NgD7fn3IFs2' +
         '3i+lyaGcr59Hc2SLDAFNjM5nG3JDPa0j+Q6abS/O2LJgKOmRqqxlDrbK8lrKo' +
         'hTBFDz5mpXFyRdnW78VF9DrOOdZRaSBVsrzhlJwc3VAjdN6qh1DAMzoYAqR+s' +
         'xeYLR9soCUmVY3LG1qfHu+jDIUJAHW0WXAsBUE6fJYCJGZhrqADCTiKlyUk72' +
         'FqQx3DpcmIdQkBZnp9LVyK70hXHjvSxBLPOPtLQoCIhntQG/9bU1F/ulNKlLk' +
         'IDI2yqMWOnWLhIVAEne5g3Aii7JcUlWensWm891qZCQrhATsv5e7Rfh15+R');
      Gebouw[3] := BitmapFromString(16, 16, 'beNptks1LAlEUxf/N0Zj' +
         'VQAgN9kEDQ7lQIgljIDMEJYNCBKWCgjbRpjYugha1a5+2zLLa9tMz3R7pcHm8' +
         '9+ace8+5940G3x+vivPeYVLZen68frq/OqiWL8+Ovt6HFgazm71ke2U5jKJ11' +
         'jBcgjsXf3fTBdms7/q+n/n92HM5F9/rNMjpgo1S2Ig6J7VZPTvlkjAoAcA6OX' +
         'ge8dC/wJGLx93aal54wJ+jQbddF5iI47h/ewoelvC1agV3wudyixhhFZhCQRC' +
         'gqtVISsVN8pAN/ej50z9FQlnIZs0Le3Iet/bByw4NTylS4nDNPl7Ai4ILiUz1' +
         'TD+SIN7cIYnmG0UsepviPY+/47cXWJIEEeXciKKAwmSVEM1MzaxRmnL/8Bzpx' +
         'uz4aBSpBDCK9hSlk1DQoACMTl6gm9kC2dQlGwaZFzA6Q9uV331UFirEC2eaNE' +
         '3HiYwfZCPv0w==');
      Gebouw[4] := BitmapFromString(16, 16, 'beNp90b0rhWEYx/FRFrM' +
         '/ACnJJGVQCCWxPIO81CnqnEQRqXMs3gYDi6T8CRwWi8F4mGSQstm8bd5ZfXTV' +
         '0+ko9evud1/393p7nlLx+/2pQrdXJ8tDLZsj3czX22OF/vJ7+cxiUzXtb81/v' +
         'j6UK/jy9PPDbeRO16/WW6tcg/x4uaf357ty/rJUzHfUIrNJDzEGuz47CDj4m4' +
         'tjGNi0ZlZcSmEut7q0yGgRi4BhYEMaGM+AASqDN1YKmf52LWIRPIzRkU6PdqM' +
         'yIDeeDPZ1JgO9TGzhCRBkY0Ndd1vzcH2NEyAleEqvGjEAMHnCCxp7LBmYnZqc' +
         'nhilhZmsJ6cJoyDpK0Kw/MLc1saayc0fK5AgeVVNEQUZTXmMdAo+9eDoC2PS0' +
         '6usmIqiAhNxpxSLx2oi0TRlXHmR2EgE7C9EesqbNr5DDONqu5gBXMHHdv/zvL' +
         'Kh+CyR7hrfJ74M7PIHu9Z8tQ==');
      Gebouw[5] := BitmapFromString(16, 16, 'beNptkTFLA0EQhf+E/0H' +
         'QytKAzZWmOisxRVCra1RQ0IggXKdCCIJwEgQ1WgQ02EgKQRsFmwhiOmuTqE3O' +
         '3JmUfvDIsKjLsMztfTvz5m3c6vc+iEHyyZ7GnaTbbjauq6eljdWAeH686vc63' +
         '19ti0HyzolCJ8ATY6OZzKTneedHRRc20uWf7i+Bfd9nX1leen25+fcKrc9Kha' +
         '2ZqcXxEepns9PU59ZdveLyLqbYX8tzIj3sm4V1g9O45WL1WtnaLczn1YVxXB6' +
         'Mjoah1nKM+iU+6b7VLirEyXH5MIrCMNz5s9BjCeMX97ZpylzknCjC4SIPgiA3' +
         'NwvArtnZyb3h4jqf6IfRCVNTFm3okaXk0cEumHoBU5aET+LhtgqpsCfgofFHg' +
         'HgSKlPEYPG6Ak8XCdYUkFiKHnKJcXncwwRZhFdqZJL4C4z/pociek2MgidHFb' +
         'meTMVdHpdoqsF5ERnCpJyb+PQHQznvvA==');
      Gebouw[6] := BitmapFromString(16, 16, 'beNpNklsog2EYx+/IFSn' +
         'u5FCUktwohQs5RE7NxZKh5tgw1szMHIacMsxms5lToSwXEykXLsSFREpy5d7h' +
         '0mnc+s1TX6t/b8/3vr/3/z6H7+Ml9PHy/f78dH96FAys+f1en59VArTq9XlW3' +
         'fuBPYCfz1dI4YF9ay7Xit3hmGMNyzkf1v8O4orwBLs7G9tb6xzZ7bNTM7ZIjU' +
         '8MDo+akNu9BAaM86Stx2zRiqzWdhGx0ajRG9SdXSpF3Hq8PV5cGCgpzxBl5cb' +
         'nFibkFyWzEitKy4pp1lYBk9XFWWBoWF9WndfaoYKsUxdomkpZK2uzcSDmCPj8' +
         'dBMYUTvJp2QmsQmm06nJZMDYSgBcUVPM0bJzTlqE7q5O8O/u0fQZtPC8QoCE1' +
         '7bV49Oha3m4PhQe4U9pdIMcILnLE/2mLkhibtFbBUb002zppc+SNsUiMGxpJg' +
         '40U0jmxcpA2ccEWKXOobSToIcAcx7lIQwjeRrLJvOiP5BytO4dI3l89CYdf0U' +
         'kD5mYHMdA4amLTcRFqTQ9O1Xpz+/XGysm8LbpEdJW+gAv/eGI6m4uDwRGfEbH' +
         'RnGLUTJExZ/y6xsbOOIVeKU/8AyFPLHCX/5b8mey8GwKH/oDCgqiEA==');
      Gebouw[7] := BitmapFromString(17, 18, 'beNptk88rRHEUxf8NOxt' +
         '2WMxqVlKysFDK1BSWiBRm8TKpsZopk4WiZGMQohA1yWZSNIspKRYWU7P0Y6z8' +
         'eOPH0odTt2/fp07Te3fOuffcM3fCeuP1QQhf7g2127PrUmF7YbxcXP0K65/vT' +
         '8LH2yMwCc8UIUPbW5o5XM/dVY54/W48SyW+QB1Ur05EPt3J31zuSy6VO8ja4k' +
         'FkOBAEiruzvRcbAd1UkYSGK0Ei6G9DoopJhrtalkfjW9Od7GVFoOmosoOx880' +
         'MEyFQAd0dTWM9rZlkjIrbSoBQWEzREyfgODfEJ/ypvnaKvOLNdrFAGIdJppCV' +
         'rNJfxkBpLQXBk3iZzE0kBuLNDEIL0NJQCbtRWPg85Ocn2YUEUCHHIQGaxO0fl' +
         'ShMNsUtG+lbD/pxXWOQGRHNwQW2cSI+4ZMDCSAB/BD/SsgNS6jgCyZhUJTPdu' +
         'SMK42QUGlL4q2jANkdCWRUOgCNkDGLyD0JmwIZoQ3iJOxEPXDSSAiWQ8qmR9j' +
         'r9+928HfnP5SCf8M=');
      Gebouw[8] := BitmapFromString(16, 16, 'beNpd0r0rBWAUBvDtDkT' +
         '5M1DCYDMgSTLIx6IoShaDQSLRlSRFVxnEXUhZCNOdLMogFqPB6GP0ea1+nNtL' +
         '6vT2nud9zjnPec95fSy+luzupnB+uLo53jjXUZ7tqphpy0y3ZNZH6oGePt+ew' +
         'j5eHtjt1fHufO9id2V+qv3iNJcbrV0ZrHHZnmwWDkQIvszuCAudZVJFLVVkfn' +
         '++Z0DlhKPJrNbB0sByT5Xq+dk+LjDxf19bv6twC/kp4ZLAaaYKuDXRhB9kIo/' +
         'WRhEIQ5YKGP2mEHwC9rP9UkVRtbgbYw0QfaUvQtYIAfC/ZIbmSTmpVBEbJ0Rp' +
         '7Tg9ERb42nB1pEp8MhhkqC7DXAIJi9HIplBMIfTEvJgnHf3TI4rIRCbDSQPTo' +
         'PYjBIGrii/yt5eFHTSvQK+0xX8mEEHFs70ZYAydG2RDjx5jXkDCNBvzin3gAt' +
         'M+hJ60Dxq3MLfXJ1QFQUhpOj/7Jpy5cKNrZDT8tKhpnxEkjJFp8O8+F78AxVm' +
         'pCQ==');
      Gebouw[9] := BitmapFromString(16, 16, 'beNp1kb1LglEUxv+H/oD' +
         'mBmtwaHEQGoTEKRyczKQlQ/oASRAFXfwAERN5wUE0KSSiQRqaWoKmlppaWlXM' +
         'xe/a+sGBw+3V4OFy77m/e55zzh33FpP+fNyzyQy+PbfzMf/R3mbCs4b+4z/fH' +
         'zvtykXEJ5hqMRmoAG7qxY/Xzn35uBTaMjGOBLkCwxEsky1UrUrxsqrWSj5dJb' +
         'DDdzbqQqbSmVrrunF7Z9Wb8FoDZb88WGad8NxGT87BEBa8ZYXEdLkvhPthwA2' +
         'DsMCIJ5iunAPCkWzAUgwb7JCtEp0b/dJ1LJ4krZCi4H4YF2nTxiMT5i2SDRMj' +
         'm8l/T7/gScWtdIHYk3/X60N8itnLz2zIE5JgUSjVTBItlyR/Ws6dMVgaZ0VMD' +
         'HHUCAKDZyV4euAiIqsyHJn2tnMd7bg3yCm85pS/UFh4SBsvvpABrwPBKMzxD/' +
         '8LZezQ4w==');
      Gebouw[10] := BitmapFromString(16, 16, 'beNqNkStIQ3EUh6NGi2' +
         's2EYaYRQ3CxhDDGFgUhBkUhBkUdmHMJCoMUYtXiw8QDSILsqB1YBAVFhcMFsH' +
         'Xko/NR/OTHxz+3DtB+MJ5fOfc89/Skc/3J+Pj7VEEUjjzZ5eG2w7yI64fICw3' +
         'Xh/+46+PdfpT/QT47gFNfdbi35bWiOsv92H/q/5sPjKXcI+0sI8MJ6clr1A4P' +
         'tplMyN2mHwzvxs1uK5cLmz4mXxuNDMzkIiNT06gGa6vka29HZZDTyzOCFD5y9' +
         'dyZLShVJKADxG4vkbkIwt8TMk8pKmvZxrIHO8u1+9v9+hyNPl6r7s84Fe2vf3' +
         'NZY3Ycv6p2lUR5N8t9lZXUhSRz6e7ql4ULuYHBS3Sm7kOkHaYbC+nI6rgk8Jv' +
         '14uSqkWsImS7W2C1r5UWRUsVq86g6uUffBAgIw==');
      Gebouw[11] := BitmapFromString(16, 16, 'beNp9kj1LA0EQhn/F/Y' +
         'hrBH+ASSGI+IWkSaUIYmOTQtLYeFwTEkSSItgcooV4dmlUsDAgFtensbIIRqO' +
         'NH0n8gAg+lxeGIycuL8vszDM7u7Pre5+9bitq7GwXy35sf/WfvgfPGKabs2Br' +
         'cUK6DPdYzs5Mu667tpIn+vH+iNKwv5oFJhTUS8CO4zCP8QAGy6NoJjPljAa5x' +
         'gfeOhjwbiFn5RQtFjbd0VhemmM5eHsw2NuYF5NU1AwpoRTuks8t6BhkpWF2Y6' +
         'Y/lhIXyk7+CRtPS9UlXVwH+4dHHEAlmBH+tNQK8fSB21FFPCdMvpr1LVkIHR/' +
         'ULMXaa9GxJeq/dngmWgRPIunJUNzqeinpMeHnh3BxXodumH+/WkV8Nuari/O7' +
         '21Z03axVKvqBJ0eHjdOQKkTx9F7uiWKwCdFuu00KIXiWSv8ZDvFrEzllMItUu' +
         'vZnyf4wCKP8C1MuBwI=');
      Gebouw[12] := BitmapFromString(16, 12, 'beNpdkr1LQlEYxoeiIo' +
         'mGixcDG9vlCoJLm+ASBJeWtE0cRBtMcLiL5iaY3MWgIailsLEPiGbBwdG/4Vq' +
         'jmeXoT544iPBweO85v+f9OOdOPv8mC/1+j9DgtfXSPrurOJ1iPOj7rLfV9Pt1' +
         'Ydh7EIBmP1/w7AC/tY8R/OCxjPE8uSFhBJiOA/GQ3csUCVfEPsnrR/aFs+kd7' +
         'vKJBeNNzvZPw6iR3iYbmZ9qbilhtTIxYoysuBAwDdwXbT+z0zwJeakteADI/M' +
         'F6NrImaQpOCUi+zENSF1gST0BLKgHfLe8hAiwMyywqBCPR/JVr0TA8p+SXxRR' +
         'iECORrMT0o3khn719pEKSSN2GmZcromFZgD/qUWOUF5iKwGC8FLxulcaMS7xp' +
         'T++ll12W+R/Uj2bX//DPzAGD1xme');
      Gebouw[13] := BitmapFromString(16, 15, 'beNp1krFLgkEYxpdGwb' +
         'XBqSGaApEUXBwjUESJILRIURwaPsHVcpAvBHESh5ZoyjJsawia8w9oCjchdUx' +
         'NW/vJA8dhBg/Hfff+nvee7+6mo8V09DMbS+9v3Va9dlUpf399rtV8MoRHkO2b' +
         '5nn29CyVYnxqlln5j4d0CvmjZBKY/vcX+33HN7gtSB9d1+Z7rx0CgNEWY6142' +
         'Il54W0N3FDvOo6RTZ8fH5Bx3WVCbmTzcs/z1yXBiGcklfji9gYWqsxXjGRWcm' +
         'BUOg6ofzW9y4gR2Rb6y0IewifCvpYTRC+NhG0xCYkhHuNJ1B/e8WLJHWwB84+' +
         'cFdshPolKE85EZ05zFiHhcTERzyIlXQfnyUSXBUZ4qkhbABNMK5Ts++V8FEYW' +
         '5WfEKBdVm5fFToLATAd4GHjz2PTeZKE5ggQjPKIbgP04JQVTJHg+TYClfgHWH' +
         'orK');
      Gebouw[14] := BitmapFromString(16, 16, 'beNp9kt8rQ2EYx/+NXe' +
         '0vwIWipcgFS0dn56zTHPkHXFBuSC2ZJobZxoYZuZJSIvIjSopS7milFC1R23I' +
         'hv936eB87Cfn29HbqfN7v+32f5w2Y7893f1WRensqSB0f7a6vLj3d37w+5v/h' +
         's6fHc7OTth2wbTuZTGZmp9jyG76+ymbSiba2Vk3TLMsCjkajM0qZdOo7eXiw3' +
         'dnR7vV6NSXTNHVdj8ViwWAQf/jI8KAD726v+v1+DE0l4SFHlOCB+4LdDsxfn8' +
         '8nsGEYxEgkEiQJh8OshCdk7vIMeGdrRTB4vSRgsf2E0yluqsyLOBtKhGElBvn' +
         'FMxQKfbZFwefZk4V5LlvEExJzSwlnMJxJHo/Hp6cmVA+Lqcnxwu0Fs8ATxioJ' +
         '0nGmpSowg8sP9PfK7AjAFvEnc7IknOmtDI75rq0sCk8eAosztiTng9P399Y3N' +
         '5aFHxrsu7/LCd/YUI8/GYaVZO6c3tvTRQxg8sM7b8nlcnk8Hon9vRt6c5PwnM' +
         'LcHd7tdleUl7GFucuLenkojEYGYMZGwvDqpnmHr66qlKqrrTENrSVgUoT8sX7' +
         'VB2fh0KI=');
      Gebouw[15] := BitmapFromString(16, 16, 'beNpljzFLQmEUhi/+AI' +
         'e2GgOJIMcc2hQ0nEzbityioSUQcWwSwaglmmvoDoLThWhrExejAqGpCwqiLXo' +
         'psaboub1wkITDx/ne85z3nOM4s48h8fU5UswC36uvTwatMP8rEcPHcyXTYPCP' +
         '77bdzk3i5e5EvWE18FFwMJ524yEnD7uvzSRYaBv44zev52XRxdNIO7rxz819V' +
         'mIQXbT89C9wEAOPQjvv9/Qdq9vL8ulhJrYcJUFvXedo58UBK3i+tHe9PV0qfm' +
         'tjBWV0n8P2KL9ZSMa3E6sa0ailn9wsJOa8Z8dr8LzklIrpJb7wKFqPRtxYgBw' +
         'HdAyBCfSI48if3RiHM7l4LYDnVWWHBABzePzx5ASNIyekQ+KGzkUEs9BLBync' +
         'VOKrWyi51aJWBbCqeACqJOIJXaeSeA0VDwAvB3SqXMotWlWLGQ/GgeaPbgvP8' +
         '3gaz/7zvF2Krn10iO2je6UwSwCigsZFf42O/AJlQ2x7');
      Bouwopdracht := BitmapFromString(16, 1, 'beNrbvfvBniJ7BiAw7' +
           'dy9++HV3SsTQRz7piVHm0xBLOuiY9f2PNwNUwMA6XQSZA==');
      Dorp := BitmapFromString(22, 1, 'beNprWXK0yZQBCKyLjl7d/fDq7' +
           'pWJIJ5905KHV3vSQEyGtPkgcRDaXWQPEjDt3I2kEgC34RwM');
      Num[0] := BitmapFromString(8, 9, 'beNp78+Ddq3vvXh2e6MgABY6dV94+/' +
           'Pj2IVB8cxYDQ9bSD28eANGWHAaGnJVA8Q9vVuQy2E86/wAi/uF8pz' +
           'ND2pY3Dz5eADLsJ194iCQOUgYWT9vyFiYO1w5TgKb+/evluQx2k87' +
           'dRzMf5p5lUPdkMzBkr/jwBov7LwMVAADfDodb');
      Num[1] := BitmapFromString(7, 9, 'beNp7+/DDmwdgtCKXwX7S+QdIXAhAC' +
           'H58+xCELnQ6M9hPvvAQyqWf4Mo8BiTg2HkFAHz0gfQ=');
      Num[2] := BitmapFromString(8, 9, 'beNo7d//j24dXJtgzIEDalrcPgYIf3' +
           'hyZ7AhlQ9U4dl4BiT+AoE/vHoHQxS4XhvSt7x59hKmEoo1pEPVwEZ' +
           'Cu853ODAy5Gx/ADcEUfP/6PgitT2VgsJ90HqHs3at770CCqVveoGh' +
           '/92pZDgMasJsEAAlej+c=');
      Num[3] := BitmapFromString(8, 9, 'beNp7de/Tu0dXJtgzIEDaljcPPrx58' +
           'OndscmO9pMvPPwA5l4GqnHsvAwSfwQRgaD35zqcGVI3v7qHLP7+9f' +
           '3N2QwMjh0XEeJHJjlCzE/d/Pr+u1f3Pr59iKz+/fpUBrA56OKvl+c' +
           'y2E08e+/DmxW5YAdAxC/120HUA7lbspGcDzEfACDEjb4=');
      Num[4] := BitmapFromString(8, 9, 'beNpjYKAK+P//P3XF/6MCkl0CAH' +
           'HXHeM=');
      Num[5] := BitmapFromString(7, 9, 'beNr7+OrrlX4XBmSQvePTa5CgS/91I' +
           'AMJfQEKOvdf+/jqCxL6fBlZO0gvXAqia0ceA4MLQhfUNJCl2dvh3E' +
           '+vv31+Axec5pK94/ObbyB0fhrQ9Lz1QI0gc+AgbyPIPQB2nHiK');
      Num[6] := BitmapFromString(8, 9, 'beNpNzlEOwiAMBuBerZHTaDK8yYxxX' +
           'sMYl8BBcOoVxpLNtWyvFgEj4YWv7V9oCLMPPAa+achHtz2/++jdUc' +
           'nTSHUUSVfc6oz/TtNFAypVUgAbF5vZ1Qrw7HwMnP3jhAA7m31ryvh' +
           'C17203eU/MUdmk6/8c28qgE3dff3VIKjDk4aFYslWZW3CD5Idi50=');
      Num[7] := BitmapFromString(8, 9, 'beNp7ff/Tu5V5DGggbcubB5/ePQKiD' +
           '28eQNHGNIbsFXAuRPbTu2NTnO2nXESo/Pj2IQgBFeeshLARJrxZkc' +
           'tgP+n8AyQRELo8wR7ZZHIUn+90Zkjd/Pr+ezgCAJ1JoD8=');
      Num[8] := BitmapFromString(8, 9, 'beNp78+Dj24cf3x6d6MgAA6mbX9//8' +
           'ObBhzdHJjkyOPcffvfq3vvX9y/12zE4dlx+A1R/dLIjQ+7GB2A1Dz' +
           '5sTGNw7LwMZl+ZYM/AkLYFzN6SzeA84QhUzZsVuXDjYQrAgvaTziO' +
           'ZA5Z6f67DGaEGoez96+VAQ+BmXobZBXQbRArFfABsXIBr');
      Num[9] := BitmapFromString(8, 9, 'beNp7ff/j24cf3x6d7MgABTkr' +
           'wSIPP7w5AhR0nnAUoQAs9eF8pzND2pY3Dz69ewRCF7tcGNK3vnv08' +
           'QJYHKwXjFbmMdhPvgBhgMz58OYBCIG02086D2cjA5Cx71/fhyCo+o' +
           '1pDNkrgIx3r+5BEJohIMH1qTATUjdDtAMA9k2HJA==');
      Hout := BitmapFromString(16, 12, 'beNp1kbFKw1AUhue8QKEgUvoM' +
           'SiGbY0Pp4OoidOjgILipq90c+gAZpU4OPoIvIL5Ab52TUGOewC/5T' +
           'KgB4edw8t/vnPv3Ngvf+a6nqvhMH65uL07X1yfPdzGVHrNs1INl3p' +
           '+WVOGb+fFoEF2eDVt+2ym9T97S5GNzDgYASZ2MIzSNjw55b0fA8mK' +
           'SiFkY+KoINOxxhP2IngzG8JSr7Z01p+FfVzNjeOSnCTWZwtQH6H6v' +
           'G9hMA8l1HY/58rjgkxFnSeWIGYxHfhhMeDPDg/lKVI6AXf6V71CZB' +
           'RwwfSoZ2C+P/7s5C/tG5V8Zzyt8VeH/+G7EB6n/ptav+R9UcxlI');
      Uitbouwen := BitmapFromString(44, 10, 'beNqtlM1OwkAQx/to5WE' +
           'gFl6CC3BQ4EYfwHqhfIQXsPVmBBNDjaSBiwkFhJqA/ZSTuzPb7bYB' +
           'jInJ/zBsd2d+O/NfjHVoNzuyVJVlw14HhxVX+LUW9BF5W6LY3xFhz' +
           'BdPaUOUzUCF67lPtFzCcD9z/D1VjgFOpQAixr8wEMXz9mUGOJspQR' +
           'i+Axcl8uD6Mfzktc4VzcmxW4zh9qpKA6mjPSUM/S6sgMoW1rLbKv1' +
           'ZMBeEYdTD2N5addjWGAHDQIecpk0BlppMP9X7kHNsFHlOqWsABpuF' +
           'VK3p/l7vIo+9SgCoTyJvqHMMgeEYJgzzXWxWIG3lNXAjU8ESqjaJv' +
           'AkWhXJpTjHO+eGlxlrB4IvNJcwCr6lqz6cZxJ4sXNYTolLL8QZQS5' +
           'mS+xoKz0muP61jrfEvDNDAcwxiXeIEq4F7hmaJHBzAEcXCWUMeljM' +
           'rwuDPbgSGx/viH/oQ+zgjjHeRWYYjBbJBNzc4EbUkp3PP9oHLe7tO' +
           'GTjPBT+wWOo9uElM/UD/Mew2sxZzIzqTGyA1OUOCzpD4nTGIXl1de' +
           'hfe1rkrZPvJGILDBNsINqAvghkjc/HMu6DlfgCCEnCx');
      Klassiek := BitmapFromString(156, 12, 'beNrNmM1uIjkQgHkykof' +
           'pzr5GJEab5AGY4zJE4ad5gzQ90mhCboOQAsxlgQZOm9AkHXiBKbtc' +
           'dtluOrCH2ZXq0DJ2uVxf/dhs0jzrRueVy/OzZLp633KJ1Phk+bZJQ' +
           'fJsCQI/4YcvOK1Q8slNXWirRP2l1uMJ7fhzjSNc7evLQtugNExRp7' +
           'DQ0bl7XYP4hoESkJzJ+yb9UPKXWaHsMlg+R8GRt+e/QQ7Nz+2tmQ1' +
           'Kyfv4SnkpRp3e5CecUE3GZlMt+22KYphOHEbdQqYl8huYWpZMXKYO' +
           '1g+ZHgP0SKa+h38v0zt03dfpai/89gHT/jh1nXk6U3/tSUyRhauNm' +
           'KKFvuZyppzaLluCnMqUAz0O7kdMXT0nMwWIOzsf82yQBCJOLj91ab' +
           'wKHnt9aXdl/JCwAOhfsPFKN5bei0NvsGNHDm2EYZn4TB+1JZqFIms' +
           'rZ1GHW6BcjBRTPEWl27gW3giu5uSWOhlQ/zJQTG3NUYxMudpgKH04' +
           'rMmFje/o/GWjKk1tQ+busgfraDECaqGSqHGFZqT3zilQG07TyCxVl' +
           '7W2YdoIadU3AkoSXHOmw08aqPBGF5k+MX+C68bSOecXQ5Mp8lung5' +
           'oQDq204pHDO3hU8P1zPWKW8BR7pUMJjmojYSEARWuZfrSqa59XMxX' +
           'Idlm3R1btVXcOR1aSdpSTn3QuSKz3AWpbCl7f0fO9/mK/7fQMFA6o' +
           '5ZiRuqkH+xYvie5pmmEKfFtUqDHM7shOOVmzQ/TB9UKB6NhMnVSVH' +
           'qMkhVA3TGMdQoNiprgquFnKCon46s1Hw/T2D5yQ2v0UZI4ZEVwtNh' +
           'ZTGhfGwxIMTmkV5WlMSpRbVJnC3T83H/fJhTZbM1UJGPyZWukJqfF' +
           'NcpTOH6vUW8H9JAkZ6/mo5iQgATLSjgrSWaqNQ5e+W3tbXrw5TE3m' +
           'FjDV2SEzgmUBpbaSKpZBPDsf5EzTL2dO2bGZaksOM621RdHwmdY6b' +
           '/+aKUSXbXYyJqaQIC7TWSp/Al4453NzABfO9W3R0Q4zVY6CpNu4TN' +
           'nWJzPV/aLeaGMNqTceWAiJaSllh4yZdg9rhegdRlS1NOaZQAVXl+S' +
           'pd0eq1G+jJHTTHyv/gjHldViNyzCAaT+U8x90edH3beoXokrrrg0R' +
           'lcuWikJn6dgHXxDTB+PeIIgwYSfSD/1Q5zV6gPyDTtMXWnmxUQVcF' +
           'QFkqkr3xFJlrmRjk1x0NOsbYNktY5Grxh0ObaZqHI9Gc0b0GpIy+B' +
           'pY14Z31migmhX1U301Wi2bZ/Kb3ZFUJRTVoKifhj+c3sruYFRh5Bx' +
           'iCnlawFS/cKcrxnRgzDZOSOkbnbOwLjBQeIkd5eNMX5+gzxYxvWNZ' +
           'ZphGmilTJX4FmqaHVuOn+fa51XG/RR1wmepqIPC1C8ZF9IY9YrpqV' +
           'r0iQ0WDDXp3JPfeS3ytt4xKluBmQUy3z2D8fPZX1S5uWNud6xACLW' +
           'FqpJesMa5sswfyFWNa3qUFVEhKJ5XUlOhINvqLmKaNatm9V2Y9dW3' +
           't+RKmzC3BNVl+guyyYjn0zjr6fWr+Lih8n2b/zEDAfv1W9XU6S8r+' +
           'qZiqv5v0drr2spdpuStUfjlOcF6vvn/KX7t6vv8KxnGMbV/sN/VpT' +
           'A+x+w+Z8uXOteoYprjj/42pTxOFv9a5KMt/AcCvWOs=');
    end;

    procedure Mouse;
    begin
      GetMousePos(MousePos[0],MousePos[1]);
    end;

    procedure ClickBitmap(Bitmap: Integer);
    begin
      if(FindBitMapToleranceIn(Bitmap,x,y, 0,0, width, height, 100)) Then
        begin
          Mouse;
          MoveMouseSplineFrom(MousePos[0],MousePos[1],x,y,2,2);
          Mouse;
          ClickMouse(MousePos[0],MousePos[1], true);
        end else
        begin
          WriteLn('Bitmap not found');
        end;
    end;

    function CheckResources : Integer;
    begin
      if(FindBitmap(Hout,x,y)) Then
      begin
        For i := 0 to 9 do
        begin
          If(FindBitmapToleranceIn(Num[i], x, y, x+19, y+2, x+27, y+11, 100)) Then
          begin
            WriteLn(IntToStr(x) + ' ' + IntToStr(y));
          end;
        end;
        For i := 0 to 9 do
        begin
          If(FindBitmapMaskTolerance(Num[4], x, y, 555, 47, 562, 67, 100, 100)) Then
          begin
            WriteLn(IntToStr(i));
          end;
        end;
      end;
    end;

    function Setup: Boolean;
    begin
      GetClientDimensions(Width, Height);
      LoadBmps;
      World := StrToInt(Readln('Welke World?')) -1;
      If (FindWindowTitlePart('Tribal Wars',False)) Then
      begin
          ActivateClient;
          Wait(500);
          Result:=True;
      end else
      begin
        WriteLn('Client niet gevonden');
        Result:=False;
      end;
    end;

    procedure DoLogin;
    begin
      ClickBitmap(Login);
      Wait(500);
      ClickBitMap(W[World]);
      Wait(5000);
      If (FindBitmap(Klassiek, x, y)) Then
      begin
        ClickBitmap(Klassiek);
        Wait(5000);
      end else
      begin
        WriteLn('Klassiek niet gevonden');
      end;
    end;

    function CheckBuilding: Boolean;
    begin
      ClickBitmap(Gebouw[0]);
      Wait(5000);
      if (FindBitmap(Bouwopdracht, x,y)) Then
      begin
        Result:=True;
      end else
      begin
        Result:=False;
      end;
    end;

    Procedure Build(Building : Integer);
    begin
      If (FindBitmap(Building, x, y)) Then
      begin
        WriteLn(IntToStr(x) + ' ' + IntToStr(y));
        If (FindBitmapIn(Uitbouwen, x, y, x+502, y-9, x+578, y+13)) Then
        begin
          Mouse;
          MoveMouseSplineFrom(MousePos[0],MousePos[1],x,y,2,2);
          Mouse;
          ClickMouse(MousePos[0],MousePos[1], true);
        end;
      end;
    end;

    begin
      If (Setup) Then
      begin
        DoLogin;
        If (CheckBuilding) Then
        begin
          WriteLn('Bezig met bouwen');
        end else
        begin
          Build(Gebouw[1]);
          WriteLn('Kazerne Geupgrade');
        end;
      end;
    end.

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

    Default

    right click on desktop, etc etc and then set the colors to the same you have at home... 32 bit i guess
    ~Hermen

  3. #3
    Join Date
    Oct 2006
    Posts
    13
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    That isn't the problem, we are both on 32-bit.

    I have included a little screenshot where you can see both the colors next to each other, as you can see, my brown is a little bit more purple-ish.

  4. #4
    Join Date
    Dec 2007
    Posts
    78
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Well, if the colors are the only problem, then it would be fixed by just adding some tolerance. But you allready did that and it still isn't working, so the problem has to be something else (unless you didn't add enough tolerance).

    Are you sure you both are working with the same browser?

  5. #5
    Join Date
    Oct 2006
    Posts
    13
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by W0uter View Post
    Well, if the colors are the only problem, then it would be fixed by just adding some tolerance. But you allready did that and it still isn't working, so the problem has to be something else (unless you didn't add enough tolerance).

    Are you sure you both are working with the same browser?
    Yes, we are both using Firefox 3 RC 2.

    It works to click on the login box, then on the world, but after that, it doesn't click on the "Switch To Classic View" text.

    After he manually switched to classic, it clicks on the main building, but not on the build icon. So I guess it's the same problem here.


    Oh yes, another weird thing: I tested it on the screenshot he sent me, and there it works =/

  6. #6
    Join Date
    Oct 2006
    Posts
    13
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Problem is fixed.
    (Well, not really)

    I just started writing the script for IE, and it works on both our pc's now XD

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Bitmap problem
    By Pietpatat in forum OSR Help
    Replies: 3
    Last Post: 02-12-2008, 04:58 PM
  2. Problem with Bitmap
    By Supersepi in forum OSR Help
    Replies: 15
    Last Post: 10-02-2007, 07:20 PM
  3. Bitmap Problem
    By Kingofptw in forum OSR Help
    Replies: 5
    Last Post: 03-22-2007, 01:43 AM
  4. Multiple Bitmap problem
    By extreme300 in forum OSR Help
    Replies: 3
    Last Post: 02-25-2007, 01:20 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
  •