SRL Archive - Other

Paint for Planker


asap1

2012-02-27 13:41:15

Hello it would be nice if someone could make me a paint for a script i have.

I would like for it to say Planker or Fast planker or something else if you think of something good :).


I would like for it to have

  • Total Time
  • Logs Planked total and a hour
  • Profit total and a hour
  • Trips made
And i would like for it to fit the main chat box which is 510x133 I think.

If you need more details pm me and i will be willing to pay rsgp if i have to

asap1

2012-02-27 16:09:17

no offers yet?

masterBB

2012-02-27 16:40:29

I will do it. How do you want it to look? With an image or just text? If images, what images?

asap1

2012-02-27 17:03:28

From: masterBB
I will do it. How do you want it to look? With an image or just text? If images, what images?


ummmm tbh i dont really know so you can just make it how you think will look nice as long as the things i asked for are in there and yes i would like it to have a image of a plank and a stack of cash

masterBB

2012-02-27 18:07:54

Sorry, I didn't had the time I though I had. Here's a starting point:

program new;
{$I srl/srl/misc/smart.simba}
{$I srl/srl.simba}

var
SMART_Canvas:TBitmap;

function LoadGirlBitmap:Integer;
begin
Result := BitmapFromString(90, 128, 'meJzdfQVUm2u2duoutBR3dwnu7' +
'l5ciru7u7sFQkJCEgIEDxIcEqS0FKfUvaWlFCvaAm0pfzqdO3f+mX' +
't6zj1SuJP1rKwQvvV9ez/sd7/Pfo2CzpGC/QC0ZwyOHyO+w/BjkO7' +
'RfbHhIKCwazSnvNMpJFvbysfIKcTMPcTKJzK/thPVPwUjTOy7eT8T' +
'iN6pOFCLtnMhr2aYkG6wlEmYtmvyVd9Mo8Acn9waSPs4om9q3438a' +
'UiGNimbRl0Lwyrag6Utkvm0/C7w6et4ZQcVtXvnNjjGI8G4YVTv5L' +
'7b+ROA7BpRM/ZVt0rU8yp1SGgXuhpDCrSQt41nkLMHGgUHFnbEIXu' +
'dYorzqrog3WP7bu1fS0XvhIaFz1kaaWnDaFVnuHEoVtMDRi3hQClu' +
'cy2qTNQimkc/KAzWG5jb5BlbhOr5D8+r4VlwSh6V07SKEldj7JN7j' +
'MKaHFM67OMaubUC5W3Tkqvu6PqXUEo7pVQMh+TU5mI6993gvw7EVM' +
'AtY0LCrkrGa6xgne2Y1u9XNFXQNg/veQftfKvrXeyS1tHyaM82qeF' +
'qIDwFfd01EoLs/Y9Np37RkPP08ifoVEj5LUyCK70LxmIxL0Ct87g7' +
'ez1P9mpGtx2T2xKrHkB7l3NwL9xS6jwTSmFtw/tu9l8BFGFKTMWFT' +
'sgScFle1irDI6s/BPEwuuJ5dtMbzI2P/S++tj/YLRv86JLe51s4nN' +
'82F1zUax+FSC3t/I+UH2nQtgsMmhfo9S7z2Lhl9PoXTcRgXmY1z6P' +
'6NxvHv7RN77bc3m2Y2AsEjyq7IYxCay0iK3U9cn0zqlD4/zQ2iMoz' +
'JrOJScgRcF5V26vCI+eWT9FEbOXz3NbF+om9/qd77bc/Y3pXkfi1s' +
'OJJNs1YIbMMTs0QXm1/80AQrO0mUbrvuwt/LlKhBI8InLYT2iXlRh' +
'jq8bVkgl5QrWNKd2btk9bJjb4Hew1DW9WDW5D2ZXl7KItaBL2iD4W' +
'EjaxlRDSoHNE7vu/2/4koJUxfc4N4RXdnls9aRRHyu7Y8wFMCpplK' +
'zkVO8Y2gukdNQ5uVvcvgppn8hreWkc3kEr5CxomUEnaMcraGbuGo3' +
'v+o2MhF46U0I8Q00ox9mq3j+hLq34EIG7D+DyjCKrz9LbzlVUnzc5' +
'/kFlHdGE0XuKor7IKAI79eFLWkwyUBA1kjl5K2gX134U9EUd2ogFw' +
'YUCPlDJeTZUJL0c1F5Ohqw9huy9hXWPMcpud9Eny0oPZJcE6vjEWq' +
'aUApl0oAt6qfuEHYMUpZYSWrXAR23134EwFrndawKbjqUcmnm2Kb1' +
'p7S/hA5vFQ98AHZvJBZ+qR9bCe/5kk5fqX6+hq8/U121V1GcQdyXh' +
'MLX+hlTj1yRkU/39T/pJolClIbWURIKr1vHNTgnDnoB7sbjroLxs6' +
'Wd6xkoB4gWuZTEdOozkU0fgnZ+c46FHPoguQlTgPb8FJl6/jj5OIa' +
'+t5I/H+IKIX1TgB1bUIK2uFdSzLXIBZReAjhYyD4XlDmIJGNkqZ3x' +
'Q1vs8oewXHvSnDvinFvuWS8AGclL/KZyZrH2oQjmCRtqPiuFrd861' +
'aIPfW+u/MHkYxsuMChqmKX7pLcfY7fU9QcDu3bgRG2PBO6cssfVeM' +
'3M5APHEMbw7OHstFPLLwx5xgMD11WBJBI8+sEGvpDtD0KAJTK10Lg' +
'Rf/HG0spfiqv4rqiQTQ5px2jeIi4cSGpaJC8C9oh51bp8HYK+l5Ox' +
'eOqnk2PmI5rvvXFdQupsEek7I7nWa0vcVkDSJX4tYO1PEBaPghapW' +
'BBwzhE3/199+h3A9U5wQu05hbw5BONPEflwiSWJKIH1fSsy2hb0gy' +
'vBPUtVA19TCm9F1887RDajGxaR9Svs4uGH71ifvKi1nl6EwCNPiXf' +
'NX8QXs4VqhPZwm6YYBKGgP/fLGlRPRM2djnsnE5S8um8wil0nDGMw' +
'snUIjEW0QTo9c9W2XglfwR2ervr0V7dyF7D4JqJY/Wh81YsAjFiyr' +
'mc4jHKJkUUAm7kQk7++X06wbVqYS0SrnD9EERUcWvx/6mypbRz0sk' +
'p18oqW0DQ29yqjJ7Ji5LZj1cm4xJ3gJZ7vWvWWGztu7T2FSE7CK9p' +
'hnfugFNCF6dCxjkK5ysMwSIyhax8idKqELfQfgmdTB7l8ILGGXVfD' +
'J9NsbJflbIHxDCgIApchyL8HxDqqO7JuAScAK+3s31FgE8HP2+4uF' +
'SanFKGhnExk3SErDXEt3DCPX/SB/IkHbftCnqkFlRLpRAmoJ+valf' +
'HIZFzhTL4zEW/0+e8pOWKg2Nv88sk6tqWxEGnHJIJfBaFVyR8+a7G' +
'yduleaSU59biDzIhpT1Trg5FbIweUmJJvJwh2qrQK+dduNjjDx+xD' +
'oq+q25RATimYp/Q7Z4/5JQz7Jp/51rK3UDUfETd24ia17EVC46xU1' +
'fY4w4fc+fmBgsLwJiZk3T0qi9TuepdK+WRCzfxr1HzKAPQGJJLuNP' +
'Kurum1FYNvi7unChuGy4lTBT9bU6q+G9FbmnPgRga0lCM4GDwEOVP' +
'JD3vJiyYIiKYrKlUysGcZmM9xMmVSckcJaENScHMRpY/8YbfdiqYc' +
'C645wh+YFs06QK7fzV60Cp8XNm4nYwujYYmi+xiPC1FgpZ6FT1zMA' +
'mV/dFLV4U04g28yvi04pkUgri1IoCGMYEFeNz05vUXmzeeLqH6biP' +
'+ixNEK2HfJ+xKem4rSUYoSWapSCMZKGPt7Vt1dIv8fIatTAcEuMsp' +
'yHKvUOcYOY3k139Nb1yLrH5um9/vV3HHGTFlj7hrBbrth5hzSXnOJ' +
'V16/Gwk5ZUMGeFaAXawpChMVQ3JLxJ3nsryBJkBu7SfuH4Ct1qEhh' +
'uCSsaPUSXIIBCVXjOBG1/ovbv0avVTwbcu7Caq8/q+BwayaVKQx89' +
'It1pMEHHkSAAfTyYtjT+QP8vX6wEHM1REuFlR9Tq/VHVWxeeSgb3S' +
'8d043JNI7P2olueuZbediu/mduw5Rt9lESpg5cxmYEiWEkMJ8IIpy' +
'WIuXvCXk0fKyBcycvnS8NgJqIZKGibr+6G1fZAqLgUaHiCLUFgstK' +
'N+8EnzjfvQmvZ0aCmCsP/yLA/Vq6qRkZg04+b6DCiAo7mUJ8QBV5L' +
'BqKtV8wuApeWwzFwIoGwlqn2vamwPOfqxYOBdPmExrXMuvPl+IPo+' +
'rOOTV/gYUDxfXrUQKJnIIRBDzRijpIy7TJLAylAsI1bFxRvPwOdMy' +
'mEpZhAja5NmFV3umYENK2hyjYFY+2eYeiWY+iZ4pcOKmvvh+P1PrU' +
'm5DfwiQXYOBCOTUXGRLnYauBQPkvJSEBdXooxssZAIjJo+k0sEBqn' +
'7Wn59t2J0C35jBXFjq7B/PabloR/ydnHbZwOrJmb2uKT0h+b21TIa' +
'IEbOJDZOqLxsJz9PFTNtrqBQFh2n22laIyWrbF1viEMiJh7ZXX39U' +
'WXXeGXnKKZjpLhxoAh3nZg9DsKAYXohjonVQV4ZrqTcLiSAYyTPtt' +
'ZvU5EFy8pkqWnAGJhixcRRQlIIMOYTqmen/MYH5OAasv8TqHs1qft' +
'FZN2zvLptbpH8I8edrWzbGNgDKRl8WPmyT52PUlXDa2v1srHlmJrj' +
'9ExKD180ZBDzUXfM88qoR+PvNQ8//WcbOsaeIA/GRDascZiO6Ro3b' +
'5KoaCU7SxndpWRlcSg/V5igYKilVTUVtT8LS4qUAgpatYPo2EQPbK' +
'Kuf4DjP2c0LQXU3o5tfhNWMMfMl0/HmCYoAiYh97lI5c8rWkzDVCA' +
'gXE1OlX76vB+/cDYzWwwtZzC3TJSpX2l0cRfq+t3vj0bhR1E9owdq' +
'ghLVfZuTx5GNLUJKolIEiGUkSxdgTZUST6OishcSiz173lFeEa2iX' +
'V1UuQVtWUX1b5be2IET9pKwSy7I0bjGRYvgSTZBpJxsi7RMDY9gET' +
'1bhp7ZDQn5Nl5gFSNbIY9QvpwimpEhmRuYQccXqOVQkF4+COnZ//z' +
'wS0Dgp+SVw1nZQ9VUsDoa16UEarkYcjTVyzi4I+SUQOcveV6mCJdV' +
'KwdhNnPq54vwK9CBj/ntn8Iq5l0Qd2KwG+r2t8jpi6nJioUE6rm4E' +
'Vr6/VZ2j3kEG3iBWAbWQj7RIi2dVmbGbBXNOjVjtKlXaV7tCIxwcB' +
'czwPGTYhIeNDTuDLSJYgI1sqJdjJQQA/1uFq4UfdNGGuZ4OvYMWZ2' +
'abMxmRuNCWutcBv59Im7dHvTQIOVmQMmKnPEtZtZ6bhZcZNAHa8vH' +
'ouI4PkGcmGSvs9tLeZVuR89bsfEvFOVb1bSbnAMHLPww8fBuVP/tf' +
'ff6BzA2TpSRSqEgC5EVr5cR6edixikp49V1OiITZ+XU6ylYMrSsun' +
'LqdtJwC5ENz6NaZ93RL+SCusyypn2L1mUMRrm5u2WAt2xMnspK9FJ' +
'QQlRVx21sFzy9lnR0R30CHxibdYqI1jByZPnETDiEN0ZD2lH9ByJh' +
'/hLi0xu0NfMVZGE2lmO25nP2Vst8go3cgigJpUpJtVpx1Tr7kOnC1' +
't2U5vnY1tchza/U4/sYTJAG8RMe2SuWngtGV2etDReBnG1SIh30dC' +
'UMDBhBwR4piRsMjAhZuUZegVJGtrzLdNH+Sbc9k3qc4tCovoPbUog' +
'AIfr09UDWljhH61Fv13V31y0Rcdxl6gQOYK6QDFxeB+scNgXv2isk' +
'fMjqex/c8ErYq4nZHOOHXrkW9UpC9bqjw4qX4wY3c4UosPbc+QSSS' +
'7kKCjflZK+TXMyRlqqTlq+5SB1Jw5MYVfgsOH8IqOcPabu17y7/AC' +
'UNo6LCQdLiOSx0KUK8dVLinTQM6efIvNgFY9h4Y+nYoq559JT1fMW' +
'M7hX2fwiqeMFnXSvi2B5SseKa9oqBt0xNfZiDAc1IlSUigiCliGZk' +
'LuDirqShhp0/m8zHA2Plzj5+xZNDNiO3bjml6tHVAHBoQfW+u/wDo' +
'NonGeiuCfLEsdEnKcs2SIqWMbFHXqaylVZJ4BYIYWT2tXdvxd342n' +
'Z3r6RvK7ZyXsi8Qd71enjlknvmfSquIm2dQVFBjLpKtYp66SVKX1r' +
'mZEXlNn3dIRYmiJw0RkoZwSiWCNTJz8YuRCDHY9E3/HOqiKXrvnv9' +
'i2x03+bidBYTSiQ56y0KhImLF4lIJvGJ+CprRZNTGV8kMbZ3wbZd/' +
'9o49BXSvp7VuC5u0iBniw9FLdjGTl+gS6BjyudkzyOn9OUSiOQRjW' +
'PijGNkTRcQQF4hTTAx6tQxrTnN5MaumghqXQpHjdsmVMXAO0v7pvf' +
'd6x9AXMJHTjGTmz9DWKpCVqVVXAJFTePJC3Rj4jRj5nE2d8KhcXto' +
'/NeCtuXM5jllO6ScZXlA7nOnsAdAySo5+UZZKdQ12wZhyXBx2TA9A' +
'6ipKVZbo5aJMV5BEWZh33SB0RFAejUaMhWDnFBzzTHwy04uaz+wa0' +
'qh3eNSsr60rO7swPQzFBk0bFVCgq2Xz4excXjSc1mcptCRVEMnFH5' +
'JLd8LL3kRChsR049jFgt2ixoztOs/dS6KmSFXgDebg9PvMqk2H9CZ' +
'jdWVlz1CXgKqr10nr1Acl/5A2RAMOK2u74KwDMVciypVso/ScA5Px' +
'+D23fFfgpdPOTmdIzNfEjlTETd/p4HmIzkhrLRQNi9v4NlLFhT0CV' +
'etJ0w9b2s6Nuu4oi8zOQFO6otp58voljBwpDAwpujqVl+6YsPG7aK' +
'imUJD7aEkXSrOX3bxbBQjXaab7wg1u+dlVgdBjVgNhxyzQJC4sbu0' +
'sb28oSUKfyCG/v4d2dBBRlZPI0ucR8CMmFS3CF+7CHs5L1MSN3vQ6' +
'XPGV6gDeMRBnDK5VIL+VzjtAYcUAADZoyTazMDwa469vPz5YmIgfu' +
'FoCjpbagYnJpYIJbkaVjoI2cVcQf4KEXkE4IoVv2oCvYir6rVEbcc' +
'Y7yRQRFaBZ3hkblnFvg/9/Y8AoYZPnzM0MMOmgzYl5WrYGYuF2GHk' +
'57y4mP0ZmZyZuLyp2J0vslgco9I4elnl6DHlCxctL1xSI6V14+TNI' +
'iEJOXLEkZE9mIHDGygdLyEPVlFtk5BsNrjaLSxZxSUBAmrmypjkAj' +
'VCeRUdxDSuGdg6ZxaBIaXFHYSW1NzMfff931HadZeGwYmZK9LEEs/' +
'KUsjHUq4q0kZ7Jk5FDK4ok0PH4HyezPDkFY3TZNrsvN5AnnQFiRI+' +
'4eTL5L4AgDPVFaKqj7lC7SunnZdXNpsGfo5pXmgmfK7t2LPw6mWVT' +
'uRVSRZUj5EyCKcX1NIwtg2Pj88pyOjoqo9PCKro6ivDHzgxBuuZdH' +
'St5BSIVFavYKBLlxCo1ZXrY78CMtdqF+KOP3tG+9QFOcAJIcBRSRn' +
'JJE0ZjCg7mJE6mIUu1sf5kY4Knp8XJqta4hrWje7crOnf6Zzaa7q1' +
'C23aMA+uPEl7lUnSX0QjVNUsLCSxKDIhNTc/swVXDoemKMjyJMb5F' +
'6NLoQesvRR1jTq5o1m4PDmEgmnZvSnpfbl5Uk4es5MQS6amM3HxTY' +
'dg6nMRFXlQnKZmnKxoGhNl4IUzxhSkjrZmgwrStYwsmXwS6dZBOFD' +
'D64Lmt0j8Tu3QLrTjtYFfDuCSGBWvJVDRKSG3Kjkbmp2fA4dlV5Rm' +
'ayjyaSrxt2ARcVEBZT03952Bf4GNI4iW3ZqEypiCxe4Sk42UeqqyF' +
'kRcNpaF1xQ3MDr0YGrs4YPBWzNqytGSwsmczEEMjBZiIsFA/hQZGQ' +
'QdS9yJcyaeqf0JZXfTq5/X3PpEePIV0vpSwTbiKI04UN5aVc9F19g' +
'hNx8MLswrQ+UF+VhqKQvUY/Jb6uAISBaqvnHf3f8XJGQ1nLkkJ6GS' +
'pG0Ojc2bJEzuRWU8MbLGxGb0DU7Ntg8MD4++KC4YojhrJ8qVr6lUz' +
'MlvpG8SpW8Iikm8I6lScInLQ88THQodjSy+W9n7qWNiLx15h0fZVU' +
'bLIQ9cXlaB9fL2i4+NLgJl+HlZayoLlhQm1GMKsFWQrtYqTEdP+QE' +
'Lj5KWkbOkojyS/s03ttru7JX2bSajn8ibZqfCrhOmHvcMDd8YehLk' +
'XU59wUWAM4uB3ltAwlhY2lxTN83CpkZeC6rjUK7nhYmCT6eWv2kY3' +
'MUSvgTGd3NK2KRkIQK8PKrQJRhUcaCXk5OtkY66ZFpiILYaWl8FrU' +
'DlD+CxfZ11mPaefWfgn1HUPapk7A1UCUpBPaqZXkWOzjpkN0nZxEX' +
'DcD1374w/foBtHBTld6Mn9dLWxADFoy3tYm3sU3R089k5IzkEkiR1' +
'wNZhnZGQu6VdG33Te5iWFWsPuISKQ2xMIhaZW5AcBM2OCfSwTIkLy' +
'EiNaG+tRsBzB/pwDbUlhM4aXC28uv1gbd8oIUy4hmVS8jj6Z0zUP/' +
'gEuTUT23j7ahgyML8JjsP3jdyFQ/u46TxYyeM4WbLoGQOVFUMdbUp' +
'UZCHSYqhL5FGMAsmmPu2hhfdqBjY6xnZzkVNaFhEKepYoeP5oG6y9' +
'NDk5xBaaExnsZ99YX9bRju3Bt9RUI0Zv4btbMLcI9RXYmrKeoX0n4' +
'Z+B6J10i6rTdK5Ib32Buf8pt3fRIqFR2yMvDdkan4XR14gSYQm20G' +
'jgZk2gp3eLjmiyN0eJcOYAOUsOH/ah4IrX98bFlr2ovfWxuncjMrN' +
'L1cjVzOlafk5YfVF0PTS2ChKXGuVWVpKD72psbqnD93b2D3R1d2AH' +
'uuon+htxGHBpY9u+M/AvgHWOyrtmhiAnMZN7hfhPnqBhNZe8QuyYn' +
'KYPBamGtUG+hkwMNamWiJBlTd2oiUGWFF++ADuclDL5BLOvdWpfav' +
'tSxdgneNuGY0CdhJIxUIrF0UEjOcwrNz4oOdStCpbZ1VLR3VlH6O3' +
'o6Grt6m7v6cANdjYMd1SNdFSjcQcrdRCBGrhtGAp2SumFd+8Ud3+M' +
'r3hhGAQHd40VNN7i4jDjYNZjodEUFTLMzsOgMN2c7Nai3FlWRrfIa' +
'FKpxOO8YBP5N9aLr++loZc9QpukFIzM7VWsrZWjAz3LizKwaBChGd' +
'WDQxMTxdDNrr7+zq5OXG93y3h/+72B5uneZmRt8767/y8o7Br1TK3' +
'RcUHnVC0W4TYLWt7bxBJrq7+t9qwdYmJRExAwamod6RiYQlYT6BnN' +
'hHkyvVweMnMXSJgivGGTBTfXivp2wkFPLFwQ/GIagVH2MdFOucmRB' +
'akRjeX5XdjigfZyfFtZR0tZR2t1R2vtAAE3NdRz72bHZH87rPrAqQ' +
'4iQLWjujbwvIrlosZtdN+Od3ZrXvPf8xusaxLbcRvd1INobM+CNQP' +
'FfGSkIQb6XefIIzSd69Jb3yEmPiNvfg3Nv6Okn8DGK2dhq2lhoeTn' +
'bpca499cCelpRrbUgvGtpb2dFf3dRCqarve2DPS23uxtH+rrRrUNQ' +
'A/emlJU910LF3RC4dPcmk1U305IcX8s+u/dH6jxVnHdrZqBSSgOn4' +
'Hq5hHzZWKNkJItu0ATbuTfVtS3mUdYSqh66RLTI60WpKRpoWukoKY' +
'hamKo7eFigy7Jb6iGtWJLelrL2ptKeruq8J3Y9tZ6HK6ph9A7PHGn' +
'p28EiT9wbCB779j7VDgEdWVVrxR2bURipnzA31p0UfeEd3qjWUBxI' +
'BibXNWN6nps7IwiofTkEs7jlsr3TB8v6FmqnNpJxDxzjGxmEbQwtn' +
'T3DnRs66z7FlQIRFBIcHZOZlZ2Chyej0aBa2qQuBZsew++tW8IN3C' +
'77cbDqubBAzVD/R3QnvHQ1DZdR3QKZj67Yz0BN+OQ1QTqvBMGv6nl' +
'XuWZNeSWTwhH30QQZtEdK9Ja0LPUfmziGcllbwo63hf3rXnl9KnZ5' +
'PJL24REZXQSmjC1aOI9q3Ad9Z39VTg8pLy2vL6xsr6hA0+4OT41fP' +
'9V18RMac/D/IaJ/LLu0gOwhOPf2YC2TGo4wT1yb8c1zCd0LNgVDMn' +
'71mgFdJtHj9ul3HUvehBd9wqCf18z/DUa/EJQtVDRrCK3fhk1uF3Q' +
'OR8CuaFqnaJhFpgFQoJrm4oaOsCN+DR0E6p5qLR1HN40jGy+1UiYG' +
'rr36v6bjdEXH2pvvc3GPU1tfJSKxKMOXt4gAkmYtgypNInqCq56Hd' +
'2+4FB8W86/VSto2DrxhUvOu4jazey+Lzldq/FVxPr9YxT4mVfKGKR' +
'1vXrkS0zplENcDVDDw9ItPqe8Cd4++P2GGRVtDJIm+p551yLLPVKx' +
'YOxk881XNx6t9z3aKb+5lNL8Jrb2eUJJH6r7IC5mQPTdDsrpVHRFe' +
'5XcjetaDsHOKfi1awaMeBds+BdvJ7d8Sev+ktC06A+/F4l65hB/PQ' +
'R0D0XYLu5cTq95qOGcwa1oA+keA///+y90XJONQyq1/TCBkLGc+sc' +
'VhLf4Bzs9j3ZLb6wlNr6NrH4RC+s/mGx8Q/2EihPMMXswtXs5o3fD' +
'KH5AJ+BGUuXXNOzXrLYvkbULvmXP/VBPAkoe2iT0plW+Lh/4kt80G' +
'wa+ruuRlV5N+PfNSgFZVYJGqSreddZJN6KQD5D4xZ77u4QnX8turC' +
'c0vI7API2C9iF7DuiEdSn+nn0Y1iKqMaHhGah/xQ92xyxsoKh1t4S' +
'wl9O6Gop57IZ46Fg07QgaDYBOg5qXSglbyO5VXXeogWcW/H9ar0LU' +
'KnQKYWp+rcbRN8NgjyEtc913vvQ//loztJ7ROBNV8TAC0ovsOaBTT' +
'kVdY4nQIW03aEjJcAH+XUbja/uYXlj7Wkn3Znrd08DSMRvwhAvykX' +
'l6X2zNi4qbW4jujdy6l6q2WamY3v9xowFR3osYpYlal6n7dXvl3cm' +
'ued4+/vH6w92G4fW8pleJlQ+jv8XGAWXjGyHNdw39yh3TCMm1r4t7' +
'tv2yplIrZkFNa8GQu15Fkzb5o67Ie7b5I/l9GzXTe5CO9zGwWw4hM' +
'Gj7L2qGJHiPgE6KYQTBKWs8GvMYO7FBePS5enAxu2E2oeJlOIhQSj' +
'i487MlhAeaHgjTiI4Y1CykfTepbME/73E8eim0eNYddN8JPGKW1Wt' +
'XOJrbv51P2AJ1LCaUDAUklsJ+eZEbsUAWVg8xCGm1yRkPrHyCmVrv' +
'eLyD7nuXiV2MQr0NyupB9R5cNqBdd9hUo80iuhIwC0mVS7nNm+5Zk' +
'/YpwzFVi055U7bZ1y0z+/3Lnubgd5Ib5rMb3sRB+rMq8YW/fENiL6' +
'PnkK3iXmmbNxlQ8Qg9ttL2cKdsYCkNuxRaMhOY2X1g2SC2/WjodT6' +
'dFIOA1gjkq/CSFzkt6z6F0/rhLc6gCevMm5apvR6QqfSOzYK+3RTs' +
'fDz6vkt0BaTlV6ZWr/lDpe1LnEHTfqX3UcPvcfe2Ub3zidVzvuAnf' +
'untB5YNVO8dy+BKo6AmKWukV950eOmLNOxiYv2sZRpBObjOIrXfNf' +
'tWfM0sqPtTXsfHbNxSPOqOYygK3vUrgiEgrUbINNsxd8IXeQ91c7X' +
'p9sfijtcR6JcuOXe9U1sOLBtFzeM2YXWRiCfi1iiblKHo8pmU+vm8' +
'7k1/1APlwDqD6I4w+IP81o2C9o/ZzavpNTNxsNFUFKH41+RTVuUAj' +
'068VeqAL+Iu6uZa/fjHHOwzX/B969Qxj8Qm5IFkA9F72yUK7ZHRW9' +
'j5wTZ1xCzueijieXrD+6yWtZiqN+ZJA/JumET0M3jnh9K+zxU3vkY' +
'WT3smNoMafn2YF9I2wqMdYx6P94fdqxj6WDuylVL5wDl7wjT+pts3' +
'Ng7cCihi1ZZZ3uOcWBtd9hDcu2uXMWmdMuZX+CiubBaE28zDbQZCn' +
'9rEDeRj31b175R2bxbhFmOhEy5RGHDzr88vw3omRE2S9EOaQkoeIf' +
'pW64Y/RhaPO2aNmcTfdIrDwgkHTm8UNgy6JVcnVz9KqHuX0f7FOm3' +
'aOGowpXY1r2GtqOkDmrCXXf0+seRFdtmjyp6lhptbBfUzCbBbvglV' +
'8J5f391Z1D2m5wVRdEb5ge+U9m7Uj2wFF43bZ41fjR1wiqk7aGyg+' +
'u96Z7TFoO9n4tZ8EG8Cy1dVA/pMooZcU8cTSl4gWjYRzevg6vnCyh' +
'lY7aPmwfc1+IXiludheW3+8ShYx29aq+OeXidsluuTd7uy/xOmb8M' +
'3d9g2c+Jq/KBbQuNBaykZFWM2ccOg7j138Dur7Dkn8HsJlx5Zlybv' +
'7MmE4jvgqmc1XYtVbXPV7W/QjfcxHU894jBW7plsQD1aARUZdSMpe' +
'UV4C+HHj4go7uTUSnBKulnW/QnW8t4j/YZt1pRJ6ohHWuuB0qIlvd' +
'MhoMde+R8sk96fk6w4K11Fq9sqZIdXdGuLhj/KQk9HZOAyIV3eYUV' +
'CcpZ23mk8QmoAwCUA4NxJEvbTV1ha+24UQsE01Jd/IMCIyKy7QScT' +
'ouKAATeswFvXgwqmrDMnDeJv+GR1oA5MnYLonc6sGDP1n9ILWJVye' +
'Mtp+pDJ6Dat3iCXWY+qN0HVoYRV3JaMTvTcRRrAkQtHzlEAAMfOkL' +
'KaOobnVeGT4XUAwClxJdWrxgakl04gu2784EFF7WM8WoliRkVZFXP' +
'oru041DOrjHH1KIJ/Tjey80CMb8AIU/7pgxpOjcqur3hMl9n0Xym6' +
'b2j4LOkHveLUKj9NYQm4ogw4xQU4Qk70+vCRsyev0JtZ+1ThbtZ2j' +
'jXgJy3dggFHzwCIvzt7/MTxoyU/bCzF3RMGPihNZ0wO5h2qg8jGS4' +
'u0Eb04QhCor6Rt/9kgivBc7Cs62VY61YdnVVau6H9iM1gU158wtx9' +
'kY/Mko9QSlXcEkPADTrMfJRM5Sadw5Bzw8Fl+SVkTCXENFhaRM2eu' +
'HD9JYmXrdIWM4tixI6dOnoR3/kh4wPDjdmFgY/eSRNijFPSbaMSL8' +
'LIZh+yhcPBNSPP+nzlQ2v9U1JBAr/CISmnnmPTOSdl3Eg7LOg43T5' +
'yQJ7ssQ0kqCQAwniG9SiMay66Sq2JfTSXsDwCwHzpEc+4EFflllnO' +
'nyZgYOf39giTEJU+ePkVJRQXp+pUnxhU3SumGu0Z3hBc+SK2aT6qb' +
'98gfDsjuS0cPofru/HwGoD2jHl6Oidn5sCZCOuo2tRCGV2uRBLhCr' +
'fhBwHyJ36Dt0AU1wAkaAID0JIk0HUu0nPaIkt5zCeVhLeN+SlbfYy' +
'eF+fk0eLhlmJmELlygBBw6SUwjxJZy8tSp02fOwLp+RYYVd46KaQQ' +
'YuqD8M8dAzRupDUt+0KmIopE4cD+8/aeGB7Jn2N3Dg5+f9/DRo4Bv' +
'LyYh+Wwd+yc8KstsCqtiurMKZmPH6awBgPOHTl9gV9BTdoRo2E4o6' +
'C/wi73R1J2ztJogozA7epyVmkbwwnnaQ4fOHTl6/uQZksOHT5w6T3' +
'Lo8GHiHSGN3T+2gajBLLzy1a3zHKM7UjBvosteBZc8yMO+SkOOgWq' +
'HftrxPiAURlRSys7RCQKHY2qaevpGcF0PZTSgXNKtDGKPuRQWvcI/' +
'CkknHz7BeoycDnASwKlrImGXp+EyYROyZ+q6K6cxyc2ffuQI7+kzl' +
'IeOkxH7VmJIHD556ehJEgDg6EUyKlIqaiIbhXW/vhIjDd2jY5djGV' +
'gTDr0TiXqWXr8I61jOrphOgeN/2n4NVM9wadcNBGFsZn5h6sHzl3N' +
'bGOxdc6d6oFK9gNq0stW6tdvAqTN8AMCZo6fOUHBxMclokEla8l3N' +
'pZbJPM8ScOy4POAYB+Dk+RNnTx0+doGEipOOTZADKH2Jivn4+Su0r' +
'Jy0rOxENgrqWn/VEnjPpKlbgX1YbQR0OrnqLaL/C6JrrQj7LAHaA8' +
'X9pPW0hX/LbyjCSDOeEJuek56PdvMHldS+NnXHi+h2iuoTmHjtT56' +
'6dOL4BQDgBODoeQZuSV5Fo+MMwoCTFIBT5IDjZ45fOHX00lF6HiYB' +
'GRUOUaUrjDznqVjOkNNzCkvLauhfoaIlsgGqaflVS8Bdo14JZZZ+y' +
'EjIRFr1O0TvFxT+I6J9Phl5PbPsp57wnFtRY+xoxyMhycwvSsMhVY' +
'S5hWp5q+daJ2uFOn2Z7+iRQ2ePnVWWVFeUUJcRUtTU0DlLefZbgrk' +
'AOMV84gTDKQZBZkEFGWuvIC4pVX5ZdWpuIWEFDSlVPSMbZxYOfuKF' +
'sI4fqa//RuNNaYPw4Nwb8aUv8nEfKm/sgZveZFeNR+RUI3p/Ri4lx' +
'gYxR6H6xq7fm+68dausoTkus7Bn5Mn1e4s1/TP0QkbE5k9yiUSYX2' +
'R36+vmq9W5e09v4Jqg+bEGukqCkmwaJgpSGornKRnJmIE8MuqKRlb' +
'Gzj7MQGkabiESGjZ5zauXKBkBgEOwH+qNfwDWPa5+LdYhCuuXPZZe' +
'vYTu34V3LufWTgemlaH++hNrod1jfPzchInJ+oG+9tFhwsTY9LPnI' +
'7fv3370cvLRG6fQuCNnSY+eOXvi3MWoqLjN9Y23D59tvJzZW13ee/' +
'9ue23u3t2JO1MPJiZm8gsbhWUsAGcpgMraMnpmF+m5WQSladgFpFT' +
'0zl0mdsoni1v6f4s9xOZwLSjXxLvEPel6WtkCEv8FiV/Prbvvn1qB' +
'/OtXnsN6vrFBxPVHD2oI+Hp8b3VTWxd+cHTsdmRk7Inz546dPQ04f' +
'PQ0yaXJe/ffzr37sLHxdXtn78PO5/WtvfXdvY97X9b3drf3Vt7v3X' +
'uy4BWdBjh/hZqdn0NUgUNYnl9cmUtI5jwJzZnz5PCO37owODCrwti' +
'z2CP5eiJqDtK+De9eT6+aDs6uRf6UvfZEKmIK8yfevpnf3bv76u3Y' +
'1NMBwsid0fuXzl44cfjQuTPHSCkuuvl7vV1beb6w8Hxh+eGztyXwq' +
'k5c7/ba9t7G3qf1T5+3vizNfxoYunvvzWJwShYVp4CgnAYNK/AKLZ' +
'eiGrGhHaGkYCju/q32ZNXgTb2hLnF9IflP8xo3IJ0rSeiJ8PxG5E8' +
'5FgzVM8gmLcEiLZlcjHj7fvXFi9WR3nvwLCRRM5GfOkN29qStvdHd' +
'l7cfL8zenV1+/eHLrcfvkkGl8emg5PTM/sGehcVXO9vvt3c236+vN' +
'ODxL1Y3tSztT16mvUDBqmNkX1XXdvLUZXIyOljXb92iBe0YMfUuso' +
'/o8km7m41dg3atx6PGQvIaSjp/hgCDE8bMne1ImRkOkVwUV9WComv' +
'Hxp/GRKQeP3SS4vxlNXmZ2lrU0sbc7PuFxzNv365uP5xZWdv5urS+' +
'3d7TBQLnDI32f/n68f7T6bT89Nm11Z7hUQsnd1klzcQs0MjUw/cbH' +
'03M7ejo2SC/WUzC8BMmnoXWYTiPtInk6oXCjvXEsumgzHpYy8+QHL' +
'Ce0dJ2fEhUgLiy5GGSM4CzZ8LSc9xCYwHHzlOQ08XHJj558nhpeXF' +
'+fv794tL25of3y6uLs4sfVza+7HxaW90Yn77zfvPDu/UNJ19fPWMj' +
'TT3doMjIvlvDe3t7Hz5/fTE7HxwRo6lv+NvtAXePusaXGwdUOaQOR' +
'ZS+yGlZTsM8DEitg/2GAec/BUVdo2WEIVBxvoOv90V6JgpuEVIazs' +
'PHSBi5JcqrWz7t7b18+/bFzOuZN29mZ95sEF/L79eWV2BQ6Lt374h' +
'eP3n98v3HzZfzc/VNjf5BgZp6OvSMDERmkOUVnYRev+DQZAjyf2VP' +
'MrpX0w1undAbinyejXufinnsl4KFNf287ZDEArakZ7Tr+s3wtEJVC' +
'+9zDOJsEvpKJp5XKLitXAPuv3m3vLX18t3iysbHB4+erK+tfdn9Ym' +
'xiGJcQgx/ogaCKVrbfr+0Q+5jdT7ufX72ZGbx5Mz07S05RiY2Li4W' +
'DMzYX/L8yBtI2oWyXaxHVFgB9lNG8klz5xCsZC238qZtDiTKsBD+B' +
'6BjVc4inl7AS0PG1Ci1WtYsR1bMTUjPKRlS9XFh6tfxhYX17eWNzY' +
'2treHL01dzL6sZKHiGO7uvt71befNz+8Pjxo7Hx0dW1la97X9/Nz0' +
'9OTUVERQGFgKTkZAU1LZDf1rMQU4euW6FhUI1nwZ3UppXEyqdu8XW' +
'Qhn3YKovqveMahVGxz+HTizIIQhsElWi5pWo4hHPKG6tb+4Mq2xoJ' +
'Yw/fLKzs7H7d29vd23s88wTTgNncWdvZ/fDs1fP79x9s7Wy9mnn5+' +
's1rYiNaX18nvn/c3q7F1lvbO3Bx8zj5BEIaun7c4YK7x4JycdoeMP' +
'ec8ZTG9wmYZ86xteA/wAake/T3bbNF4e+4RDVdi8QxqcWwGySL2OY' +
'pOOWKGUUI6weq2MToOCWomPtdtQtJLazoHb794OXbrb1vr7uPHrz9' +
'Ww6ZnXv3fObty1czS0uL6xvrKyvLKyvvV9ZW/nbV3vz7lVxQoZ2jA' +
'1HkCImIFLf0/pIZmVX9Kg5ZLpk3UhuXk6qeOsbWFGJ/PxvEsP99bK' +
'TB+52j262je86J+J2XCuKzBKl6lCnbF+l7lzonNNuFY9SuJcleDRR' +
'RtnPwTQuNB4MRdbi2PhlFHUYmjoSUnPXtr8SYmZmdez07t7KyurG+' +
'try8ODMzEx4RgcZUbn3Z/U7L6Oit1PTUa85uIpKynqHR4H8bJyzuG' +
'NW0T3HL7E1rmEssv+8SX1PU+LObCQw/6RffFgqa0vVrOsrjQSofxa' +
'SbyqKWLGUKVbEr1XGrsI1oMfYqVTBNltIPdwtDKekH8IoZe4eCAsM' +
'LUjLQRlZ+HJxi8akFS6ufvuzt7ex8mX83v/f1a2sLTlRcPCsnV8fA' +
'sKK24dGzx985WVhebunocvX0Mza3vnrVyNbe6R+WFHWP2YUUOsY3Z' +
'jXMwDvfeCRgssrxv9svRNvAt5PEuoYKO4eLfrPyKSXctQ9rTEQ/l3' +
'dAn+Bxp5ANpVOOYpSPZ1dKp5OMZZZPIHKibAvnVo0Baka7RGINnQp' +
'kdcKcfKF+EWUFJYO6FuGXqEQBhy5/r32IeLu89unT5w8fP9Q3YnGt' +
'rTGJic6eXtfsrLNzUu4/uveemI23v+zs7s28mWusb1SUltZW08gvq' +
'4d1fCt44/Kr3ROrC5ueFNbfjsipgzb+tjGBPw8ppTftY5uTq2ZELQ' +
'rP8bpSinqxKgSzKcTxqedyqWbyaGSxKCQyyMWIGOWJGGbJWYDE9JN' +
'VrXKNXYqFlYO5JT04pJ1VzCK5JMxyWv5u+T9oIUbC1vb2i9k3yLLy' +
'6PhIdw9bQxP9xy9eLq5//PB5b2vne7DsTY2MXLOwYmLjcQ+IzoFjL' +
'b0zsIOzZW13I9PRJS03i37iBuq0+j6jAHhw8Uh85TNxy3xqUU8GYS' +
'cJjTABpVgZk2IJoyIZCzibShKbRpqiSxmFVIiEBZhHJ0lAJ1nVFiK' +
'ul8oo6cMi7cOrEiCs4ZeA6cxq+u//+5BW0fSdk53Pn4kuL68ujIz2' +
'BwT7tPXgR28/fDm7tLK29Xn78/Lcu70v3y54MzsXFpMopWIAOEarZ' +
'RVU3jycAa6GN38bE/ieDAv/Lc98/+Yf3//7BURkN//otNLspv/+bW' +
'odPqCo1i6lPrb6fmTFfRGTdEYJNz5pFzlVPwn1KDbZ8EucTrqe1Vz' +
'aaVckgxVcyqiVorUCseLWEBIRX0rJQF6tFCrJIDrpYB61SFJuC35F' +
'1+Sqfx0kz6jt+kecEJPK+of3r+ff3X/6anj8wcTkw7k3czubmytL8' +
'xsry0tLy8QrNj7vwatbtM295TSshMXk/ULifk5U5LbeDABXs2m6u+' +
'Z3xtc/jq58wKUZRiVgKaHiLiJpwyvjIaaXSsJlr+mKYlePpVUKl3K' +
'AMmknsuql0KpE85tks2klMCjHUEiGMMjHsChGkPLbcso4pVT/4ga9' +
'/+LkC7H32dj5srj64fWb5eePX0yNjM6/frW+svz506fl1fW55VVi9' +
'722s9eGv+HjFyYpo6yhpZteCC2s+ms3uwUV1TLKurGohQlb5XqAhn' +
'iNEkiA1xgkrdkkzBgF9Dik3Vjlguml/EUN0+hlA0RNMmhlA8gkvGk' +
'UgsmkvGmVgmgVA7n1E09x29NLRdKJB3DK+wioOOW2/CjpJVe2fueE' +
'qEC+ybOdvbWNrdnZ+Xdz85Pjkx0dXaMj418+787NLXzY2vr89Suxi' +
'3r9+g0UjmBm5wwtqvgLA6PlhlVUkaRJpox1iVUsIaTkgZJb8UluQ1' +
'pJa3pRY3phIwYxR1oxL1b5YGmzLCaZAAUbELdGJK9uLLdWNL2cr4B' +
'hAqNyoIh5GoW4F61YCI2QN4ukk7CGQw5u8Lc8nUhIaFQ08X3149bH' +
'b8Gyt729PTI8Njk59Xnn09bHDyvLC2ur77c/7axvbn7a/bq6ufmdx' +
'r+IjdRavNq1TLOABlWnytDip6D2Tc/swTNcZswyzlxyjkwiFixSrp' +
'f57E4ym3CrhnGohinbFZAKuYgap3KqR5CJuSo6FFARexPtCGopX2a' +
'pSHphHxYJpxgU7jeyQURSZdt3Wqqx2P/KKnubWx8Xl5bm595+2t7c' +
'/bL95evux52ducWF+ZX3xDy7sbVd29z6V3BiH1KUXjxl6om96tkcU' +
'fQU3v3pqm/1SRZTIgkCit40vOYCqkFUwi4UQk5cKiGsikESJqmkQE' +
'cJswwRo2RaGW/pa9kXBOw4NMNppPyYpCJYxP3ZZFzi0L8+l/RLCI2' +
'OJLq5svmtwCGSsLG5NvPm1er62u7Xr0srKx+2t9+vr699+PCdNOKV' +
'qZjf/6x/QXx5W2xWO7jsqXsUIaHoeUHdak7NPLNs8ClGQzphe6CSP' +
'7OQA1A9lEgFp3IIh1IQjZgbn040vYw38Z1fL4Ze1odZOeg4uxmjYg' +
'CJgDONkD+TmB+btFNCRfsfNEzTQDcqMX7g1s3vXq992CQWPCura8Q' +
'+mlgDrn/YfDv37s3bue+E/FlsOMQUeIehwWUPkQ1L+WVv4sB3rUMa' +
'zjAbU/BfYxJzAir7c0q4yhonMEp50Im78muEAXWiNJwKWBX9BfViW' +
'ZSD2NVC2VRDGWT92dXDyUTcaYF+jCKejCLWSZV/9HiEU2fOniIj5R' +
'AAisvKxyalzC4sfUspnz6trq9vbW0RS+OFxaXPX76sr21sbG7dfvD' +
'gtzfMH8M9Fh6ShAtPxauaZopqRBJDAnBZhlHsGrusE5eMCw2/JYec' +
'J4OkCwXQhk89hEHGQ84ynVXRl1crkoTflkUliEszkk87lkkpiELUk' +
'1MmnEXUi0HIMrmq6w9axSctT8HKxikqS8cuSMvKS8XIoa6tTwyD17' +
'NvPxHrny9fvg0XrK0tLC5//vzlTwyPaHijtIaXvG4IJafhFTbtY1S' +
'SgAvc9KKGIloe3ApOtEALLnlPTkVvKhE7IZ0IahEHVgUfOmlXOil3' +
'fp0oTmJsqITQSvvSSvvQSvjwykfRCzqziFmn1Pyh0wA8MyAkFDQnS' +
'KlOXmGj4ZAipeO/QsuZ1dQfVoQhOp5civ3erRDT7D+yx59CRUpNV0' +
'pNd0p1dxSiyT6m0DurNL6iLbS4Nq2ekFzdzSRhziXnLKITzCLjTCV' +
'sK24YzSrvKWoQwyjrIXo1VkAnikrCjVU5mFc7hks9klzQjVHIl5LL' +
'mhFoll7/K0sifwweabXjFyjYZXTOkwleZpI/TQGkZpMCtf99lDi1t' +
'iu56lteIpKQlZ8Xm5RE/Ezk6k8h5LtMysD2/vOPRCRVdTGLWXLIOg' +
'tq+pMLmlMIWooahDHJukoax9GKOwvpRYvox7IqBrAqBTHK+nGpRjJ' +
'JBdDwupKzWzEATTMa+v6ISYAzNAx8ilp24aqW8XJXIyg5dbjETNJq' +
'/7WiJzJApIVIzp+VNH6AuLJ2ZlFrVnEXLgUPckFTJhkHUYMQegl7U' +
'f0IOjFnUf0YbtVgWnF3dqVgZvkANqVQcgFXFhFfBn47VlHL381GVu' +
'O3PzHgJCOXpMlVtwyb4Cq/5B5pvWhOMdtYVMufGAP/W4RCsNQ8lrw' +
'yASySLpRCphxKrvyavtQi1zgUvegknAU0Q5hliB88OJRDaCQ8GWX8' +
'SfkcuaWDmYGOFoE5Bb9tQfUvxsZJDg3ruMC0NsuABmOfRk1riIkzO' +
'BRc/8918U9GUEEdNacNp3ggpYANNVGRyjqwyTvTitnQidszSjpzKf' +
'vRS7pyKgdzqYSS8NgwywXSinmzivlQc1ma+KT/wUfTcOlkl41Fg25' +
'oOlTYhPRa+jYaOZWoGEZlNPxrYOS3/7UH++S2DH7PIRGwJhagIy2v' +
'Aym3CZ24FaOULb24HYusK4OEE5ucl4xpCrWIE5OML5tCIKOUNzFCS' +
'PntaQWdSVkNLIKykyo7/ogNkuouLdff2frCHcNbAtNHQzIGXcJqop' +
'EtPz82iFn0eyJNrupmFrGg4TelETIjFzSmFrG8xG1MK+pIBbSjEnI' +
'SVI8k47UH6sRRCDmzyPpRi7uTCznSCNpS8BhS8mkGFmIsQpMyG39/' +
'Lo2FYmNKmj3DMSmQodTigfDihj+ub38HiH3u9w/Eao6KT49Z3JJJ0' +
'ppaxJwSaEHGZ84k5Uor7EDGZ0sh4HiB1UJIh9i/eDBIedFJeRLFKj' +
'mvOSmnLhmP6hkGfof4nMzGP5Txspuvh0MaohC45Oqe/coY/+hqiY2' +
'UkkuHVeIajbDZBQ5tYmyQC5jzKvuySXuwSXvTCLlQCblIGCQxS/nQ' +
'irldEXQgE7Ch5DWj4NYj51E9TcvrmQH9g5YQQzSv7VtaAHUM57fvz' +
'xmb/9AbmQ39dAIG9EATJjFLcn5DQXVvSgEzbgUvaqAdq7TnZS4raq' +
'Ajq7QPtbAzvZg7mYAtGZ8VPdCKDmhEza9+jo4vsLDsdzw96w80rh/' +
'g/wHw4VrL');
end;

procedure ProggieAddText(text:String;var bmp:Integer;x,y:Integer);
//you just use this method to add text, note that the x and y are relative to the top left of the progy
var
height:Integer;
TextPoints:TPointArray;
begin
TextPoints := LoadTextTPA(text,'StatChars',height);
OffsetTPA(TextPoints,Point(x,y));
DrawTPABitmap(bmp,TextPoints,1);
end;

procedure Proggie;
var
bmp:Integer;
begin
bmp := BitmapFromString(415,128, '');
RectangleBitmap(bmp,IntToBox(0,0,414,127),9746890);
ProggieAddText('Asap`s Fast planker',bmp,15,5);
ProggieAddText('Total time: ' ,bmp,5,25);
ProggieAddText('Profit: ' ,bmp,5,45);
DrawBitmap(bmp,SMART_Canvas.canvas,8,345);
FreeBitmap(bmp);
end;

procedure CleanScreen;
var
CleanBitmap:Integer;
w,h:Integer;
begin
GetClientDimensions(w,h);
CleanBitmap := BitmapFromString(w, h, '');
DrawBitmap(CleanBitmap, SMART_Canvas.Canvas, 0, 0);
FreeBitmap(CleanBitmap);
end;

procedure InitProggie;
var
girlBitmap:Integer;
begin
SmartSetDebug(True);

SMART_Canvas := TBitmap.Create;
SMART_Canvas.canvas.handle := SmartGetDebugDC;

CleanScreen;

girlBitmap := LoadGirlBitmap; //I load the girl on the right side of the proggy, the girl will not be refreshed after init
DrawBitmap(girlBitmap,SMART_Canvas.canvas,422,345);
FreeBitmap(girlBitmap);

Proggie;
end;

begin
Smart_Server := 39;
Smart_Members := False;
Smart_Signed := False;
Smart_SuperDetail := False;
SetupSRL;

InitProggie;

wait(5000);

CleanScreen; //important to run this on the end to clear the screen!
end.

You can add your own images, though I like this one, its from a never released script. I am sure you will work it out. Good luck.

pown otto

2012-02-27 23:18:12

ill make you one tomorrow, i gtg bed atm

tootallmatt

2012-02-27 23:33:23

Here ya go :)


masterBB

2012-02-28 05:28:04

From: tootallmatt
Here ya go :)



There is a reason why most people use one background color for there on screen progies. If you draw it like this, updating the stats will require refreshing the whole bitmap. I like the looks though ;)

asap1

2012-02-28 06:58:30

From: tootallmatt
Here ya go :)



nice i might used this but right now ill wait to see if i get something else befor picking one

asap1

2012-02-28 20:48:48

Since the script i have is private and i dont want to post it on the fourms for free download, can anyone who can put the bitmap into my script (the plank maker one above) and all that other stuff plz pm me. I only know how to make the bitmap but cant seem to put calculations into it.

pown otto

2012-02-28 21:53:59

here ya go bro :)


asap1

2012-02-28 22:50:42

From: pown otto
here ya go bro :)



Thanks man it looks really good but i dont know how to put it into my script and add the calculators to it :( HELP WANTED :)

pown otto

2012-02-29 07:28:25

heres the changes you wanted done