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.