SRL Archive - OSR Help

PREVIOUS PROBLEM
Ok, so I made this script and have problem…
(Script made for learning and autoing :D)

In the [Att] procedures i have the [AB] procedure.. and I want it to exit the [Att] procedure if it does the [AB] procedure…

First: I want it to do Battle ("Main screen" and it clicks the Battle button to engage in battle…)
Second: I want it to do Att1…Att5 (Attacks the monster or what ever)
Third: I want it to do AB after it finds the ok button (…)
Fourth: I want to do Battle again!


Now the problem is between stages 3 & 4. After it clicks the ok button (AB function or procedure), it doesn't start looking for battle button. It starts to look for attack buttons…

I have AB inside every ATT because i dont want it to attack if it finds the OK button, but rather press the Battle button again.


This is what happens atm:

Battle
Att1
Att2
Att3
AB
Att5
Battle
Att1
Att2
AB
Att4
Att5
Battle
Att1
AB
Att3
Att4
Att5
…


Hope you get it :)

Game is Mech Quest
{Mech is "Nubertron" and the attacks/weps are what come with it}
{}

Any suggestions how to make this script better and smarter?
I tried figuring out how, but im too stupid still :D



UPDATED

program New;
{.include SRL/SRL.scar}

var
  x, y, i: Integer;
  Battle1, Level, ABok, Attack1, Attack2, Attack3, Attack4, Attack5: Integer;

procedure LoadBMPS;
begin
  Battle1 := BitmapFromString(61, 24, 'beNrtV21Il1cUP/dJHb7mWD' +
        'm3JqZ/QS0s58s0fCHSocvNVVqaL7jcEhoslURNnMIkrdnA8ENfFpQ' +
        'o+K4QUl+EvmiKmvZBIV8yiL5I5ge/GMrYr3v2XO58/v4zNxjBDoeH' +
        '83bP87v3nufc+wjxo/if3/B5Irt8jug00TdEqSZDPitdO3jLZcPAM' +
        '0+Ir4T4giiE6FOiD4n2EvkThREdFSJdiHNCFMtgB1wkRJbJGZLTTQ' +
        'H8pRA2Ig+iD0zeK5MX2UtbJu2cId3MAwxlZvAtwygxjAP0FvIjyhf' +
        'iV8No3bXLLsN1XAiEfSzZm2iXZG/TslXaCns5ke2EEN5apBvRcQ3A' +
        'Tfk62h5hGZvkwFtyvoqR5HstSVhYWEBAgD4wNzdXyX19fWNjY8PDw' +
        '6xioBU25mKdqZs2R+C3SWNGRsYff6f19fVXr17du3cvOzubB2L1Ts' +
        'gaiDEXFtuUIESChrmmpgZjFezAwMDu7u5Hjx7psBGgYB+Q+5gkc8Z' +
        'IIV9LODo6iuBnz55tmmOdYdAWsHXKzMzcznaoJAp2R0cHVAewHdMm' +
        '2CdM2D9bYKenpx8+fDg8PDwqKiovL4+NExMTejYXFxebzYYYPz+/f' +
        'wt2UFAQtsYx7AQTdoU92PrAnp4eGJ8/f64sDQ0Nq6uraiMmJyePHD' +
        'kCe2lpqb5BmOnDhw91S0VFhV3YqPyXL19yzPz8vP4hDA4Owjg9Pb0' +
        'JdplZRXZh+/r6Ig+Mt2/fZotaf0wEi8Dy+Pj4jmEXFBSwF9/R8vIy' +
        'y6mpqexta2uDCvCsHiO6YxjgUgvsaUkzMzNzc3MKgI+PD4fdvXv3x' +
        'YsX7e3trFZVVXEMZH9/f71ImFSRQN6/f78VNqYPtbOzk1UIUEdGRl' +
        'i9fv061NbWVla/JvrdMMA/WWBbaWBgAHWuV87u3bvxDAkJqays5Bg' +
        'vL68d1HZMTMym5U1JSWGLp6cn1EuXLkEGePaeEeKm7LcXLLDPSsrJ' +
        'ySksLKytrd3Y2IARxbxnzx6OPHXqFNZkaWlJnxq/5V1hoyBVSStiC' +
        '5o/AgADMsDz2GwhbhjGDXkiO/4keSCopKQEanV1NatA0tjYmJWVxa' +
        'q7u/s/gT1qofj4+DfFfOwYvOojPS3Eb4YBLnwb7Li4OLZfuXIFKve' +
        'Quro69ubn57PX1dVVT4L2qMOempqyCxudluOTk5PZi/m6ubmp4NDQ' +
        'UOxsUlLSXxstxFXDuKodyjrszyVFR0enpaUhP9tRG87OzixjzXnU/' +
        'fv39dpWqxcREYE3qlYwOzsLOTY21vpJLi4uQu3q6mK1ubkZKroBJ6' +
        'w1ib3fCvGLYYDPW04Ku/TgwQMOGxoaYkt/fz+uFioAhwW8+HKVZWF' +
        'hAZb6+np1VUDDt8IuLy9XHfXp06csX7t2jb29vb16YzmDy4MQ4CJ5' +
        'U90K9uvXr/H2pqYmHIs8EN/+48eP2fvkyZPExMS1tTXIxcXFHIDey' +
        'F7YoUZGRiowLS0tdo8bLObKyop6qeobm2DjXMwiuoy7K67cWCIzRm' +
        'jk+KoQHBysDmLrEPRn1BgqSlmgoltuFQ9ycnJCzkOHDnl4eOh2Pfg' +
        'TdBK0RCHAF4jSiD7bxq3Ghf5LwjmBv5g8ootCXJQ/OPlEJ/GjQRRO' +
        'ZJPXUXwMH0nBXxqPyh+ok/LJYcHShYB9RAeJ4qU9Xm5cuLQclDE2y' +
        'cGm6i/VKBmcbP6aQYiV9n0yIQfoXuZNf3A/vDt/R6TYsdfK28npIE' +
        'xxwfvJue8j/wl9S/Z9');

  Level := BitmapFromString(122, 29, 'beNrtWW1PXEUUfg4YxaSCFs' +
       'RW6qYgNqCrLLRpaaWglPdiW60GAkZrrTaxTSUxbT+gUWJKP9Qv/EB' +
       '+ix7P5E7Ozsvdmd0FE7M3T8gyd+ac53nm9d5LtE0ddNBBB23GbWAR' +
       'uASMAxWgHzhRDy4ZAWrAx8AqsAEcEZMNic9Zzku6mrBibrdbzuhrb' +
       'F0UN1kH5oVtVRCM9ldXl8U+0R2iUaReTPUror36IOXgFLtETxRMc7' +
       '+cmVzwMjI3Lt/Pyehkf0A0B3THRfUCa0Q7mVmY/E2ifi8aS9iJxNk' +
       'TJlkX076ZbDhX2yK6DEwImMmcuPckVD4Ryci39ppye1+yVNJ0cbdu' +
       '5Ri+Ex+lW5Egu0WT5eXlvxtdNhp36A8JrPak93tCvb8A9MSF24zMy' +
       'viwm++2sbpXhQ1qdAZ5uuE8ZUyrg4MDJ9qaivBC4TFRd7LbVj5fs8' +
       'AfRC/qozn4ieiU0nJ4eGiad9fPa1sec5srP26Uy8Ezonv12RMHEjf' +
       'hhs8S0n0bd5uHk632XOFh0STRbRuQWd0lYqwT8e4zBrwjf/k3l2wI' +
       'xrxB5bgaK/c792ui+0RfEF0FPpREU9xcsjyUZe15va6nRFPJVjuGv' +
       'wZcleDzkmWswIgSeFeYxNxmKyyTPxXuhdz2pzYPP9+BM8lLvd82t/' +
       'xMfOV5S2buI6LfiKwuO/B8qxHvBTR1+W6fBCyT3xW+S3NbE+PguXx' +
       'ad7vhNSsnAatrJTTNg8y1201IC7r9BmCZ/KrwTb7bjgM6l885OGf1' +
       'THHKy3P5y52+e52IFxCjazpEoOFgsHUcNxzCTqf41g0C1uGnCttpb' +
       'ifORL9aG92OtbLa3wZ4ATG63o1PyS7gM6JrkaUmcRezVIPWvQlYh3' +
       '9R2MzcJbV8fwb5Je1aSfzIweHBB06jayAeik/1j2SdfyXUj0E3bNu' +
       'Go878exqwDv+s8GWm2w29Si/MKg/OYuuSHWlXiIyuvngoW+dUmts6' +
       'oy73BVoaZwHr8AOFz5s9AZavNkfndvn2VAOMrv74SsKnuB+JGC+nu' +
       'Z3C2XF7rKDBuK9wI23ddvqi4VraXrfTn3PfB4yuihdKr7SzRFeS1+' +
       '2U04LToVMFDcb3CteTzyT+QAra+9+6zYPK6Kq29UyS6/Y0kXX4jsJ' +
       'qs26Xr2BH53b50fc8kdF1MXTe1sO7/LzdnNu2xNJgbCss5p+3fbcT' +
       'N5G275K+jbxEGF3zrT1L5rrtXDyzrMObCkv5u6TRq+v75+SY285zQ' +
       'cPyrBMg74wsx+jiE/Vws+9Jct32uX1U0NiUU5/FEkDNnklSOiVWM7' +
       'E82GWxRCPAGmB03ZI3S3357wDb4vZEQeNfJgrs9kCy2/7ccc4kKQ8' +
       '45V3WypN7TT5dWWnr8g2rp9H77eCC4LtNOW7XNA2FJRkS/4PrPeCa' +
       'vAvVWAUmgdfTInC1D+IvNgdzyEwqJisKi3LrZHIc7uIheX/bl1afn' +
       '45fas3GE5JuSI0uv8I4MCPfeVfq1RmBl+ThjkpFnZVqcxE3hiTFUB' +
       'phrnZZMVmox6x8azAfowfla9Gr9eiV8orUuSDvNhkXeS+Qb1in5a4' +
       'GD49huVUV8pPyw9QckL/8+1wBXV4pYJqPFhlnBJqkjVMVJp8CC56u' +
       'co2+KKfmaMHTpJiRv9WCs7k1LjgnhIcjfD7p4Bgx08ExYrqDY8M/6' +
       'ruoig==');

  ABok := BitmapFromString(92, 29, 'beNrtmF1rE0EUht+3FypFjFih' +
       'DUrUmqLWSqst2hhCavoRohYtKn4hWqRVqGIvRIqKIoh44U1+YH5LP' +
       'Zy1y7Azk0QzIwo7PBeb2TMn57w7s3N2yMfMycn5d7kDLANXgHNACR' +
       'hRxoEZoAq0gPtAxnJGmTUMhJtAQzsndPiEy8PgfI7Me2AdqABD8La' +
       'DwCKwCWxraictg2l1sqV+9nuGy9hQMf8YGorHN/IRWUJfrQzcIuc8' +
       'd6+TS/6xdeBD5FwCCnLIiLzZbO5azZmjaZn0mH7a7XbGQ+V/0EQE2' +
       'SCLRiK7XVtPTXzCJp1hNfkehx1ytm9B7Ny7aGIOEbOkcx6QfwwV/N' +
       'c4PCV9gsCvVU9NnIJIu01+IkMF/yUOrT1NzLUv1/arw0wzNXBq4hN' +
       'kiXxHBgz+YxzmXYn4dg3bxtak0+k4BakBr8mwwe/E4bSVbzoHpFBZ' +
       'lY3Vs7icmpiTzRREdnl5kwcP/m0cjlr5prlI5fmGFNLqy5wDtib2D' +
       'p5qIqXsJhk8+O04FPyaVMnEZqw/Tewm9qksMuW29hyG4lUcRvxr5y' +
       'zwghT2/Y4mmTotVViqX9njwgb/Mg4lSxPz4dbJat/vk1RPZ7WWTLz' +
       'nZMDgN+JwIdy+Y+7g5oxK+4flu5hcl8o5UPDP4nDZVZ+YU+UP6pMu' +
       'IssKukuGCv5JHBbj1LHOD8Bf5T35kAwS/IM4yHZwKs73jm9qlXUPC' +
       'hL8vTiskTWyEO67+AhwvOunsVSJN8hQwUdiFZgDDvQ6PzHr0i6anN' +
       'EDSafCyWtKpqU4ChN5TFrAReBwf+dsYnbemAyZJn5WtHD1tXE9gQw' +
       'TdmRW9PnKQ6Q/HaqBmC0Al3SZZNox4KpuuGIz5vIwrKffC2ozOMt/' +
       'hbquo0ngBDAKFJRR/Tmpt8QgY1lWZMlMqVwNNWjo9ZTeKqqHol5PG' +
       'zaDcy3HopZjUcnJ8BNdVUv5');

  Attack1 := BitmapFromString(122, 21, 'beNrVlulzE0cah2VRW7sf' +
       'Ek33yNKMJEtzaCSZrS1qa2ujtTlCOIyBAAEBscRlywe3MWCIBPji8' +
       'sllbOMDfIFtIEltYptQOdhNINlv/Uft269mJNmGLTbfrHrK1dPd88' +
       '7Mo5/esSAcLvItY3zeIz5vpc9b5fMmfd5qpNbrAeqQY8hxr+eERz7' +
       'pkU955NOA11Pv9Zzxeho88lnkPNLokS/I8kVZAlJIWpYuydJliXNF' +
       'cjdJ7mZZapGlVllqkzhXJfc1yX0duYm0u90dblcn0o30uF23XK7br' +
       'sI7rsJDRd5ljM9z2Oc54vNU+jxVPk8SqfHKQC1yFDnmlY97pBMe6a' +
       'RHOuWRTntBuFzvlc945AaPBJxDznukRlm6gHwhu4GU7E7L7kuS+zL' +
       'SJLmaZBDubpHdrRKnTXKjcNd1yXVDct0E3K52twuFF3a5C7uRHlfh' +
       'LVchCD9Y5F3G+DyLhAPVXrnaEl6HcOEeKSfcK5/KCPeAcAk4i3Dhs' +
       'in8Ito2hUtcOHBFcl2R3aZwyRR+lePKCr+BtlF4YU64yxSeKPIuY3' +
       'yeAz5PvnOgyisDyTznPOQeCTCde2XgpDfTWKR6FG6GXOagc/cF2X0' +
       'RSUkcdO66LLsvo3DeVSTTeZvkakPh3LmbC8eEF3Yg3LnLFN755+Jl' +
       'zMpIF9K9MtJTHAZuFYdvI3ciIeAuci8S6g0bwP2w0ccJ9YcNYCBsP' +
       'ABCxmAoCAyFgsMGZ8TQHyKPgpzRoDaGjOvaeFCfCGqTgK49Rp7o6h' +
       'SgqdOaOsNRngKq8kxVnqsB4EtACXylBL5W/DdXRkyKy5/PM8ZGRos' +
       'jucmVkdERxubbehdOLmBr22vGvqt794b3pG7k/y5SHG5HOorDnZEQ' +
       '0BUJdSM9YcC4FTZuI3dCwbtlrW9Y7vNDjXE/FOxD+g19AHlg6INBz' +
       'lBQG0ZGdO1hcuhVUn2kq6Na1SvGXiW1MV0dRyY0dZKjPNaUJypnSl' +
       'Wm1QAwowSeIs8UP/A8wLm+MmJSXP5sHu9jpDY3adm+VxzJn1wA2n5' +
       'R9+4N70Nx7YvfUaQ4fAPh2iMhoAOdc+1hwOgOGz3IYOscPNn3Nag9' +
       'ZJjmh6t7Q0Hu3NAB03lQf8CFaxmG9ORPjP2UVEd09aGmPtS1R7o2C' +
       'uZ1FZyPaeq4Bs4VYFJVHiNP1MAUoASmFe58RvE/BeEBztXisMUWbn' +
       't+/hc2/2xrdjL8EG3fzW1bwta2X7iod294L2pe/I4ikdA15HokdCN' +
       'sADfDRjvSEQKCnaFgF1DW+prNfV2m9xj6LUO/HQreNoJ3jOT3jL1p' +
       '3XzP0HuDgHY/qPUh/bo2oKvAA07Vj2h7SFOGNQWcj4BzTXmEjGrKm' +
       'MoZVwMTyKQSeMzxP1H8UwHONDITKHrqL2opDltsmQHbIzU9bfPwNz' +
       's/jLZ7+LgG8jFXl91vHaLtuTb+N/P5pW1LXtkwL/iWJTh9fqZthC3' +
       '68GvlL40MZ/bXjbylSKSGB6S2JnuBFzXGddR+I2TcDAXbkbFhHuNO' +
       'Q+8y9G4gFOwxAJ0Hfq5lyNDvlLW8YXP/rG7Jtpo3LRv7dLVvc/Ov2' +
       'avONU9olRnzwxnz0EBa5nJ3PlQ5pgbGlcDEhub/5D3Qz5X+J1x70b' +
       'S/qCkSsiibRttNEdRYa84Pctut3Xy8YD53WN76M2qaLsd5PPy5rSy' +
       'zrZurfusSP92qvKj4oqVQU+0wW7TK7zPUFK7Gp52b2WK0hoJ3eLuY' +
       'e1ZmXAsFgeuGfoOT/I6x162b24NaR1DrBFB7V1Dvrh5iPPPa7c0tr' +
       '9HM90n1rq7eSw7xxp5U7mtA5Q8wrlL6VWVA5bZ/TCqDqjKkKpPN/H' +
       'LzG5URJfBQqYSW/lvz+tENTb8x9q9K/3jAPxEomqwchFL/rix64gd' +
       '8lyIhi7IptA3jDlA039qB8wNoG8c1s4zN1mb3W4eWw2wpfjobHrD2' +
       '5C9d4t7eupRffNESv7ElReanykOXwtWZnVfCRlMo2FzG72SuhpsH2' +
       'gz9KifJe1S1fiOoATeDWruhAx1BvbOMS35ZrXWj7dctG2/p6m1kGE' +
       'I71wwBvmfZvq8qfSqOk6BdeYDmf23eMKQGhpTAsBIYUfzAQ653EP7' +
       '9GA34xwJFwLi/aMJfNMnx2XKfVY3fMNYby46/aVwFo1gvM0c4NNfz' +
       'D/PPy63gOXknL7nIO6otvdDS+guL3I/Z/mCz/dFm+5Mt1sdYX8z2g' +
       'c32oc3msNmIzUZtsQHGBmI2l83mttlkm81TUOAtKPAVFPhXNUI6h2' +
       'I2DQfDMVuooCBcUBApKCjGO7+6yvYXW+wRY49itr8WFPzNFhtlbHT' +
       'viqjdHl3VCD+Zsb0r1tjta+32dXb7erv9E7t9w4q9k/xX0ntxxYpy' +
       'u32r3b7Nbt9ut++w23fa7R+L1MRZ0gVBGUiYh4l+xvrPOek5uNfZd' +
       'MIJGxITjE0ksvutw9L0SzbbVUpzpbIzvMhbPvysd1UTlyzxanmH+R' +
       'toHAdkAyWbKNlM4/CkjxOknHK2UrKdCNtJfAoCmYruJMIuIuwGKNl' +
       'DSYySvXG4vdm+KKmIpn5gs/1RcoAIwEEiHMalwSipJPHnjH0Zd1QL' +
       'jhpS8RVjX8XJUSIci6ZesdnRKDkpCKcE4bTgqBccZwRHg+A4Sz6am' +
       'M097LcVji8cjpTjw7Tjw7VO0aK0E21nZ84OsJfp0rNou8LpXOtMjD' +
       'M2nnBaG6xDtJE3L65N8HM6S525Qe4q4uLT33K4cGlp/dyMqX29SDe' +
       'IdKMzAbYnE7RM5GyhFIRvoyTNgxPfQQmwi5LPRArspvR4epbNpk5Q' +
       'sr+E2+4rIXFKEshBtP0gSg6j7edxUkWEahL/EswnSB0hR7lt9nWcn' +
       'CACcJIIp4lQjzQQ4azAOS8IvTxus5NRxxcCZ7VTtCjtQNu5GYzoS9' +
       '5P0/udztXOxBjj/vNW2VjCmRnk5p3ifv4UuVP4ntxVsixayj9ctMR' +
       'vLL/+avwSO0p5ffxe6DoRhaN8sL1JpJsBCsIx5yUp+GfvSYJ8isJ3' +
       'inQXQBPTkPl0FHK+l9vm488pqaDc+VUuO9VAyCESf4a2K4lQZdmuI' +
       'aSWxCHnr1LRY0Q4bgk/ZTk/IwgNKPwcqYCm923ccUFwXPzftp1iww' +
       'D+GEx1uCF/nGfbevyMipwrbj67ZBY0RS21bSld8h0tqMlXrft8P9u' +
       'UJPltsKmEZbs0DXoh8Huwq2RsM4w3t40N8FmcQEvJ2P4xFV1im6RT' +
       '/NEeRQnajo7O8oKn8UcxFiWmbTyEbGdsl4iiibO0HW3nZvgkPtpse' +
       'p/TmTtkGc+mk5LSNH9fpPlfa8mZX2RfOq+LsYH6vFL5O+utb3bfki' +
       'VOYiBb4rt0qTlJ+U6wvYbSdRTauNlYNlC6EdlMSBkhWwgpJ2RrlCc' +
       '8+5lK0F2EfEbIbkL28L7NZlIZ5yyjOk5IQhAOCMK1zMtnNtVodZVq' +
       'wgHnqVTeo/XHoYcDKDz7mZ34yHHO4Wh0OC44HP8QxWUMpaWUrkbWm' +
       'sLpeko/oVw4sImQBcIJ2UbIdko/pXQHpTsJMYVnbMfJPsLZT0gFEh' +
       'cEEH4QOSQIRwShkkBLIUliCReEOkE4ihwXhBNoG1+aQr2A/cThOOv' +
       'gts+j8KjTuYzBhJcia0RxrSiuE8WPRXG9KH4iipmEb6K8pZTxrkLL' +
       '+XuTbhPF7aJoCqfQwOnuEt5YphN0L+Xso/TzrHAC/6hAS+EcJuQIp' +
       'ZWUVuUJh5bCX5qEHCPQUuClSU4SkhF+Rshr4PjS/EgUlzGUQrxLEI' +
       'j3mqUJJ2QjIfkJh3hz4ZTyhBOygxCecMz2dJzECNmLQLy5cEGowHg' +
       'fsOLNhWO8TeGCAPGutRJ+DBN+0ko4j7fDATRY8f6707mMEcWo1VUg' +
       '3qsXJdxqKfkJh3iXi+JWUdyG/SSTcIj3Z8geSmOZeGeFY7wTVsIPU' +
       'XoY4p0nvIaYL81MvI9l4p1p4FY/OZOJ938B0hi6fQ==');

  Attack2 := BitmapFromString(121, 17, 'beNrVlttXU1cawJMwL7Nm' +
       '9ey9zxGSQE7ONQl98WHWGkpq1aJF1Fqr4OVEW5EEaq0tSm0lthVQV' +
       'K4qYEAuEm5Wrba6JFVrbafOTB/PHzXf/k5uQOya6Ztn/RZr3/c+v/' +
       '3l4wjCoUDlK0yV/3CV/4Mq/4dV/iNV/makpdIHxCt9iUpfa6WvDfn' +
       'I7z3m937s9x73ez+p9AEnKn2f+n2f+b3tfu9Jv/cU0uHzfu7znvZ5' +
       'v/BVfImc8VV0eiuS3oqz3oqvvOVf+yqAc4C3ogvp4ZSf95Zf8Jb3e' +
       'ssvVpRfqii/zFnXjwwA5euGytd9EzZfYULGOaQrZHSbOtBj6ueRC4' +
       'YG9BraReSyrgJ9utrP0QaQQV0b0tUhTR1GrmjqVUBVr6nKiKqMqso' +
       'Ycl0NpgAlOA6oyoQavAEowUlkSpGnFXkmKN8MyrOcQBqQA3NyYF6u' +
       'AhaAQNVioOry65HVVDfcy9i2PZ2uXtGenrbtTM9YdaTEFIftPf+y7' +
       'cdtLx/w56hufWwXP0UHq048se0nbeH+6vBAJAQMRkJDyHAYMK+Eza' +
       'vItZAxgoxyzDGOcT1kpJBxU59Abpj6pNnyvHi35a4lXb2JzGpqWte' +
       'AOV2dRxY0dZGjLGnKLTXLt2rwNqAE7yjBuxz5O0W+F5R7X4+sprrh' +
       'bsZ5p9bi9llUPVIdKTHFAVX/2PbyAX+CNth1xZr8GHbm7nbnqInH/' +
       'HLDl6rDlyMhoC8S6kcGwoA5GDaHkOGQcQW5GjKuhcC8mdNucOemDq' +
       'RMPd29DKv/HNdvGBrH3LrMGybv6eq0rs5o6oyu3dS1WdCug3Y1ral' +
       'zmjqvKcCCqiwiS2rwFqAEv1W48NuKfEeR7wblC9XhNWzjqjOZF/yN' +
       'Cu03s6rDF17G9p4XXMvLB/z/8E2nEyWO5zRGEj/Cjq2hi5HQpbAJX' +
       'A6bfUh/CDAGQsYgMmQaw6YOXDF1sH3VNK6Z+ggyaupjBqBdr+/6j2' +
       '0/i2vjujahq8ANzhZue/LolKZMa8oMCr+pKbNIWlPmVM68GlxwUIK' +
       'LSnBJkYFbQflb5HZQvhMMdFeH17DtDr7LcE8G/ubbp1D1MC8n+FW0' +
       '5cfnqqg608P/Os+Lnm3FK/MFS3TB9MydnmnnhzRV6iSlDolE+Nag+' +
       'rzjPGH2hs2L3HmcR3vC7AsZwNxUIR183w2V5R/qzax25JqhjxjaLd' +
       '7TNWtqY7p2XVdTyLiuznUt/9yi3tCUSa0ZcsvzFnXa0a41/2Lbvxx' +
       'VZlVe+PVo86+5bf7ZLC8o8mJQXkLQeeBcJLSG+tv4guciCbjP5dZs' +
       '+yRX3T3EyyvaC9WG7t/4PpnbDdiO1d966p1hQ9xzyS4+PbfyGlpRE' +
       'z9Mqd5wHOZmEmZ3OJ5B1edDxoWQ0RuKg/nHcf2Sqc/yBabSpt5naP' +
       '3xyazwen3Q0IcMbRi5omtX9a0Plu1/d20Z0VVgVFPHNOU6klKVcWR' +
       'Cbf4Z0kuLMqkqUxxuHlTPKFw1LPu4Tk5DujjHfTytkxeCAWBR5izJ' +
       'ga8ioTXU30LVUO4HP5nufmyfQNVYTjyy7Uet+fG5ak5gfik+3Z6ay' +
       'I0p7vqKO3xJ1yqyN+g8zpQc4TjMXU7A1wh3DgX+KRIyekJoPq5fqO' +
       '96gYWLBqBdMrQ0N798r17vN/QBQwMGDfgOAVqe2vZPLeoVXb2qq9c' +
       '0QBnRlFEt/x0CzpufoeoJrl25geafH1WmFO7893ObZxT5piLP1n3z' +
       'OwR5szwXDADz/FMksCAHXCWe9acf2vZoY7788PR6KDWO2tkSFrP9x' +
       'dXieYUenFM0ec0mq1b7gwfn8Ce/FJ871uj6i6txDAt/dbn+5nK95m' +
       'q8btupRhfFtWMu1zqXq9zlqnC5fHiSr9e7qtxu2e0Out2K26253bq' +
       'rkd99oyvsdkfc7tfd7rbR4g+R0eMu199djbO2PdtUVuPxvOHx1JY1' +
       'pW17rqnsrbKmOduebyp72+Op83i2ljUt2PZiU1mDx7Pd49nh8ez0e' +
       'HZ5PJtEthqpdgBiZTyWrcZScOoOiXWMQ+wmYxIMiM3DyrH8+Fw1mn' +
       'xiPxqIFi2Vb+GLlHj4rFWr/Q/wk+CRNjEL59I6ZsHbLcToO4xuY7S' +
       'BWYu2vRSj8U54k9RZSt+jBNhNyR4LTvJotJY2MtpE6T5K91NykGPd' +
       'hYjtrDlEyWFKPkSOENJMyFE+JdVHhQQ9eN+271v0I0qOUfIxtb637' +
       'R8seoJaP9j2A0toJ8JJIpyiByEiHlrCaSJ8IQhfCsIZQegUXtsoiW' +
       'uIOqrzLfBqT5JRR7UlSRulGFziXEzKDchVudjidnFjjM8ZiEqFQon' +
       'tVq1WxNoFVy2bu6Y6KYaq2VaR1YtsmxQD1YsxtgPj5Cyju5D3GN0d' +
       'Q9VRdiz5KH/jz5I1Bxjt4T2d7YweYvQDyuG2aVb1ZUoT1LoHqmOgm' +
       'nMMVX9v0U9QNTj/jJJ2Sk5RC1XT04Rw20T4kghniLBBEtcQ7UfVhR' +
       'YMzic8IycPSNIGlAPyi3q5EKdQaJfEA/A6RVP4mBLb/UHXmpM4cNX' +
       'jJ3PL5n8aT5O1dSK3/U40+RRVN9R2/oThvZPRd5FWbpirfp+xvYzH' +
       'NrCP0f1AbSek4rsxGgPblB7mtglwBFVforQFVT9P1rRS2ga2azp/Q' +
       'dXHc+H9KSVo23qAqjsI+Zzw2D6Ntt+UxDVE+/AFixtPjuP1P0rul6' +
       'TsgOKybadj0puoGjr6ohKfxYVgO66wH98x25Vd0KnG0kXDVoOL5PY' +
       'qtMCFYtW5JrZRqh3EIx2S2BapdgiPBEEOyaSTp65UkqHtbB7jqncz' +
       'tofRvUhTzvYJDHUI8hh1bJNeZ0bKaobwpjVTfJfOM5S20poZ3AVUF' +
       '2USgra56gcWPUVIBxEc2xDbUVFcTU71ykYuxHnlQtV2JGddRaNJ+J' +
       'pNJ5OPC11S8SL7i36zsEF70VKrRpbYuvDwC8p2sazqtxjkbR7YzrM' +
       'Qy+aTekq3UXqm8I8idRZD9GvG3mPsfUr3ULqX0kaaz9v0ALXurNgu' +
       '1QuZhOTyNga289y3LCd1FzIJISfICtWnBKFDED4XeNJ+QxRfYRiLM' +
       'vYmArY3cuFsM2NvM1aHbKX0HUod4Q2Ubqd0h+Vkb7YLbFO6m9Ji4f' +
       'tywg8iFiExQg4jHzi2KW3mmYTGkQQhbYR8hHxMyHFCHNufgnBC2gk' +
       '5KQh52zWS9AojirW54N8gim+J4kZR3CSKm0XxbVEE1VtqedLm4c0g' +
       'mbAGFluCj+dkdKcovuvYZk4m4exlrAnZx9iBvO1sJuF8SOkRxpoZO' +
       '1pkO5u3+X9JyCSQt+G/JHVstzu2IbZ5JiH/EMVXGMYgsGsRCOwNa2' +
       'Ob0i3Wiu/MJYtuZ2wHYzsZe5fSXfw7kAe2E9tOJmnKZhJ6kJCDGNi' +
       'HcoHNbWNgZ20TAoHdmovtYxjbn+Rimwe2IAAQ2x3/BX+Acvw=');

  Attack3 := BitmapFromString(145, 18, 'beNrdlvlTVEcewOf4YXdr' +
       'K6+739zM8Y55M4NbW+7WVoVI1gQvhCRqDGiY0SCXd2I80IDKMV6Ao' +
       'CIIyiCHgHJ4D0Qr0WQ1u5v89P6o/fZ35s08EJO4P/rqU1N9d09/3r' +
       'dfC8LOQMHbjN/3hd9X7fft8vtq/L5apL7ACzQUeHcXePcgewu8+3y' +
       'e/T7PAZ/noM/zZYEX+KrAe8jn/drnAY4gR32eY15Po9dz3Os54XV/' +
       'gzR53c0e90nktMd12utu8bpbve42j7sdOcNxnfW4znlc5wG3qwPpd' +
       'Du73M6Lbmc34HL2uJyXXM7LLucVl6MX6XM6+lzOfpfzmss54HIMIt' +
       'edjkSg4G3G79vh95nFAbUFXqDOJA7Y6/MAWXEFXuAgiPN5v/J5DqG' +
       '1w8hRLwfFuY973SeQJg8HxblOed2n0FqLx93qyYpLelxJtMbFubm1' +
       'C9yasxPh4lxZaz3cmgPg4pyOqy5nH3LN5QC4OKej6y+FbzMrYheR7' +
       'hWxnsIocKkwehm5EosAvcjVWKQvqgH9Ue0aJzIQ1YDBqHYdiGg3Im' +
       'FgKBJOaZxhTb2JjIQ5o2FlDBlXlfGweiusTACqMolMqfJtQJHvKPI' +
       '0R5oBZGlWlubkEHAXkEL3pNB9KQg8CHEehoKPQoFHUvBxiJMOBedD' +
       'AWAhGLiwIpalsGxuQdf14dHCWL5wRWx0WNcXkn2LCxdRnvxJ15/se' +
       'X2DN+e3J/2dFEY7kM7CaFcsAlyMRbqRniigXYpql5ErkXAvcjUS7o' +
       'towHRKf+WZT5eqN8KcIa3uua4/r1eGVeWmKgMjqjyqyKOqAoyp8jh' +
       'yS5EnONKkIk3JnNuydEcO3akdelkjzUghYFYKAnMhzt1Q8F4oANwP' +
       'Bh4A3F0AeBQMPEbSQf+5FbEshWWzC7iu4d35QmP3rhbGzIWLQGXf7' +
       'nl9gzfntyf9nRRGzyPcXSwCdKI47i4KaN1RrQe5FAlfRtCdBtwGZQ' +
       'vtIxGtPxK+pqnAaPt8xtp1sKbVPdP1Z/XKkKqkVBkYBnEKuFNGuDV' +
       'wJ4O4MUUeV0CcBEzI0iQyJde80PUXNdIdKTTNCc6AtRAHrQWAe0Fu' +
       '7X4oeD8E4gIPgxwU5z9TGDXYyJUtLLzUF2bLc4XRm7h7vflmr1Cef' +
       'MmVvb7Bm/Pbk/5OYpGzyLlY5HxUAy5EtQ6kMwKEuyLhi0i3Fu7RVO' +
       'CSpnJ3WngKlM23pTT1qqb2hQGlX6v7Xtf/3b5+QFUG1VqurE6+rso' +
       '3FHmII6UUCcQNgzhFGkFGFWlM5ozLoVvIhBSalGr+xZUFb4c4d5Dp' +
       'UGAmyJkNBuaCfuBuwA/iMu4eBP0PAv6HAf+jgL+tMGqwcRqUDTf0J' +
       'BfgN1eewt3r4ekG/pLtybU3sqhsPsl/M8/L5EbTsFE+4DJV0H1hOj' +
       'mcCeyUqf3iSZchNWw6qvaYqsrza8hWxSLtsUgSPlumNfyULOX6Itq' +
       'FSP0Tff5ue+YETI1r6kVN7QYioC88gcqGwKCmXgmrvWGlF5V9X6/0' +
       'qUq/WsvTdfKAKg8q8uxQft7ndXIqow9Y3/pf05J+rJXG17b+nF9iy' +
       '5wUnILIap3Plf3SUjIT9AOzgeqf9PTzlhtYfONpwH8/wMW1xCIGpX' +
       'dQWUsMXezOlt/gu9fezdOLyvPZsvYXfMyFO2VYjtkXydJMs26+V8t' +
       'W8e7GyEsxTbpcFV/k8oPnl7ebi5hv0Frh3Evylc6UaslIOFnaDlpf' +
       'tpeejYTPaXVPeKO2Pk3tCANKZ1jpAtDdLVR2XVN6wspllZNqm9dTt' +
       'b2qfFWV+5SMMqkf7hLga6hmQJYG5dB4G59rfp00JEtD61r/AwZrpW' +
       'EpdFMKjdTwzf+hJjgm1fwI+mqCt0KBiVBgtiWt6+nvSgJTQf/tktO' +
       '/cGsfTgf8M4Fq/gamT0NkzQUg6AqAe/6Ck7GIQeltVAbpTtiKhfZO' +
       'LB/E3cN0Ax96d669kTVE5Ibi3fXUoNHGXHWS7+RrqkyYJl0C9Fq4X' +
       'WZkcerskvIjm4hqp6L1mYlaIuFWpK2Bt0xFtKRW9y3Xt+Gspp4Lq+' +
       'fDCnAhrHSAQU0dW+b6ATZah1T5sipfUWq/0/Xv6qSrSs33+vzjdVK' +
       '/LF2TQ9fWc03PaqXrsnS9lrucA3dSKCWFhqUgcFMKjkg1P2TchQJj' +
       '0i7Q93NLyUQwMBH0Twb9U7vA7I10wH8nUP0irw+CrgC46y+w5J+Vj' +
       'Y90va8il37UuBJSFX16NoXJbL05a+6Xr8E+ps6vTLJktEXPq/1e04' +
       'g/xiCZ/KIhrRaLHcc6vtLyB4vljxbLnyyWP69sBInXKiyCpWJA1wc' +
       'qLKLF4rRYXBaL22LxWiw+q7XAaq3GNay1WCSrVbFaVatVM2aIWa2F' +
       'loqbun6zwvJXq3Wl1fo3q/XvVus/jCWNVtrfs9lW2SvHsMMRu/0Dm' +
       '63EZltjs6212dbbKyd0fbLSXmazlVdCl8e9K+2bbLbNNtsWm23ryk' +
       'aI3+lK+zZ75Yyuz1Taq+z2hN2+w27fabdX2+0fiiyLY9VF+CeDiWw' +
       '2wf/NUQc7OgjvcXPCAQ0St3T9ViLX3sgWNz/V0xeLWX6oXAkfZJmH' +
       '91oy2mLyk75SlWhOG8MMHOUTmZeEf8E8C6NrX7OGyQQtZ/EpXZ+K0' +
       '08o2YxsoWQrwOhnjLZCv3TTAUq3U1KFxCk5ywcbOEtpNY3P6vpcnN' +
       'YQ0tiUX1JXURNc/u/F6T5K9lNygBaNmpb0MC4cJsIRWgXv7aO40Ei' +
       'E41XLL2++6p1WoQoO2YUqoV0QzgjCWc4754V3VjtEg+IuVJYrOTKo' +
       'P20uPoK7V+VwrHYkxnV9POEwGhhZ3DdTubg6wft0FTvyifws4tLuy' +
       '1SJpkkXVy2Z69WpzSPwqTOvTbq7mK0V2Tpkg8hKkY0swZUl6EeMfs' +
       'LoJmQLo5+KDGhBZfsZrWR0O6OfI4f4CzNwhtGdqGw2TquLmp6hu1p' +
       'K6ilpWJVVtpdy9nFrnIOUXOFy0mNF9DCNozJ6DHTH+TQTRcI3hNNE' +
       'hJNEOCVwWlDZfFxoI0ISOUOEc0R43yEaFHeisnwJBstT/sVq3u5wv' +
       'O9IQJiDRFOtPpZwZBL5coe4Hf6XqQtvk58lx69UiYcHc5MuruLvwO' +
       'DhXDnP/vr4zHg3WInI1iBgbT2K28ASkxhuZYxb+9gQt1lkW0R2GpX' +
       'tw4gDa9tQXBILDzGaMJR9wfd84DylNZSAtToM6rtxupvSPdwaMcIN' +
       'rMUf6PqDOD1E4w95xNEjhBzFiHscF44T4YRhrVkQTnJrVWlU1kq4t' +
       'XbD2q8py2ydnts9bGBOm5RBRWex49Vt5PpyVdkBM9n/S1nuPTGk6L' +
       'm3BSM6N5GRZatFFsc1QKBllDXiGi4Vv7ky1DEDtszKjChDZfG7mXt' +
       '+UxFXhhE0UkSzyjA7WpRV9mNTEVcGFvi5ygMto2wAg/H2u69VtkoU' +
       'sziKO1BZvoQX4rakm7c5HPmsnpGV3fNVxc1wVR5r5r9GlcM8yLZm0' +
       '2muDx4yDbWkZY5Dg8sc70+aixePlu4odmBLnuAdE+ZuWMjY+4z9k7' +
       'HPF61hoJGxdZwEvwbE6UZKyygtp/QjSj+mII5tYqhs6ZPuL4JPG/2' +
       'c0rihbAchh/PfsvRQEe3APU8V0QZKd8fNo3BfBwn5imQOSf5KJAXh' +
       'qJCxll/egJAJNK4sXSWcFoRWQWgT+EcN2r8nim8zjBWjNWA1Yx8wu' +
       'JCwEsbWMLYWWU/pBkpL6WJrjGWsbaZ0C6WfUrqV0s8oraB0GwLWqp' +
       'A4IQlCdiJfELKLkBp+QtI6SuuRBkL2ELIX2U/IAUJA2Zdo7RAhX4N' +
       'uQTiC1o4JQqMgHBeEE4LwjSA0ZawRAh+10/y7lrUGyoocjrcZjNli' +
       '5J+iuFoUPxDFD0WxRBTXiOJajLX1DE5IVsrgNsLKGCtn7CNR/FgUs' +
       '9YY28LYVuQzxiqRbRC2OWuU7qBwG+FUU7qLsRrGak3WjI8aXEXghK' +
       'RwBT1Iacba1xlrhOAJSfhthJATAFrLKOPWCGkhpBVpJ+RdUXybYQw' +
       'CbRWSOSGXxhql6yg1xxoEGrfGGI81SjdRuhkDLRNrEGiVSOZ4rCKk' +
       'CgNthxFo3BoGWtYaIRBou41Y24exdtCINR5oggAcNgLt2JJAA2V4F' +
       'ckH2v8AaFt5hA==');

  Attack4 := BitmapFromString(148, 21, 'beNrdl/tTFNeewAemtnZr' +
       'q+xzzjx7prunHzMDZPcWdWvvxkgS4zUG9GbVJKAyqDiAGhONT1RQn' +
       'r54y0tGHgryUEB8Akl2k5ir2bvZn/qP2u/59jTTA3hNan+z61NUn/' +
       'eZ8+nvtxtCDsjhtx8pdFAKVUqhQ1IoKYWqkJqwCBwOi0fC4lHky7B' +
       '4LBT8KhT8OhQ8HgqeCIvAN2HxZEg8FQoCZ5CzoeA5MVgrBs+LwQti' +
       '4CJSJwbqg4FLSEPQ3yAGGsVAkxhoDgZakCsc/9Wg/1rQfx0I+NuQ9' +
       'oCvI+DrDPi6AL+v2+/r8ftu+n29fm8fMuDzDvh9g37fLb9vyO9NIb' +
       'd93mGfd78UfvsJhw6EQwfDocpw6FA4lESqQyJQExIPh8QjIfEo8qU' +
       'YPCYGvxKDX4ugTwROhMRvRPGkGDwlBk+LwTPIWTF4LhisDQbPBwMX' +
       'kIvBQF0Q9QUClwP+Bm4w0ISAvuZAoJXjvxLwXw34rwW4uxt+fxvH1' +
       '4F0It0+To/Pd9Pn7fV5+3zefnQ34PMN+ny3fN4hnzfl4+6As4b+9q' +
       'Nr55BaXTuvqxeQOo1Tr0WAS1rkMtKoKkCTqjRzIi1Iqxq5oipXI8o' +
       '15HpEuQEoSpsitytyB9KpyF2KBHTLUo8s3VTkm4rUB8hSPzIgS4Ny' +
       'eFAKDyEpKXwbCIeHw6ERZDQcGguH7oQA8W5IHEcmQuK9UHAyLE6Gx' +
       'KmQOM0JzoSC98XgAzHY9i8Fbz/v5LcjHe/kdxbkAV0Fed1IT34cuJ' +
       'kf70X68mL9yAAnPpgXA27lxYaAeCwVj95GhmPREY4xGjPGgCjnTlS' +
       '/i4wb+kTUmIjq96L6pMGZMvRpQwNmdO1+GvWBrs5qnDktMo88VCML' +
       'HOWRqjyOcJ5ElKcR+akKf5VnEeU5R16MyEsK5/o7+RkKtj9cNk1zb' +
       'Lwg31k/Pmaay60D2ZVZ7Gj9xTS/O/r6Dr+fNy/62ynIu4G0FeS158' +
       'eBjvx4J9KVB8S682I9yM14tBfpi0f747H7o+Y612h1KmbcjnKGo/o' +
       'IMmroY4YG3DG0u7p216h+YZo/V2sThnYP0LVJXZvSVWBaU2eQ+1rk' +
       'ftXIy6Q6q0aAOVUB5iPKQ2QhIj8CFPmxIj/hEmWQ+EzhPFfkRUVal' +
       'KWrBXkOSuaXcXtjh531d/EY+7N6ZrOj9ZVpfnv09R1+P29e9LeTH7' +
       '+GXM+P38iLAW15sXakIw5EO+PRLqQ7Fu2JGcDNmAEGZ8DdUjNEVn/' +
       'MGIgZg1FjMFb9g8krx2N6ytBvGxowjIzo2ihHHdNVMHgHDOrqODKh' +
       'q/c0zqQWmbJQI9Nq8qVpvkwq9yPKA2Q2osxF5DlFnlfkhxxpQZEey' +
       'ZJlkEtUpKcy55ksPZelloI8ByVz4G55+ZW5PLcjUz+Kx9iT1TMbdL' +
       'd89PUdfj9vXvS3kx9vzY9fQa7mxa4h11HijXisLR5tR7jEGGB0xYx' +
       'uIB6dRneQG3uRvqjRH9X7a0ag9nmxPmjotwxtCEmBRJ0zrKsjgME9' +
       'jlkekbuaOs6JTGiRe4AamVSTfzXNvyaV6Ygyg6BE+YEizyrc4Jwiz' +
       'SvSQ1kCjwvII0V6LHOeoMGmgjwHJbPLPOi6W5fh70r9CB5jN78/vA' +
       'T7PrrS3y7uaIVHaKmV/7Wul60lzpn5hOs0wfDl2dYxK9RHsnbiXHQ' +
       'dRsYyOcyxn/ROVjflx5vhvebYw6vW4rTEeM135tLDFis5jk7EYu0x' +
       'oyNmgEEIxkl0dxsjkQdj1OiN6r3Fzf9tmj/U6P2GPmBog9UjK9P+r' +
       'fnjlK7e1tVho+pH0/ypWoUwHNWTP5nmi6rkC7vbiyp1YmvTr5ldNs' +
       '6r3ODDpqWVuv9t3DKrSMCcXPmLufhT4zBWD38v80i09DXkxx0UP0B' +
       '3DfmHF01z8Ui6fpgfY0snv8+qzxS3t+CJLT/YjvVYfNlabHXr5Ie2' +
       'bhMfbs+8Gsei6zXxTa4/eWZ7R7gRXsyLdbXyp2y2JNYcj7YUt0CWe' +
       'NVSfCUevRKv+RZzIGTF6zHjRhTQ26J6OxAz7qG7VEzviurdUb3H4N' +
       'zkspaefqL1GVo/ivuhWh3Q1UEtydPpSHJIi6T0JLj7sUod1tQRjbu' +
       'DIctb1TE1MsMFLX27VRlXkz/DOzGp3IvIkxF5vpGf5X9tkWcUaWZL' +
       'w69c30cPZGlWrnzFf0YD5Ekeg3J4QQ4/kjj1eTEHxTPcXQ3ct8GPX' +
       'W5pw/oUHiPe1/AFDq/0t4slaSMrU/Hh5mjK7uNsqj88+tomB45FVw' +
       'GjlmZK7CIund5SZuZs4rhQS/HleLQhFm2MGY01vCd8JTbHqpe5x21' +
       'XojpwNapfMwDtuqGBxHF0B4mx3dA6DK3T0Lr0qv9EQT262qNvfbJk' +
       '/tK0tVeL9GmRfqAK0+lW5RZ6/CGpptRISuUe/9a0ZVhVRiLK6NbG/' +
       '4GQTMp31EMQiS+S8rgiTyiV4PHXxo8mZQmYkqXpQ7dN8/aiFLovVb' +
       '7kHjfPyuE5iTMvhR9KIcCVdRXWPjPNgdKV+2e1hXBXOmCm7/A23e4' +
       'sOsdlWnCMY/CaRVbNlnWtHfeaTvyyJ7HKa6bEuc4Xuv7B5fpHl+uf' +
       'XK5/Lqx9bpq3Sl0bXKVDpjlU6mIul8fl8rlcfpcr4HKJLlcoJ6dyY' +
       'J3PzKXawnhOTl5OTn5hLXi/U+r615ycP+TkFObk/LGwFqJ4vNT1J3' +
       'fZONyUud/Lzd3kLpswzXtl7g9zczfn5m5xl02a5mSZe5u7bMo0p8v' +
       'c23Nzd5TBSs/7Ct07c3N35ebuzs39vLAW7M+Wufe4y+ZMc67MXe52' +
       'V7jd+93uA253pdt9yO3e7GEZvJs64QFNVaSLFfxnnfWysyl4susTX' +
       'uhQcQ+2UbHS3y4W1X9vLnYWOaZaqeGTrHPxUatmyyaz6JqmRP2iPc' +
       '3QWb6Qc0v4E5yreF67h+kKWsIS06Y5k6B/oeRTSnYiuyj5jJLPGW2' +
       'EcYt1X1NaRukeSvYh5ZRUIPs31kFAzSdoJSGHCKkiQhUtXzDNhYRw' +
       'mCYemeajBP2SkmM08dg0HyfocUJOEOEbWv7UNJ8mhDO0HJ7hZwmhl' +
       'gi15evvcLF8Q6NQzpNsudAiCK2CcEUQrgobrgkbrgsbPvB6HBR1oL' +
       'uVmtMp8/v6otN4jPu83g/Sp+21O9jF9AF6M1NV8DEdRd7MTdZC2cP' +
       'XafI4Fs1uWrXW2qWdM6T3wB3Ag/SRh/3Zw7Yi2zzsEw8r9lZMo8Qd' +
       'jPMpo/+B7GJ0t4c14B6OMVqK7GF0L1LOaILRik1pdwcpAQ5RkkSbC' +
       'wlawxIL6O4oBX3cI7j7mhLgBE084e7oKZp4yt3Rs4ScS/AdTm0ULh' +
       'DhIhHqiFBPhEuCcFkQGix3CaGJCC1EaCXCFSJcJcI1Irzv9Tgoakd' +
       '3mRoMn+/5W61+r9f7vrcCwh9sOlrNiQqvdZOp93r2Qmg4hvA+WQtZ' +
       '/J2mtDucIbuJPwyp0yv1vPjG+TMBvgX1AR9b+rwVU+huO+P8xda3E' +
       '/TZ7r5k9AukzNa3L61vY2rR/LFu4wF0Vwn6UMHIRlqN7kDiEQr60u' +
       '6+QnfH0d2TBD2J7kDiGULOYgw+TwjniUOfYOkrX7TdNWfr2+TxZPA' +
       'WtaE7Z+XJlBW99Xu83nQH5z0ezqai+u+wU1uRl4+yz9OaYQ9PcXZT' +
       'ekIs2mebtQfnutZCq5pwrfQonAGu7+qL7HUzC2WKjO3FPXRsYpsZ+' +
       '4ixczxFLXZtYh8z7m4qQYspLaF0O6U7KORP+ikFg+wyV1EPsfMZpZ' +
       '9T+gWlpen8SfdSuo/SBJfFQ28/IQdoYp5n8USSkCRNPLQCkNJM/iT' +
       'kGAF9aXffoLuf6zaeJuQMJMM6vsOpd4XzAucW7nDmXdDH3S2WQwAK' +
       'TYLQLGSS5xvdpc9n5Rjt40I79uFb51lvGTTNNUb21DteQmbqpGOqv' +
       '+duzWU5cszG1WQeBvuxcbbySsbeZ2xf1h6Gahnbyv7f7mx91gUxCO' +
       '++3+qOkF5r6GIduDib1pfZ4ZBghd5r3W30eN5+GAN9RcgHjH3I0tG' +
       '3hbE/WwYp3UbpJzTbIGOfMgYGd1K6i9LdqM8yWGYbBH3lACEJQnjo' +
       'IfzThdIkpVWUVlOur4aQI4QcJcTS9xUYJAQ/XQgYPAUIwmlBOIMGz' +
       'wlCrSBcQC5a+gix3n2NqK/J1veux/P2w9h7qM8KwHX0UbpKH7jbwV' +
       'haH6WWvs/sACy19VnRB+6AClvfQdBHaZY+Qg6v0Xfc1ncS3Vn6LHf' +
       'nMG1a7upAH7q7xL9b0vqs6Pt3j+fth7GNqO89DL119FG6Sh+E3nbG' +
       'LH3gztK329a3Onmiu4RTH6WV6C6tD91Z+ix3x+zQO46hdxLdncoOv' +
       'Yw+QuzvlrS+ZuRPXu/bD0YfJM/38E1a5PG87/F84PF86PFs9nicyX' +
       'Mb8gljJYxt93iAHXbmBHYxtpuxzxj7nLEvGCtlzPnuK8fXXwWlBwD' +
       'GDjJ2yKEPX3wc/K+BHqPw2UmdmfMkJk/+3QKfnYTUAqjPcsf1EXKZ' +
       'kAakiZBmQv7N6337weh7rT5H8vwYAX3FoM/jAbbbmRPYuVafI/rKb' +
       'X370R2wkjmT9osP3B1x6sPoO+HQd9rWdw7dWS++i7a7S7a+RtD3f4' +
       '9JWMY=');

  Attack5 := BitmapFromString(147, 21, 'beNrtl2lTG9eagAX6MFNT' +
       '5T6n1WjtbrW61RJkaoqamnvDQOyES2yMk4l9E4iDFAdjwHhJ4jg2S' +
       'YTDIryyeQGDQIAxGLN5ixHkEvvmZmLPzM2n/lHznrfVUrOlyh/HNV' +
       '1Pqc5+js6j95wWIUekwGuO6P9M9DeI/qOiv1H0H0OaAz6gJeA7HvC' +
       '1IicCvpN+7ym/97Tf+7nf+0XAB3wZ8J3x+77ye4GvkXN+73mft83n' +
       '/cbn/dbn+Q5J+DztXs8FpMPr7vB5On2eLp+n2+tJIhcZ7kte92Wv+' +
       'wrgcV9Dej1FfZ6ifk/RAOAuGnQXXXcX3XAX3XQLt5DhImHYXXTbXT' +
       'TiLhp1CylkrEgYLxL+X9z/UXGtivyaE5ROICeD0qmgdBr5QhaBL2X' +
       'xjCx+JYtnkXNSADgvBdoAWfwG+VYSv5MCCSnQLgUuIB0io1MMdIn+' +
       'biQp+nsCjIsB/6WA77LoB64GGNcC/t6Ary/g6/czBv1e4Lrfe8PHu' +
       'Onz3EKGfJ5hr+e21zOCpLxuYMzrHve4014PMOH1THrdwJTXfcfjng' +
       'bp/1zymvNGcR/S/0bxQEkUGCyJXkduFEeAm8WRW8hQVAeGo/ptRmQ' +
       'kqgOjUT0FRPSxSHgcSeuMCV2bRKbCjDthdRq5q6kzYW0mrM4CmnoP' +
       'mdNC9wE1NK+GFhjKoqoshRjLoeADEyX4UAk+UmTgcVB+gvwQlJ4q8' +
       'tOgvBKUMwxpFZClNVm6+kZxlpKaB2uGYUxOlxTnC98onp40jLWe4Y' +
       '2FGzjQ89Iw/tK6c4NXh0263cNmKTn+l1eariR6DektifYVR4D+4sg' +
       'AMhgF9OtR/QZyMxK+hQxFwsMRfbhl4nmLfjsSHok0PzeM581aSmeM' +
       '6dp4mJEOqxPIpKZOaSHgjhaaVkPTmgrc1UIzyKwausdQ5lTlfogxH' +
       '1IWQkFgUQkuIcuKDDwIMh4G5UdBCXgsS08A1McMytIKkpHFVUm8XB' +
       'K12L+8hrsz2WIrjJrihmwlm0FxP7bu3ODV+d1JW358pemKI1eQq8W' +
       'Ra1Ed6I3qfUh/BAgPRMKDyHU9fEPXgJu6divS/AxlDetAkyluJKyO' +
       'htUUMqap41rIJK2FJlTGpKpMAWAQ9KkKcBeZCSmzjOC9UHAOUIL3l' +
       'eC8IgMLQXkRWQrKy0FpWZYeyNJDhvhIFh9LIugzDf4giz9I4lNJXE' +
       'GSJVGL/Usgbm3thbG2dCBXGJ3APbyeb7aFAz0voEnrzg1end+dtGX' +
       'tlaYrjvQURy4il6L6ZeRKVL8KRPRrkXAv0hcJ9+uANqBrg0Ck+SfD' +
       '+KnZ9NgEEp81a0NhFRgOq7cBTR3RQqNISguNqYxxVUkDWlZi1qOq3' +
       'Akp04zg3VBwBlCCs0rwniIDc0H5PjIfBInSgiwtytISQ1yWxQeSaH' +
       'mUsh4l8YnEDHaVRC32L66xcBvsWYPPXHka93CQpVtWDWO1Ndfeyh7' +
       'o+RUSPezTfH7t2W8bNsoG3KYKuq8t9phn4mTa1n7jpFvZsIy07VDN' +
       'r81cUitraT4veqqTNckXVvbHFjQY0a/AqZjMtTJeJvf16Vp/dffL/' +
       'KDd43oTSHyWzBc+b1aHNHVYO/bcWM10p7EsvayGUqoy1pTOdf3v7q' +
       'oJpq/qR5gh3XgnFAR308dYg18alRlFnlXkFcitdj5Agw+7Mrm+v3W' +
       '+syiLSxLoO/rSyPzcOY7F4+uWu47iiEX1AorrKG6B/pnj2fJxtofJ' +
       'fpbeUJ7P1iRR2dpCDZZj9teearNZP7O2bRXrbo28GdukW8kvgzVjC' +
       '95+omw2qg/0mGomJiJ6Eo5EZmpiKqJfhOuMpVeXq7UrunYVfb1M7u' +
       '0Nq71607phrDdrA2F1AMVBsyf71BsQTd2syw/7QkMqiINk1x1VuR1' +
       'SRgCU8tcmZUxVxkONf2U+G9NwNnatQrM5RZmC47ELF5NuvBuU7yqV' +
       '66vG37sqZ2VpuZN9rWeV4n1ZnK/s+M10JwWW5Ab2e8t0wPH4QAo8l' +
       'AKPRMaFqG5RPc/ENUO6F77pWrIXy1O4h5huZkO35Npb2f1ZHbmhWH' +
       'djImW1sVddaJnYscqGbdKt5JYBidX5/VY5LiO7PPuSIuHvqzGbrO7' +
       'Uw1261lXdzc72Zi2pN8E3fpHcezGsXgqrl8PqFRYv6WktdE1vgleg' +
       '9Sa1Twv1acdA4svudwfU0KAaur63C/w+a1JuhhrhCP2vrqqhUHCYU' +
       'bWyCtnKkVBwNBRMKcGxRhZOq1VyuhHiZXWtSp6EF4+08bf0OETZvC' +
       'xNV3b+j5FZrxRn5Ib/NIy/d75zTxLnJPG+FLjfMGYYY6uif0Fi4n7' +
       'rfHtJDCwjD0U/4Mg/pW1PDWO4Npd+2lYKqdphI5vCZLbenrX3y9dg' +
       'H1vnLZNsGm3Dw+q2PFbj7TpaHWzLz6YLHA5naduKYdyudfyDw/GPD' +
       'sc/YXak1rELl5codfAOh8vhKHI43KVt8KsYq3X4HbWwceO1DrmgQH' +
       'HUMp21Dq2gIFxQEHHUskCvdZQ4aqcMY6rW8S8FBaUFBf9a2gZvTdO' +
       '1jj8UFv6xsLAMKG0D+3frnLuddTOGMVPnrHTWzRorA3VtPxnD3zqd' +
       '1XXsqySczvdYYmWo1HmwsPBQYeGHhYUflbZBOC/WOQ8765YMY6nOG' +
       'Xc6P3U6jzidDU7nUafzHRefRSjvh0Wn4tlsfNQwRs8J/LkU/I7b4w' +
       'I0iM8axmw8197KVrSvG5n+Cj4/VK6EDbLNw3ptGm0j+Um31to6xtt' +
       'zl8LoOTapNaA9zdOq8sRPLEv38nQfgNm5OK3ZYXkLMfohH1uAfYvT' +
       'Oko/pjG2dTFaT0mMkk9pbNkwlmO0ARMPYrSRkGOEaypL/GwYD2Pcc' +
       'UpaKTlByUkae2wYj2P0c0JujBq/JN48U5b4JZPoofVPjcxsGTfM9r' +
       'j+G477tn77lazW7+qm9ewOqOcuctwlxq4r3K6r3K49gsuiog/F5Uq' +
       '+Thnr7RVf4x7WC8IeIc5+NnHBamBlcZds5a49cdanr0LIJ/KzuDZ3' +
       '36bKZZt0546b5rVn7WmbxyoX/y5Q0Y7i+GomLnOznL7HM/6Dpx8gh' +
       'wAhDuIW4nwtT2v52CKIi9NPeEaMR3FxeiRvkDQCWXG0hWe0UnqiLP' +
       'E3FHeako5ExsgkbsLnaOwMJUPMY2wmYzyN0TbCtcXYSubKuO8IlyD' +
       'cBcJ9zzE6Oa6LxtidGuN6COMi4S4juwWXRVZcvgQDZ53dKO2fCMJu' +
       '3DFQaatlm2Mm8uWC6xMIBFsX1iY/S47fqXKdTeUm3bkj+1Wkzubas' +
       'Kw1YG5tkHbxb1vi/uRi7qpQ3D0QJ8TnMPQO8Iz30R1w0CbuI0scRN' +
       '9hnlFvicuF3meUHGXuytIZ4+dEWTOKO05pK+qYKqOnKDnNJI4+Yb7' +
       'KQFySecz8wuKOngdxtB5O75VYVlw7uENxHeDOEpe0xF1CcW+5XFmE' +
       'il4Uly9x4QayV5r2w4KQbWBPwwEeF97CbYGK3gqB9cINZOU4wmF2m' +
       'llV2QExK8Tv2pptwhTHJtpam+uI82ZHwEIDfz8sa6/i+T3lpke+ku' +
       'f/xPNV5Vlx+3i+AZd3o4zWUPoepRfYiZUZKgN3TNzz9vIPKf2I4rE' +
       'ZgzOTHqb0Ezw5wVc8J46QBkKOEtLITLGga6a0hcYesSM8doKQk4Sc' +
       'wmMTBp8uo18ScgZbGuzYpOc47jycgQm2krk3ue84LsFxKVzJ/Jtch' +
       'ymunuvmuCTH9XDZM7Pc5coiVFxDcfkSVogbkmn/WBDyWcNUlt3A8o' +
       'p2dgW3s0+rSrAP8nH+JoIndcY21KaWOc6kbJNuwtbRNnLmWoVwJpV' +
       'NZJdkDs7zb1ni3ubhyuMrURwE4Ls8oyFhX95oO6XvU4g7/nvz2skk' +
       'WlEcXHy1dMOVF7PEfUrIEUJMfaY784Hoa6H0OCEnkAFWM3qdsivvS' +
       '7jsDBZ9Zwn5muPOIZc2riTFYdzRGDNaz3VxG9z9u8v1msPzFeAO2c' +
       'Nb7szQQ/ZSuo/Sakr3UxZ3BzD03ud5cPcBzx+k9BClf6YUQ4+5+5h' +
       'mQ68eiRESR3GmOxZ3lAJNlMUdCz1CWi13pwg5TQiI+wLcQdwR8hUh' +
       'ZznOdAdx18Zx7F2Fy8ZdO7gjJHtmcll3PcibLtdrDs+Du3IE3O3eq' +
       'o/Sdym16wN3B3j+PZ5n+ij9gNKD6M7UZ8ZdXfbYpPWE1KO7fNxReh' +
       'TdHTP1EQLujlv6TqK+zy19zB3HAWctd+c3uSPkAoae3R3E3R9drtc' +
       'cni9Dd7nQ2+yO0k3uIO5qeN50B+JMd4csdx/R3JmJ7lBczO6Ownsm' +
       'bcy5Q3GmO1PcSSvuPjfjDsV9tVPcEdLO2d5VUBzwB0F4zcG4K8NjE' +
       '668CnzD2e2Cvwmut10u+7G5F4E3lv08X+NyAQfMoEMO8vwhnv8zz3' +
       '/Iw6sm/E3g8+7MM5PC6wr8R6BHeP4znj9qc4fvKgz2H4HSkxTeM+k' +
       '2Zybcd4ScI6QNQHemOOYODkxCOpAuQroJ+TdBeM3BuNvRne3MNN9V' +
       'wF01uHO5gBrrwHzfvO82ubPFXb3l7lMUB+QOzNx9x15U7O4w7r6wu' +
       'TtruTuP4trMoLPEXbDcdYK7/wXn7JM4');
end;

procedure Battle;
begin
  if(FindBitmap(Battle1, x, y))then
  begin
    Wait(100);
    Mousebox(41, 539, 98, 553, 1);
    Wait(5000 + Random(2000));
    repeat
      Wait(1000);
    until(FindBitmap(Attack1, x, y));
  end;
end;

Function AB: Boolean;

begin
  Result := False;
  if (FindBitmap(ABok, x, y)) then
  begin
    Result := True;
    i := 0;
    MoveMouseSmooth(1, 1);
    Wait(100);
    if(FindBitmap(ABok, x, y))then
    begin
      Wait(100);
      Mousebox(458, 427, 509, 446, 1);
      Wait(3000 + Random(1100));
      Mousebox(428,493,512,508,1);
      Wait(1000);
    end;
    MoveMouseSmooth(1, 1);
    Wait(100);
    repeat
      if(FindBitmap(Level, x, y))then
      begin
        Wait(100);
        Mousebox(420, 527, 517, 541, 1);
      end else
        Wait(1000 + Random(5000));
        Inc(i);
    until(i = 3);
  end;
end;

procedure Att1;
begin
  i := 0;
  repeat
    MoveMouseSmooth(1, 1);
    Wait(100);
    if(FindBitmap(Attack1, x, y))then
    begin
      Wait(100);
      Mousebox(416, 495, 529, 503, 1);
      Wait(1000 + Random(500));
    end else
      Wait(1500);
  Inc(i);
  until(i = 5);
end;

procedure Att2;
begin
  i := 0;
  repeat
    MoveMouseSmooth(1, 1);
    Wait(100);
    if(FindBitmap(Attack2, x, y))then
    begin
      Wait(100);
      Mousebox(417, 319, 525, 329, 1);
      Wait(1000 + Random(500));
    end else
      Wait(1500);
  Inc(i);
  until(i = 5);
end;

procedure Att3;
begin
  i := 0;
  repeat
    MoveMouseSmooth(1, 1);
    Wait(100);
    if(FindBitmap(Attack3, x, y))then
    begin
      Wait(100);
      Mousebox(404, 422, 531, 432, 1);
      Wait(1000 + Random(500));
    end else
      Wait(1500);
  Inc(i);
  until(i = 5);
end;

procedure Att4;
begin
  i := 0;
  repeat
    MoveMouseSmooth(1, 1);
    Wait(100);
    if(FindBitmap(Attack4, x, y))then
    begin
      Wait(100);
      Mousebox(404, 390, 537, 398, 1);
      Wait(1000 + Random(500));
    end else
      Wait(1500);
  Inc(i);
  until(i = 5);
end;

procedure Att5;
begin
  i := 0;
  repeat
    MoveMouseSmooth(1, 1);
    Wait(100);
    if(FindBitmap(Attack5, x, y))then
    begin
      Wait(100);
      Mousebox(402, 353, 537, 365, 1);
      Wait(1000 + Random(500));
    end else
      Wait(1500);
  Inc(i);
  until(i = 5);
end;

begin
  SetupSRL;
  LoadBMPS;
  ActivateClient;
  repeat
    Battle;
    Att1;
    if AB then
      Continue;
    Att2;
    if AB then
      Continue;
    Att3;
    if AB then
      Continue;
    Att4;
    if AB then
      Continue;
    Att5;
  until(False);
end.

[LEFT][LEFT]

If you have suggestions what to change in the script, tell me :P



[/LEFT]

[/LEFT]

[LEFT]
[/LEFT]

Could you post the script without the html code please?

program New;
{.include SRL/SRL.scar}

var
  x, y, i: Integer;
  Battle1, Level, ABok, Attack1, Attack2, Attack3, Attack4, Attack5: Integer;

procedure LoadBMPS;
begin
  Battle1 := BitmapFromString(61, 24, 'beNrtV21Il1cUP/dJHb7mWD' +
        'm3JqZ/QS0s58s0fCHSocvNVVqaL7jcEhoslURNnMIkrdnA8ENfFpQ' +
        'o+K4QUl+EvmiKmvZBIV8yiL5I5ge/GMrYr3v2XO58/v4zNxjBDoeH' +
        '83bP87v3nufc+wjxo/if3/B5Irt8jug00TdEqSZDPitdO3jLZcPAM' +
        '0+Ir4T4giiE6FOiD4n2EvkThREdFSJdiHNCFMtgB1wkRJbJGZLTTQ' +
        'H8pRA2Ig+iD0zeK5MX2UtbJu2cId3MAwxlZvAtwygxjAP0FvIjyhf' +
        'iV8No3bXLLsN1XAiEfSzZm2iXZG/TslXaCns5ke2EEN5apBvRcQ3A' +
        'Tfk62h5hGZvkwFtyvoqR5HstSVhYWEBAgD4wNzdXyX19fWNjY8PDw' +
        '6xioBU25mKdqZs2R+C3SWNGRsYff6f19fVXr17du3cvOzubB2L1Ts' +
        'gaiDEXFtuUIESChrmmpgZjFezAwMDu7u5Hjx7psBGgYB+Q+5gkc8Z' +
        'IIV9LODo6iuBnz55tmmOdYdAWsHXKzMzcznaoJAp2R0cHVAewHdMm' +
        '2CdM2D9bYKenpx8+fDg8PDwqKiovL4+NExMTejYXFxebzYYYPz+/f' +
        'wt2UFAQtsYx7AQTdoU92PrAnp4eGJ8/f64sDQ0Nq6uraiMmJyePHD' +
        'kCe2lpqb5BmOnDhw91S0VFhV3YqPyXL19yzPz8vP4hDA4Owjg9Pb0' +
        'JdplZRXZh+/r6Ig+Mt2/fZotaf0wEi8Dy+Pj4jmEXFBSwF9/R8vIy' +
        'y6mpqexta2uDCvCsHiO6YxjgUgvsaUkzMzNzc3MKgI+PD4fdvXv3x' +
        'YsX7e3trFZVVXEMZH9/f71ImFSRQN6/f78VNqYPtbOzk1UIUEdGRl' +
        'i9fv061NbWVla/JvrdMMA/WWBbaWBgAHWuV87u3bvxDAkJqays5Bg' +
        'vL68d1HZMTMym5U1JSWGLp6cn1EuXLkEGePaeEeKm7LcXLLDPSsrJ' +
        'ySksLKytrd3Y2IARxbxnzx6OPHXqFNZkaWlJnxq/5V1hoyBVSStiC' +
        '5o/AgADMsDz2GwhbhjGDXkiO/4keSCopKQEanV1NatA0tjYmJWVxa' +
        'q7u/s/gT1qofj4+DfFfOwYvOojPS3Eb4YBLnwb7Li4OLZfuXIFKve' +
        'Quro69ubn57PX1dVVT4L2qMOempqyCxudluOTk5PZi/m6ubmp4NDQ' +
        'UOxsUlLSXxstxFXDuKodyjrszyVFR0enpaUhP9tRG87OzixjzXnU/' +
        'fv39dpWqxcREYE3qlYwOzsLOTY21vpJLi4uQu3q6mK1ubkZKroBJ6' +
        'w1ib3fCvGLYYDPW04Ku/TgwQMOGxoaYkt/fz+uFioAhwW8+HKVZWF' +
        'hAZb6+np1VUDDt8IuLy9XHfXp06csX7t2jb29vb16YzmDy4MQ4CJ5' +
        'U90K9uvXr/H2pqYmHIs8EN/+48eP2fvkyZPExMS1tTXIxcXFHIDey' +
        'F7YoUZGRiowLS0tdo8bLObKyop6qeobm2DjXMwiuoy7K67cWCIzRm' +
        'jk+KoQHBysDmLrEPRn1BgqSlmgoltuFQ9ycnJCzkOHDnl4eOh2Pfg' +
        'TdBK0RCHAF4jSiD7bxq3Ghf5LwjmBv5g8ootCXJQ/OPlEJ/GjQRRO' +
        'ZJPXUXwMH0nBXxqPyh+ok/LJYcHShYB9RAeJ4qU9Xm5cuLQclDE2y' +
        'cGm6i/VKBmcbP6aQYiV9n0yIQfoXuZNf3A/vDt/R6TYsdfK28npIE' +
        'xxwfvJue8j/wl9S/Z9');

  Level := BitmapFromString(122, 29, 'beNrtWW1PXEUUfg4YxaSCFs' +
       'RW6qYgNqCrLLRpaaWglPdiW60GAkZrrTaxTSUxbT+gUWJKP9Qv/EB' +
       '+ix7P5E7Ozsvdmd0FE7M3T8gyd+ac53nm9d5LtE0ddNBBB23GbWAR' +
       'uASMAxWgHzhRDy4ZAWrAx8AqsAEcEZMNic9Zzku6mrBibrdbzuhrb' +
       'F0UN1kH5oVtVRCM9ldXl8U+0R2iUaReTPUror36IOXgFLtETxRMc7' +
       '+cmVzwMjI3Lt/Pyehkf0A0B3THRfUCa0Q7mVmY/E2ifi8aS9iJxNk' +
       'TJlkX076ZbDhX2yK6DEwImMmcuPckVD4Ryci39ppye1+yVNJ0cbdu' +
       '5Ri+Ex+lW5Egu0WT5eXlvxtdNhp36A8JrPak93tCvb8A9MSF24zMy' +
       'viwm++2sbpXhQ1qdAZ5uuE8ZUyrg4MDJ9qaivBC4TFRd7LbVj5fs8' +
       'AfRC/qozn4ieiU0nJ4eGiad9fPa1sec5srP26Uy8Ezonv12RMHEjf' +
       'hhs8S0n0bd5uHk632XOFh0STRbRuQWd0lYqwT8e4zBrwjf/k3l2wI' +
       'xrxB5bgaK/c792ui+0RfEF0FPpREU9xcsjyUZe15va6nRFPJVjuGv' +
       'wZcleDzkmWswIgSeFeYxNxmKyyTPxXuhdz2pzYPP9+BM8lLvd82t/' +
       'xMfOV5S2buI6LfiKwuO/B8qxHvBTR1+W6fBCyT3xW+S3NbE+PguXx' +
       'ad7vhNSsnAatrJTTNg8y1201IC7r9BmCZ/KrwTb7bjgM6l885OGf1' +
       'THHKy3P5y52+e52IFxCjazpEoOFgsHUcNxzCTqf41g0C1uGnCttpb' +
       'ifORL9aG92OtbLa3wZ4ATG63o1PyS7gM6JrkaUmcRezVIPWvQlYh3' +
       '9R2MzcJbV8fwb5Je1aSfzIweHBB06jayAeik/1j2SdfyXUj0E3bNu' +
       'Go878exqwDv+s8GWm2w29Si/MKg/OYuuSHWlXiIyuvngoW+dUmts6' +
       'oy73BVoaZwHr8AOFz5s9AZavNkfndvn2VAOMrv74SsKnuB+JGC+nu' +
       'Z3C2XF7rKDBuK9wI23ddvqi4VraXrfTn3PfB4yuihdKr7SzRFeS1+' +
       '2U04LToVMFDcb3CteTzyT+QAra+9+6zYPK6Kq29UyS6/Y0kXX4jsJ' +
       'qs26Xr2BH53b50fc8kdF1MXTe1sO7/LzdnNu2xNJgbCss5p+3fbcT' +
       'N5G275K+jbxEGF3zrT1L5rrtXDyzrMObCkv5u6TRq+v75+SY285zQ' +
       'cPyrBMg74wsx+jiE/Vws+9Jct32uX1U0NiUU5/FEkDNnklSOiVWM7' +
       'E82GWxRCPAGmB03ZI3S3357wDb4vZEQeNfJgrs9kCy2/7ccc4kKQ8' +
       '45V3WypN7TT5dWWnr8g2rp9H77eCC4LtNOW7XNA2FJRkS/4PrPeCa' +
       'vAvVWAUmgdfTInC1D+IvNgdzyEwqJisKi3LrZHIc7uIheX/bl1afn' +
       '45fas3GE5JuSI0uv8I4MCPfeVfq1RmBl+ThjkpFnZVqcxE3hiTFUB' +
       'phrnZZMVmox6x8azAfowfla9Gr9eiV8orUuSDvNhkXeS+Qb1in5a4' +
       'GD49huVUV8pPyw9QckL/8+1wBXV4pYJqPFhlnBJqkjVMVJp8CC56u' +
       'co2+KKfmaMHTpJiRv9WCs7k1LjgnhIcjfD7p4Bgx08ExYrqDY8M/6' +
       'ruoig==');

  ABok := BitmapFromString(92, 29, 'beNrtmF1rE0EUht+3FypFjFih' +
       'DUrUmqLWSqst2hhCavoRohYtKn4hWqRVqGIvRIqKIoh44U1+YH5LP' +
       'Zy1y7Azk0QzIwo7PBeb2TMn57w7s3N2yMfMycn5d7kDLANXgHNACR' +
       'hRxoEZoAq0gPtAxnJGmTUMhJtAQzsndPiEy8PgfI7Me2AdqABD8La' +
       'DwCKwCWxraictg2l1sqV+9nuGy9hQMf8YGorHN/IRWUJfrQzcIuc8' +
       'd6+TS/6xdeBD5FwCCnLIiLzZbO5azZmjaZn0mH7a7XbGQ+V/0EQE2' +
       'SCLRiK7XVtPTXzCJp1hNfkehx1ytm9B7Ny7aGIOEbOkcx6QfwwV/N' +
       'c4PCV9gsCvVU9NnIJIu01+IkMF/yUOrT1NzLUv1/arw0wzNXBq4hN' +
       'kiXxHBgz+YxzmXYn4dg3bxtak0+k4BakBr8mwwe/E4bSVbzoHpFBZ' +
       'lY3Vs7icmpiTzRREdnl5kwcP/m0cjlr5prlI5fmGFNLqy5wDtib2D' +
       'p5qIqXsJhk8+O04FPyaVMnEZqw/Tewm9qksMuW29hyG4lUcRvxr5y' +
       'zwghT2/Y4mmTotVViqX9njwgb/Mg4lSxPz4dbJat/vk1RPZ7WWTLz' +
       'nZMDgN+JwIdy+Y+7g5oxK+4flu5hcl8o5UPDP4nDZVZ+YU+UP6pMu' +
       'IssKukuGCv5JHBbj1LHOD8Bf5T35kAwS/IM4yHZwKs73jm9qlXUPC' +
       'hL8vTiskTWyEO67+AhwvOunsVSJN8hQwUdiFZgDDvQ6PzHr0i6anN' +
       'EDSafCyWtKpqU4ChN5TFrAReBwf+dsYnbemAyZJn5WtHD1tXE9gQw' +
       'TdmRW9PnKQ6Q/HaqBmC0Al3SZZNox4KpuuGIz5vIwrKffC2ozOMt/' +
       'hbquo0ngBDAKFJRR/Tmpt8QgY1lWZMlMqVwNNWjo9ZTeKqqHol5PG' +
       'zaDcy3HopZjUcnJ8BNdVUv5');

  Attack1 := BitmapFromString(122, 21, 'beNrVlulzE0cah2VRW7sf' +
       'Ek33yNKMJEtzaCSZrS1qa2ujtTlCOIyBAAEBscRlywe3MWCIBPji8' +
       'sllbOMDfIFtIEltYptQOdhNINlv/Uft269mJNmGLTbfrHrK1dPd88' +
       '7Mo5/esSAcLvItY3zeIz5vpc9b5fMmfd5qpNbrAeqQY8hxr+eERz7' +
       'pkU955NOA11Pv9Zzxeho88lnkPNLokS/I8kVZAlJIWpYuydJliXNF' +
       'cjdJ7mZZapGlVllqkzhXJfc1yX0duYm0u90dblcn0o30uF23XK7br' +
       'sI7rsJDRd5ljM9z2Oc54vNU+jxVPk8SqfHKQC1yFDnmlY97pBMe6a' +
       'RHOuWRTntBuFzvlc945AaPBJxDznukRlm6gHwhu4GU7E7L7kuS+zL' +
       'SJLmaZBDubpHdrRKnTXKjcNd1yXVDct0E3K52twuFF3a5C7uRHlfh' +
       'LVchCD9Y5F3G+DyLhAPVXrnaEl6HcOEeKSfcK5/KCPeAcAk4i3Dhs' +
       'in8Ito2hUtcOHBFcl2R3aZwyRR+lePKCr+BtlF4YU64yxSeKPIuY3' +
       'yeAz5PvnOgyisDyTznPOQeCTCde2XgpDfTWKR6FG6GXOagc/cF2X0' +
       'RSUkcdO66LLsvo3DeVSTTeZvkakPh3LmbC8eEF3Yg3LnLFN755+Jl' +
       'zMpIF9K9MtJTHAZuFYdvI3ciIeAuci8S6g0bwP2w0ccJ9YcNYCBsP' +
       'ABCxmAoCAyFgsMGZ8TQHyKPgpzRoDaGjOvaeFCfCGqTgK49Rp7o6h' +
       'SgqdOaOsNRngKq8kxVnqsB4EtACXylBL5W/DdXRkyKy5/PM8ZGRos' +
       'jucmVkdERxubbehdOLmBr22vGvqt794b3pG7k/y5SHG5HOorDnZEQ' +
       '0BUJdSM9YcC4FTZuI3dCwbtlrW9Y7vNDjXE/FOxD+g19AHlg6INBz' +
       'lBQG0ZGdO1hcuhVUn2kq6Na1SvGXiW1MV0dRyY0dZKjPNaUJypnSl' +
       'Wm1QAwowSeIs8UP/A8wLm+MmJSXP5sHu9jpDY3adm+VxzJn1wA2n5' +
       'R9+4N70Nx7YvfUaQ4fAPh2iMhoAOdc+1hwOgOGz3IYOscPNn3Nag9' +
       'ZJjmh6t7Q0Hu3NAB03lQf8CFaxmG9ORPjP2UVEd09aGmPtS1R7o2C' +
       'uZ1FZyPaeq4Bs4VYFJVHiNP1MAUoASmFe58RvE/BeEBztXisMUWbn' +
       't+/hc2/2xrdjL8EG3fzW1bwta2X7iod294L2pe/I4ikdA15HokdCN' +
       'sADfDRjvSEQKCnaFgF1DW+prNfV2m9xj6LUO/HQreNoJ3jOT3jL1p' +
       '3XzP0HuDgHY/qPUh/bo2oKvAA07Vj2h7SFOGNQWcj4BzTXmEjGrKm' +
       'MoZVwMTyKQSeMzxP1H8UwHONDITKHrqL2opDltsmQHbIzU9bfPwNz' +
       's/jLZ7+LgG8jFXl91vHaLtuTb+N/P5pW1LXtkwL/iWJTh9fqZthC3' +
       '68GvlL40MZ/bXjbylSKSGB6S2JnuBFzXGddR+I2TcDAXbkbFhHuNO' +
       'Q+8y9G4gFOwxAJ0Hfq5lyNDvlLW8YXP/rG7Jtpo3LRv7dLVvc/Ov2' +
       'avONU9olRnzwxnz0EBa5nJ3PlQ5pgbGlcDEhub/5D3Qz5X+J1x70b' +
       'S/qCkSsiibRttNEdRYa84Pctut3Xy8YD53WN76M2qaLsd5PPy5rSy' +
       'zrZurfusSP92qvKj4oqVQU+0wW7TK7zPUFK7Gp52b2WK0hoJ3eLuY' +
       'e1ZmXAsFgeuGfoOT/I6x162b24NaR1DrBFB7V1Dvrh5iPPPa7c0tr' +
       '9HM90n1rq7eSw7xxp5U7mtA5Q8wrlL6VWVA5bZ/TCqDqjKkKpPN/H' +
       'LzG5URJfBQqYSW/lvz+tENTb8x9q9K/3jAPxEomqwchFL/rix64gd' +
       '8lyIhi7IptA3jDlA039qB8wNoG8c1s4zN1mb3W4eWw2wpfjobHrD2' +
       '5C9d4t7eupRffNESv7ElReanykOXwtWZnVfCRlMo2FzG72SuhpsH2' +
       'gz9KifJe1S1fiOoATeDWruhAx1BvbOMS35ZrXWj7dctG2/p6m1kGE' +
       'I71wwBvmfZvq8qfSqOk6BdeYDmf23eMKQGhpTAsBIYUfzAQ653EP7' +
       '9GA34xwJFwLi/aMJfNMnx2XKfVY3fMNYby46/aVwFo1gvM0c4NNfz' +
       'D/PPy63gOXknL7nIO6otvdDS+guL3I/Z/mCz/dFm+5Mt1sdYX8z2g' +
       'c32oc3msNmIzUZtsQHGBmI2l83mttlkm81TUOAtKPAVFPhXNUI6h2' +
       'I2DQfDMVuooCBcUBApKCjGO7+6yvYXW+wRY49itr8WFPzNFhtlbHT' +
       'viqjdHl3VCD+Zsb0r1tjta+32dXb7erv9E7t9w4q9k/xX0ntxxYpy' +
       'u32r3b7Nbt9ut++w23fa7R+L1MRZ0gVBGUiYh4l+xvrPOek5uNfZd' +
       'MIJGxITjE0ksvutw9L0SzbbVUpzpbIzvMhbPvysd1UTlyzxanmH+R' +
       'toHAdkAyWbKNlM4/CkjxOknHK2UrKdCNtJfAoCmYruJMIuIuwGKNl' +
       'DSYySvXG4vdm+KKmIpn5gs/1RcoAIwEEiHMalwSipJPHnjH0Zd1QL' +
       'jhpS8RVjX8XJUSIci6ZesdnRKDkpCKcE4bTgqBccZwRHg+A4Sz6am' +
       'M097LcVji8cjpTjw7Tjw7VO0aK0E21nZ84OsJfp0rNou8LpXOtMjD' +
       'M2nnBaG6xDtJE3L65N8HM6S525Qe4q4uLT33K4cGlp/dyMqX29SDe' +
       'IdKMzAbYnE7RM5GyhFIRvoyTNgxPfQQmwi5LPRArspvR4epbNpk5Q' +
       'sr+E2+4rIXFKEshBtP0gSg6j7edxUkWEahL/EswnSB0hR7lt9nWcn' +
       'CACcJIIp4lQjzQQ4azAOS8IvTxus5NRxxcCZ7VTtCjtQNu5GYzoS9' +
       '5P0/udztXOxBjj/vNW2VjCmRnk5p3ifv4UuVP4ntxVsixayj9ctMR' +
       'vLL/+avwSO0p5ffxe6DoRhaN8sL1JpJsBCsIx5yUp+GfvSYJ8isJ3' +
       'inQXQBPTkPl0FHK+l9vm488pqaDc+VUuO9VAyCESf4a2K4lQZdmuI' +
       'aSWxCHnr1LRY0Q4bgk/ZTk/IwgNKPwcqYCm923ccUFwXPzftp1iww' +
       'D+GEx1uCF/nGfbevyMipwrbj67ZBY0RS21bSld8h0tqMlXrft8P9u' +
       'UJPltsKmEZbs0DXoh8Huwq2RsM4w3t40N8FmcQEvJ2P4xFV1im6RT' +
       '/NEeRQnajo7O8oKn8UcxFiWmbTyEbGdsl4iiibO0HW3nZvgkPtpse' +
       'p/TmTtkGc+mk5LSNH9fpPlfa8mZX2RfOq+LsYH6vFL5O+utb3bfki' +
       'VOYiBb4rt0qTlJ+U6wvYbSdRTauNlYNlC6EdlMSBkhWwgpJ2RrlCc' +
       '8+5lK0F2EfEbIbkL28L7NZlIZ5yyjOk5IQhAOCMK1zMtnNtVodZVq' +
       'wgHnqVTeo/XHoYcDKDz7mZ34yHHO4Wh0OC44HP8QxWUMpaWUrkbWm' +
       'sLpeko/oVw4sImQBcIJ2UbIdko/pXQHpTsJMYVnbMfJPsLZT0gFEh' +
       'cEEH4QOSQIRwShkkBLIUliCReEOkE4ihwXhBNoG1+aQr2A/cThOOv' +
       'gts+j8KjTuYzBhJcia0RxrSiuE8WPRXG9KH4iipmEb6K8pZTxrkLL' +
       '+XuTbhPF7aJoCqfQwOnuEt5YphN0L+Xso/TzrHAC/6hAS+EcJuQIp' +
       'ZWUVuUJh5bCX5qEHCPQUuClSU4SkhF+Rshr4PjS/EgUlzGUQrxLEI' +
       'j3mqUJJ2QjIfkJh3hz4ZTyhBOygxCecMz2dJzECNmLQLy5cEGowHg' +
       'fsOLNhWO8TeGCAPGutRJ+DBN+0ko4j7fDATRY8f6707mMEcWo1VUg' +
       '3qsXJdxqKfkJh3iXi+JWUdyG/SSTcIj3Z8geSmOZeGeFY7wTVsIPU' +
       'XoY4p0nvIaYL81MvI9l4p1p4FY/OZOJ938B0hi6fQ==');

  Attack2 := BitmapFromString(121, 17, 'beNrVlttXU1cawJMwL7Nm' +
       '9ey9zxGSQE7ONQl98WHWGkpq1aJF1Fqr4OVEW5EEaq0tSm0lthVQV' +
       'K4qYEAuEm5Wrba6JFVrbafOTB/PHzXf/k5uQOya6Ztn/RZr3/c+v/' +
       '3l4wjCoUDlK0yV/3CV/4Mq/4dV/iNV/makpdIHxCt9iUpfa6WvDfn' +
       'I7z3m937s9x73ez+p9AEnKn2f+n2f+b3tfu9Jv/cU0uHzfu7znvZ5' +
       'v/BVfImc8VV0eiuS3oqz3oqvvOVf+yqAc4C3ogvp4ZSf95Zf8Jb3e' +
       'ssvVpRfqii/zFnXjwwA5euGytd9EzZfYULGOaQrZHSbOtBj6ueRC4' +
       'YG9BraReSyrgJ9utrP0QaQQV0b0tUhTR1GrmjqVUBVr6nKiKqMqso' +
       'Ycl0NpgAlOA6oyoQavAEowUlkSpGnFXkmKN8MyrOcQBqQA3NyYF6u' +
       'AhaAQNVioOry65HVVDfcy9i2PZ2uXtGenrbtTM9YdaTEFIftPf+y7' +
       'cdtLx/w56hufWwXP0UHq048se0nbeH+6vBAJAQMRkJDyHAYMK+Eza' +
       'vItZAxgoxyzDGOcT1kpJBxU59Abpj6pNnyvHi35a4lXb2JzGpqWte' +
       'AOV2dRxY0dZGjLGnKLTXLt2rwNqAE7yjBuxz5O0W+F5R7X4+sprrh' +
       'bsZ5p9bi9llUPVIdKTHFAVX/2PbyAX+CNth1xZr8GHbm7nbnqInH/' +
       'HLDl6rDlyMhoC8S6kcGwoA5GDaHkOGQcQW5GjKuhcC8mdNucOemDq' +
       'RMPd29DKv/HNdvGBrH3LrMGybv6eq0rs5o6oyu3dS1WdCug3Y1ral' +
       'zmjqvKcCCqiwiS2rwFqAEv1W48NuKfEeR7wblC9XhNWzjqjOZF/yN' +
       'Cu03s6rDF17G9p4XXMvLB/z/8E2nEyWO5zRGEj/Cjq2hi5HQpbAJX' +
       'A6bfUh/CDAGQsYgMmQaw6YOXDF1sH3VNK6Z+ggyaupjBqBdr+/6j2' +
       '0/i2vjujahq8ANzhZue/LolKZMa8oMCr+pKbNIWlPmVM68GlxwUIK' +
       'LSnBJkYFbQflb5HZQvhMMdFeH17DtDr7LcE8G/ubbp1D1MC8n+FW0' +
       '5cfnqqg608P/Os+Lnm3FK/MFS3TB9MydnmnnhzRV6iSlDolE+Nag+' +
       'rzjPGH2hs2L3HmcR3vC7AsZwNxUIR183w2V5R/qzax25JqhjxjaLd' +
       '7TNWtqY7p2XVdTyLiuznUt/9yi3tCUSa0ZcsvzFnXa0a41/2Lbvxx' +
       'VZlVe+PVo86+5bf7ZLC8o8mJQXkLQeeBcJLSG+tv4guciCbjP5dZs' +
       '+yRX3T3EyyvaC9WG7t/4PpnbDdiO1d966p1hQ9xzyS4+PbfyGlpRE' +
       'z9Mqd5wHOZmEmZ3OJ5B1edDxoWQ0RuKg/nHcf2Sqc/yBabSpt5naP' +
       '3xyazwen3Q0IcMbRi5omtX9a0Plu1/d20Z0VVgVFPHNOU6klKVcWR' +
       'Cbf4Z0kuLMqkqUxxuHlTPKFw1LPu4Tk5DujjHfTytkxeCAWBR5izJ' +
       'ga8ioTXU30LVUO4HP5nufmyfQNVYTjyy7Uet+fG5ak5gfik+3Z6ay' +
       'I0p7vqKO3xJ1yqyN+g8zpQc4TjMXU7A1wh3DgX+KRIyekJoPq5fqO' +
       '96gYWLBqBdMrQ0N798r17vN/QBQwMGDfgOAVqe2vZPLeoVXb2qq9c' +
       '0QBnRlFEt/x0CzpufoeoJrl25geafH1WmFO7893ObZxT5piLP1n3z' +
       'OwR5szwXDADz/FMksCAHXCWe9acf2vZoY7788PR6KDWO2tkSFrP9x' +
       'dXieYUenFM0ec0mq1b7gwfn8Ce/FJ871uj6i6txDAt/dbn+5nK95m' +
       'q8btupRhfFtWMu1zqXq9zlqnC5fHiSr9e7qtxu2e0Out2K26253bq' +
       'rkd99oyvsdkfc7tfd7rbR4g+R0eMu199djbO2PdtUVuPxvOHx1JY1' +
       'pW17rqnsrbKmOduebyp72+Op83i2ljUt2PZiU1mDx7Pd49nh8ez0e' +
       'HZ5PJtEthqpdgBiZTyWrcZScOoOiXWMQ+wmYxIMiM3DyrH8+Fw1mn' +
       'xiPxqIFi2Vb+GLlHj4rFWr/Q/wk+CRNjEL59I6ZsHbLcToO4xuY7S' +
       'BWYu2vRSj8U54k9RZSt+jBNhNyR4LTvJotJY2MtpE6T5K91NykGPd' +
       'hYjtrDlEyWFKPkSOENJMyFE+JdVHhQQ9eN+271v0I0qOUfIxtb637' +
       'R8seoJaP9j2A0toJ8JJIpyiByEiHlrCaSJ8IQhfCsIZQegUXtsoiW' +
       'uIOqrzLfBqT5JRR7UlSRulGFziXEzKDchVudjidnFjjM8ZiEqFQon' +
       'tVq1WxNoFVy2bu6Y6KYaq2VaR1YtsmxQD1YsxtgPj5Cyju5D3GN0d' +
       'Q9VRdiz5KH/jz5I1Bxjt4T2d7YweYvQDyuG2aVb1ZUoT1LoHqmOgm' +
       'nMMVX9v0U9QNTj/jJJ2Sk5RC1XT04Rw20T4kghniLBBEtcQ7UfVhR' +
       'YMzic8IycPSNIGlAPyi3q5EKdQaJfEA/A6RVP4mBLb/UHXmpM4cNX' +
       'jJ3PL5n8aT5O1dSK3/U40+RRVN9R2/oThvZPRd5FWbpirfp+xvYzH' +
       'NrCP0f1AbSek4rsxGgPblB7mtglwBFVforQFVT9P1rRS2ga2azp/Q' +
       'dXHc+H9KSVo23qAqjsI+Zzw2D6Ntt+UxDVE+/AFixtPjuP1P0rul6' +
       'TsgOKybadj0puoGjr6ohKfxYVgO66wH98x25Vd0KnG0kXDVoOL5PY' +
       'qtMCFYtW5JrZRqh3EIx2S2BapdgiPBEEOyaSTp65UkqHtbB7jqncz' +
       'tofRvUhTzvYJDHUI8hh1bJNeZ0bKaobwpjVTfJfOM5S20poZ3AVUF' +
       '2USgra56gcWPUVIBxEc2xDbUVFcTU71ykYuxHnlQtV2JGddRaNJ+J' +
       'pNJ5OPC11S8SL7i36zsEF70VKrRpbYuvDwC8p2sazqtxjkbR7YzrM' +
       'Qy+aTekq3UXqm8I8idRZD9GvG3mPsfUr3ULqX0kaaz9v0ALXurNgu' +
       '1QuZhOTyNga289y3LCd1FzIJISfICtWnBKFDED4XeNJ+QxRfYRiLM' +
       'vYmArY3cuFsM2NvM1aHbKX0HUod4Q2Ubqd0h+Vkb7YLbFO6m9Ji4f' +
       'tywg8iFiExQg4jHzi2KW3mmYTGkQQhbYR8hHxMyHFCHNufgnBC2gk' +
       '5KQh52zWS9AojirW54N8gim+J4kZR3CSKm0XxbVEE1VtqedLm4c0g' +
       'mbAGFluCj+dkdKcovuvYZk4m4exlrAnZx9iBvO1sJuF8SOkRxpoZO' +
       '1pkO5u3+X9JyCSQt+G/JHVstzu2IbZ5JiH/EMVXGMYgsGsRCOwNa2' +
       'Ob0i3Wiu/MJYtuZ2wHYzsZe5fSXfw7kAe2E9tOJmnKZhJ6kJCDGNi' +
       'HcoHNbWNgZ20TAoHdmovtYxjbn+Rimwe2IAAQ2x3/BX+Acvw=');

  Attack3 := BitmapFromString(145, 18, 'beNrdlvlTVEcewOf4YXdr' +
       'K6+739zM8Y55M4NbW+7WVoVI1gQvhCRqDGiY0SCXd2I80IDKMV6Ao' +
       'CIIyiCHgHJ4D0Qr0WQ1u5v89P6o/fZ35s08EJO4P/rqU1N9d09/3r' +
       'dfC8LOQMHbjN/3hd9X7fft8vtq/L5apL7ACzQUeHcXePcgewu8+3y' +
       'e/T7PAZ/noM/zZYEX+KrAe8jn/drnAY4gR32eY15Po9dz3Os54XV/' +
       'gzR53c0e90nktMd12utu8bpbve42j7sdOcNxnfW4znlc5wG3qwPpd' +
       'Du73M6Lbmc34HL2uJyXXM7LLucVl6MX6XM6+lzOfpfzmss54HIMIt' +
       'edjkSg4G3G79vh95nFAbUFXqDOJA7Y6/MAWXEFXuAgiPN5v/J5DqG' +
       '1w8hRLwfFuY973SeQJg8HxblOed2n0FqLx93qyYpLelxJtMbFubm1' +
       'C9yasxPh4lxZaz3cmgPg4pyOqy5nH3LN5QC4OKej6y+FbzMrYheR7' +
       'hWxnsIocKkwehm5EosAvcjVWKQvqgH9Ue0aJzIQ1YDBqHYdiGg3Im' +
       'FgKBJOaZxhTb2JjIQ5o2FlDBlXlfGweiusTACqMolMqfJtQJHvKPI' +
       '0R5oBZGlWlubkEHAXkEL3pNB9KQg8CHEehoKPQoFHUvBxiJMOBedD' +
       'AWAhGLiwIpalsGxuQdf14dHCWL5wRWx0WNcXkn2LCxdRnvxJ15/se' +
       'X2DN+e3J/2dFEY7kM7CaFcsAlyMRbqRniigXYpql5ErkXAvcjUS7o' +
       'towHRKf+WZT5eqN8KcIa3uua4/r1eGVeWmKgMjqjyqyKOqAoyp8jh' +
       'yS5EnONKkIk3JnNuydEcO3akdelkjzUghYFYKAnMhzt1Q8F4oANwP' +
       'Bh4A3F0AeBQMPEbSQf+5FbEshWWzC7iu4d35QmP3rhbGzIWLQGXf7' +
       'nl9gzfntyf9nRRGzyPcXSwCdKI47i4KaN1RrQe5FAlfRtCdBtwGZQ' +
       'vtIxGtPxK+pqnAaPt8xtp1sKbVPdP1Z/XKkKqkVBkYBnEKuFNGuDV' +
       'wJ4O4MUUeV0CcBEzI0iQyJde80PUXNdIdKTTNCc6AtRAHrQWAe0Fu' +
       '7X4oeD8E4gIPgxwU5z9TGDXYyJUtLLzUF2bLc4XRm7h7vflmr1Cef' +
       'MmVvb7Bm/Pbk/5OYpGzyLlY5HxUAy5EtQ6kMwKEuyLhi0i3Fu7RVO' +
       'CSpnJ3WngKlM23pTT1qqb2hQGlX6v7Xtf/3b5+QFUG1VqurE6+rso' +
       '3FHmII6UUCcQNgzhFGkFGFWlM5ozLoVvIhBSalGr+xZUFb4c4d5Dp' +
       'UGAmyJkNBuaCfuBuwA/iMu4eBP0PAv6HAf+jgL+tMGqwcRqUDTf0J' +
       'BfgN1eewt3r4ekG/pLtybU3sqhsPsl/M8/L5EbTsFE+4DJV0H1hOj' +
       'mcCeyUqf3iSZchNWw6qvaYqsrza8hWxSLtsUgSPlumNfyULOX6Itq' +
       'FSP0Tff5ue+YETI1r6kVN7QYioC88gcqGwKCmXgmrvWGlF5V9X6/0' +
       'qUq/WsvTdfKAKg8q8uxQft7ndXIqow9Y3/pf05J+rJXG17b+nF9iy' +
       '5wUnILIap3Plf3SUjIT9AOzgeqf9PTzlhtYfONpwH8/wMW1xCIGpX' +
       'dQWUsMXezOlt/gu9fezdOLyvPZsvYXfMyFO2VYjtkXydJMs26+V8t' +
       'W8e7GyEsxTbpcFV/k8oPnl7ebi5hv0Frh3Evylc6UaslIOFnaDlpf' +
       'tpeejYTPaXVPeKO2Pk3tCANKZ1jpAtDdLVR2XVN6wspllZNqm9dTt' +
       'b2qfFWV+5SMMqkf7hLga6hmQJYG5dB4G59rfp00JEtD61r/AwZrpW' +
       'EpdFMKjdTwzf+hJjgm1fwI+mqCt0KBiVBgtiWt6+nvSgJTQf/tktO' +
       '/cGsfTgf8M4Fq/gamT0NkzQUg6AqAe/6Ck7GIQeltVAbpTtiKhfZO' +
       'LB/E3cN0Ax96d669kTVE5Ibi3fXUoNHGXHWS7+RrqkyYJl0C9Fq4X' +
       'WZkcerskvIjm4hqp6L1mYlaIuFWpK2Bt0xFtKRW9y3Xt+Gspp4Lq+' +
       'fDCnAhrHSAQU0dW+b6ATZah1T5sipfUWq/0/Xv6qSrSs33+vzjdVK' +
       '/LF2TQ9fWc03PaqXrsnS9lrucA3dSKCWFhqUgcFMKjkg1P2TchQJj' +
       '0i7Q93NLyUQwMBH0Twb9U7vA7I10wH8nUP0irw+CrgC46y+w5J+Vj' +
       'Y90va8il37UuBJSFX16NoXJbL05a+6Xr8E+ps6vTLJktEXPq/1e04' +
       'g/xiCZ/KIhrRaLHcc6vtLyB4vljxbLnyyWP69sBInXKiyCpWJA1wc' +
       'qLKLF4rRYXBaL22LxWiw+q7XAaq3GNay1WCSrVbFaVatVM2aIWa2F' +
       'loqbun6zwvJXq3Wl1fo3q/XvVus/jCWNVtrfs9lW2SvHsMMRu/0Dm' +
       '63EZltjs6212dbbKyd0fbLSXmazlVdCl8e9K+2bbLbNNtsWm23ryk' +
       'aI3+lK+zZ75Yyuz1Taq+z2hN2+w27fabdX2+0fiiyLY9VF+CeDiWw' +
       '2wf/NUQc7OgjvcXPCAQ0St3T9ViLX3sgWNz/V0xeLWX6oXAkfZJmH' +
       '91oy2mLyk75SlWhOG8MMHOUTmZeEf8E8C6NrX7OGyQQtZ/EpXZ+K0' +
       '08o2YxsoWQrwOhnjLZCv3TTAUq3U1KFxCk5ywcbOEtpNY3P6vpcnN' +
       'YQ0tiUX1JXURNc/u/F6T5K9lNygBaNmpb0MC4cJsIRWgXv7aO40Ei' +
       'E41XLL2++6p1WoQoO2YUqoV0QzgjCWc4754V3VjtEg+IuVJYrOTKo' +
       'P20uPoK7V+VwrHYkxnV9POEwGhhZ3DdTubg6wft0FTvyifws4tLuy' +
       '1SJpkkXVy2Z69WpzSPwqTOvTbq7mK0V2Tpkg8hKkY0swZUl6EeMfs' +
       'LoJmQLo5+KDGhBZfsZrWR0O6OfI4f4CzNwhtGdqGw2TquLmp6hu1p' +
       'K6ilpWJVVtpdy9nFrnIOUXOFy0mNF9DCNozJ6DHTH+TQTRcI3hNNE' +
       'hJNEOCVwWlDZfFxoI0ISOUOEc0R43yEaFHeisnwJBstT/sVq3u5wv' +
       'O9IQJiDRFOtPpZwZBL5coe4Hf6XqQtvk58lx69UiYcHc5MuruLvwO' +
       'DhXDnP/vr4zHg3WInI1iBgbT2K28ASkxhuZYxb+9gQt1lkW0R2GpX' +
       'tw4gDa9tQXBILDzGaMJR9wfd84DylNZSAtToM6rtxupvSPdwaMcIN' +
       'rMUf6PqDOD1E4w95xNEjhBzFiHscF44T4YRhrVkQTnJrVWlU1kq4t' +
       'XbD2q8py2ydnts9bGBOm5RBRWex49Vt5PpyVdkBM9n/S1nuPTGk6L' +
       'm3BSM6N5GRZatFFsc1QKBllDXiGi4Vv7ky1DEDtszKjChDZfG7mXt' +
       '+UxFXhhE0UkSzyjA7WpRV9mNTEVcGFvi5ygMto2wAg/H2u69VtkoU' +
       'sziKO1BZvoQX4rakm7c5HPmsnpGV3fNVxc1wVR5r5r9GlcM8yLZm0' +
       '2muDx4yDbWkZY5Dg8sc70+aixePlu4odmBLnuAdE+ZuWMjY+4z9k7' +
       'HPF61hoJGxdZwEvwbE6UZKyygtp/QjSj+mII5tYqhs6ZPuL4JPG/2' +
       'c0rihbAchh/PfsvRQEe3APU8V0QZKd8fNo3BfBwn5imQOSf5KJAXh' +
       'qJCxll/egJAJNK4sXSWcFoRWQWgT+EcN2r8nim8zjBWjNWA1Yx8wu' +
       'JCwEsbWMLYWWU/pBkpL6WJrjGWsbaZ0C6WfUrqV0s8oraB0GwLWqp' +
       'A4IQlCdiJfELKLkBp+QtI6SuuRBkL2ELIX2U/IAUJA2Zdo7RAhX4N' +
       'uQTiC1o4JQqMgHBeEE4LwjSA0ZawRAh+10/y7lrUGyoocjrcZjNli' +
       '5J+iuFoUPxDFD0WxRBTXiOJajLX1DE5IVsrgNsLKGCtn7CNR/FgUs' +
       '9YY28LYVuQzxiqRbRC2OWuU7qBwG+FUU7qLsRrGak3WjI8aXEXghK' +
       'RwBT1Iacba1xlrhOAJSfhthJATAFrLKOPWCGkhpBVpJ+RdUXybYQw' +
       'CbRWSOSGXxhql6yg1xxoEGrfGGI81SjdRuhkDLRNrEGiVSOZ4rCKk' +
       'CgNthxFo3BoGWtYaIRBou41Y24exdtCINR5oggAcNgLt2JJAA2V4F' +
       'ckH2v8AaFt5hA==');

  Attack4 := BitmapFromString(148, 21, 'beNrdl/tTFNeewAemtnZr' +
       'q+xzzjx7prunHzMDZPcWdWvvxkgS4zUG9GbVJKAyqDiAGhONT1RQn' +
       'r54y0tGHgryUEB8Akl2k5ir2bvZn/qP2u/59jTTA3hNan+z61NUn/' +
       'eZ8+nvtxtCDsjhtx8pdFAKVUqhQ1IoKYWqkJqwCBwOi0fC4lHky7B' +
       '4LBT8KhT8OhQ8HgqeCIvAN2HxZEg8FQoCZ5CzoeA5MVgrBs+LwQti' +
       '4CJSJwbqg4FLSEPQ3yAGGsVAkxhoDgZakCsc/9Wg/1rQfx0I+NuQ9' +
       'oCvI+DrDPi6AL+v2+/r8ftu+n29fm8fMuDzDvh9g37fLb9vyO9NIb' +
       'd93mGfd78UfvsJhw6EQwfDocpw6FA4lESqQyJQExIPh8QjIfEo8qU' +
       'YPCYGvxKDX4ugTwROhMRvRPGkGDwlBk+LwTPIWTF4LhisDQbPBwMX' +
       'kIvBQF0Q9QUClwP+Bm4w0ISAvuZAoJXjvxLwXw34rwW4uxt+fxvH1' +
       '4F0It0+To/Pd9Pn7fV5+3zefnQ34PMN+ny3fN4hnzfl4+6As4b+9q' +
       'Nr55BaXTuvqxeQOo1Tr0WAS1rkMtKoKkCTqjRzIi1Iqxq5oipXI8o' +
       '15HpEuQEoSpsitytyB9KpyF2KBHTLUo8s3VTkm4rUB8hSPzIgS4Ny' +
       'eFAKDyEpKXwbCIeHw6ERZDQcGguH7oQA8W5IHEcmQuK9UHAyLE6Gx' +
       'KmQOM0JzoSC98XgAzHY9i8Fbz/v5LcjHe/kdxbkAV0Fed1IT34cuJ' +
       'kf70X68mL9yAAnPpgXA27lxYaAeCwVj95GhmPREY4xGjPGgCjnTlS' +
       '/i4wb+kTUmIjq96L6pMGZMvRpQwNmdO1+GvWBrs5qnDktMo88VCML' +
       'HOWRqjyOcJ5ElKcR+akKf5VnEeU5R16MyEsK5/o7+RkKtj9cNk1zb' +
       'Lwg31k/Pmaay60D2ZVZ7Gj9xTS/O/r6Dr+fNy/62ynIu4G0FeS158' +
       'eBjvx4J9KVB8S682I9yM14tBfpi0f747H7o+Y612h1KmbcjnKGo/o' +
       'IMmroY4YG3DG0u7p216h+YZo/V2sThnYP0LVJXZvSVWBaU2eQ+1rk' +
       'ftXIy6Q6q0aAOVUB5iPKQ2QhIj8CFPmxIj/hEmWQ+EzhPFfkRUVal' +
       'KWrBXkOSuaXcXtjh531d/EY+7N6ZrOj9ZVpfnv09R1+P29e9LeTH7' +
       '+GXM+P38iLAW15sXakIw5EO+PRLqQ7Fu2JGcDNmAEGZ8DdUjNEVn/' +
       'MGIgZg1FjMFb9g8krx2N6ytBvGxowjIzo2ihHHdNVMHgHDOrqODKh' +
       'q/c0zqQWmbJQI9Nq8qVpvkwq9yPKA2Q2osxF5DlFnlfkhxxpQZEey' +
       'ZJlkEtUpKcy55ksPZelloI8ByVz4G55+ZW5PLcjUz+Kx9iT1TMbdL' +
       'd89PUdfj9vXvS3kx9vzY9fQa7mxa4h11HijXisLR5tR7jEGGB0xYx' +
       'uIB6dRneQG3uRvqjRH9X7a0ag9nmxPmjotwxtCEmBRJ0zrKsjgME9' +
       'jlkekbuaOs6JTGiRe4AamVSTfzXNvyaV6Ygyg6BE+YEizyrc4Jwiz' +
       'SvSQ1kCjwvII0V6LHOeoMGmgjwHJbPLPOi6W5fh70r9CB5jN78/vA' +
       'T7PrrS3y7uaIVHaKmV/7Wul60lzpn5hOs0wfDl2dYxK9RHsnbiXHQ' +
       'dRsYyOcyxn/ROVjflx5vhvebYw6vW4rTEeM135tLDFis5jk7EYu0x' +
       'oyNmgEEIxkl0dxsjkQdj1OiN6r3Fzf9tmj/U6P2GPmBog9UjK9P+r' +
       'fnjlK7e1tVho+pH0/ypWoUwHNWTP5nmi6rkC7vbiyp1YmvTr5ldNs' +
       '6r3ODDpqWVuv9t3DKrSMCcXPmLufhT4zBWD38v80i09DXkxx0UP0B' +
       '3DfmHF01z8Ui6fpgfY0snv8+qzxS3t+CJLT/YjvVYfNlabHXr5Ie2' +
       'bhMfbs+8Gsei6zXxTa4/eWZ7R7gRXsyLdbXyp2y2JNYcj7YUt0CWe' +
       'NVSfCUevRKv+RZzIGTF6zHjRhTQ26J6OxAz7qG7VEzviurdUb3H4N' +
       'zkspaefqL1GVo/ivuhWh3Q1UEtydPpSHJIi6T0JLj7sUod1tQRjbu' +
       'DIctb1TE1MsMFLX27VRlXkz/DOzGp3IvIkxF5vpGf5X9tkWcUaWZL' +
       'w69c30cPZGlWrnzFf0YD5Ekeg3J4QQ4/kjj1eTEHxTPcXQ3ct8GPX' +
       'W5pw/oUHiPe1/AFDq/0t4slaSMrU/Hh5mjK7uNsqj88+tomB45FVw' +
       'GjlmZK7CIund5SZuZs4rhQS/HleLQhFm2MGY01vCd8JTbHqpe5x21' +
       'XojpwNapfMwDtuqGBxHF0B4mx3dA6DK3T0Lr0qv9EQT262qNvfbJk' +
       '/tK0tVeL9GmRfqAK0+lW5RZ6/CGpptRISuUe/9a0ZVhVRiLK6NbG/' +
       '4GQTMp31EMQiS+S8rgiTyiV4PHXxo8mZQmYkqXpQ7dN8/aiFLovVb' +
       '7kHjfPyuE5iTMvhR9KIcCVdRXWPjPNgdKV+2e1hXBXOmCm7/A23e4' +
       'sOsdlWnCMY/CaRVbNlnWtHfeaTvyyJ7HKa6bEuc4Xuv7B5fpHl+uf' +
       'XK5/Lqx9bpq3Sl0bXKVDpjlU6mIul8fl8rlcfpcr4HKJLlcoJ6dyY' +
       'J3PzKXawnhOTl5OTn5hLXi/U+r615ycP+TkFObk/LGwFqJ4vNT1J3' +
       'fZONyUud/Lzd3kLpswzXtl7g9zczfn5m5xl02a5mSZe5u7bMo0p8v' +
       'c23Nzd5TBSs/7Ct07c3N35ebuzs39vLAW7M+Wufe4y+ZMc67MXe52' +
       'V7jd+93uA253pdt9yO3e7GEZvJs64QFNVaSLFfxnnfWysyl4susTX' +
       'uhQcQ+2UbHS3y4W1X9vLnYWOaZaqeGTrHPxUatmyyaz6JqmRP2iPc' +
       '3QWb6Qc0v4E5yreF67h+kKWsIS06Y5k6B/oeRTSnYiuyj5jJLPGW2' +
       'EcYt1X1NaRukeSvYh5ZRUIPs31kFAzSdoJSGHCKkiQhUtXzDNhYRw' +
       'mCYemeajBP2SkmM08dg0HyfocUJOEOEbWv7UNJ8mhDO0HJ7hZwmhl' +
       'gi15evvcLF8Q6NQzpNsudAiCK2CcEUQrgobrgkbrgsbPvB6HBR1oL' +
       'uVmtMp8/v6otN4jPu83g/Sp+21O9jF9AF6M1NV8DEdRd7MTdZC2cP' +
       'XafI4Fs1uWrXW2qWdM6T3wB3Ag/SRh/3Zw7Yi2zzsEw8r9lZMo8Qd' +
       'jPMpo/+B7GJ0t4c14B6OMVqK7GF0L1LOaILRik1pdwcpAQ5RkkSbC' +
       'wlawxIL6O4oBX3cI7j7mhLgBE084e7oKZp4yt3Rs4ScS/AdTm0ULh' +
       'DhIhHqiFBPhEuCcFkQGix3CaGJCC1EaCXCFSJcJcI1Irzv9Tgoakd' +
       '3mRoMn+/5W61+r9f7vrcCwh9sOlrNiQqvdZOp93r2Qmg4hvA+WQtZ' +
       '/J2mtDucIbuJPwyp0yv1vPjG+TMBvgX1AR9b+rwVU+huO+P8xda3E' +
       '/TZ7r5k9AukzNa3L61vY2rR/LFu4wF0Vwn6UMHIRlqN7kDiEQr60u' +
       '6+QnfH0d2TBD2J7kDiGULOYgw+TwjniUOfYOkrX7TdNWfr2+TxZPA' +
       'WtaE7Z+XJlBW99Xu83nQH5z0ezqai+u+wU1uRl4+yz9OaYQ9PcXZT' +
       'ekIs2mebtQfnutZCq5pwrfQonAGu7+qL7HUzC2WKjO3FPXRsYpsZ+' +
       '4ixczxFLXZtYh8z7m4qQYspLaF0O6U7KORP+ikFg+wyV1EPsfMZpZ' +
       '9T+gWlpen8SfdSuo/SBJfFQ28/IQdoYp5n8USSkCRNPLQCkNJM/iT' +
       'kGAF9aXffoLuf6zaeJuQMJMM6vsOpd4XzAucW7nDmXdDH3S2WQwAK' +
       'TYLQLGSS5xvdpc9n5Rjt40I79uFb51lvGTTNNUb21DteQmbqpGOqv' +
       '+duzWU5cszG1WQeBvuxcbbySsbeZ2xf1h6Gahnbyv7f7mx91gUxCO' +
       '++3+qOkF5r6GIduDib1pfZ4ZBghd5r3W30eN5+GAN9RcgHjH3I0tG' +
       '3hbE/WwYp3UbpJzTbIGOfMgYGd1K6i9LdqM8yWGYbBH3lACEJQnjo' +
       'IfzThdIkpVWUVlOur4aQI4QcJcTS9xUYJAQ/XQgYPAUIwmlBOIMGz' +
       'wlCrSBcQC5a+gix3n2NqK/J1veux/P2w9h7qM8KwHX0UbpKH7jbwV' +
       'haH6WWvs/sACy19VnRB+6AClvfQdBHaZY+Qg6v0Xfc1ncS3Vn6LHf' +
       'nMG1a7upAH7q7xL9b0vqs6Pt3j+fth7GNqO89DL119FG6Sh+E3nbG' +
       'LH3gztK329a3Onmiu4RTH6WV6C6tD91Z+ix3x+zQO46hdxLdncoOv' +
       'Yw+QuzvlrS+ZuRPXu/bD0YfJM/38E1a5PG87/F84PF86PFs9nicyX' +
       'Mb8gljJYxt93iAHXbmBHYxtpuxzxj7nLEvGCtlzPnuK8fXXwWlBwD' +
       'GDjJ2yKEPX3wc/K+BHqPw2UmdmfMkJk/+3QKfnYTUAqjPcsf1EXKZ' +
       'kAakiZBmQv7N6337weh7rT5H8vwYAX3FoM/jAbbbmRPYuVafI/rKb' +
       'X370R2wkjmT9osP3B1x6sPoO+HQd9rWdw7dWS++i7a7S7a+RtD3f4' +
       '9JWMY=');

  Attack5 := BitmapFromString(147, 21, 'beNrtl2lTG9eagAX6MFNT' +
       '5T6n1WjtbrW61RJkaoqamnvDQOyES2yMk4l9E4iDFAdjwHhJ4jg2S' +
       'YTDIryyeQGDQIAxGLN5ixHkEvvmZmLPzM2n/lHznrfVUrOlyh/HNV' +
       '1Pqc5+js6j95wWIUekwGuO6P9M9DeI/qOiv1H0H0OaAz6gJeA7HvC' +
       '1IicCvpN+7ym/97Tf+7nf+0XAB3wZ8J3x+77ye4GvkXN+73mft83n' +
       '/cbn/dbn+Q5J+DztXs8FpMPr7vB5On2eLp+n2+tJIhcZ7kte92Wv+' +
       'wrgcV9Dej1FfZ6ifk/RAOAuGnQXXXcX3XAX3XQLt5DhImHYXXTbXT' +
       'TiLhp1CylkrEgYLxL+X9z/UXGtivyaE5ROICeD0qmgdBr5QhaBL2X' +
       'xjCx+JYtnkXNSADgvBdoAWfwG+VYSv5MCCSnQLgUuIB0io1MMdIn+' +
       'biQp+nsCjIsB/6WA77LoB64GGNcC/t6Ary/g6/czBv1e4Lrfe8PHu' +
       'Onz3EKGfJ5hr+e21zOCpLxuYMzrHve4014PMOH1THrdwJTXfcfjng' +
       'bp/1zymvNGcR/S/0bxQEkUGCyJXkduFEeAm8WRW8hQVAeGo/ptRmQ' +
       'kqgOjUT0FRPSxSHgcSeuMCV2bRKbCjDthdRq5q6kzYW0mrM4CmnoP' +
       'mdNC9wE1NK+GFhjKoqoshRjLoeADEyX4UAk+UmTgcVB+gvwQlJ4q8' +
       'tOgvBKUMwxpFZClNVm6+kZxlpKaB2uGYUxOlxTnC98onp40jLWe4Y' +
       '2FGzjQ89Iw/tK6c4NXh0263cNmKTn+l1eariR6DektifYVR4D+4sg' +
       'AMhgF9OtR/QZyMxK+hQxFwsMRfbhl4nmLfjsSHok0PzeM581aSmeM' +
       '6dp4mJEOqxPIpKZOaSHgjhaaVkPTmgrc1UIzyKwausdQ5lTlfogxH' +
       '1IWQkFgUQkuIcuKDDwIMh4G5UdBCXgsS08A1McMytIKkpHFVUm8XB' +
       'K12L+8hrsz2WIrjJrihmwlm0FxP7bu3ODV+d1JW358pemKI1eQq8W' +
       'Ra1Ed6I3qfUh/BAgPRMKDyHU9fEPXgJu6divS/AxlDetAkyluJKyO' +
       'htUUMqap41rIJK2FJlTGpKpMAWAQ9KkKcBeZCSmzjOC9UHAOUIL3l' +
       'eC8IgMLQXkRWQrKy0FpWZYeyNJDhvhIFh9LIugzDf4giz9I4lNJXE' +
       'GSJVGL/Usgbm3thbG2dCBXGJ3APbyeb7aFAz0voEnrzg1end+dtGX' +
       'tlaYrjvQURy4il6L6ZeRKVL8KRPRrkXAv0hcJ9+uANqBrg0Ck+SfD' +
       '+KnZ9NgEEp81a0NhFRgOq7cBTR3RQqNISguNqYxxVUkDWlZi1qOq3' +
       'Akp04zg3VBwBlCCs0rwniIDc0H5PjIfBInSgiwtytISQ1yWxQeSaH' +
       'mUsh4l8YnEDHaVRC32L66xcBvsWYPPXHka93CQpVtWDWO1Ndfeyh7' +
       'o+RUSPezTfH7t2W8bNsoG3KYKuq8t9phn4mTa1n7jpFvZsIy07VDN' +
       'r81cUitraT4veqqTNckXVvbHFjQY0a/AqZjMtTJeJvf16Vp/dffL/' +
       'KDd43oTSHyWzBc+b1aHNHVYO/bcWM10p7EsvayGUqoy1pTOdf3v7q' +
       'oJpq/qR5gh3XgnFAR308dYg18alRlFnlXkFcitdj5Agw+7Mrm+v3W' +
       '+syiLSxLoO/rSyPzcOY7F4+uWu47iiEX1AorrKG6B/pnj2fJxtofJ' +
       'fpbeUJ7P1iRR2dpCDZZj9teearNZP7O2bRXrbo28GdukW8kvgzVjC' +
       '95+omw2qg/0mGomJiJ6Eo5EZmpiKqJfhOuMpVeXq7UrunYVfb1M7u' +
       '0Nq71607phrDdrA2F1AMVBsyf71BsQTd2syw/7QkMqiINk1x1VuR1' +
       'SRgCU8tcmZUxVxkONf2U+G9NwNnatQrM5RZmC47ELF5NuvBuU7yqV' +
       '66vG37sqZ2VpuZN9rWeV4n1ZnK/s+M10JwWW5Ab2e8t0wPH4QAo8l' +
       'AKPRMaFqG5RPc/ENUO6F77pWrIXy1O4h5huZkO35Npb2f1ZHbmhWH' +
       'djImW1sVddaJnYscqGbdKt5JYBidX5/VY5LiO7PPuSIuHvqzGbrO7' +
       'Uw1261lXdzc72Zi2pN8E3fpHcezGsXgqrl8PqFRYv6WktdE1vgleg' +
       '9Sa1Twv1acdA4svudwfU0KAaur63C/w+a1JuhhrhCP2vrqqhUHCYU' +
       'bWyCtnKkVBwNBRMKcGxRhZOq1VyuhHiZXWtSp6EF4+08bf0OETZvC' +
       'xNV3b+j5FZrxRn5Ib/NIy/d75zTxLnJPG+FLjfMGYYY6uif0Fi4n7' +
       'rfHtJDCwjD0U/4Mg/pW1PDWO4Npd+2lYKqdphI5vCZLbenrX3y9dg' +
       'H1vnLZNsGm3Dw+q2PFbj7TpaHWzLz6YLHA5naduKYdyudfyDw/GPD' +
       'sc/YXak1rELl5codfAOh8vhKHI43KVt8KsYq3X4HbWwceO1DrmgQH' +
       'HUMp21Dq2gIFxQEHHUskCvdZQ4aqcMY6rW8S8FBaUFBf9a2gZvTdO' +
       '1jj8UFv6xsLAMKG0D+3frnLuddTOGMVPnrHTWzRorA3VtPxnD3zqd' +
       '1XXsqySczvdYYmWo1HmwsPBQYeGHhYUflbZBOC/WOQ8765YMY6nOG' +
       'Xc6P3U6jzidDU7nUafzHRefRSjvh0Wn4tlsfNQwRs8J/LkU/I7b4w' +
       'I0iM8axmw8197KVrSvG5n+Cj4/VK6EDbLNw3ptGm0j+Um31to6xtt' +
       'zl8LoOTapNaA9zdOq8sRPLEv38nQfgNm5OK3ZYXkLMfohH1uAfYvT' +
       'Oko/pjG2dTFaT0mMkk9pbNkwlmO0ARMPYrSRkGOEaypL/GwYD2Pcc' +
       'UpaKTlByUkae2wYj2P0c0JujBq/JN48U5b4JZPoofVPjcxsGTfM9r' +
       'j+G477tn77lazW7+qm9ewOqOcuctwlxq4r3K6r3K49gsuiog/F5Uq' +
       '+Thnr7RVf4x7WC8IeIc5+NnHBamBlcZds5a49cdanr0LIJ/KzuDZ3' +
       '36bKZZt0546b5rVn7WmbxyoX/y5Q0Y7i+GomLnOznL7HM/6Dpx8gh' +
       'wAhDuIW4nwtT2v52CKIi9NPeEaMR3FxeiRvkDQCWXG0hWe0UnqiLP' +
       'E3FHeako5ExsgkbsLnaOwMJUPMY2wmYzyN0TbCtcXYSubKuO8IlyD' +
       'cBcJ9zzE6Oa6LxtidGuN6COMi4S4juwWXRVZcvgQDZ53dKO2fCMJu' +
       '3DFQaatlm2Mm8uWC6xMIBFsX1iY/S47fqXKdTeUm3bkj+1Wkzubas' +
       'Kw1YG5tkHbxb1vi/uRi7qpQ3D0QJ8TnMPQO8Iz30R1w0CbuI0scRN' +
       '9hnlFvicuF3meUHGXuytIZ4+dEWTOKO05pK+qYKqOnKDnNJI4+Yb7' +
       'KQFySecz8wuKOngdxtB5O75VYVlw7uENxHeDOEpe0xF1CcW+5XFmE' +
       'il4Uly9x4QayV5r2w4KQbWBPwwEeF97CbYGK3gqB9cINZOU4wmF2m' +
       'llV2QExK8Tv2pptwhTHJtpam+uI82ZHwEIDfz8sa6/i+T3lpke+ku' +
       'f/xPNV5Vlx+3i+AZd3o4zWUPoepRfYiZUZKgN3TNzz9vIPKf2I4rE' +
       'ZgzOTHqb0Ezw5wVc8J46QBkKOEtLITLGga6a0hcYesSM8doKQk4Sc' +
       'wmMTBp8uo18ScgZbGuzYpOc47jycgQm2krk3ue84LsFxKVzJ/Jtch' +
       'ymunuvmuCTH9XDZM7Pc5coiVFxDcfkSVogbkmn/WBDyWcNUlt3A8o' +
       'p2dgW3s0+rSrAP8nH+JoIndcY21KaWOc6kbJNuwtbRNnLmWoVwJpV' +
       'NZJdkDs7zb1ni3ubhyuMrURwE4Ls8oyFhX95oO6XvU4g7/nvz2skk' +
       'WlEcXHy1dMOVF7PEfUrIEUJMfaY784Hoa6H0OCEnkAFWM3qdsivvS' +
       '7jsDBZ9Zwn5muPOIZc2riTFYdzRGDNaz3VxG9z9u8v1msPzFeAO2c' +
       'Nb7szQQ/ZSuo/Sakr3UxZ3BzD03ud5cPcBzx+k9BClf6YUQ4+5+5h' +
       'mQ68eiRESR3GmOxZ3lAJNlMUdCz1CWi13pwg5TQiI+wLcQdwR8hUh' +
       'ZznOdAdx18Zx7F2Fy8ZdO7gjJHtmcll3PcibLtdrDs+Du3IE3O3eq' +
       'o/Sdym16wN3B3j+PZ5n+ij9gNKD6M7UZ8ZdXfbYpPWE1KO7fNxReh' +
       'TdHTP1EQLujlv6TqK+zy19zB3HAWctd+c3uSPkAoae3R3E3R9drtc' +
       'cni9Dd7nQ2+yO0k3uIO5qeN50B+JMd4csdx/R3JmJ7lBczO6Ownsm' +
       'bcy5Q3GmO1PcSSvuPjfjDsV9tVPcEdLO2d5VUBzwB0F4zcG4K8NjE' +
       '668CnzD2e2Cvwmut10u+7G5F4E3lv08X+NyAQfMoEMO8vwhnv8zz3' +
       '/Iw6sm/E3g8+7MM5PC6wr8R6BHeP4znj9qc4fvKgz2H4HSkxTeM+k' +
       '2Zybcd4ScI6QNQHemOOYODkxCOpAuQroJ+TdBeM3BuNvRne3MNN9V' +
       'wF01uHO5gBrrwHzfvO82ubPFXb3l7lMUB+QOzNx9x15U7O4w7r6wu' +
       'TtruTuP4trMoLPEXbDcdYK7/wXn7JM4');
end;

procedure Battle;
begin
  if(FindBitmap(Battle1, x, y))then
  begin
    Wait(100);
    Mousebox(41, 539, 98, 553, 1);
    Wait(5000 + Random(2000));
    repeat
      Wait(1000);
    until(FindBitmap(Attack1, x, y));
  end;
end;

procedure AB;
begin
  i := 0;
  MoveMouseSmooth(1, 1);
  Wait(100);
  if(FindBitmap(ABok, x, y))then
  begin
    Wait(100);
    Mousebox(458, 427, 509, 446, 1);
    Wait(3000 + Random(1100));
  end;
  MoveMouseSmooth(1, 1);
  Wait(100);
  repeat
    if(FindBitmap(Level, x, y))then
    begin
      Wait(100);
      Mousebox(420, 527, 517, 541, 1);
    end else
      Wait(1000 + Random(5000));
      Inc(i);
  until(i = 5);
end;

procedure Att1;
begin
  if (FindBitmap(ABok, x, y)) then
    AB;
  i := 0;
  repeat
    MoveMouseSmooth(1, 1);
    Wait(100);
    if(FindBitmap(Attack1, x, y))then
    begin
      Wait(100);
      Mousebox(416, 495, 529, 503, 1);
      Wait(1000 + Random(500));
    end else
      Wait(3000);
  Inc(i);
  until(i = 5);
end;

procedure Att2;
begin
  if(FindBitmap(ABok, x, y))then
    AB;
  i := 0;
  repeat
    MoveMouseSmooth(1, 1);
    Wait(100);
    if(FindBitmap(Attack2, x, y))then
    begin
      Wait(100);
      Mousebox(417, 319, 525, 329, 1);
      Wait(1000 + Random(500));
    end else
      Wait(3000);
  Inc(i);
  until(i = 5);
end;

procedure Att3;
begin
  if(FindBitmap(ABok, x, y))then
    AB;
  i := 0;
  repeat
    MoveMouseSmooth(1, 1);
    Wait(100);
    if(FindBitmap(Attack3, x, y))then
    begin
      Wait(100);
      Mousebox(404, 422, 531, 432, 1);
      Wait(1000 + Random(500));
    end else
      Wait(3000);
  Inc(i);
  until(i = 5);
end;

procedure Att4;
begin
  if(FindBitmap(ABok, x, y))then
    AB;
  i := 0;
  repeat
    MoveMouseSmooth(1, 1);
    Wait(100);
    if(FindBitmap(Attack4, x, y))then
    begin
      Wait(100);
      Mousebox(404, 390, 537, 398, 1);
      Wait(1000 + Random(500));
    end else
      Wait(3000);
  Inc(i);
  until(i = 5);
end;

procedure Att5;
begin
  if(FindBitmap(ABok, x, y))then
    AB;
  i := 0;
  repeat
    MoveMouseSmooth(1, 1);
    Wait(100);
    if(FindBitmap(Attack5, x, y))then
    begin
      Wait(100);
      Mousebox(402, 353, 537, 365, 1);
      Wait(1000 + Random(500));
    end else
      Wait(3000);
  end;
  Inc(i);
  until(i = 5);
end;

begin
  SetupSRL;
  LoadBMPS;
  ActivateClient;
  repeat
    Battle;
    Att1;
    Att2;
    Att3;
    Att4;
    Att5;
  until(False);
end.

Didn't change any functionality. Just standards.

From: i luffs yeww

program New;
{.include SRL/SRL.scar}

var
  x, y, i: Integer;
  Battle1, Level, ABok, Attack1, Attack2, Attack3, Attack4, Attack5: Integer;

procedure LoadBMPS;
begin
  Battle1 := BitmapFromString(61, 24, 'beNrtV21Il1cUP/dJHb7mWD' +
        'm3JqZ/QS0s58s0fCHSocvNVVqaL7jcEhoslURNnMIkrdnA8ENfFpQ' +
        'o+K4QUl+EvmiKmvZBIV8yiL5I5ge/GMrYr3v2XO58/v4zNxjBDoeH' +
        '83bP87v3nufc+wjxo/if3/B5Irt8jug00TdEqSZDPitdO3jLZcPAM' +
        '0+Ir4T4giiE6FOiD4n2EvkThREdFSJdiHNCFMtgB1wkRJbJGZLTTQ' +
        'H8pRA2Ig+iD0zeK5MX2UtbJu2cId3MAwxlZvAtwygxjAP0FvIjyhf' +
        'iV8No3bXLLsN1XAiEfSzZm2iXZG/TslXaCns5ke2EEN5apBvRcQ3A' +
        'Tfk62h5hGZvkwFtyvoqR5HstSVhYWEBAgD4wNzdXyX19fWNjY8PDw' +
        '6xioBU25mKdqZs2R+C3SWNGRsYff6f19fVXr17du3cvOzubB2L1Ts' +
        'gaiDEXFtuUIESChrmmpgZjFezAwMDu7u5Hjx7psBGgYB+Q+5gkc8Z' +
        'IIV9LODo6iuBnz55tmmOdYdAWsHXKzMzcznaoJAp2R0cHVAewHdMm' +
        '2CdM2D9bYKenpx8+fDg8PDwqKiovL4+NExMTejYXFxebzYYYPz+/f' +
        'wt2UFAQtsYx7AQTdoU92PrAnp4eGJ8/f64sDQ0Nq6uraiMmJyePHD' +
        'kCe2lpqb5BmOnDhw91S0VFhV3YqPyXL19yzPz8vP4hDA4Owjg9Pb0' +
        'JdplZRXZh+/r6Ig+Mt2/fZotaf0wEi8Dy+Pj4jmEXFBSwF9/R8vIy' +
        'y6mpqexta2uDCvCsHiO6YxjgUgvsaUkzMzNzc3MKgI+PD4fdvXv3x' +
        'YsX7e3trFZVVXEMZH9/f71ImFSRQN6/f78VNqYPtbOzk1UIUEdGRl' +
        'i9fv061NbWVla/JvrdMMA/WWBbaWBgAHWuV87u3bvxDAkJqays5Bg' +
        'vL68d1HZMTMym5U1JSWGLp6cn1EuXLkEGePaeEeKm7LcXLLDPSsrJ' +
        'ySksLKytrd3Y2IARxbxnzx6OPHXqFNZkaWlJnxq/5V1hoyBVSStiC' +
        '5o/AgADMsDz2GwhbhjGDXkiO/4keSCopKQEanV1NatA0tjYmJWVxa' +
        'q7u/s/gT1qofj4+DfFfOwYvOojPS3Eb4YBLnwb7Li4OLZfuXIFKve' +
        'Quro69ubn57PX1dVVT4L2qMOempqyCxudluOTk5PZi/m6ubmp4NDQ' +
        'UOxsUlLSXxstxFXDuKodyjrszyVFR0enpaUhP9tRG87OzixjzXnU/' +
        'fv39dpWqxcREYE3qlYwOzsLOTY21vpJLi4uQu3q6mK1ubkZKroBJ6' +
        'w1ib3fCvGLYYDPW04Ku/TgwQMOGxoaYkt/fz+uFioAhwW8+HKVZWF' +
        'hAZb6+np1VUDDt8IuLy9XHfXp06csX7t2jb29vb16YzmDy4MQ4CJ5' +
        'U90K9uvXr/H2pqYmHIs8EN/+48eP2fvkyZPExMS1tTXIxcXFHIDey' +
        'F7YoUZGRiowLS0tdo8bLObKyop6qeobm2DjXMwiuoy7K67cWCIzRm' +
        'jk+KoQHBysDmLrEPRn1BgqSlmgoltuFQ9ycnJCzkOHDnl4eOh2Pfg' +
        'TdBK0RCHAF4jSiD7bxq3Ghf5LwjmBv5g8ootCXJQ/OPlEJ/GjQRRO' +
        'ZJPXUXwMH0nBXxqPyh+ok/LJYcHShYB9RAeJ4qU9Xm5cuLQclDE2y' +
        'cGm6i/VKBmcbP6aQYiV9n0yIQfoXuZNf3A/vDt/R6TYsdfK28npIE' +
        'xxwfvJue8j/wl9S/Z9');

  Level := BitmapFromString(122, 29, 'beNrtWW1PXEUUfg4YxaSCFs' +
       'RW6qYgNqCrLLRpaaWglPdiW60GAkZrrTaxTSUxbT+gUWJKP9Qv/EB' +
       '+ix7P5E7Ozsvdmd0FE7M3T8gyd+ac53nm9d5LtE0ddNBBB23GbWAR' +
       'uASMAxWgHzhRDy4ZAWrAx8AqsAEcEZMNic9Zzku6mrBibrdbzuhrb' +
       'F0UN1kH5oVtVRCM9ldXl8U+0R2iUaReTPUror36IOXgFLtETxRMc7' +
       '+cmVzwMjI3Lt/Pyehkf0A0B3THRfUCa0Q7mVmY/E2ifi8aS9iJxNk' +
       'TJlkX076ZbDhX2yK6DEwImMmcuPckVD4Ryci39ppye1+yVNJ0cbdu' +
       '5Ri+Ex+lW5Egu0WT5eXlvxtdNhp36A8JrPak93tCvb8A9MSF24zMy' +
       'viwm++2sbpXhQ1qdAZ5uuE8ZUyrg4MDJ9qaivBC4TFRd7LbVj5fs8' +
       'AfRC/qozn4ieiU0nJ4eGiad9fPa1sec5srP26Uy8Ezonv12RMHEjf' +
       'hhs8S0n0bd5uHk632XOFh0STRbRuQWd0lYqwT8e4zBrwjf/k3l2wI' +
       'xrxB5bgaK/c792ui+0RfEF0FPpREU9xcsjyUZe15va6nRFPJVjuGv' +
       'wZcleDzkmWswIgSeFeYxNxmKyyTPxXuhdz2pzYPP9+BM8lLvd82t/' +
       'xMfOV5S2buI6LfiKwuO/B8qxHvBTR1+W6fBCyT3xW+S3NbE+PguXx' +
       'ad7vhNSsnAatrJTTNg8y1201IC7r9BmCZ/KrwTb7bjgM6l885OGf1' +
       'THHKy3P5y52+e52IFxCjazpEoOFgsHUcNxzCTqf41g0C1uGnCttpb' +
       'ifORL9aG92OtbLa3wZ4ATG63o1PyS7gM6JrkaUmcRezVIPWvQlYh3' +
       '9R2MzcJbV8fwb5Je1aSfzIweHBB06jayAeik/1j2SdfyXUj0E3bNu' +
       'Go878exqwDv+s8GWm2w29Si/MKg/OYuuSHWlXiIyuvngoW+dUmts6' +
       'oy73BVoaZwHr8AOFz5s9AZavNkfndvn2VAOMrv74SsKnuB+JGC+nu' +
       'Z3C2XF7rKDBuK9wI23ddvqi4VraXrfTn3PfB4yuihdKr7SzRFeS1+' +
       '2U04LToVMFDcb3CteTzyT+QAra+9+6zYPK6Kq29UyS6/Y0kXX4jsJ' +
       'qs26Xr2BH53b50fc8kdF1MXTe1sO7/LzdnNu2xNJgbCss5p+3fbcT' +
       'N5G275K+jbxEGF3zrT1L5rrtXDyzrMObCkv5u6TRq+v75+SY285zQ' +
       'cPyrBMg74wsx+jiE/Vws+9Jct32uX1U0NiUU5/FEkDNnklSOiVWM7' +
       'E82GWxRCPAGmB03ZI3S3357wDb4vZEQeNfJgrs9kCy2/7ccc4kKQ8' +
       '45V3WypN7TT5dWWnr8g2rp9H77eCC4LtNOW7XNA2FJRkS/4PrPeCa' +
       'vAvVWAUmgdfTInC1D+IvNgdzyEwqJisKi3LrZHIc7uIheX/bl1afn' +
       '45fas3GE5JuSI0uv8I4MCPfeVfq1RmBl+ThjkpFnZVqcxE3hiTFUB' +
       'phrnZZMVmox6x8azAfowfla9Gr9eiV8orUuSDvNhkXeS+Qb1in5a4' +
       'GD49huVUV8pPyw9QckL/8+1wBXV4pYJqPFhlnBJqkjVMVJp8CC56u' +
       'co2+KKfmaMHTpJiRv9WCs7k1LjgnhIcjfD7p4Bgx08ExYrqDY8M/6' +
       'ruoig==');

  ABok := BitmapFromString(92, 29, 'beNrtmF1rE0EUht+3FypFjFih' +
       'DUrUmqLWSqst2hhCavoRohYtKn4hWqRVqGIvRIqKIoh44U1+YH5LP' +
       'Zy1y7Azk0QzIwo7PBeb2TMn57w7s3N2yMfMycn5d7kDLANXgHNACR' +
       'hRxoEZoAq0gPtAxnJGmTUMhJtAQzsndPiEy8PgfI7Me2AdqABD8La' +
       'DwCKwCWxraictg2l1sqV+9nuGy9hQMf8YGorHN/IRWUJfrQzcIuc8' +
       'd6+TS/6xdeBD5FwCCnLIiLzZbO5azZmjaZn0mH7a7XbGQ+V/0EQE2' +
       'SCLRiK7XVtPTXzCJp1hNfkehx1ytm9B7Ny7aGIOEbOkcx6QfwwV/N' +
       'c4PCV9gsCvVU9NnIJIu01+IkMF/yUOrT1NzLUv1/arw0wzNXBq4hN' +
       'kiXxHBgz+YxzmXYn4dg3bxtak0+k4BakBr8mwwe/E4bSVbzoHpFBZ' +
       'lY3Vs7icmpiTzRREdnl5kwcP/m0cjlr5prlI5fmGFNLqy5wDtib2D' +
       'p5qIqXsJhk8+O04FPyaVMnEZqw/Tewm9qksMuW29hyG4lUcRvxr5y' +
       'zwghT2/Y4mmTotVViqX9njwgb/Mg4lSxPz4dbJat/vk1RPZ7WWTLz' +
       'nZMDgN+JwIdy+Y+7g5oxK+4flu5hcl8o5UPDP4nDZVZ+YU+UP6pMu' +
       'IssKukuGCv5JHBbj1LHOD8Bf5T35kAwS/IM4yHZwKs73jm9qlXUPC' +
       'hL8vTiskTWyEO67+AhwvOunsVSJN8hQwUdiFZgDDvQ6PzHr0i6anN' +
       'EDSafCyWtKpqU4ChN5TFrAReBwf+dsYnbemAyZJn5WtHD1tXE9gQw' +
       'TdmRW9PnKQ6Q/HaqBmC0Al3SZZNox4KpuuGIz5vIwrKffC2ozOMt/' +
       'hbquo0ngBDAKFJRR/Tmpt8QgY1lWZMlMqVwNNWjo9ZTeKqqHol5PG' +
       'zaDcy3HopZjUcnJ8BNdVUv5');

  Attack1 := BitmapFromString(122, 21, 'beNrVlulzE0cah2VRW7sf' +
       'Ek33yNKMJEtzaCSZrS1qa2ujtTlCOIyBAAEBscRlywe3MWCIBPji8' +
       'sllbOMDfIFtIEltYptQOdhNINlv/Uft269mJNmGLTbfrHrK1dPd88' +
       '7Mo5/esSAcLvItY3zeIz5vpc9b5fMmfd5qpNbrAeqQY8hxr+eERz7' +
       'pkU955NOA11Pv9Zzxeho88lnkPNLokS/I8kVZAlJIWpYuydJliXNF' +
       'cjdJ7mZZapGlVllqkzhXJfc1yX0duYm0u90dblcn0o30uF23XK7br' +
       'sI7rsJDRd5ljM9z2Oc54vNU+jxVPk8SqfHKQC1yFDnmlY97pBMe6a' +
       'RHOuWRTntBuFzvlc945AaPBJxDznukRlm6gHwhu4GU7E7L7kuS+zL' +
       'SJLmaZBDubpHdrRKnTXKjcNd1yXVDct0E3K52twuFF3a5C7uRHlfh' +
       'LVchCD9Y5F3G+DyLhAPVXrnaEl6HcOEeKSfcK5/KCPeAcAk4i3Dhs' +
       'in8Ito2hUtcOHBFcl2R3aZwyRR+lePKCr+BtlF4YU64yxSeKPIuY3' +
       'yeAz5PvnOgyisDyTznPOQeCTCde2XgpDfTWKR6FG6GXOagc/cF2X0' +
       'RSUkcdO66LLsvo3DeVSTTeZvkakPh3LmbC8eEF3Yg3LnLFN755+Jl' +
       'zMpIF9K9MtJTHAZuFYdvI3ciIeAuci8S6g0bwP2w0ccJ9YcNYCBsP' +
       'ABCxmAoCAyFgsMGZ8TQHyKPgpzRoDaGjOvaeFCfCGqTgK49Rp7o6h' +
       'SgqdOaOsNRngKq8kxVnqsB4EtACXylBL5W/DdXRkyKy5/PM8ZGRos' +
       'jucmVkdERxubbehdOLmBr22vGvqt794b3pG7k/y5SHG5HOorDnZEQ' +
       '0BUJdSM9YcC4FTZuI3dCwbtlrW9Y7vNDjXE/FOxD+g19AHlg6INBz' +
       'lBQG0ZGdO1hcuhVUn2kq6Na1SvGXiW1MV0dRyY0dZKjPNaUJypnSl' +
       'Wm1QAwowSeIs8UP/A8wLm+MmJSXP5sHu9jpDY3adm+VxzJn1wA2n5' +
       'R9+4N70Nx7YvfUaQ4fAPh2iMhoAOdc+1hwOgOGz3IYOscPNn3Nag9' +
       'ZJjmh6t7Q0Hu3NAB03lQf8CFaxmG9ORPjP2UVEd09aGmPtS1R7o2C' +
       'uZ1FZyPaeq4Bs4VYFJVHiNP1MAUoASmFe58RvE/BeEBztXisMUWbn' +
       't+/hc2/2xrdjL8EG3fzW1bwta2X7iod294L2pe/I4ikdA15HokdCN' +
       'sADfDRjvSEQKCnaFgF1DW+prNfV2m9xj6LUO/HQreNoJ3jOT3jL1p' +
       '3XzP0HuDgHY/qPUh/bo2oKvAA07Vj2h7SFOGNQWcj4BzTXmEjGrKm' +
       'MoZVwMTyKQSeMzxP1H8UwHONDITKHrqL2opDltsmQHbIzU9bfPwNz' +
       's/jLZ7+LgG8jFXl91vHaLtuTb+N/P5pW1LXtkwL/iWJTh9fqZthC3' +
       '68GvlL40MZ/bXjbylSKSGB6S2JnuBFzXGddR+I2TcDAXbkbFhHuNO' +
       'Q+8y9G4gFOwxAJ0Hfq5lyNDvlLW8YXP/rG7Jtpo3LRv7dLVvc/Ov2' +
       'avONU9olRnzwxnz0EBa5nJ3PlQ5pgbGlcDEhub/5D3Qz5X+J1x70b' +
       'S/qCkSsiibRttNEdRYa84Pctut3Xy8YD53WN76M2qaLsd5PPy5rSy' +
       'zrZurfusSP92qvKj4oqVQU+0wW7TK7zPUFK7Gp52b2WK0hoJ3eLuY' +
       'e1ZmXAsFgeuGfoOT/I6x162b24NaR1DrBFB7V1Dvrh5iPPPa7c0tr' +
       '9HM90n1rq7eSw7xxp5U7mtA5Q8wrlL6VWVA5bZ/TCqDqjKkKpPN/H' +
       'LzG5URJfBQqYSW/lvz+tENTb8x9q9K/3jAPxEomqwchFL/rix64gd' +
       '8lyIhi7IptA3jDlA039qB8wNoG8c1s4zN1mb3W4eWw2wpfjobHrD2' +
       '5C9d4t7eupRffNESv7ElReanykOXwtWZnVfCRlMo2FzG72SuhpsH2' +
       'gz9KifJe1S1fiOoATeDWruhAx1BvbOMS35ZrXWj7dctG2/p6m1kGE' +
       'I71wwBvmfZvq8qfSqOk6BdeYDmf23eMKQGhpTAsBIYUfzAQ653EP7' +
       '9GA34xwJFwLi/aMJfNMnx2XKfVY3fMNYby46/aVwFo1gvM0c4NNfz' +
       'D/PPy63gOXknL7nIO6otvdDS+guL3I/Z/mCz/dFm+5Mt1sdYX8z2g' +
       'c32oc3msNmIzUZtsQHGBmI2l83mttlkm81TUOAtKPAVFPhXNUI6h2' +
       'I2DQfDMVuooCBcUBApKCjGO7+6yvYXW+wRY49itr8WFPzNFhtlbHT' +
       'viqjdHl3VCD+Zsb0r1tjta+32dXb7erv9E7t9w4q9k/xX0ntxxYpy' +
       'u32r3b7Nbt9ut++w23fa7R+L1MRZ0gVBGUiYh4l+xvrPOek5uNfZd' +
       'MIJGxITjE0ksvutw9L0SzbbVUpzpbIzvMhbPvysd1UTlyzxanmH+R' +
       'toHAdkAyWbKNlM4/CkjxOknHK2UrKdCNtJfAoCmYruJMIuIuwGKNl' +
       'DSYySvXG4vdm+KKmIpn5gs/1RcoAIwEEiHMalwSipJPHnjH0Zd1QL' +
       'jhpS8RVjX8XJUSIci6ZesdnRKDkpCKcE4bTgqBccZwRHg+A4Sz6am' +
       'M097LcVji8cjpTjw7Tjw7VO0aK0E21nZ84OsJfp0rNou8LpXOtMjD' +
       'M2nnBaG6xDtJE3L65N8HM6S525Qe4q4uLT33K4cGlp/dyMqX29SDe' +
       'IdKMzAbYnE7RM5GyhFIRvoyTNgxPfQQmwi5LPRArspvR4epbNpk5Q' +
       'sr+E2+4rIXFKEshBtP0gSg6j7edxUkWEahL/EswnSB0hR7lt9nWcn' +
       'CACcJIIp4lQjzQQ4azAOS8IvTxus5NRxxcCZ7VTtCjtQNu5GYzoS9' +
       '5P0/udztXOxBjj/vNW2VjCmRnk5p3ifv4UuVP4ntxVsixayj9ctMR' +
       'vLL/+avwSO0p5ffxe6DoRhaN8sL1JpJsBCsIx5yUp+GfvSYJ8isJ3' +
       'inQXQBPTkPl0FHK+l9vm488pqaDc+VUuO9VAyCESf4a2K4lQZdmuI' +
       'aSWxCHnr1LRY0Q4bgk/ZTk/IwgNKPwcqYCm923ccUFwXPzftp1iww' +
       'D+GEx1uCF/nGfbevyMipwrbj67ZBY0RS21bSld8h0tqMlXrft8P9u' +
       'UJPltsKmEZbs0DXoh8Huwq2RsM4w3t40N8FmcQEvJ2P4xFV1im6RT' +
       '/NEeRQnajo7O8oKn8UcxFiWmbTyEbGdsl4iiibO0HW3nZvgkPtpse' +
       'p/TmTtkGc+mk5LSNH9fpPlfa8mZX2RfOq+LsYH6vFL5O+utb3bfki' +
       'VOYiBb4rt0qTlJ+U6wvYbSdRTauNlYNlC6EdlMSBkhWwgpJ2RrlCc' +
       '8+5lK0F2EfEbIbkL28L7NZlIZ5yyjOk5IQhAOCMK1zMtnNtVodZVq' +
       'wgHnqVTeo/XHoYcDKDz7mZ34yHHO4Wh0OC44HP8QxWUMpaWUrkbWm' +
       'sLpeko/oVw4sImQBcIJ2UbIdko/pXQHpTsJMYVnbMfJPsLZT0gFEh' +
       'cEEH4QOSQIRwShkkBLIUliCReEOkE4ihwXhBNoG1+aQr2A/cThOOv' +
       'gts+j8KjTuYzBhJcia0RxrSiuE8WPRXG9KH4iipmEb6K8pZTxrkLL' +
       '+XuTbhPF7aJoCqfQwOnuEt5YphN0L+Xso/TzrHAC/6hAS+EcJuQIp' +
       'ZWUVuUJh5bCX5qEHCPQUuClSU4SkhF+Rshr4PjS/EgUlzGUQrxLEI' +
       'j3mqUJJ2QjIfkJh3hz4ZTyhBOygxCecMz2dJzECNmLQLy5cEGowHg' +
       'fsOLNhWO8TeGCAPGutRJ+DBN+0ko4j7fDATRY8f6707mMEcWo1VUg' +
       '3qsXJdxqKfkJh3iXi+JWUdyG/SSTcIj3Z8geSmOZeGeFY7wTVsIPU' +
       'XoY4p0nvIaYL81MvI9l4p1p4FY/OZOJ938B0hi6fQ==');

  Attack2 := BitmapFromString(121, 17, 'beNrVlttXU1cawJMwL7Nm' +
       '9ey9zxGSQE7ONQl98WHWGkpq1aJF1Fqr4OVEW5EEaq0tSm0lthVQV' +
       'K4qYEAuEm5Wrba6JFVrbafOTB/PHzXf/k5uQOya6Ztn/RZr3/c+v/' +
       '3l4wjCoUDlK0yV/3CV/4Mq/4dV/iNV/makpdIHxCt9iUpfa6WvDfn' +
       'I7z3m937s9x73ez+p9AEnKn2f+n2f+b3tfu9Jv/cU0uHzfu7znvZ5' +
       'v/BVfImc8VV0eiuS3oqz3oqvvOVf+yqAc4C3ogvp4ZSf95Zf8Jb3e' +
       'ssvVpRfqii/zFnXjwwA5euGytd9EzZfYULGOaQrZHSbOtBj6ueRC4' +
       'YG9BraReSyrgJ9utrP0QaQQV0b0tUhTR1GrmjqVUBVr6nKiKqMqso' +
       'Ycl0NpgAlOA6oyoQavAEowUlkSpGnFXkmKN8MyrOcQBqQA3NyYF6u' +
       'AhaAQNVioOry65HVVDfcy9i2PZ2uXtGenrbtTM9YdaTEFIftPf+y7' +
       'cdtLx/w56hufWwXP0UHq048se0nbeH+6vBAJAQMRkJDyHAYMK+Eza' +
       'vItZAxgoxyzDGOcT1kpJBxU59Abpj6pNnyvHi35a4lXb2JzGpqWte' +
       'AOV2dRxY0dZGjLGnKLTXLt2rwNqAE7yjBuxz5O0W+F5R7X4+sprrh' +
       'bsZ5p9bi9llUPVIdKTHFAVX/2PbyAX+CNth1xZr8GHbm7nbnqInH/' +
       'HLDl6rDlyMhoC8S6kcGwoA5GDaHkOGQcQW5GjKuhcC8mdNucOemDq' +
       'RMPd29DKv/HNdvGBrH3LrMGybv6eq0rs5o6oyu3dS1WdCug3Y1ral' +
       'zmjqvKcCCqiwiS2rwFqAEv1W48NuKfEeR7wblC9XhNWzjqjOZF/yN' +
       'Cu03s6rDF17G9p4XXMvLB/z/8E2nEyWO5zRGEj/Cjq2hi5HQpbAJX' +
       'A6bfUh/CDAGQsYgMmQaw6YOXDF1sH3VNK6Z+ggyaupjBqBdr+/6j2' +
       '0/i2vjujahq8ANzhZue/LolKZMa8oMCr+pKbNIWlPmVM68GlxwUIK' +
       'LSnBJkYFbQflb5HZQvhMMdFeH17DtDr7LcE8G/ubbp1D1MC8n+FW0' +
       '5cfnqqg608P/Os+Lnm3FK/MFS3TB9MydnmnnhzRV6iSlDolE+Nag+' +
       'rzjPGH2hs2L3HmcR3vC7AsZwNxUIR183w2V5R/qzax25JqhjxjaLd' +
       '7TNWtqY7p2XVdTyLiuznUt/9yi3tCUSa0ZcsvzFnXa0a41/2Lbvxx' +
       'VZlVe+PVo86+5bf7ZLC8o8mJQXkLQeeBcJLSG+tv4guciCbjP5dZs' +
       '+yRX3T3EyyvaC9WG7t/4PpnbDdiO1d966p1hQ9xzyS4+PbfyGlpRE' +
       'z9Mqd5wHOZmEmZ3OJ5B1edDxoWQ0RuKg/nHcf2Sqc/yBabSpt5naP' +
       '3xyazwen3Q0IcMbRi5omtX9a0Plu1/d20Z0VVgVFPHNOU6klKVcWR' +
       'Cbf4Z0kuLMqkqUxxuHlTPKFw1LPu4Tk5DujjHfTytkxeCAWBR5izJ' +
       'ga8ioTXU30LVUO4HP5nufmyfQNVYTjyy7Uet+fG5ak5gfik+3Z6ay' +
       'I0p7vqKO3xJ1yqyN+g8zpQc4TjMXU7A1wh3DgX+KRIyekJoPq5fqO' +
       '96gYWLBqBdMrQ0N798r17vN/QBQwMGDfgOAVqe2vZPLeoVXb2qq9c' +
       '0QBnRlFEt/x0CzpufoeoJrl25geafH1WmFO7893ObZxT5piLP1n3z' +
       'OwR5szwXDADz/FMksCAHXCWe9acf2vZoY7788PR6KDWO2tkSFrP9x' +
       'dXieYUenFM0ec0mq1b7gwfn8Ce/FJ871uj6i6txDAt/dbn+5nK95m' +
       'q8btupRhfFtWMu1zqXq9zlqnC5fHiSr9e7qtxu2e0Out2K26253bq' +
       'rkd99oyvsdkfc7tfd7rbR4g+R0eMu199djbO2PdtUVuPxvOHx1JY1' +
       'pW17rqnsrbKmOduebyp72+Op83i2ljUt2PZiU1mDx7Pd49nh8ez0e' +
       'HZ5PJtEthqpdgBiZTyWrcZScOoOiXWMQ+wmYxIMiM3DyrH8+Fw1mn' +
       'xiPxqIFi2Vb+GLlHj4rFWr/Q/wk+CRNjEL59I6ZsHbLcToO4xuY7S' +
       'BWYu2vRSj8U54k9RZSt+jBNhNyR4LTvJotJY2MtpE6T5K91NykGPd' +
       'hYjtrDlEyWFKPkSOENJMyFE+JdVHhQQ9eN+271v0I0qOUfIxtb637' +
       'R8seoJaP9j2A0toJ8JJIpyiByEiHlrCaSJ8IQhfCsIZQegUXtsoiW' +
       'uIOqrzLfBqT5JRR7UlSRulGFziXEzKDchVudjidnFjjM8ZiEqFQon' +
       'tVq1WxNoFVy2bu6Y6KYaq2VaR1YtsmxQD1YsxtgPj5Cyju5D3GN0d' +
       'Q9VRdiz5KH/jz5I1Bxjt4T2d7YweYvQDyuG2aVb1ZUoT1LoHqmOgm' +
       'nMMVX9v0U9QNTj/jJJ2Sk5RC1XT04Rw20T4kghniLBBEtcQ7UfVhR' +
       'YMzic8IycPSNIGlAPyi3q5EKdQaJfEA/A6RVP4mBLb/UHXmpM4cNX' +
       'jJ3PL5n8aT5O1dSK3/U40+RRVN9R2/oThvZPRd5FWbpirfp+xvYzH' +
       'NrCP0f1AbSek4rsxGgPblB7mtglwBFVforQFVT9P1rRS2ga2azp/Q' +
       'dXHc+H9KSVo23qAqjsI+Zzw2D6Ntt+UxDVE+/AFixtPjuP1P0rul6' +
       'TsgOKybadj0puoGjr6ohKfxYVgO66wH98x25Vd0KnG0kXDVoOL5PY' +
       'qtMCFYtW5JrZRqh3EIx2S2BapdgiPBEEOyaSTp65UkqHtbB7jqncz' +
       'tofRvUhTzvYJDHUI8hh1bJNeZ0bKaobwpjVTfJfOM5S20poZ3AVUF' +
       '2USgra56gcWPUVIBxEc2xDbUVFcTU71ykYuxHnlQtV2JGddRaNJ+J' +
       'pNJ5OPC11S8SL7i36zsEF70VKrRpbYuvDwC8p2sazqtxjkbR7YzrM' +
       'Qy+aTekq3UXqm8I8idRZD9GvG3mPsfUr3ULqX0kaaz9v0ALXurNgu' +
       '1QuZhOTyNga289y3LCd1FzIJISfICtWnBKFDED4XeNJ+QxRfYRiLM' +
       'vYmArY3cuFsM2NvM1aHbKX0HUod4Q2Ubqd0h+Vkb7YLbFO6m9Ji4f' +
       'tywg8iFiExQg4jHzi2KW3mmYTGkQQhbYR8hHxMyHFCHNufgnBC2gk' +
       '5KQh52zWS9AojirW54N8gim+J4kZR3CSKm0XxbVEE1VtqedLm4c0g' +
       'mbAGFluCj+dkdKcovuvYZk4m4exlrAnZx9iBvO1sJuF8SOkRxpoZO' +
       '1pkO5u3+X9JyCSQt+G/JHVstzu2IbZ5JiH/EMVXGMYgsGsRCOwNa2' +
       'Ob0i3Wiu/MJYtuZ2wHYzsZe5fSXfw7kAe2E9tOJmnKZhJ6kJCDGNi' +
       'HcoHNbWNgZ20TAoHdmovtYxjbn+Rimwe2IAAQ2x3/BX+Acvw=');

  Attack3 := BitmapFromString(145, 18, 'beNrdlvlTVEcewOf4YXdr' +
       'K6+739zM8Y55M4NbW+7WVoVI1gQvhCRqDGiY0SCXd2I80IDKMV6Ao' +
       'CIIyiCHgHJ4D0Qr0WQ1u5v89P6o/fZ35s08EJO4P/rqU1N9d09/3r' +
       'dfC8LOQMHbjN/3hd9X7fft8vtq/L5apL7ACzQUeHcXePcgewu8+3y' +
       'e/T7PAZ/noM/zZYEX+KrAe8jn/drnAY4gR32eY15Po9dz3Os54XV/' +
       'gzR53c0e90nktMd12utu8bpbve42j7sdOcNxnfW4znlc5wG3qwPpd' +
       'Du73M6Lbmc34HL2uJyXXM7LLucVl6MX6XM6+lzOfpfzmss54HIMIt' +
       'edjkSg4G3G79vh95nFAbUFXqDOJA7Y6/MAWXEFXuAgiPN5v/J5DqG' +
       '1w8hRLwfFuY973SeQJg8HxblOed2n0FqLx93qyYpLelxJtMbFubm1' +
       'C9yasxPh4lxZaz3cmgPg4pyOqy5nH3LN5QC4OKej6y+FbzMrYheR7' +
       'hWxnsIocKkwehm5EosAvcjVWKQvqgH9Ue0aJzIQ1YDBqHYdiGg3Im' +
       'FgKBJOaZxhTb2JjIQ5o2FlDBlXlfGweiusTACqMolMqfJtQJHvKPI' +
       '0R5oBZGlWlubkEHAXkEL3pNB9KQg8CHEehoKPQoFHUvBxiJMOBedD' +
       'AWAhGLiwIpalsGxuQdf14dHCWL5wRWx0WNcXkn2LCxdRnvxJ15/se' +
       'X2DN+e3J/2dFEY7kM7CaFcsAlyMRbqRniigXYpql5ErkXAvcjUS7o' +
       'towHRKf+WZT5eqN8KcIa3uua4/r1eGVeWmKgMjqjyqyKOqAoyp8jh' +
       'yS5EnONKkIk3JnNuydEcO3akdelkjzUghYFYKAnMhzt1Q8F4oANwP' +
       'Bh4A3F0AeBQMPEbSQf+5FbEshWWzC7iu4d35QmP3rhbGzIWLQGXf7' +
       'nl9gzfntyf9nRRGzyPcXSwCdKI47i4KaN1RrQe5FAlfRtCdBtwGZQ' +
       'vtIxGtPxK+pqnAaPt8xtp1sKbVPdP1Z/XKkKqkVBkYBnEKuFNGuDV' +
       'wJ4O4MUUeV0CcBEzI0iQyJde80PUXNdIdKTTNCc6AtRAHrQWAe0Fu' +
       '7X4oeD8E4gIPgxwU5z9TGDXYyJUtLLzUF2bLc4XRm7h7vflmr1Cef' +
       'MmVvb7Bm/Pbk/5OYpGzyLlY5HxUAy5EtQ6kMwKEuyLhi0i3Fu7RVO' +
       'CSpnJ3WngKlM23pTT1qqb2hQGlX6v7Xtf/3b5+QFUG1VqurE6+rso' +
       '3FHmII6UUCcQNgzhFGkFGFWlM5ozLoVvIhBSalGr+xZUFb4c4d5Dp' +
       'UGAmyJkNBuaCfuBuwA/iMu4eBP0PAv6HAf+jgL+tMGqwcRqUDTf0J' +
       'BfgN1eewt3r4ekG/pLtybU3sqhsPsl/M8/L5EbTsFE+4DJV0H1hOj' +
       'mcCeyUqf3iSZchNWw6qvaYqsrza8hWxSLtsUgSPlumNfyULOX6Itq' +
       'FSP0Tff5ue+YETI1r6kVN7QYioC88gcqGwKCmXgmrvWGlF5V9X6/0' +
       'qUq/WsvTdfKAKg8q8uxQft7ndXIqow9Y3/pf05J+rJXG17b+nF9iy' +
       '5wUnILIap3Plf3SUjIT9AOzgeqf9PTzlhtYfONpwH8/wMW1xCIGpX' +
       'dQWUsMXezOlt/gu9fezdOLyvPZsvYXfMyFO2VYjtkXydJMs26+V8t' +
       'W8e7GyEsxTbpcFV/k8oPnl7ebi5hv0Frh3Evylc6UaslIOFnaDlpf' +
       'tpeejYTPaXVPeKO2Pk3tCANKZ1jpAtDdLVR2XVN6wspllZNqm9dTt' +
       'b2qfFWV+5SMMqkf7hLga6hmQJYG5dB4G59rfp00JEtD61r/AwZrpW' +
       'EpdFMKjdTwzf+hJjgm1fwI+mqCt0KBiVBgtiWt6+nvSgJTQf/tktO' +
       '/cGsfTgf8M4Fq/gamT0NkzQUg6AqAe/6Ck7GIQeltVAbpTtiKhfZO' +
       'LB/E3cN0Ax96d669kTVE5Ibi3fXUoNHGXHWS7+RrqkyYJl0C9Fq4X' +
       'WZkcerskvIjm4hqp6L1mYlaIuFWpK2Bt0xFtKRW9y3Xt+Gspp4Lq+' +
       'fDCnAhrHSAQU0dW+b6ATZah1T5sipfUWq/0/Xv6qSrSs33+vzjdVK' +
       '/LF2TQ9fWc03PaqXrsnS9lrucA3dSKCWFhqUgcFMKjkg1P2TchQJj' +
       '0i7Q93NLyUQwMBH0Twb9U7vA7I10wH8nUP0irw+CrgC46y+w5J+Vj' +
       'Y90va8il37UuBJSFX16NoXJbL05a+6Xr8E+ps6vTLJktEXPq/1e04' +
       'g/xiCZ/KIhrRaLHcc6vtLyB4vljxbLnyyWP69sBInXKiyCpWJA1wc' +
       'qLKLF4rRYXBaL22LxWiw+q7XAaq3GNay1WCSrVbFaVatVM2aIWa2F' +
       'loqbun6zwvJXq3Wl1fo3q/XvVus/jCWNVtrfs9lW2SvHsMMRu/0Dm' +
       '63EZltjs6212dbbKyd0fbLSXmazlVdCl8e9K+2bbLbNNtsWm23ryk' +
       'aI3+lK+zZ75Yyuz1Taq+z2hN2+w27fabdX2+0fiiyLY9VF+CeDiWw' +
       '2wf/NUQc7OgjvcXPCAQ0St3T9ViLX3sgWNz/V0xeLWX6oXAkfZJmH' +
       '91oy2mLyk75SlWhOG8MMHOUTmZeEf8E8C6NrX7OGyQQtZ/EpXZ+K0' +
       '08o2YxsoWQrwOhnjLZCv3TTAUq3U1KFxCk5ywcbOEtpNY3P6vpcnN' +
       'YQ0tiUX1JXURNc/u/F6T5K9lNygBaNmpb0MC4cJsIRWgXv7aO40Ei' +
       'E41XLL2++6p1WoQoO2YUqoV0QzgjCWc4754V3VjtEg+IuVJYrOTKo' +
       'P20uPoK7V+VwrHYkxnV9POEwGhhZ3DdTubg6wft0FTvyifws4tLuy' +
       '1SJpkkXVy2Z69WpzSPwqTOvTbq7mK0V2Tpkg8hKkY0swZUl6EeMfs' +
       'LoJmQLo5+KDGhBZfsZrWR0O6OfI4f4CzNwhtGdqGw2TquLmp6hu1p' +
       'K6ilpWJVVtpdy9nFrnIOUXOFy0mNF9DCNozJ6DHTH+TQTRcI3hNNE' +
       'hJNEOCVwWlDZfFxoI0ISOUOEc0R43yEaFHeisnwJBstT/sVq3u5wv' +
       'O9IQJiDRFOtPpZwZBL5coe4Hf6XqQtvk58lx69UiYcHc5MuruLvwO' +
       'DhXDnP/vr4zHg3WInI1iBgbT2K28ASkxhuZYxb+9gQt1lkW0R2GpX' +
       'tw4gDa9tQXBILDzGaMJR9wfd84DylNZSAtToM6rtxupvSPdwaMcIN' +
       'rMUf6PqDOD1E4w95xNEjhBzFiHscF44T4YRhrVkQTnJrVWlU1kq4t' +
       'XbD2q8py2ydnts9bGBOm5RBRWex49Vt5PpyVdkBM9n/S1nuPTGk6L' +
       'm3BSM6N5GRZatFFsc1QKBllDXiGi4Vv7ky1DEDtszKjChDZfG7mXt' +
       '+UxFXhhE0UkSzyjA7WpRV9mNTEVcGFvi5ygMto2wAg/H2u69VtkoU' +
       'sziKO1BZvoQX4rakm7c5HPmsnpGV3fNVxc1wVR5r5r9GlcM8yLZm0' +
       '2muDx4yDbWkZY5Dg8sc70+aixePlu4odmBLnuAdE+ZuWMjY+4z9k7' +
       'HPF61hoJGxdZwEvwbE6UZKyygtp/QjSj+mII5tYqhs6ZPuL4JPG/2' +
       'c0rihbAchh/PfsvRQEe3APU8V0QZKd8fNo3BfBwn5imQOSf5KJAXh' +
       'qJCxll/egJAJNK4sXSWcFoRWQWgT+EcN2r8nim8zjBWjNWA1Yx8wu' +
       'JCwEsbWMLYWWU/pBkpL6WJrjGWsbaZ0C6WfUrqV0s8oraB0GwLWqp' +
       'A4IQlCdiJfELKLkBp+QtI6SuuRBkL2ELIX2U/IAUJA2Zdo7RAhX4N' +
       'uQTiC1o4JQqMgHBeEE4LwjSA0ZawRAh+10/y7lrUGyoocjrcZjNli' +
       '5J+iuFoUPxDFD0WxRBTXiOJajLX1DE5IVsrgNsLKGCtn7CNR/FgUs' +
       '9YY28LYVuQzxiqRbRC2OWuU7qBwG+FUU7qLsRrGak3WjI8aXEXghK' +
       'RwBT1Iacba1xlrhOAJSfhthJATAFrLKOPWCGkhpBVpJ+RdUXybYQw' +
       'CbRWSOSGXxhql6yg1xxoEGrfGGI81SjdRuhkDLRNrEGiVSOZ4rCKk' +
       'CgNthxFo3BoGWtYaIRBou41Y24exdtCINR5oggAcNgLt2JJAA2V4F' +
       'ckH2v8AaFt5hA==');

  Attack4 := BitmapFromString(148, 21, 'beNrdl/tTFNeewAemtnZr' +
       'q+xzzjx7prunHzMDZPcWdWvvxkgS4zUG9GbVJKAyqDiAGhONT1RQn' +
       'r54y0tGHgryUEB8Akl2k5ir2bvZn/qP2u/59jTTA3hNan+z61NUn/' +
       'eZ8+nvtxtCDsjhtx8pdFAKVUqhQ1IoKYWqkJqwCBwOi0fC4lHky7B' +
       '4LBT8KhT8OhQ8HgqeCIvAN2HxZEg8FQoCZ5CzoeA5MVgrBs+LwQti' +
       '4CJSJwbqg4FLSEPQ3yAGGsVAkxhoDgZakCsc/9Wg/1rQfx0I+NuQ9' +
       'oCvI+DrDPi6AL+v2+/r8ftu+n29fm8fMuDzDvh9g37fLb9vyO9NIb' +
       'd93mGfd78UfvsJhw6EQwfDocpw6FA4lESqQyJQExIPh8QjIfEo8qU' +
       'YPCYGvxKDX4ugTwROhMRvRPGkGDwlBk+LwTPIWTF4LhisDQbPBwMX' +
       'kIvBQF0Q9QUClwP+Bm4w0ISAvuZAoJXjvxLwXw34rwW4uxt+fxvH1' +
       '4F0It0+To/Pd9Pn7fV5+3zefnQ34PMN+ny3fN4hnzfl4+6As4b+9q' +
       'Nr55BaXTuvqxeQOo1Tr0WAS1rkMtKoKkCTqjRzIi1Iqxq5oipXI8o' +
       '15HpEuQEoSpsitytyB9KpyF2KBHTLUo8s3VTkm4rUB8hSPzIgS4Ny' +
       'eFAKDyEpKXwbCIeHw6ERZDQcGguH7oQA8W5IHEcmQuK9UHAyLE6Gx' +
       'KmQOM0JzoSC98XgAzHY9i8Fbz/v5LcjHe/kdxbkAV0Fed1IT34cuJ' +
       'kf70X68mL9yAAnPpgXA27lxYaAeCwVj95GhmPREY4xGjPGgCjnTlS' +
       '/i4wb+kTUmIjq96L6pMGZMvRpQwNmdO1+GvWBrs5qnDktMo88VCML' +
       'HOWRqjyOcJ5ElKcR+akKf5VnEeU5R16MyEsK5/o7+RkKtj9cNk1zb' +
       'Lwg31k/Pmaay60D2ZVZ7Gj9xTS/O/r6Dr+fNy/62ynIu4G0FeS158' +
       'eBjvx4J9KVB8S682I9yM14tBfpi0f747H7o+Y612h1KmbcjnKGo/o' +
       'IMmroY4YG3DG0u7p216h+YZo/V2sThnYP0LVJXZvSVWBaU2eQ+1rk' +
       'ftXIy6Q6q0aAOVUB5iPKQ2QhIj8CFPmxIj/hEmWQ+EzhPFfkRUVal' +
       'KWrBXkOSuaXcXtjh531d/EY+7N6ZrOj9ZVpfnv09R1+P29e9LeTH7' +
       '+GXM+P38iLAW15sXakIw5EO+PRLqQ7Fu2JGcDNmAEGZ8DdUjNEVn/' +
       'MGIgZg1FjMFb9g8krx2N6ytBvGxowjIzo2ihHHdNVMHgHDOrqODKh' +
       'q/c0zqQWmbJQI9Nq8qVpvkwq9yPKA2Q2osxF5DlFnlfkhxxpQZEey' +
       'ZJlkEtUpKcy55ksPZelloI8ByVz4G55+ZW5PLcjUz+Kx9iT1TMbdL' +
       'd89PUdfj9vXvS3kx9vzY9fQa7mxa4h11HijXisLR5tR7jEGGB0xYx' +
       'uIB6dRneQG3uRvqjRH9X7a0ag9nmxPmjotwxtCEmBRJ0zrKsjgME9' +
       'jlkekbuaOs6JTGiRe4AamVSTfzXNvyaV6Ygyg6BE+YEizyrc4Jwiz' +
       'SvSQ1kCjwvII0V6LHOeoMGmgjwHJbPLPOi6W5fh70r9CB5jN78/vA' +
       'T7PrrS3y7uaIVHaKmV/7Wul60lzpn5hOs0wfDl2dYxK9RHsnbiXHQ' +
       'dRsYyOcyxn/ROVjflx5vhvebYw6vW4rTEeM135tLDFis5jk7EYu0x' +
       'oyNmgEEIxkl0dxsjkQdj1OiN6r3Fzf9tmj/U6P2GPmBog9UjK9P+r' +
       'fnjlK7e1tVho+pH0/ypWoUwHNWTP5nmi6rkC7vbiyp1YmvTr5ldNs' +
       '6r3ODDpqWVuv9t3DKrSMCcXPmLufhT4zBWD38v80i09DXkxx0UP0B' +
       '3DfmHF01z8Ui6fpgfY0snv8+qzxS3t+CJLT/YjvVYfNlabHXr5Ie2' +
       'bhMfbs+8Gsei6zXxTa4/eWZ7R7gRXsyLdbXyp2y2JNYcj7YUt0CWe' +
       'NVSfCUevRKv+RZzIGTF6zHjRhTQ26J6OxAz7qG7VEzviurdUb3H4N' +
       'zkspaefqL1GVo/ivuhWh3Q1UEtydPpSHJIi6T0JLj7sUod1tQRjbu' +
       'DIctb1TE1MsMFLX27VRlXkz/DOzGp3IvIkxF5vpGf5X9tkWcUaWZL' +
       'w69c30cPZGlWrnzFf0YD5Ekeg3J4QQ4/kjj1eTEHxTPcXQ3ct8GPX' +
       'W5pw/oUHiPe1/AFDq/0t4slaSMrU/Hh5mjK7uNsqj88+tomB45FVw' +
       'GjlmZK7CIund5SZuZs4rhQS/HleLQhFm2MGY01vCd8JTbHqpe5x21' +
       'XojpwNapfMwDtuqGBxHF0B4mx3dA6DK3T0Lr0qv9EQT262qNvfbJk' +
       '/tK0tVeL9GmRfqAK0+lW5RZ6/CGpptRISuUe/9a0ZVhVRiLK6NbG/' +
       '4GQTMp31EMQiS+S8rgiTyiV4PHXxo8mZQmYkqXpQ7dN8/aiFLovVb' +
       '7kHjfPyuE5iTMvhR9KIcCVdRXWPjPNgdKV+2e1hXBXOmCm7/A23e4' +
       'sOsdlWnCMY/CaRVbNlnWtHfeaTvyyJ7HKa6bEuc4Xuv7B5fpHl+uf' +
       'XK5/Lqx9bpq3Sl0bXKVDpjlU6mIul8fl8rlcfpcr4HKJLlcoJ6dyY' +
       'J3PzKXawnhOTl5OTn5hLXi/U+r615ycP+TkFObk/LGwFqJ4vNT1J3' +
       'fZONyUud/Lzd3kLpswzXtl7g9zczfn5m5xl02a5mSZe5u7bMo0p8v' +
       'c23Nzd5TBSs/7Ct07c3N35ebuzs39vLAW7M+Wufe4y+ZMc67MXe52' +
       'V7jd+93uA253pdt9yO3e7GEZvJs64QFNVaSLFfxnnfWysyl4susTX' +
       'uhQcQ+2UbHS3y4W1X9vLnYWOaZaqeGTrHPxUatmyyaz6JqmRP2iPc' +
       '3QWb6Qc0v4E5yreF67h+kKWsIS06Y5k6B/oeRTSnYiuyj5jJLPGW2' +
       'EcYt1X1NaRukeSvYh5ZRUIPs31kFAzSdoJSGHCKkiQhUtXzDNhYRw' +
       'mCYemeajBP2SkmM08dg0HyfocUJOEOEbWv7UNJ8mhDO0HJ7hZwmhl' +
       'gi15evvcLF8Q6NQzpNsudAiCK2CcEUQrgobrgkbrgsbPvB6HBR1oL' +
       'uVmtMp8/v6otN4jPu83g/Sp+21O9jF9AF6M1NV8DEdRd7MTdZC2cP' +
       'XafI4Fs1uWrXW2qWdM6T3wB3Ag/SRh/3Zw7Yi2zzsEw8r9lZMo8Qd' +
       'jPMpo/+B7GJ0t4c14B6OMVqK7GF0L1LOaILRik1pdwcpAQ5RkkSbC' +
       'wlawxIL6O4oBX3cI7j7mhLgBE084e7oKZp4yt3Rs4ScS/AdTm0ULh' +
       'DhIhHqiFBPhEuCcFkQGix3CaGJCC1EaCXCFSJcJcI1Irzv9Tgoakd' +
       '3mRoMn+/5W61+r9f7vrcCwh9sOlrNiQqvdZOp93r2Qmg4hvA+WQtZ' +
       '/J2mtDucIbuJPwyp0yv1vPjG+TMBvgX1AR9b+rwVU+huO+P8xda3E' +
       '/TZ7r5k9AukzNa3L61vY2rR/LFu4wF0Vwn6UMHIRlqN7kDiEQr60u' +
       '6+QnfH0d2TBD2J7kDiGULOYgw+TwjniUOfYOkrX7TdNWfr2+TxZPA' +
       'WtaE7Z+XJlBW99Xu83nQH5z0ezqai+u+wU1uRl4+yz9OaYQ9PcXZT' +
       'ekIs2mebtQfnutZCq5pwrfQonAGu7+qL7HUzC2WKjO3FPXRsYpsZ+' +
       '4ixczxFLXZtYh8z7m4qQYspLaF0O6U7KORP+ikFg+wyV1EPsfMZpZ' +
       '9T+gWlpen8SfdSuo/SBJfFQ28/IQdoYp5n8USSkCRNPLQCkNJM/iT' +
       'kGAF9aXffoLuf6zaeJuQMJMM6vsOpd4XzAucW7nDmXdDH3S2WQwAK' +
       'TYLQLGSS5xvdpc9n5Rjt40I79uFb51lvGTTNNUb21DteQmbqpGOqv' +
       '+duzWU5cszG1WQeBvuxcbbySsbeZ2xf1h6Gahnbyv7f7mx91gUxCO' +
       '++3+qOkF5r6GIduDib1pfZ4ZBghd5r3W30eN5+GAN9RcgHjH3I0tG' +
       '3hbE/WwYp3UbpJzTbIGOfMgYGd1K6i9LdqM8yWGYbBH3lACEJQnjo' +
       'IfzThdIkpVWUVlOur4aQI4QcJcTS9xUYJAQ/XQgYPAUIwmlBOIMGz' +
       'wlCrSBcQC5a+gix3n2NqK/J1veux/P2w9h7qM8KwHX0UbpKH7jbwV' +
       'haH6WWvs/sACy19VnRB+6AClvfQdBHaZY+Qg6v0Xfc1ncS3Vn6LHf' +
       'nMG1a7upAH7q7xL9b0vqs6Pt3j+fth7GNqO89DL119FG6Sh+E3nbG' +
       'LH3gztK329a3Onmiu4RTH6WV6C6tD91Z+ix3x+zQO46hdxLdncoOv' +
       'Yw+QuzvlrS+ZuRPXu/bD0YfJM/38E1a5PG87/F84PF86PFs9nicyX' +
       'Mb8gljJYxt93iAHXbmBHYxtpuxzxj7nLEvGCtlzPnuK8fXXwWlBwD' +
       'GDjJ2yKEPX3wc/K+BHqPw2UmdmfMkJk/+3QKfnYTUAqjPcsf1EXKZ' +
       'kAakiZBmQv7N6337weh7rT5H8vwYAX3FoM/jAbbbmRPYuVafI/rKb' +
       'X370R2wkjmT9osP3B1x6sPoO+HQd9rWdw7dWS++i7a7S7a+RtD3f4' +
       '9JWMY=');

  Attack5 := BitmapFromString(147, 21, 'beNrtl2lTG9eagAX6MFNT' +
       '5T6n1WjtbrW61RJkaoqamnvDQOyES2yMk4l9E4iDFAdjwHhJ4jg2S' +
       'YTDIryyeQGDQIAxGLN5ixHkEvvmZmLPzM2n/lHznrfVUrOlyh/HNV' +
       '1Pqc5+js6j95wWIUekwGuO6P9M9DeI/qOiv1H0H0OaAz6gJeA7HvC' +
       '1IicCvpN+7ym/97Tf+7nf+0XAB3wZ8J3x+77ye4GvkXN+73mft83n' +
       '/cbn/dbn+Q5J+DztXs8FpMPr7vB5On2eLp+n2+tJIhcZ7kte92Wv+' +
       'wrgcV9Dej1FfZ6ifk/RAOAuGnQXXXcX3XAX3XQLt5DhImHYXXTbXT' +
       'TiLhp1CylkrEgYLxL+X9z/UXGtivyaE5ROICeD0qmgdBr5QhaBL2X' +
       'xjCx+JYtnkXNSADgvBdoAWfwG+VYSv5MCCSnQLgUuIB0io1MMdIn+' +
       'biQp+nsCjIsB/6WA77LoB64GGNcC/t6Ary/g6/czBv1e4Lrfe8PHu' +
       'Onz3EKGfJ5hr+e21zOCpLxuYMzrHve4014PMOH1THrdwJTXfcfjng' +
       'bp/1zymvNGcR/S/0bxQEkUGCyJXkduFEeAm8WRW8hQVAeGo/ptRmQ' +
       'kqgOjUT0FRPSxSHgcSeuMCV2bRKbCjDthdRq5q6kzYW0mrM4CmnoP' +
       'mdNC9wE1NK+GFhjKoqoshRjLoeADEyX4UAk+UmTgcVB+gvwQlJ4q8' +
       'tOgvBKUMwxpFZClNVm6+kZxlpKaB2uGYUxOlxTnC98onp40jLWe4Y' +
       '2FGzjQ89Iw/tK6c4NXh0263cNmKTn+l1eariR6DektifYVR4D+4sg' +
       'AMhgF9OtR/QZyMxK+hQxFwsMRfbhl4nmLfjsSHok0PzeM581aSmeM' +
       '6dp4mJEOqxPIpKZOaSHgjhaaVkPTmgrc1UIzyKwausdQ5lTlfogxH' +
       '1IWQkFgUQkuIcuKDDwIMh4G5UdBCXgsS08A1McMytIKkpHFVUm8XB' +
       'K12L+8hrsz2WIrjJrihmwlm0FxP7bu3ODV+d1JW358pemKI1eQq8W' +
       'Ra1Ed6I3qfUh/BAgPRMKDyHU9fEPXgJu6divS/AxlDetAkyluJKyO' +
       'htUUMqap41rIJK2FJlTGpKpMAWAQ9KkKcBeZCSmzjOC9UHAOUIL3l' +
       'eC8IgMLQXkRWQrKy0FpWZYeyNJDhvhIFh9LIugzDf4giz9I4lNJXE' +
       'GSJVGL/Usgbm3thbG2dCBXGJ3APbyeb7aFAz0voEnrzg1end+dtGX' +
       'tlaYrjvQURy4il6L6ZeRKVL8KRPRrkXAv0hcJ9+uANqBrg0Ck+SfD' +
       '+KnZ9NgEEp81a0NhFRgOq7cBTR3RQqNISguNqYxxVUkDWlZi1qOq3' +
       'Akp04zg3VBwBlCCs0rwniIDc0H5PjIfBInSgiwtytISQ1yWxQeSaH' +
       'mUsh4l8YnEDHaVRC32L66xcBvsWYPPXHka93CQpVtWDWO1Ndfeyh7' +
       'o+RUSPezTfH7t2W8bNsoG3KYKuq8t9phn4mTa1n7jpFvZsIy07VDN' +
       'r81cUitraT4veqqTNckXVvbHFjQY0a/AqZjMtTJeJvf16Vp/dffL/' +
       'KDd43oTSHyWzBc+b1aHNHVYO/bcWM10p7EsvayGUqoy1pTOdf3v7q' +
       'oJpq/qR5gh3XgnFAR308dYg18alRlFnlXkFcitdj5Agw+7Mrm+v3W' +
       '+syiLSxLoO/rSyPzcOY7F4+uWu47iiEX1AorrKG6B/pnj2fJxtofJ' +
       'fpbeUJ7P1iRR2dpCDZZj9teearNZP7O2bRXrbo28GdukW8kvgzVjC' +
       '95+omw2qg/0mGomJiJ6Eo5EZmpiKqJfhOuMpVeXq7UrunYVfb1M7u' +
       '0Nq71607phrDdrA2F1AMVBsyf71BsQTd2syw/7QkMqiINk1x1VuR1' +
       'SRgCU8tcmZUxVxkONf2U+G9NwNnatQrM5RZmC47ELF5NuvBuU7yqV' +
       '66vG37sqZ2VpuZN9rWeV4n1ZnK/s+M10JwWW5Ab2e8t0wPH4QAo8l' +
       'AKPRMaFqG5RPc/ENUO6F77pWrIXy1O4h5huZkO35Npb2f1ZHbmhWH' +
       'djImW1sVddaJnYscqGbdKt5JYBidX5/VY5LiO7PPuSIuHvqzGbrO7' +
       'Uw1261lXdzc72Zi2pN8E3fpHcezGsXgqrl8PqFRYv6WktdE1vgleg' +
       '9Sa1Twv1acdA4svudwfU0KAaur63C/w+a1JuhhrhCP2vrqqhUHCYU' +
       'bWyCtnKkVBwNBRMKcGxRhZOq1VyuhHiZXWtSp6EF4+08bf0OETZvC' +
       'xNV3b+j5FZrxRn5Ib/NIy/d75zTxLnJPG+FLjfMGYYY6uif0Fi4n7' +
       'rfHtJDCwjD0U/4Mg/pW1PDWO4Npd+2lYKqdphI5vCZLbenrX3y9dg' +
       'H1vnLZNsGm3Dw+q2PFbj7TpaHWzLz6YLHA5naduKYdyudfyDw/GPD' +
       'sc/YXak1rELl5codfAOh8vhKHI43KVt8KsYq3X4HbWwceO1DrmgQH' +
       'HUMp21Dq2gIFxQEHHUskCvdZQ4aqcMY6rW8S8FBaUFBf9a2gZvTdO' +
       '1jj8UFv6xsLAMKG0D+3frnLuddTOGMVPnrHTWzRorA3VtPxnD3zqd' +
       '1XXsqySczvdYYmWo1HmwsPBQYeGHhYUflbZBOC/WOQ8765YMY6nOG' +
       'Xc6P3U6jzidDU7nUafzHRefRSjvh0Wn4tlsfNQwRs8J/LkU/I7b4w' +
       'I0iM8axmw8197KVrSvG5n+Cj4/VK6EDbLNw3ptGm0j+Um31to6xtt' +
       'zl8LoOTapNaA9zdOq8sRPLEv38nQfgNm5OK3ZYXkLMfohH1uAfYvT' +
       'Oko/pjG2dTFaT0mMkk9pbNkwlmO0ARMPYrSRkGOEaypL/GwYD2Pcc' +
       'UpaKTlByUkae2wYj2P0c0JujBq/JN48U5b4JZPoofVPjcxsGTfM9r' +
       'j+G477tn77lazW7+qm9ewOqOcuctwlxq4r3K6r3K49gsuiog/F5Uq' +
       '+Thnr7RVf4x7WC8IeIc5+NnHBamBlcZds5a49cdanr0LIJ/KzuDZ3' +
       '36bKZZt0546b5rVn7WmbxyoX/y5Q0Y7i+GomLnOznL7HM/6Dpx8gh' +
       'wAhDuIW4nwtT2v52CKIi9NPeEaMR3FxeiRvkDQCWXG0hWe0UnqiLP' +
       'E3FHeako5ExsgkbsLnaOwMJUPMY2wmYzyN0TbCtcXYSubKuO8IlyD' +
       'cBcJ9zzE6Oa6LxtidGuN6COMi4S4juwWXRVZcvgQDZ53dKO2fCMJu' +
       '3DFQaatlm2Mm8uWC6xMIBFsX1iY/S47fqXKdTeUm3bkj+1Wkzubas' +
       'Kw1YG5tkHbxb1vi/uRi7qpQ3D0QJ8TnMPQO8Iz30R1w0CbuI0scRN' +
       '9hnlFvicuF3meUHGXuytIZ4+dEWTOKO05pK+qYKqOnKDnNJI4+Yb7' +
       'KQFySecz8wuKOngdxtB5O75VYVlw7uENxHeDOEpe0xF1CcW+5XFmE' +
       'il4Uly9x4QayV5r2w4KQbWBPwwEeF97CbYGK3gqB9cINZOU4wmF2m' +
       'llV2QExK8Tv2pptwhTHJtpam+uI82ZHwEIDfz8sa6/i+T3lpke+ku' +
       'f/xPNV5Vlx+3i+AZd3o4zWUPoepRfYiZUZKgN3TNzz9vIPKf2I4rE' +
       'ZgzOTHqb0Ezw5wVc8J46QBkKOEtLITLGga6a0hcYesSM8doKQk4Sc' +
       'wmMTBp8uo18ScgZbGuzYpOc47jycgQm2krk3ue84LsFxKVzJ/Jtch' +
       'ymunuvmuCTH9XDZM7Pc5coiVFxDcfkSVogbkmn/WBDyWcNUlt3A8o' +
       'p2dgW3s0+rSrAP8nH+JoIndcY21KaWOc6kbJNuwtbRNnLmWoVwJpV' +
       'NZJdkDs7zb1ni3ubhyuMrURwE4Ls8oyFhX95oO6XvU4g7/nvz2skk' +
       'WlEcXHy1dMOVF7PEfUrIEUJMfaY784Hoa6H0OCEnkAFWM3qdsivvS' +
       '7jsDBZ9Zwn5muPOIZc2riTFYdzRGDNaz3VxG9z9u8v1msPzFeAO2c' +
       'Nb7szQQ/ZSuo/Sakr3UxZ3BzD03ud5cPcBzx+k9BClf6YUQ4+5+5h' +
       'mQ68eiRESR3GmOxZ3lAJNlMUdCz1CWi13pwg5TQiI+wLcQdwR8hUh' +
       'ZznOdAdx18Zx7F2Fy8ZdO7gjJHtmcll3PcibLtdrDs+Du3IE3O3eq' +
       'o/Sdym16wN3B3j+PZ5n+ij9gNKD6M7UZ8ZdXfbYpPWE1KO7fNxReh' +
       'TdHTP1EQLujlv6TqK+zy19zB3HAWctd+c3uSPkAoae3R3E3R9drtc' +
       'cni9Dd7nQ2+yO0k3uIO5qeN50B+JMd4csdx/R3JmJ7lBczO6Ownsm' +
       'bcy5Q3GmO1PcSSvuPjfjDsV9tVPcEdLO2d5VUBzwB0F4zcG4K8NjE' +
       '668CnzD2e2Cvwmut10u+7G5F4E3lv08X+NyAQfMoEMO8vwhnv8zz3' +
       '/Iw6sm/E3g8+7MM5PC6wr8R6BHeP4znj9qc4fvKgz2H4HSkxTeM+k' +
       '2Zybcd4ScI6QNQHemOOYODkxCOpAuQroJ+TdBeM3BuNvRne3MNN9V' +
       'wF01uHO5gBrrwHzfvO82ubPFXb3l7lMUB+QOzNx9x15U7O4w7r6wu' +
       'TtruTuP4trMoLPEXbDcdYK7/wXn7JM4');
end;

procedure Battle;
begin
  if(FindBitmap(Battle1, x, y))then
  begin
    Wait(100);
    Mousebox(41, 539, 98, 553, 1);
    Wait(5000 + Random(2000));
    repeat
      Wait(1000);
    until(FindBitmap(Attack1, x, y));
  end;
end;

procedure AB;
begin
  i := 0;
  MoveMouseSmooth(1, 1);
  Wait(100);
  if(FindBitmap(ABok, x, y))then
  begin
    Wait(100);
    Mousebox(458, 427, 509, 446, 1);
    Wait(3000 + Random(1100));
  end;
  MoveMouseSmooth(1, 1);
  Wait(100);
  repeat
    if(FindBitmap(Level, x, y))then
    begin
      Wait(100);
      Mousebox(420, 527, 517, 541, 1);
    end else
      Wait(1000 + Random(5000));
      Inc(i);
  until(i = 5);
end;

procedure Att1;
begin
  if (FindBitmap(ABok, x, y)) then
    AB;
  i := 0;
  repeat
    MoveMouseSmooth(1, 1);
    Wait(100);
    if(FindBitmap(Attack1, x, y))then
    begin
      Wait(100);
      Mousebox(416, 495, 529, 503, 1);
      Wait(1000 + Random(500));
    end else
      Wait(3000);
  Inc(i);
  until(i = 5);
end;

procedure Att2;
begin
  if(FindBitmap(ABok, x, y))then
    AB;
  i := 0;
  repeat
    MoveMouseSmooth(1, 1);
    Wait(100);
    if(FindBitmap(Attack2, x, y))then
    begin
      Wait(100);
      Mousebox(417, 319, 525, 329, 1);
      Wait(1000 + Random(500));
    end else
      Wait(3000);
  Inc(i);
  until(i = 5);
end;

procedure Att3;
begin
  if(FindBitmap(ABok, x, y))then
    AB;
  i := 0;
  repeat
    MoveMouseSmooth(1, 1);
    Wait(100);
    if(FindBitmap(Attack3, x, y))then
    begin
      Wait(100);
      Mousebox(404, 422, 531, 432, 1);
      Wait(1000 + Random(500));
    end else
      Wait(3000);
  Inc(i);
  until(i = 5);
end;

procedure Att4;
begin
  if(FindBitmap(ABok, x, y))then
    AB;
  i := 0;
  repeat
    MoveMouseSmooth(1, 1);
    Wait(100);
    if(FindBitmap(Attack4, x, y))then
    begin
      Wait(100);
      Mousebox(404, 390, 537, 398, 1);
      Wait(1000 + Random(500));
    end else
      Wait(3000);
  Inc(i);
  until(i = 5);
end;

procedure Att5;
begin
  if(FindBitmap(ABok, x, y))then
    AB;
  i := 0;
  repeat
    MoveMouseSmooth(1, 1);
    Wait(100);
    if(FindBitmap(Attack5, x, y))then
    begin
      Wait(100);
      Mousebox(402, 353, 537, 365, 1);
      Wait(1000 + Random(500));
    end else
      Wait(3000);
  end;
  Inc(i);
  until(i = 5);
end;

begin
  SetupSRL;
  LoadBMPS;
  ActivateClient;
  repeat
    Battle;
    Att1;
    Att2;
    Att3;
    Att4;
    Att5;
  until(False);
end.

Didn't change any functionality. Just standards.

edited to my post.

Ty for that :D
but those are just for user friendly things, right?

I think you may want to use a function instead of a procedure for AB? See here for the difference. If you make AB a function that returns a boolean, you can have it be true when it is successful, and false otherwise. Then in your Att function do

if (AB) then //same as if (AB = True) then
  Exit;

procedure Att1;
begin
if (findbitmap(ABok,x,y)) then
 begin
  AB;
  Exit;
 end;
 i:=0;
 repeat
  begin
  MoveMouseSmooth(1,1);
  Wait(100);
 if (findbitmap(attack1,x,y)) then
  begin
   Wait(100);
   Mousebox(416,495,529,503,1);
   Wait(1000+random(500));
   end else
   Wait(3000);
  end;
  i:=i+1;
  until(i=5)
 end;

 
procedure Att2;
begin
if (findbitmap(ABok,x,y)) then
 begin
  AB;
  Exit;
 end;
i:=0;
 repeat
  begin
  MoveMouseSmooth(1,1);
  Wait(100);
 if (findbitmap(attack2,x,y)) then
  begin
   Wait(100);
   Mousebox(417,319,525,329,1);
   Wait(1000+random(500));
   end else
   Wait(3000);
  end;
  i:=i+1;
  until(i=5)
 end;

  
procedure Att3;
begin
if (findbitmap(ABok,x,y)) then
 begin
  AB;
  Exit;
 end;
i:=0;
 repeat
  begin
  MoveMouseSmooth(1,1);
  Wait(100);
 if (findbitmap(attack3,x,y)) then
  begin
   Wait(100);
   Mousebox(404,422,531,432,1);
   Wait(1000+random(500));
   end else
   Wait(3000);
  end;
  i:=i+1;
  until(i=5)
 end;

  
procedure Att4;
begin
if (findbitmap(ABok,x,y)) then
 begin
  AB;
  Exit;
 end;
i:=0;
 repeat
  begin
  MoveMouseSmooth(1,1);
  Wait(100);
 if (findbitmap(attack4,x,y)) then
  begin
   Wait(100);
   Mousebox(404,390,537,398,1);
   Wait(1000+random(500));
   end else
   Wait(3000);
  end;
  i:=i+1;
  until(i=5)
 end;

  
procedure Att5;
begin
if (findbitmap(ABok,x,y)) then
 begin
  AB;
  Exit;
 end;
i:=0;
 repeat
  begin
  MoveMouseSmooth(1,1);
  Wait(100);
 if (findbitmap(attack5,x,y)) then
  begin
   Wait(100);
   Mousebox(402,353,537,365,1);
   Wait(1000+random(500));
   end else
   Wait(3000);
  end;
  i:=i+1;
  until(i=5)
 end;

You can like Ogre said make AB a function and if it returns true then exit or just add exits to your ATT procedures like in the code above.

Here's an example of making AB a function:

Function AB: Boolean;

begin
  Result := False;
  if (FindBitmap(ABok, x, y)) then 
  begin
    Result := True;
    i := 0;
    MoveMouseSmooth(1, 1);
    Wait(100);
    if(FindBitmap(ABok, x, y))then
    begin
      Wait(100);
      Mousebox(458, 427, 509, 446, 1);
      Wait(3000 + Random(1100));
    end;
    MoveMouseSmooth(1, 1);
    Wait(100);
    repeat
      if(FindBitmap(Level, x, y))then
      begin
        Wait(100);
        Mousebox(420, 527, 517, 541, 1);
      end else
        Wait(1000 + Random(5000));
        Inc(i);
    until(i = 5);
  end;
end;

then change this line:

if (FindBitmap(ABok, x, y)) then 
  AB;

with this line

 if AB then
    Exit

^I understood that he only wanted to exit after AB if it did what it is supposed to, not every time, as that code does.

I have all those Att procs… all of them have the AB proc… if AB proc happens in any of those Att procs, I want it to stop doing those Att procs until it has done the Battle proc :D

example:
1 i enter the battle with Battle proc
2 i attack as long as enemy is alive :)
3 after the enemy is beated ok button pops up and AB proc does its magic (here it just starts looking for the attack buttons again….and after all attack buttons been gone though its rdy to go to the beginning)

if that clears anything.


I tried it like Yago posted and it just exits the Att proc it finds the button… if you understand what i mean…

Ty for your help :)

Wait Do you want it to exit once it find the AB? Or once it does the att?

From: Yago
Wait Do you want it to exit once it find the AB? Or once it does the att?

after it does the AB i want i to exit and do Battle :)

In the procedure AB, after it finds the bitmap Level and clicks it with mouse box, shouldn't it exit (after Mousebox(420, 527, 517, 541, 1))? Right now it will look for it again.

Same thing for Att1-5. Also, it doesn't seem necessary to have all separate procedures, but I'm not going to mess with it.

procedure Battle;
begin
  if(FindBitmap(Battle1, x, y))then
  begin
    Wait(100);
    Mousebox(41, 539, 98, 553, 1);
    Wait(5000 + Random(2000));
    repeat
      Wait(1000);
    until(FindBitmap(Attack1, x, y));
  end;
end;

function AB: Boolean;
begin
  i := 0;
  MoveMouseSmooth(1, 1);
  Wait(100);
  if(FindBitmap(ABok, x, y))then
  begin
    Wait(100);
    Mousebox(458, 427, 509, 446, 1);
    Wait(3000 + Random(1100));
  end;
  MoveMouseSmooth(1, 1);
  Wait(100);
  repeat
    if(FindBitmap(Level, x, y))then
    begin
      Wait(100);
      Mousebox(420, 527, 517, 541, 1);
      Result := True;
    end else
      Wait(1000 + Random(5000));
      Inc(i);
  until(i = 5);
end;

function Att1: Boolean;
begin
  if (FindBitmap(ABok, x, y)) then
  begin
    if (AB) then
    begin
      Result := True;
      Exit;
    end;
  end;
  i := 0;
  repeat
    MoveMouseSmooth(1, 1);
    Wait(100);
    if(FindBitmap(Attack1, x, y))then
    begin
      Wait(100);
      Mousebox(416, 495, 529, 503, 1);
      Wait(1000 + Random(500));
    end else
      Wait(3000);
  Inc(i);
  until(i = 5);
end;

function Att2: Boolean;
begin
  if(FindBitmap(ABok, x, y))then
  begin
    if (AB) then
    begin
      Result := True;
      Exit;
    end;
  end;
  i := 0;
  repeat
    MoveMouseSmooth(1, 1);
    Wait(100);
    if(FindBitmap(Attack2, x, y))then
    begin
      Wait(100);
      Mousebox(417, 319, 525, 329, 1);
      Wait(1000 + Random(500));
    end else
      Wait(3000);
  Inc(i);
  until(i = 5);
end;

function Att3: Boolean;
begin
  if(FindBitmap(ABok, x, y))then
  begin
    if (AB) then
    begin
      Result := True;
      Exit;
    end;
  end;
  i := 0;
  repeat
    MoveMouseSmooth(1, 1);
    Wait(100);
    if(FindBitmap(Attack3, x, y))then
    begin
      Wait(100);
      Mousebox(404, 422, 531, 432, 1);
      Wait(1000 + Random(500));
    end else
      Wait(3000);
  Inc(i);
  until(i = 5);
end;

function Att4: Boolean;
begin
  if(FindBitmap(ABok, x, y))then
  begin
    if (AB) then
    begin
      Result := True;
      Exit;
    end;
  end;
  i := 0;
  repeat
    MoveMouseSmooth(1, 1);
    Wait(100);
    if(FindBitmap(Attack4, x, y))then
    begin
      Wait(100);
      Mousebox(404, 390, 537, 398, 1);
      Wait(1000 + Random(500));
    end else
      Wait(3000);
  Inc(i);
  until(i = 5);
end;

function Att5: Boolean;
begin
  if(FindBitmap(ABok, x, y))then
  begin
    if (AB) then
    begin
      Result := True;
      Exit;
    end;
  end;
  i := 0;
  repeat
    MoveMouseSmooth(1, 1);
    Wait(100);
    if(FindBitmap(Attack5, x, y))then
    begin
      Wait(100);
      Mousebox(402, 353, 537, 365, 1);
      Wait(1000 + Random(500));
    end else
      Wait(3000);
  end;
  Inc(i);
  until(i = 5);
end;

begin
  SetupSRL;
  LoadBMPS;
  ActivateClient;
  repeat
    Battle;
    if (Att1) or (Att2) or (Att3) or (Att4) or (Att5) then //short-circuit evaluation means it should stop once one is true.
      Continue;
  until(False);
end.

Try using that and see if it works.

From His description it could also be this:

begin
  SetupSRL;
  LoadBMPS;
  ActivateClient;
  repeat
    Battle;
    Att1
    if AB then
      Continue;
    Att2;
    if AB then
      Continue;
    Att3;
    if AB then
      Continue;
    Att4;
    if AB then
      Continue;
    Att5;
    if AB then
      Continue;
  until(False);
end. 

I cant really tell whats going on…

Of coarse this could be shortened.

You forgot that AB is only called after

 if (FindBitmap(ABok, x, y)) then

and what I did is pretty short..

If you were reffering to me then I added that line to AB :)

Seems to be working! Need to study :P

Tyvm

Nope… not working the way i want… it was just luck…

After it does the AB i want it to start looking for the battle bmp, and in other words, i want it to start doing the Battle procedure and skip all the Att procedures(functions now)

but i will check this thread again in 4-5h

Ok. wait Please let us know what you want to do first. the second then third and detailedly cause it confusing. Also, what game is it?

ok so…

game is Mech Quest

First: I want it to do Battle ("Main screen" and it clicks the Battle button to engage in battle…)
Second: I want it to do Att1…Att5 (Attacks the monster or what ever)
Third: I want it to do AB after it finds the ok button (…)
Fourth: I want to do Battle again!


Now the problem is between stages 3 & 4. After it clicks the ok button (AB function or procedure), it doesn't start looking for battle button. It starts to look for attack buttons…

I have AB inside every ATT because i dont want it to attack if it finds the OK button, but rather press the Battle button again.


This is what happens atm:

Battle
Att1
Att2
Att3
AB
Att5
Battle
Att1
Att2
AB
Att4
Att5
Battle
Att1
AB
Att3
Att4
Att5
…

Hope you get it now :D
I have trouble explaining this with my english skills xD

Ok I get it:

Try this:

program New;
{.include SRL/SRL.scar}

procedure Battle;
begin
  if(FindBitmap(Battle1, x, y))then
  begin
    Wait(100);
    Mousebox(41, 539, 98, 553, 1);
    Wait(5000 + Random(2000));
    repeat
      Wait(1000);
    until(FindBitmap(Attack1, x, y));
  end;
end;

Function AB: Boolean;

begin
  Result := False;
  if (FindBitmap(ABok, x, y)) then 
  begin
    Result := True;
    i := 0;
    MoveMouseSmooth(1, 1);
    Wait(100);
    if(FindBitmap(ABok, x, y))then
    begin
      Wait(100);
      Mousebox(458, 427, 509, 446, 1);
      Wait(3000 + Random(1100));
    end;
    MoveMouseSmooth(1, 1);
    Wait(100);
    repeat
      if(FindBitmap(Level, x, y))then
      begin
        Wait(100);
        Mousebox(420, 527, 517, 541, 1);
      end else
        Wait(1000 + Random(5000));
        Inc(i);
    until(i = 5);
  end;
end;

procedure Att1;
begin
  i := 0;
  repeat
    MoveMouseSmooth(1, 1);
    Wait(100);
    if(FindBitmap(Attack1, x, y))then
    begin
      Wait(100);
      Mousebox(416, 495, 529, 503, 1);
      Wait(1000 + Random(500));
    end else
      Wait(3000);
  Inc(i);
  until(i = 5);
end;

procedure Att2;
begin
  i := 0;
  repeat
    MoveMouseSmooth(1, 1);
    Wait(100);
    if(FindBitmap(Attack2, x, y))then
    begin
      Wait(100);
      Mousebox(417, 319, 525, 329, 1);
      Wait(1000 + Random(500));
    end else
      Wait(3000);
  Inc(i);
  until(i = 5);
end;

procedure Att3;
begin
  i := 0;
  repeat
    MoveMouseSmooth(1, 1);
    Wait(100);
    if(FindBitmap(Attack3, x, y))then
    begin
      Wait(100);
      Mousebox(404, 422, 531, 432, 1);
      Wait(1000 + Random(500));
    end else
      Wait(3000);
  Inc(i);
  until(i = 5);
end;

procedure Att4;
begin
  i := 0;
  repeat
    MoveMouseSmooth(1, 1);
    Wait(100);
    if(FindBitmap(Attack4, x, y))then
    begin
      Wait(100);
      Mousebox(404, 390, 537, 398, 1);
      Wait(1000 + Random(500));
    end else
      Wait(3000);
  Inc(i);
  until(i = 5);
end;

procedure Att5;
begin
  i := 0;
  repeat
    MoveMouseSmooth(1, 1);
    Wait(100);
    if(FindBitmap(Attack5, x, y))then
    begin
      Wait(100);
      Mousebox(402, 353, 537, 365, 1);
      Wait(1000 + Random(500));
    end else
      Wait(3000);
  end;
  Inc(i);
  until(i = 5);
end;

begin
  SetupSRL;
  LoadBMPS;
  ActivateClient;
  repeat
    Battle;
    Att1;
    if AB then
      Continue;
    Att2;
    if AB then
      Continue;
    Att3;
    if AB then
      Continue;
    Att4;
    if AB then
      Continue;
    Att5;
  until(False);
end.

This is what I got from your description.

Heres what the above does.

1. It Runs Procedure Battle
2. Runs Procedure Att1
3. checks from Ok Button (Runs procedure AB). If found then it goes back to battle procedure and starts all over.
4. Runs Procedure Att2
5. checks from Ok Button (Runs procedure AB). If found then it goes back to battle procedure and starts all over.
6. Runs Procedure Att3
7. checks from Ok Button (Runs procedure AB). If found then it goes back to battle procedure and starts all over.
8. Runs Procedure Att4
9. checks from Ok Button (Runs procedure AB). If found then it goes back to battle procedure and starts all over.
10. Runs Procedure Att5. Then goes back to battle procedure and repeats the whole cycle.

Edit: Never played mechquest but Ive player games like it. I dont think this is the greatest script for mechquest ( you certainly can improve the script and make the script smarter)

Now its working like i wanted :D
Tyvm Yago


Cant make it smarter before i get smarter :)

any suggestions how to make it smarter? :P

Does it necessarily have to attack the thing 5 times? If no then make a repeat until loop until it finds an OK button.

As you begin reading, you will learn many cool different tactics and better ways of doing things. ( Trust me I still havent gone through the who advanced section). Yeah reading and asking is the way to go.

well, if it takes 5-10 hits to defeat the opponent? still no need to use all attacks… but the change is good? :)

i have to think now… what to do with the script… :S

If I played the game we could definately work together, but the closest thing ive ever played to this was adventure quest.

Also, you can hack mechquest using cheatengine to get alot of xp or coins or health and stuff. I personally have experimented with this before and it actually works with some flash games. Of corse its more detectable (if you get one the highscores after a short while of playing) and I believe a scar/simba script may work more humanlike and better.

Adventure quest, dragon fable and mechquest are all the same… different story only :D
they are good to learn the very basics of scripting :D

I personally like TSearch more than cheatengine :)
and they work in most of the flash games.

i have lots things i need to learn before i can start scripting for rs
im going to start studiying more about scripting on next week, i have exams this week :S

Sure as long as you start :) and of coarse if anything just ask this great community!

From: Yago
Sure as long as you start

Oh, I will start :P