Results 1 to 23 of 23

Thread: Painting Text

  1. #1
    Join Date
    Sep 2006
    Location
    New Jersey, USA
    Posts
    5,347
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default Painting Text

    Sometime, I'll upload the source, and maybe a tutorial, of the script I used to make this.

    Just felt like posting it now before I forget about it

    EDIT: It's for paint

    EDIT2: No time to make the tut yet, but here's the rewritten script (read it before you run it, maybe you'll learn something)

    SCAR Code:
    program Painter;
    const
      Text     = 'SRL';
      FontName = 'Hobo Std';
      FontSize = 200;
      click    = false; //true to click on paint, false to make a painter script
    var
      Font, FontBitmap, x, y, sizex, sizey, i: integer;
     
    procedure Wait(ms: integer);
    begin
      if(click)then
        sleep(1)
      else
        AddToReport('wait(' + IntToStr(ms) + ');');
    end;
     
    procedure ClickTheMouse(x, y: integer; left: boolean);
    begin
      if(click)then
        ClickMouse(x, y, left)
      else
        AddToReport('  ClickMouse(' + IntToStr(x) + ', ' + IntToStr(y) + ', ' + BoolToStr(left) + ');');
      if(i mod 50 = 0)then
        Wait(1);
      Inc(i);
    end;

    begin
      Font := LoadCharsFromFont2(FontName, FontSize, false, false, false, false);
      FontBitmap := CreateBitmapFromText(Text, Font, 50);
      GetBitmapSize(FontBitmap, sizex, sizey);
      if(not(click))then
      begin
        ClearReport;
        AddToReport('program Paint;');
        AddToReport('begin');
      end;
      for x := 1 to sizex do
        for y := 1 to sizey do
          if(not(FastGetPixel(FontBitmap, x, y) = 0))then
            ClickTheMouse(x, y, true);
      if(not(click))then
        AddToReport('end.');
      FreeBitmap(FontBitmap);
      FreeChars2(Font);
    end.
    Interested in C# and Electrical Engineering? This might interest you.

  2. #2
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    oeh, cool

    Dot matrix printer ftw


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  3. #3
    Join Date
    Apr 2007
    Location
    The Buckeye State
    Posts
    482
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    The pwns. Try using the diagonal line brush, makes it look 3d .
    I like my coffee black just like my metal.

  4. #4
    Join Date
    Jan 2007
    Location
    Kansas
    Posts
    3,760
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    Freakin' sweet!! That is awesome.


  5. #5
    Join Date
    May 2007
    Location
    Netherlands, Amersfoort
    Posts
    2,701
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

  6. #6
    Join Date
    Feb 2006
    Location
    Amsterdam
    Posts
    13,692
    Mentioned
    146 Post(s)
    Quoted
    130 Post(s)

    Default

    What is it supposed to do? It just opened a hell lot of empty tabs in my mozilla... (I still had it open)
    EDIT: Paint, should have mentioned it..



    The best way to contact me is by email, which you can find on my website: http://wizzup.org
    I also get email notifications of private messages, though.

    Simba (on Twitter | Group on Villavu | Website | Stable/Unstable releases
    Documentation | Source | Simba Bug Tracker on Github and Villavu )


    My (Blog | Website)

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

    Default

    its for paint(i am smarter then wizzup? cool)
    ~Hermen

  8. #8
    Join Date
    Jun 2007
    Posts
    140
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    lol that is sooo cool. I paused and chanded colors to

  9. #9
    Join Date
    Apr 2007
    Posts
    3,152
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    twould be cool if u made a procedure for each letter so everyone could do it!!
    SCAR Tutorials: The Form Tutorial | Types, Arrays, and Classes
    Programming Projects: NotePad | Tetris | Chess


  10. #10
    Join Date
    Sep 2006
    Location
    New Jersey, USA
    Posts
    5,347
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    I can do even better than that, Dan

    Just trying to finish a few things with the color bits of it...might just release it b/w if it insists on not working correctly.
    Interested in C# and Electrical Engineering? This might interest you.

  11. #11
    Join Date
    Mar 2007
    Location
    Netherlands->Amersfoort.
    Posts
    1,615
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Lol thats a funny script. (it lagged ''a bit''). but its realy nice

  12. #12
    Join Date
    Sep 2006
    Location
    New Jersey, USA
    Posts
    5,347
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    Posted the script #1; still working on the tut.
    Interested in C# and Electrical Engineering? This might interest you.

  13. #13
    Join Date
    Dec 2006
    Location
    Copy pastin to my C#
    Posts
    3,788
    Mentioned
    8 Post(s)
    Quoted
    29 Post(s)

    Default

    TY SO MUCH!!! Not about that I would be obsessed in painting with scar, but now I know that scar detects more text than UpChars, SmallChars, Stat, Trade, and NPC Chars!!!

    Yaaaaayy!!! tysm

  14. #14
    Join Date
    May 2006
    Location
    Amsterdam
    Posts
    3,620
    Mentioned
    5 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Smartzkid View Post
    Posted the script #1; still working on the tut.
    Most people should understand this ^^.

    Quote Originally Posted by n3ss3s View Post
    TY SO MUCH!!! Not about that I would be obsessed in painting with scar, but now I know that scar detects more text than UpChars, SmallChars, Stat, Trade, and NPC Chars!!!

    Yaaaaayy!!! tysm
    Hehe ^^, never took time to read the manual?
    Verrekte Koekwous

  15. #15
    Join Date
    Sep 2006
    Location
    New Jersey, USA
    Posts
    5,347
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    Quote Originally Posted by mastaraymond View Post
    Most people should understand this ^^.


    Hehe ^^, never took time to read the manual?
    It's a beginner tut for working with bitmaps
    Interested in C# and Electrical Engineering? This might interest you.

  16. #16
    Join Date
    Oct 2006
    Posts
    1,071
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Wow this is insane I'd never even realized you could do that.

  17. #17
    Join Date
    May 2006
    Posts
    1,230
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Pretty cool, though I don't see why many people are so mystified over converting text into coordinates xD

  18. #18
    Join Date
    Mar 2007
    Posts
    102
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  19. #19
    Join Date
    Sep 2006
    Location
    New Jersey, USA
    Posts
    5,347
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    Bump for osmm, post away!
    Interested in C# and Electrical Engineering? This might interest you.

  20. #20
    Join Date
    Jul 2007
    Posts
    1,055
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yeah, so how did you do this?
    (^_^)

  21. #21
    Join Date
    Apr 2007
    Location
    Perth, Australia
    Posts
    3,926
    Mentioned
    3 Post(s)
    Quoted
    2 Post(s)

    Default

    [Runtime Error] : Exception: Access violation at address 00721803 in module 'scar.exe'. Read of address 00000000 in line 30 in script D:\Program Files\SCAR 3.20\Scripts\asdf.scar


  22. #22
    Join Date
    Jun 2007
    Location
    Wednesday
    Posts
    2,446
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    TPA versions are more sexy, especially for clicking.
    FindColorsTolerance(); for i := 0 to High() do ClickMouse();
    Sorted.
    Oh and to fix that problem, you can try commenting out the line and using
    Font := UpChars;
    or any other font that's loaded by Scar - the font loading seems to be a bit peculiar now a days.
    By reading this signature you agree that mixster is superior to you in each and every way except the bad ways but including the really bad ways.

  23. #23
    Join Date
    Sep 2006
    Location
    New Jersey, USA
    Posts
    5,347
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    Yeah, font loading seems a bit broken.

    Fixed and commented for osmm; read through the comments and see if it makes any more sense
    SCAR Code:
    program Painter;
    const
      Text     = 'SRL';
      FontName = 'arial';
      FontSize = 200;
     
    var
      Font, FontBitmap, x, y, sizex, sizey, i: integer;

    procedure ClickTheMouse(x, y: integer; left: boolean);
    begin
      ClickMouse(x, y, left)
       
      if(i mod 25 = 0)then  //Waits for 5ms every 25 clicks,
        Wait(5);          //this keeps paint from bogging
      Inc(i);           //down with all our clicking (hopefully)
    end;

    begin
        //Font loading seems to be broken, so I commented out the following two lines
        //and replaced them with a set bitmap (line 24)
    //  Font := LoadCharsFromFont2(FontName, FontSize, false, false, false, false); //Load the font
    //  FontBitmap := CreateBitmapFromText(Text, Font, 0);  //Create a bitmap with desired text
      FontBitmap := BitmapFromString(215, 94, 'beNrt3ct6gyAQBlDf/6Xtrpt8IVxmAPH82yoheqoOrXBdt8jSXBeEAqFACKFAKBBCKLVUvgVCmcNvZAMIJY9fCEUIJVxU644QSoaKphYglCQSTfdxh12SPFS2BqFAKKcKrG8TQsmWUDPM6PjLBAaFj4BQIJRjBHbfdiGUgo368vZ/y8JeEEo9gEpU3xppvfNCCOEIqlZXEEo3icCL2+ePIIQQQtmzJGlCMnj77vjXr8D8bHxmZwY73zegsbB75YtVa2GSVMhA+FqErUM0HUM6EEK49kkMQgghhBDC1kIm9si3nojY9rM7n9r+tNI4e18IIVwu8LMRCCGcLxBCCCGE8KEIY7tRQJj9MDz5tE7+Os/6DVpyAYQQQgghfCjC7AEiCCGEEMJVne+eHiF8uiQIIaypiGN7sjPCzVW880qYXZVACOGq8wIhhBBCCCGEEC502FpuZ/95FEIIIYQwUGnSwCOEZyMMdDiyGYQQTtsGQgjzjA1eLbPftjsY4dNfdOog9O0dycEPghDC7gKkdeW7qCIdQgjv6AXsIISwT0KgWAghTHW4w1wQa4nuPA3IhgjvQ5cVg/BZCO8TV/mE8HEI7+PWO4YQQgghTCpp54zeQPhmhB2iRtyeOoQy3v5W7x4uP00Z/CCEMOq2stW4EIQHI9x/UAhCCCGEEMKkp46tzuMLq2MIIYQQQgghhBBCCCFcgtD8hAt7+1rzEEIIIYQQQgghhBBCWEZ4wGqqpgGBEEIIIYQQQgghhBBCCCGEMHyIZqsX1jZ/ga7c+LV3IIQQQgghhBBCCCGEcCFCkfmBUCAUgVAgFIFQdkAosjh/KvTNEg==');
      GetBitmapSize(FontBitmap, sizex, sizey); //Get the size of the bitmap we created
      ActivateClient; //Prepare to paint the image

      for x := 1 to sizex do //Loop through every pixel
        for y := 1 to sizey do  // in x and y
          if(FastGetPixel(FontBitmap, x, y) = 0)then //if the current pixel is black,
            ClickTheMouse(x, y, true);                 //click the mouse

      FreeBitmap(FontBitmap); //Free all the resources we've allocated;
      //FreeChars2(Font);    //this will (hopefully) keep SCAR from crashing
                            //over periods of extended use
    end.

    A pretty picture
    SCAR Code:
    program Painter;
    const
      Text     = 'SRL';
      FontName = 'arial';
      FontSize = 200;
     
    var
      Font, FontBitmap, x, y, sizex, sizey, i: integer;

    procedure ClickTheMouse(x, y: integer; left: boolean);
    begin
      ClickMouse(x, y, left)
       
      if(i mod 20 = 0)then  //Waits for 8ms every 20 clicks,
        Wait(8);          //this keeps paint from bogging
      Inc(i);           //down with all our clicking (hopefully)
    end;

    begin
        //Font loading seems to be broken, so I commented out the following two lines
        //and replaced them with a set bitmap (line 24)
    //  Font := LoadCharsFromFont2(FontName, FontSize, false, false, false, false); //Load the font
    //  FontBitmap := CreateBitmapFromText(Text, Font, 0);  //Create a bitmap with desired text
      FontBitmap := BitmapFromString(318, 423, 'beNrt3duS4koOBVD+/6c9r2e6GzBgZ2pLaz9NTJyoMikt58Wm+vEQERERERERERERERERERG5O8f/x4CIRFB9FgMlQq6I3G0WXpFctvCKhLKFVyRXbhZe9yLBdk23X/WrLScE2zV9fuFvtxcQctf0+YW/vfKKQmQ72ws7/MILKLuiEKkj95Imv/C3V94L/PPy9KRslPtjB17120NXFNpSNsr9ugOPwlk55ppTyA3dBehP2cUE28sP3ETIXYPIsbbEyb31BacIuR5ISW+8LeV6lCzkxskt+3KakLv9peKycss+ShZyySVXyO0kt+xLIELutb13hGTjeGpUqSb3yAm5MlDus/brJLf4K9NCLrmLP4hGlb1wusot++6lwEvuxgHUpVJK7hEVcsWCuY3cmu9eyh0oyCWX3PS5bKDc/37qdLkF3+CSxRZmTrvRcqu9BCIbIUybdsklt9POkdz6cku9BCKlILSXe6TFhEtutaodUnh7DlToFAYvuRKtgNztcus8RxZyySVX7lZA7sz1+cbuJbd4QTGZKde8v1gBueQurji5ZStLygS5Nt1FCJCLbct3DNrLPT58t4fcaXKdezebvOCdINdzq64rT3K7sm15Ek7uszFHJl1u48NweOFtybbxeTi8Z4YdnMTmb3m2Rq40ltv4eA1eacm29wkbvNJSbtcTNnilK9vGh2zwSle5jQ/ZyBVsyYVXKnR743M2coVccvkVbMmFV75r9a4bdngFW3LhlSKt3njlX58kvIJt9GQKr5xv9d5HbYnLYHgF29wNLLzyrCWwjTh6gleOdn+HZM6hMbzYmm1zH/fAO1kutukPauHFltzcVyzgxRbb3Jej4G0vF9uurzXCK9jmvpAMr2DrqwQi5JIr2JIrQi65ItiSKzKELbmCLbki2JIrgi25gi25IhPMFr9vKLpge6EFckXulhK9aFd6mcO203Zb9aWx2cZnZXpAmrFtfGhGrjRj22wDTq70NttpD06u9GbbbCdOrgi5IlKZLb8i0XLhFUlkS65IqFyERXLZ8iuSyxZhkfrbW3hF4mbb879adUTqLJI/vQBlEqmwt/3uAtRLpNQBFL8i9dk+08evSFmzZ9zB+11Znw2j8cF2pVyEv6jsPwv9QrcAe9Na1xL67fT6DKkbHbNBf8h91Nx6bZV5YfamJtGEn06v8DJbp0Mmt6I3xpmN/kLB2G70dQ9gG3wVqHFD/vKmGbbMRrRHs86sXxq6Z5oll1xyye13+Fy5UpbTM7Wuh5NIuDhbcmeCXVn9T594KvezYXF+BezGBqjvV+GY1QCJq2i1GwI2uoVSRvu+3xt9r6b1TOFargG2f6K9hP/7M62agA0iHLrssScai7fBaPQueuW3N+Hd3g+O0Tp9zMnnkBPAOlLrKveLT+QZgZCbNQV7zCfReNt/6lFyQSB3yHkjuWK1HEoYWyG3zZE7uWK1zC+5Qi688OpPcskVcuGFV5xQkaugOlOhsZVmPWmgyJXEbjRivfGqeNcmNGi2wJLYgcYNWGnQe0YPWOnUeEaPWWnTcsZQUaRZsxlMw86sTjO25NLqhkCuACvk0irCLKdCrnBatt9e/BwjKZymt5ORB1PINfLkVqvytE4AVvnUWgMoIoaKrm16FBExcvVYp/KhR+7kpjL+5Aq2iqL6GkPh1EsDrOyByn3iHgvy8Gb4bhwUiGJyi1T2qp+gOgiTe3cdU/qEPoQnt8eaD/t7CbClmNz1EJ6NrTsnyOSWmmTP3yiYRZjcOpPss99e8NqkJWFgr7qMM9eJBsLD5Vp8ynC/wIok+iVXhNyVQ6ejZDLhxIHSQgJv1uDoHOG3mgXvGgm8QXK9XC3wBsn1hQghN0Wur0IIvEFyfQ9CyA2S60sQQm6EXN9aEmyD5PrKkmCbItf3lYTZ+nK9OC1Siu3fcLwyLVKfrbcuRZjFVrDFVoRZbEWYJVfIxVYEWGxFaMVWChLDk1wxOQq2wi+5IvBiK/D+3ZBsYvt17xmE9X7N3eTuOiaVX/ySS+4lzWYoLlzAfNGQkGJLbn285JJLbuLKmdzGch/L/wY1bnccIJA7Su6yyyZ3y8xLbku5K6/ZzqICW3Ib4N3Iltw1eMltJnf9pTrQq3N7hDS0G7dcKrl19iOQxuHdeJGeoxXBu6X5ySVXyB2Fd/vlkVvk1HFvz8Obda7rxbPiR9DrW53fiHMhcrvKLXUD6eE35WLgDZVbc/aPJlwNiC9rYNtA7q0tWpMGuZ3kFt9xB/mt7GLC9zVGya1/VlbWb9YpGblt5Kaccnuha1dp4MJW4tjCW7Aixc/KyC1VGsrab17YzHoJhFxmse3Klt+95UhpD3Irlwa6j8b893Jgiy28K0f7knIktge5lUuD53dT7UflwHay2ftKQ+itFUlvD3Ir14XBT2dbbMkll1xyLZX74S17edhiW6Q0EXtJO1xyrZND8d5xqZ/+TGzJrVaauHXp8cO/BfPHR35c9FcWsSV35u7g5CCcmZH/+N+XfGRs4S1bmkS5x7/+dZjLP28024E3gVFsE4+DHr/9EwCXXEzKmJA7YSFE7kcLgNCTbQvmlvuXdLkXniltH6WbimW32/jYof4Z3YLpqSxbh117u9cgVJZbcyXmmHpv3xqH34dlvdy9dzAPmDb2rXG4Y2Tu2BiWYmvi2NW0huLWwWk24Ra/T8pMv7deCbbkyh2Kb/29913n4nXy5CcaUl96Bbkv/s9dR+szXyEo3mZSbc59K3fZJEguueSS21IuhpPlPv71haPXS2VyRSrIfTz5euCcCdecK3Xkni/93zxfyO2a0EJr+MlyT87aR+vEabXOJ/fMhHt0T9Y+CFubXBNukFzrZBPuR3KPAUmcczU8uS9+QuPz5Fy5DpbJtcPNmr/+kHv3xbtLFN/kznwSlHi2vGar6xB7V2VNuI3lrrlgL5vFyR044WY15LIL9r5o/YIOn3BD36HaKNfmt5rcmWw14XfTrqEjl9xSs+2nbUDfxk3uWLN6D97oCZdcebEMezt6hnGL3OFstRy55JLbT67BXHN7tFQmd83e1mBWkHvMji6649ZtPG9aKmOrx747Qzaq5JIbN9t+99/3HrqVS+WZNsnd0gnkXj7hzmFrzt3bD+ReIvdMn7cBfuZTkHvHkuZxxd9Gs8kdKPf8R5jTLffNtue7S+7e4UbLdQr60bru2hWOI4XL5Z7s9gZmyf1oL7b+nknuJXL/rnLozPtdK9rV3rfgMf/+fqh1cgCPv94hT3wmS26dJ0FGfpncI+1l5h87k9y9pw12vl/U6/U9IfH1J08bq+FVgsuLVaS4e9lOXrOtxOuB0e+Vejz/Z3NT2F7bijMPNgue+UP6tqvfnk4HgX34SunPRyURVSb3ePcnc0exJZdccsnNMpu1G5os98xDpaw66pNLWmJXTV+cQjP7dktbme2aq9UYcXfsyWZ/f4EhfarVIfUfJShKVvkWXye5/JY9PGxgVmOMlXuMfEM1pV4bL5JZfpUpaKqN6IctnwhecitPtQU7odQn5Rfb7wZ/TvXLNj+52JYyW6f0QWeDj7TH/eQy6yyorN+xbJcVgtkgti8Gzcq5yNOiCfspC55rhxHeCg95mcU2N38s4+1zh5jdBZy4aws9cOZtv5+tOTXjdiHYvTfhHmw91ifXDjerhdJ7lVxyR8nt+uCDXHLJVX1yF5wtkxtxbhwtFzcz7/oWav+OAbnktpE7oRvJRbiN3FFNaJ+riIl49V6zF9gm4z380YxJ/WYk1RFYFTeq2DLbvujE/Vg1eCd3lKFWNWz1gDEnVwtN6wEe+dU50dVHEl4Nk1t6KvnVKrlFp/J11ci1z1UahSNXAyiQ8mkJpVcvfvUDuYpIrqIrmVJqAOVWRNVU7uG1VkpylVuJVVNZ1Vq5FVQdFVoPWEeRK21aQr3IlawOUR1yJa5bFIVcCeofAz5QsfJVGxAYER4i19CJQ0jDbpx7YGzcV7TaAc2ZQFPaz6qGXGANFLPktu+K9tsBYOGd0ySVPya28MK7ZcDb1Jc1csnNqi9l5GqVuPoqAbn6JK6+xp9cTdLv9Eyw1SfVSmzkKdYq5MrbIQWWXEUJxXv4Z6TIVREV1x7kCr96g1zBVhHVSMW1hDqqFLbagFxpdDalOuSKmVcRFatrxQsqVpqg26/x1wOaIbRqSlC2GS7pkPM/wfjH3W9VoWAznG+V47oXL5WAXCGXXHhnHl5d+B8/W4p//dPEowFZ2Ww//gdSUy7CulH1o+WqoEiuXIRFouVSLJIuF2SRw7/7JkIuuSLkMisyQ65qCrnYipALrAi5zIpgK0IutiLkYivSQK5iiZArki43QrFKiTyTe/gTGSI5K+Ti62f1EomTq1gicXJVSuQFz7e0sZXco5vGeMmVlr098wNiK/CSO5yt25GRX7ApsE5esyUR43/5dp7ZC3sG2yJV6Ndg5OoWfq2WJ8t11KY0A+U2awxs1YjcuH7ANqhSocWq810hnSC76pVYuLvl9hs0r5Hw21Vuy4b39hfC5JIr5JaS+3qUEk91vLo5HG/Zml4o9+SvePtbEsFiy2+o3B6HPF4AIzel0L//7ccGtzhvf0lc0X+Um3sy4B0Sid4i/SI3blvhBRK5qUM2yi3F9qrR8OqXLO6Z4nLLLki8sSkV7vZrLvLTC77kNz7yo8m7yr2wP1M2fSKyKP8Dn1WKFQ==');
      GetBitmapSize(FontBitmap, sizex, sizey); //Get the size of the bitmap we created
      ActivateClient; //Prepare to paint the image

      for x := 1 to sizex do //Loop through every pixel
        for y := 1 to sizey do  // in x and y
          if(FastGetPixel(FontBitmap, x, y) = 0)then //if the current pixel is black,
            ClickTheMouse(x, y, true);                 //click the mouse

      FreeBitmap(FontBitmap); //Free all the resources we've allocated;
      //FreeChars2(Font);    //this will (hopefully) keep SCAR from crashing
                            //over periods of extended use
    end.

    Using TPoints:
    SCAR Code:
    program Painter;
    const
      Text     = 'SRL';
      FontName = 'arial';
      FontSize = 200;

    var
      Font, FontBitmap, hi, sizex, sizey, i: integer;
      points: TPointArray;

    procedure ClickTheMouse(x, y: integer; left: boolean);
    begin
      ClickMouse(x, y, left)

      if(i mod 20 = 0)then  //Waits for 8ms every 20 clicks,
        Wait(8);          //this keeps paint from bogging
      Inc(i);           //down with all our clicking (hopefully)
    end;

    begin
        //Font loading seems to be broken, so I commented out the following two lines
        //and replaced them with a set bitmap (line 24)
    //  Font := LoadCharsFromFont2(FontName, FontSize, false, false, false, false); //Load the font
    //  FontBitmap := CreateBitmapFromText(Text, Font, 0);  //Create a bitmap with desired text
      FontBitmap := BitmapFromString(208, 289, 'beNrtnXmQlPWZx9lEgbnAGQ4BgeFGUUEEOQbEGcAZjnCfcosIIqAoCAIqt1fkMCpqNm6y68ZUZbc0MX/suqndNVSKxbI0m6yWtdkkmOwmIioyDAyIx+yn3m/1Uz/fPqanu2eYmf59/+jq6el5p/t9P+9z/Y6nRYsar6RVXV392Wef8YTHL774wl7/6quveOXzzz/nyZdffulPVDy1aOF5q7NEGlwB2IULF+wVvXj+/Hl/ijxvGdEnn3xyxx13tGzZkvP2jW98468C8fyb3/wmT/Ly8g4cOODtm+ctU8JdAtvatWufeeaZ559//plATz755F//9V9fcsklLQLl5ua2iGj9+vX6Q4wef1tVVeUaQ8+bV616+eWXR40adejQoacDwdtzzz337W9/W1ZOdk/Sj3pEp0+fzmbSPG8pC1NmvJmuuOIKwdYivrCNZBxEfZ43r+STBeK08vJyzBqe1HhbsmQJIVxi3rB1WR7ded7qGr8BzFtvvQU5TzzxxL59+4y3p556qlb7hr73ve953rySF7wR9sPb/v37CdueiuiFF17Iz89PDNull16KLzZ0VUvxvHnFkyq6PPn444/btm376KOPGm/PPvvsxo0bWyQhxW86jufNy/PmeWtsURwiO/ibv/mbpxwRxSWO3+y3OkIWJqqet5TVtWtX4rfvODp48KCGG2rVX/7yF2/fvOqk8+fPd+zY8cmI5FJbJKeWLVueOXMmC5HzvKWmL774Am9IsvmkI5Dr0KFDMryR3ubm5nr75pV84gByeE9sGp50//79BG+415UrV3JKbRw/gfLz80+ePPnZZ5+dPn3a8+ZVa8rA46ZNm9auXXvgwAEit3379vEEE1dryVf+tE2bNjCZbYmq5y0dE6cT+MQTT8Ab/vRgoGT8qQb0oY5H70+96nQC8acGG0rGvrn6p3/6J00PPnv2rOfNK6bA48KFC19++WXbtm3xoURu+yMiEfhmoGRgU5incpy3b1616re//e3w4cNxqcZbRUXFpYGSdKw8alA1G5DzvGXkHJIpGG9bt25VeJakPwVXHl9++eVsGG7wvKWfNXAOcanGm0K45HlbtGiRDXJ53rxqFTHYvn37cKmPP/74o48++thjjyXPG550yJAhO3bsUCz36quv1gTF5OY689zzlr62bNkyf/58pQwkqvjW5OM3TYrbtWtXz549W7du3aFDB2/fvBJIhghr9vTTT2PfoA7ekhlfcFOGBx98cPv27UVFRbJynjevxLxxGh8LhGPFyhUHSrIegrBvO3fu3LZtW6tWrXixVSDPm1e0Lly4cP78eS1ngDQeMXHjAiVv34Bt9+7de/bswTXb6+S5XwbyvHm5Iq9s37793r17lSzA29ZAycdvvBl/ile9//77b7rpJnv9l7/8pbdvXp43z9vFkvzdiy++OG3atIcffpiU4eDBg48HSn4I9YYbbiB4AznAe+ihhwYHgjdCu48++sj9R543b9z0pGXLljCGfdO6VFSnUfsdO3Zg34BNT5Bmj0AdKUmzKQV73tLPT8+ePYvxwRYdOHBAWWryE5Nsui+k4Uw3b94s5NCGDRtAjkSV3/7oRz/y9s3LFWCsWrVKvD0RyJ0BUqswaLjUBxwRED7yyCP2hv/5n/9pBoMOnrdMCSvUvXt3wSbq6lT1LS8vh7FtjjBxe/bsIQfJyclR+uB58zLNmDGDk0kIR+SmfEEbEibpT1WFc3m777777rnnnnvvvXf69OnApgl1njcv6Te/+Q3MkKI+FpEmGiWD3CWBNm3atDWWiOv4lY6D175w4cLnn39+5swZz1uWS/bt0Yjmzp2b5CxfTSbBprmYbYmI19esWbNu3TottOnQoQOO9dy5c543zxu8PRIRARi8JTNRRLwVFRWRn0La5kD3f128snr1ar25W7du+o/Yuurqas9bFurLL7+cOnUqEZfxhm9NPmXQ2/jzTRG5pCFeWb9+/YoVK3hbXl7eNddcwz+trKz09i079dVXX7355ptDhgwx3sguky/BycThK0kTVO91eROBmL6NGzeCXE4gjOfHH3/sectmEV/t3bt3T0RYrSRDOJPxtjkis3j8Ct741fz58+ENK1dQUHD27FnSB8K5JlEQ9rxl/Hzu3r17byBMnDa0rBNvZAcbA22KknjDq/LYpk2b/Px8qOO/NKHRLs9bZoVbxKy58VudYOP9ZA1yoy5mJki7M9Add9yxYMECeG7Xrt2Pf/zjplIK9rxlSiqLAYw5U3hrUUfJ+Wr8NGTZBBvaEBFMjhkzBq/Kn7z++uv8d3OpjRY/z1sG8wXE+dy1a9fDgRS/1dW+gdyIQCGzZqTdG9GaNWuwciSq+i///d//rYwVNdpYzvOWWeHgiN80nsWTuvKGCMk03BAN271f1+rVq3GsUNe1a1exeuLEiQuBPG/ZIDzanDlzcH/KF+RPU0BOWrx4MYy5DjRk30xkrERx6tt1ayD1KGyE1HnePG+et6YoLi7x24EDB6ZPn74zEP5UEyZbpCpYgrd74+ieiO6++26NO+CLWwaCfPUF9rw143yBwOnYsWP9+vXbEVG3bt3qWn9zRxw0phAPs/UREcWBHKYPthX7AV7jbF7jecu4Wrdurfkh2Lfrr78+ZX8qUAEpmjTBdncs5QfS6JiqNFVVVY1nMonnLePiWu8KBG8VFRUt0tPmzZvviVIItrsiMjhVV7nssstqIvu+et6aqzilqr/hT2fNmpWyfTPhVWEM8NZ/XXfF0rqIiOL0r/lImpzZGBr+et7qqQQnLV26tEXaWr58+Zo1a7BdwizarK2L0tq1a0lvLTtWLKek1fPW/Oyb5ae4thaZ0O233x6NWTRvYLYmIg2wqkiiDkpEcRcdOc9bfZxSy09xgjH9qeb9Wr/7xLC1adOG3GH16tUqfcQ0a2ujJOpADseqOcY1wTbX+pAXCzzPW33kCw85ijcu36lTJ6FYK2+iZdWqVeIqpvd0LZukaST8tqSkRI6VvBXHqslLF6sU7HnLuGBJxg2XSpaaYB7I0aNHk1/ApfIvJi6mTTPAQuJ1YshevXrx523btm3dunVNpBmT563Z+NPtgUCOx3i1XNzcxIkTq6qq/v3f/x3kktnvt3v37lqoFdOgRSO32tGyZcuAln+Uk5Ojupw+bQPP1fS8ZVyA9KCjePAQyfNOu+j9+vVLZsRhxYoV0bDFBAzd4YiMA+S0kXX//v2tKOd5a+pq1aqV/Om2bdvwpzHdJaTZZqqK4XFwJ06cqHV2HLGceU/jbXUsCbNVEa1cuZIUY8mSJSoFjxkzRiGc562pq2/fvlqwnNi+GXgwCWw4OMDj6h8+fDgvUHQqIXRBDn6gLuQ6XWvGG6J5k+bMmaOjbdiwwfPWDDRo0CBNAk+GN+UCljYqmH8jEK+3adPGCmhuIUXkxIMN8dsQZvhTPeHNWGDtbbJ///4Gnkbiecu4cFXyaEnyBj+lpaWaziQfVxVIoaC7nFA7XtpUpRBvZtP0fOXXJQgJ/2677TZcMLyRq3Lw119/3fPWpAU8CukfeOABorhaE09NkFOD8tChMD5HjhzREWBD8Z7qt/n5+cuXL8dq3XrrrS5m0Q5Uxs0Vf8iLmkbCAX/3u9953pq0fVN97KGHHsK+JeYN2FQTLiwsDPFmP2L03B4i+Fk75v3333/33XfHZMwlbYUj+OR1jcleddVVHBND12DDDZ43z5vnrUmrZ8+eWn+qbQNrLXE89thjAwcOVP0/ceNdC970RKEdaaayAAI515+GSLstSqKxT58+Ks64RWDPWxNS586dtQFvMrxpMGLnzp32Y4IjY4Vefvll7VtuY/1YJ0yWppSHLJtr1gyz5V8XbysqKtJ4mbdvTVHE4cpMk+ENYLZs2bJ7926yjDZt2vDKxx9/HK8fpUzf4cOH+RcFBQVm66699lqNILiKadPQrREB27JAPNGhrr/+ei1f9bw1IWlnVISJq7XLDJnm/Pnzd+3apa3Ibd1BTTDiEHMqOFYO8Dp27IiJgzr1aMCoqipi1mzF1+XaN/G2LCJe5DE3N9dmwtc4M5c8b41cXDWti4c3HhNP/+DNWBWN7xP8y15pjdWZM2diTuQ4e/ZsZWVlVVXViRMnVCThzdqI6a677jLbFc+NhmBD/Lho0SKwz8vLU1YyePBgkK6POSSet4wLBrRvG8YNABLv/6aZIXK+vJ9Hyz2xYBgZ6AodHwyqq6tVGQbIH/3oR+4BywLBVUzMRNrSQMbbkiVL9DpBoHgjJtyxY0d9zJHzvNXHKdVMS+DR+HitE9tsciZWjr+SfcNk/du//ZttDZ346vfo0YM/0b76yiYUxQkkN2xzwZNgb0lEJYH0qf785z973poEb7a1+JQpUxLX30SjTV7CpcJbx0BavKw0QTYt3n8UiidPngw1dBgwYIDsmCK0kJZGBGaLFy/GpfKoVxYuXMhBCA45cmYDOc9bxgVCit9wqbi2xP5UxVvrYbRnzx6snNaQqixmFyiZkiyW8N1A+qeCGZAsFQ1hJgk2fgVmiwPNnj172rRpOgjHzGDG6nmrj/xUvGHfRo8ency25Jg1NaOUlRN7Sh/Q9OnTOWwy+94bGMePH1cyAjM5OTkkyytXrlywYIHxJswko860IBA+moOMGDHCDp7+5CXPW334U9vQHo+WzB6Do0aNUrznttDiz8vLy5VQEMslY98+j0hpBYe1Das5iNAKwWZa5MgglF9+5513dMz0MwjPW33wZlsFduvWLXH8Zr/Fvgk56zKj5506deI9xHJE+HX9JCpoWL8kDF2vXr2iYRNjCx0R782fPx+vynPNuMOrZqQ84nmrv3wBA6UNspJZ0Qxs/EnMfkYyULm5uW+99VZdB9ZlkQ4fPqy5xMIbxnCswgy/aWbNeFsQ0cyZM+Fcf5uR8ojnrf7sGy41yeV+YLBx40byiy2xRETXv39/0MXO1DWC0vtF6fe+9z3NteM4Q4cOxbECnmvWAOyWr0uvgGJhYSFfxPPWOPNT7WIk3pJURUUF74/JG6Zv/fr1MImJw9albGf4w9OnT7vzmsCJPAKcYG+BIxe5+YEmT56sz6mlFp63RmXftLEMJq5O2+CH7JvbrE30YuI0IzeFT6XJ6pq1zsHz8/O1MqK4uBic4C2aMdO8efPmzJmDb+X9kyZN8vat0fKW5EJm2+ot1BBQImlVCwZCfTnEp556KuWPp0xT8HC0vLy8kSNHzo+jeYHmzp2Lt+UJ6Q/fKJ3JmZ63zIqr2bZtW/G2YcOG1q1bJ9l2QY1CZOJCvFnXD6zcuHHjVOI4duxYTTCLI+Wa2P/+7//KWnI0PjMmbm5ELmzSnIjwwry5JtWFhJ43z5vnrenq3Xff7dmzp/GWZP9Tva1Lly6hzlkhkTjw2KFDByuhpNNsVwNVo0ePhjoowrcSuYkuwTbXkfFGNsFHfeSRR2pSmn/uecusXnzxxREjRig/3bhxY506GakqAlHRbSitwMIb1q5dW1hYqE26wDvNMmxlZSUHsSbUZtBCmJl4saCgoF27dql1TfK8ZUr4F5wpnFRUVKgxR/L5qal3797x2p6aVDaxyh7R+yeffJLODuQ4ZU3dNOoGDRo0e/bsqVOnGmazI+L59OnTVcSznc+TB8/zllnddNNNy5cvNzDqyhsI4YjFW8xmbWj79u38VsGhljy4pd0UZG6RwOzSQNr7C65mxxLWr2/fvnxU/G9dB/E9b5lVp06d8KQCQ/60TvuTc62t065r09x+RtqcYc2aNfwj/cnq1avTtMzKdD744INvRIS5mzJlSjRss2bNgkO8quZkvv3223Xab9/zlkF/iluRgZLgQfMr6mTfMB2Gawi2UKMZmFy3bp14fvXVV+XXbH5IXXXq1Cm+QnUgbRpMlDhp0iSlD7MimhkIr1pUVKTtTTBxyVfkPG+ZkuJ2zr/xxkVJMj8NbX8kNxoPM+v6oTlyJSUlcoIE8BbFpeBbQ/N48/LycnNzMWLf+ta3DDM0IxBPpk2bpkU6xJw+fmt4cY9z2rVzkVRaWlpX3vRmjZ7Ha9NmPMMkXhUrd/nllwMq1iad+ZAa7ZJ51L2jTV95JE6b8XWJN0yx7hHvTy+WieN84gHFQ7du3bAAdfKnNl0EaUfBmG0BQ40/3FXVHwf6KqI0v5HGvLgLAIzgjcjNeFNZ2LofyrTW+k89bxmM3+CNS2N+UOTUyb5ZwV9+Wc0B10dJXRiMtwcffBAy3eOYyUrzS2HrBD/HJDwglpseSNTJ1SpxeO2113THJa4Het4yJUXpnHxieGGQflsZTJnafIQMWki2Q74NVWgOSTqjD+6XAn5BpfwUTQ00JVDbtm217XkyeYrnLVNS8IMpwNQons8Ib4RniWFzeRs2bJj9LQaQlDP9L8WjFXa6dOmCWYMx440EllcUPf7xj3+sNTv2vGVKyu80GSkj9o3QiAjQbZsVoita6pmFWrduTej45ptvZiQoJfPVZDmOCdKTJ0823niu4Qap1u1uPG8Z1O9+97vCwkJrcRWNkKaLaNOPWkvB2qL8gQceIBRUf8CY/dpc3vittnLVNBJNx83UDuRaBK31iZBGfipbN3HixLKyMkWeRwLZXhOet/oT9/Xjjz9eUlJChB+PN+zPsWPHCgoKAA+cEre21/4MHTt21FACbjpm98lQmzZ7vUOHDpo2nJFEVQhp4QxWDuNGsjApIp4TxVkmfvLkSTiPma143jKo0tJSfJlFXNEIucW6mTNn2vh4gnRVO4GAHBjX2qYNJm2r/GXLlsnEgXf6C+Q1EV3A8Kl69+49YcKE8vJy7Buw4VX5OjJx6Fe/+lU8yD1vGRT3Pumk7TPpVnG1AlTXXSNfWIDjx4/LJlgjj5jU5efnA1t0Z8BQ68lQbyOV7+wIbr6Zjt555x19ZrJUWTYJ8DDFKp6oK5znrb7rIZxq9VMbESianOi7vqqqauTIkfBgeyXFyx3wpDE7nIbatFk/o1WrVvHI2yxKzFQgp+EzDkv8NtkRFs+a5mzdujVmIc7zlsF6CJdAhuWKQKFNt6DRbSLj+lbyULxePN7Uc0HwxMMsutGMdpBesWJFz54927RpA9KLFi3KyG2FVJTGn1oIB2wVFRXucjMfv3nePG/NKT/lPAuJaGASbwB+5syZ1157TV6VvNUmPbqXj6BIFbbEbjTUH5AnvJNclQMC7e9///ua9Ma5qqur4U1Oky9lowyi7vpAmhsfM1z0vGVK//qv/6pBdq5vzGkhWLAEtWJFO23btk2woIb8F+RiMnZHlKwDCOktf0VGqUPBgIZC0imM1ATbsPORIBmzNn78+IkTJxLCiTr9o3379tmEc89bxqXhSzVN04B7aJZRgg2OlLHq8ciRIzEnKVkTyXjdTld9XcqR8afav3fZsmUQYq090jHjmrnEkRUkYOJADhM3bty4ikBa8KUx3NBUTM9bplRUVMR5lv8K2Tex98orr9R6EBwrj6cDkZPiBLVCwZ2nBEsq/EYbtwT92uBNk4FBrn379rJvKe+VijXmoypIyMnJMdKkG2+8UfGA4PS81Yc4k7169VJkFdMhJjNbA++jTpS6psXFxdHz4rp37y6rtSpKCfpn6Q2qyF122WUcmf+VjldFO3bsADkCy4qvi9xBY3Y///nPffxWT4IEbnO1+Y4ZgyVvOnQ17QJFO9Z77rkH+5YAs+iuRjJxS5YsIalUyiznmGYFWB+ppKTE5e3mm29Wen711Vd7+1Z/9k1dlefPnx9zJDS1YInHv/3bv7Xm9XZMnCP/Sw2wErQ6je4vA3X9+/fnUPjr//qv/zLIU/vWR48ezc3NxcSRL0CyeBsfSFFE6Miet0yJ08vlxrj169fP5sS6pqmuVQj3/Z9++iluVLwRL2kTD42Wqr9kzB5t8VpoLV26VB8P5NJZnq9yorjCxGlEFY0dOxbeYi5t8LylKc65GlpxJoGN6F3VJ5c3mxqU5v8iHNJMWgIwFetEOJmCOnpEk5agf5aifWWR6Xw20IJbTJwwQ6NHj540aZK+dWiqgOctIzp79iwMYF7wcVYuc3njTs/U8KU7ss9VXrt2LRTBeWLLFt0/iz9R4YLHNO8FbgE+DPZtXCCQGzNmjAIAjLDnLYNSlvfcc8+VlpaqNBFzVani8/SliSWzZs3SsilRvXjxYrEU7ToT9M9S43uIhZaFCxemXI7TqjQ0ZMgQ2beysjIee/fuzcezqSmetwxq0KBBixYtwtSAXLR903YcmbJv2FKo++ijjzhsu3btCgoK+F9TpkwBIQMMS2sECja3G6CkRgx8bLnmP/3pT9XV1ScC1TWEU7vzli1bjgok6m688cbo3V89b2lK9QROo5wpAVXMWeK8nqn2jsB25swZ8KgJZtzZWMa8efPcjCBBA0prC6j2H8XFxfrMVlhLLV3iCBMDqUch4Zwd1vOWQQES7pK4ncvKFYw5M/ztt9/OIOEYItsn/N5779VsNP7R0KFDrYlzPNii+2fxyfGqADN16tRaF5BG2zc+BvwrbCgNNDYi5U2et8zmp9rGQfMbb7jhhpjF3gyuW4npYUP/DopA65ZbbonZfdKFTS4VMjGVUPdpIB2zTrPQxfygQJB20003YeK0QMMt73je0udNfk2GJd7uDfXRu9ZVZWVl586d3f9OuB7TrEX3z1qwYMH8+fO5X6wVzs9//vO6bkL+z//8zxZIkJzeHMhWXtsohuctU/EbERr2LeYaBJ3z+rNvZkDgxDy4rn609zTY3O5sIMfNMnv2bE29wy6l8AGMt4qKCoVw8qcffPCBfX3PW/r2javcp0+fFStWhDbxCPHWAPrss88+CjRjxgz77wTwyiAWx5FRx6MmTLrrHZK/TWwzdpwpySmBnH786U9/6i7v8sx43jxvTUWcycmTJxOrcE1xqfHW9GW8MXe8KE7rC0hgCcDgPC8vj7SRRyK0kBtd+HWpUaDeQ8DPX6kITKaTzBwSq/qikSNHApv1tt66davPFzIorqZVVuPZN+7uBuDt1KlT1iTrzJkz/Oi2WMXEuU11Q90neTJ37lxt0qsmCwSBp0+fTjLTUaMTJQjDhw/XEIOGaDmysnjPW0aKb9g0jVdi6GIWewcNGpRyHTUdR2+1Gm3CwJOpU6dy9dWdLWTcXAEeVs6m7SVZkdu+fbv+5PLLLydFxavqR+tI7nnLyGXlHMIbyWn79u1j2rdnn322vpPTmDdCTaThkW2AmZOTM2TIEOtQ7zagdNu0aQfL8vJyKD18+LAqcomlqZsa7MCsAdvo0aN19xUXF/MrH79lKn7TzDcuojZtCC0DxLY0ko+quUyoTZs20a1OYzYH7Ny5s01YShzFcR5Aznb1LykpIWVwl/Z73jIlTq8Gj2LODEltZm992GEelXvqprj11lvnzJmToBOl+hnZtMnE8YCCRmvfAG+YOM9bxvXSSy/16tULf6rV5W78ZnvRNJ5Pi436/ve/r+0o+Wz4zenTp0d3Awz1z+KdR44c4W8TpDzavti++42BPG8ZF9eLe5kI/Morr1SXvVBmSvTSqD5wVVUV8bx9QqWl8DY3lrQ7dOtAiYfyFaHZYa+77jrNR5I59bxlStpFEPsWnZlq9teWLVsa22c+d+4cuYB9YG4WNf6L7j6prch5paioiHfKvsXMfeRtWwbCfg4YMIB8QcfPzc21/MXzlqaAatGiRbfddls0bxrE/Oijjxrhxya237Rpk7U7nz17dkzeZPp4csUVV/Dmn/70p4kTbdXfQK5Pnz6YfZ2Hbt26qXmi5y2d8Fu7cMglEXtH771gsyMabeVQyTX2h8/Jt8CaWXusUCfKKVOm6EudPXs2HsDGmxiDNyv/GqWet5TLIIqQsQ+a8OPmCO5y+PS3lKw/E2dFDH1sTJl4CzUERIA3ZswYFdMS+FOrCGEPR44caT183fDDw5NyeYHYG9+xcuXKiRMnxiyGNMDMt3S+wmeBeKIFViQ7Gm6wboDiDQKxb0pUo5f4xeStc+fOxtvdd99d48dP07ZvPH7rW98qKyvDuBUUFMRrvtZoeQtllzJxKhhakyxXIGezl6PLcZrAbAtv4Q1/qqM988wz3r6lf4EQkY+GI+Ptu9uuXbvG/11IVzFZRPg2ONK/f3/FctYQECs3bdo0zJ3eo2WJbjlOYYPyU97QpUsX7WDMTff666/7ekimiiFayBmPt127djV++6YdCJU7SHl5edht68tmto5XVGDkDSETJydrX5z4jTRBz0+dOgWZ9gaPTWrBD+LmBTabShGtDz/8sKl8o/Pnz7sDBBp9UKagTpQSr8hjxuTWAokBAwYMGzbMrwfMoE1QOf2WW26ZO3duvG4dNfW/bCGD6eq5iGTEoIXUkhhVhV+JH7U9hUYNQjeg5QuDBg1S8zi/3tnz5nlrivr000857dpOLR5vSU7GbpyhqfbDAbCKioppEU2dOvXmm292p2KqDqnhKhV4wZXgTeMLoekxnreUo52HH374uuuuI19wt4aOXrbQVOxbdAZBpqmdSdSt3oS541a69NJLO3bs6L6fpMDiN3i76qqrdGY8bxmpv6lyDm8xd79HPXr0aJhlMhmXBq0IFWSgrOGpui1g8caMGQNyALlx40ZLVG1+r3aWgMbojWQ9bynzxglfvny5223Wel0pjNm6dWuTKPbGjOW4TY4fP56Tk8PXueaaayZNmuT2ELfhVG40MLN5SnbrwVvMjYs9b+lEOGQKIBftT3Wbnz59uia9rSMvOnU//OEP5TpnzJgBchMnTpR9Q127drXtQbSN/8mTJ62ziS1ivfrqqz1v6UulKvypViGF/Klu81AFvglJKYCMs3Z4aN++vZIFdTvlcfbs2SrEkYpWVlby/t27d+uL9+7de8iQIXr+4osvet7S9KQ8/ud//md+fj6R82WXXRaCzaaINI/bCmnCUufOnUlUZdwwdBMmTLBeJNofDIunH3Gmw4YNizk9xvNW18RNT0aMGDF+/HgiatsCN9q+NYPvq2l+8EN4gJXDmarVaXl5ObyVlZUpXv3DH/5Q4wxmDQ0Us+mq562uIU1NsG2CnOnMmTNjTkMaE6gZfF8lqmq1CVeFhYXqyIZjlVfVklttIGDbeQ0cOBAnay20PG9pFqZOnDih9XSqGERPQ/pDoOb0xZcuXapF+kpOJ0bEc3F17tw5iytIFrSdtbdvGdGOHTs4bwsWLLBKu6vGs8A5s45V327w4MEub3KpcEgIp0wWaSQLderUydu3dKRdH7XMBH/qNu8LDZs2P/3xj3/UFyRyM97Umg1rVlxcDGnXBLr22mt1Hn7yk5/4/lnp56ecXizb7NmzY45h1bpUs+lWSCBK3ScnONI4qbzndYHI2eMt9Pa81fW0a5bX3LlzCd5idpzv2rWrTWdtTncZtn3v3r36yuURqUGbYONRvFlRqCZq2rnnra756d/93d9xm8MbyWlM3o4eParZ5s3yDGgTHvV0xtCJOk4IXrWoqEj+1Pbq8fYtfeXl5WkVcOfOnWP6U1v31Cy/vljq06eP9XTmiejq1avX4EA6D9u2bYvuAuB5q6s4sfBGchpvDlLz/vo/+9nPbBNytdYdO3Zsx44dcaDt2rXrEUhvUKNqz1s6kZt4I1NQ5S00rGBBy4VAzfVUKD2XZQM2kNPSmFB0ce7cOe9PPW+etyaE3J/+9KdWrVrNmTMHf0qEHNq9gQtRWlqq5ZzNlTe+l7gqKSlRt1N4s62QbAZg9MiC5y0FdevWjTt6ypQpmm/jznwTe8ePH2/2J+GFF14gIc3NzRVsaPz48TobfxXRwYMHY1YgPW9JykYWyEzV9yd6961sOJlaGe32yYI624pcsLVu3bomzkRTz1tdQ5eZM2fOmjUrevctjR5mz3lQ1RfY1OpU4YS0cOHCeAvTPG/J6z/+4z+06rywsNB26nPVs2fP5lrmNclqYczxnsOGDYM02TeVfG1i85kzZ2JWID1vyfsRTu/AgQNJFmIOK4DfP/7jP2bJ2SCogKt27dqpry4mTjegZLm85y0dcf8SueFPrTFZdKW3iS7IqqvIwfWVBZu1Zrs6EJbNGnx43lL2I9y52tkgJmwDBgzIqhOiifSCTbzxyluBEvyV5y1JHTp0KCcnZ9q0aZ06dYq5uvmDDz5oftNCEkQX1htLJV/lCy8H8rylLy1YcPuKhqSNSbPqhABYly5dRo8eTb6g6vf3A3ne0tGFCxc0mxrjRpxsG/Nm1TC9a9mqq6u3b99OQqpsVK2ylEP9IJDnLWXJZP3f//0fp5dMgSAt5ExbtWrFfb158+aYw4XNUh9//LF7BoBN24kgz1v6vHE7k5a2b98eZ2qbKtvZ1m1+8uTJmqD5YzMepre8qSao96rgxhkgWdBW+ZwcH79l5PTm5+dPnDjRNoSP3oS8ma1WSKDPP/+8d+/eoGUrT7Fv1ur0F4E8b2nyxr08a9as8vLyeMlCszdrJmy4yo/FxcXGGyEc8Rv5+4lAnrd0/CmxcW5u7vTp021DM1eguHPnzuw5IUuWLMnLyyMt7dmzp2waztS2vk8mq/VQJbZvnKKysjL8afSAqWK5JrqJZV3Pw9mzZ21YYeDAgUqUxNuoUaNCfU49b6nplVdewVOo+UXMMq82TW32w/SiaN++fWr/564Vwp9aqwXPm+fN89aE1KtXL1V6+/TpExO2goKCBNMhmo2s2xpudMCAAaq26QYkOR06dKh+9PFbyqdXLaI4P1deeeXUqVNDYwr24z/8wz8016WmMWlRryJV2zSGVVpaiolT6uR5S0HV1dV6UllZiTOdMWOGmlyE5pDHW0LeLIUBVwGER4srlC+UlJQMGjTI27c0wxU0cuTIfv36lZeXR3f0kEMpLCysifSaad4n5Pjx45q+a1WgH/7whzLyBG+cpSSn03veolVVVaUNjji9EyZMmDJlSrze9OokmyWetE2bNloLQ76wN5AMPvFbUVGRQjvPW2q1Jm0AIt4mTZoULzPNnnOiMQXdZYiQY+zYsfCGWcOfyrjxHp+fpiBIuz5Q165dJ06cGDMzjdeTsbnq8ssvD91lGj9V/KazcfvttyvP8ryllojJmaqNVPQwPSc5S1YrKId6//33Cdh++9vfauaVdmXHydpg1rPPPuv9aWrFEKUDeNJhw4a5cbJbDzly5Ej2DNNbZCv7r1b1qo2MGjVKky3Pnz/v/WmdMNNU3gULFuQEwr4Rk4i9aN508rM2f1dER9RRWlpKpoAXwO553lI4kxqDRpqAFNqXxuK3Zj+mUOtZwuxj//v16ycXkGSg4hkz+6b2CpwTde256qqr4mWmBw4cqMma1aYxpfht6NChubm5cgF4B58v1KkMwm07d+7cvLw8bd4YbwJS9uwTEvMs8fjee+9xJxYUFAwfPlytZ0hgvX2rq4hAwEnbhMbs5aGdzebNm5fNnpR8QYu++/fvb621fvzjH8tBJA4zPG/uncsZ4+yRJgwPFM+ZfvDBB9nMW02wuJ4TxSmy3aFPnTrl7VudRPjx+OOPcybHjx/fOlDMtNSfMWHDyRFvuiuT/0N/9iTcBDjddNNN48aNa5FQWbWOPtoLcGPazJAOHTqo9J1k9uR5c88kvE2aNKm0tFR9x2LCdujQIXVpzHL7RihrrWSsRZ3PT2sV8a1yrnXr1nHqNICVwLhpHmY2n7ErrriCG1Nbb4m3n/3sZ96fet48b41QOMczZ84Qk3Aq3K2PNaswmjfenOVnTEWhYcOGWTvO5ANaz5v05ptvap3p5MmTtbV7zGEsjdpkc76gJaiyb5az1ynw87DVRCYgkSzEbKEr0vCzhw8fViabtSfq17/+tSbSDx06NIV5p543GStc56BBg8aOHZu4EuL+SXaK+xGDRmbap08f2f9XXnnlIvKmUUj3ith2B9ad0H6rJ/YGPXF/2zBLO1966SV4074r8faCVhLh700NzduwArLlbBfLvkGIurGojZTGid544w1CcVsk6w4Vca3z8vLuuuuuY8eOyVuJzAbrWqt9aMePH5/AsqmNRZbz9v7773MFyReuv/76SwKp20LyyGWcN5UL0Kuvvhq9OlhBuCrS1o7E3sAX0Y8YkyNHjtRaPMyU1GdNm9DGGzNVCT2bq0a2WQ2Bx4ABA3QPrlixoq63dvqAuTZtw4YNcut24bQuWCO8MXuc6VHFB73NbfVYVFS0ZMkS7iC36pWRncB1hAMHDuTm5pKW8pjAvqknVDbzpvEXTgXBmy5uCvdgRnjjw+AEf//73xs2XB3jDWNVXFx8xx133Bpo+fLlS5cuBaH5gcrKyrSvmkyfEej2K9HX/MUvfsEtJqozFY1oAlLfvn1HjhwZ3c/UD5u6Yfnbb7+t/VI4V9pFtkOHDg3PGxHa4cOHtWLC3CLJ8r333rsm0O2337527drbbrtt5cqVPC5atGjOnDlqyQ1vM2fO5Ec1QSNcJ5CzNnOXRJSTk2P2EENUWVkJdekPYtpWtG7kFnPvcYTdzvJhBa0/NWcar6NuffD2ySefcLNz/u+77z4RIsxIllevXn3PPfds3LiRx7sDgdydd96JfRNvmDjZN8LvefPmCbYZM2ZMmzZNs7hHjx6toDSeneFXU6dOPXHiBB/g008/PX36dGonEGjVgu2qq65KnCkgG/bKNrOmJw8++KB1LMLE4bNSWw5ZV970AbjKNUE/qfz8fNmELl26bNu27f7779+8efPGQBiE9YHWrVuHfYNDkMPWgdyyZcvEG/YNQ4dlA7np06dPmTJl0qRJFRUVGBxthJUYAw0tpePmFP1G98KONndZ60ytISC3eb9+/TQnhJOf2iTnFHjjzOMTbRsNUuOHAu3evXvr1q08ATaow/TdGwgTB3JYOZDDxJHRKITjILfccgu8zZ49G+TgDasFchMnTiwPVBYomgFjgwj/jTfeSCd+C20zHm/78bZt22ZtwY3Hv/zlL5wEbMvAgQP79+8PeBrDSsHgJ8mbqhxa3kusWFhYqPrnpk2bdu7c+fDDD4PZ9u3bsbogt2XLlk2BNgTCsd51113ibdWqVWbiFi9ebCYO5MylwpuWq4g3DaDHjOSJ6y677DKgVbGurub9l7/8ZYvapPTnz3/+czbzpvNPdmBjptzyqZWqkuSNUAfedOlVN7jiiiv27NkDaY899hhPdu3aBXgg98ADD8ixwpscqwI5TFwoipNLlYkjipOJk0udMGGC9UZXO4mY9oe7TB8G8FL77smIf53N6/6UUnGqBw8efO211/Ica6+YuV7zhXfffdfsDKb1iSeewIF++9vf3rt3L7zxBOR27NiBiYM3TJwFcrhURXGYOPGGSxVvcqnKGkK8jY9o7NixZBDt2rVLgERqg02hYmC8+C2bV/9h32688UZOVI8ePciqIE1jCilvZJH4Mtm2okePHlXUhD0ZMWLEoUOHnggEZo8//vijjz76yCOPQJ1MXMirysThUpU1yKVaCLdgwQKXN0I4XCq8Eb8Zb9hVkJOpiTknzbCpqqrSrgIa40gQ5OO+rcySQHxrLHk2L6XXucWykSmoHErEnk6CltiNonfeeUcDBJx54q7vfOc78Pbkk08eOHBg3759UAdyeFV8KxYPE0csZyZOVs5MnOtS44VwShlsESi84VJHjRqlTTvjuTx+xb3AycGK1gSDsFL0l5IXiJcgRJPMQTJYZG5awjJw6bt16wZvhMrp73rnefO8XXTe5Ea/igi/owGm559/HsyefvrpZwLxhB/3798v5FyXStaAS70/0H333adanJulEsKpCmchnFrDizdV4VzebgzUImnJn9Y4m+tq0jhPTp48WevQVehQWZgvKOXXGbjmmmu42TVTq0uXLunUvWPyZuGKplUrcvvud7+LWcO4QdqhQDzhR1k5482yhpR5I36LyRtx45VXXpmMXXInn/z617/W2ausrAQ5LDAvFhYWJgnb22+/rWgwC3njunD1O3bsePXVVyu34sTyejp3XwLzaFcWsLFguEvowqY9++yzzwXiCT8ePHhQJo6sgVxVLtWyVGUNVhVJkzdtpZg8b+YTQ5TGW1saczWWNoXLNt6sD+CAAQOwabI8Y8aMSXOSWDzetF5J+Qj/jjwUIwZaTz31FJYtAW+hqoh4s6ovKSohnHjTQKpKcDaQqpLI5MmTlaKicePGibdhw4YNGTKk1gpG+rJ/ods5O/3p0aNHW7VqRShlvQDqtC6mrv7UHaomJMNdQhSu0/wpsPEIfvKnAJmYN/nTdHjj5ho5cmSScX46MuvXtWvX7KyEkB/l5eVh3whgOAkEVMDGK+nb+Zi8qaLLo4psBGakn+JNJk4pQyhfqG/eSFExcT169GjRUNIwlqUe2aOXXnpJ+ZQZt/bt29dkYqGQyxs+lIiaCFmOm+u+OxCRGyzJxEEX1D0ZiCf8aCURsIS39PPTUPzm8oZ9IzFvMN6yijGViT4NpEJ379691WEBy5bC0FWtvGmmrtUKQEW8YbJgyZADsP2B9gWyIQZLFlR/g7fo+ls6vAEbyLkrg+pJBC2a55ltCWlNMBlDjHESevXqxSM/4okyFVe4vHHMs2fP8r+wbzCGjdoVCIpgSV4VtAAM6uy5O54lZxqz3uvOSkqNN5JTeHOX2dYfbz8JlG0J6YcfftgpkNJSK6Tj+Pgtvi/9vCnkNXTCCbGgRZPZEC4SloTco4EecyTYZNx4J+83Z2qzksSbgjd3fMF4C01J0pC9G7+NHj26pKSE+K0BeCMvs1p3Vtk3t6mrXKom3mTwPIR44x9xtoEEYB6MiHhMVk7UEc494kjzQ+R2bT6SjNt9gYAterw+ejzLHa93x7OMN4zbDTfc0AD+NGvX0Wt+F+rZs6e8KjBg1jK4353L23vvvcd/6du3L/xglGDmgUCYLLwktsulziTS+G20JzXeQslC4vkhJKea4mvzQ8Sb+ggPHDiwvmHr3r17thk3xInFe14WyCY2K4vMYPmRY8o7E7xpnrAySkwcT1TQACFN390Z0a6vy6YhuZ5Uaalb6bX5bwnmW4q3mPORiN/wp127dq0/0ghccSKnT5/WzgBZUubVsHKo4l1P67vFsHUnR1rqwiPMyEwJOViCKEV02x3xo0hTTmoze0WaO7k3njMFNndyiII3eVJUVlY2ZswYFUOGDBkSb2FLBmW7E2SJidMsmtCA4BtvvFEft5vZzOPHj/Oc665wy5ATdUofUAg8OVCRJjdqls3WA7rrs2y9jDIFOVOtl4G3UPAWzVuS46e+7JaCXnvtNa3yQ88//7xcXn3wppUmWn+nQAtIeAJ4mhAOPzJ08rAGniSfq5WALmw6lI0pGGxypjJubiVEIwvGmzypDdaXBCJ+S34eUQoiaPnNb35Tk60ywLQ8oT7Mu25n24oEKoiyIETUySHK1in4Nyd7f0TCzKaOm2UTaSHYsGwaxpJxs8zUKiEWvMmyaX2WeCM5VWuw+uMtq1qahiTG3Hmq9THL1OI33d3wIN5wggCjBcuGnJm7TY7Eobs0xmDTfg4hT0rkZrwpU5Bxs8WAyhRUBtHiLJIFnCm81Stsysj89rz1Ks+b562BeZPx1Gw6kkfwwAOaV3Udq9bLu+zJgWoEwepsShCUkMaEjeBNztTNTEOVN0Vu4o1kgUwB5EhOE29Wn6Z27NiRzXvzNph9+9WvfsXdTWSlYsWqVauABFRkoGTrlGyaxXOlFy0VlU0TaYJNBV5FbpYpRO/k4FZCFLlZ8DZ8+HAb0avXzDTLlzY3DG+4RZ5gfIQHMuREnSL/dYGMPUk2UL8SbJYg3B7ILNuSJUuAzc0U3MzUjJvBpjUyowJpf7b6dqaeh4bhbfDgwbgqeIAKrBAmDkhAZVUggXdnRIafSYzJgfJm/kSw3RbIhQ3LFg2bym6ucdPupuJNxk27GNUTaZdeeilueu/evb53TAPw9tVXX6n4ho+T/dEulKAiAyVzJ/BC7LlBWkzSQm5UsLmzeTWmIOOmMq8iN6UJNi0k3rbhGZyDlHg9vlcGedM9DhKqxMrKCTmzdS54xp4Yk0IOVKQZbGDsTh23mptgC0VuNqEXibf6Xh2jVdJeDeNPO3bsqP3eEWCAB+4PTpYFMvZWOLo9InvFbBrvVx66JJBZNoPNXdqsGoibluJJlZNqTIHMFOOW/Aq+FGq8eXl5noSG5O2aa67hCQbnlkAudQaeqDPdFpG9ImtmFQ/ZNGUH0bCFwraYnlQLTocMGVKvY1hakJW1OzZcFH9KAIZ949JDAvEVbECIqENGnbQsjvRbS0Jl00KkyY0abG7Y5qalWoo1JlADrDatrKz0ZZCGtG9HjhyBt+LiYu0TTvIIIQLPZU8gyXYtiVLImikvEGkK2LQvtGvZ4sE2cuRIclJ3jXy9VkJ8Ttrw41naDxwkgAE2sEVAMi8iA8/wi5Z+K9JU8RBpMmuCTXVds2zEbILNPGlJRN+MqP5Iy83NBbZ/+Zd/OXfunEeuwXizyZZcXAVXgCFDNyciUSeTZXYvJP12biDDzEjTiJVgi7ZsVnATbGpsFK8JaaZ0ySWXELlpFWQ27yjY8PYN6bICwLRAeD0gmRWRzJ1AkreNlmHmGjSRZqmoSh/ApuqHjZOaJyVN6N27t7ubRAPMrvTBW0PyphZ+VhzA7MCGeJseyMydi1+0xJgFaarlyqxZdmCwaQaIuVENJRCz9erVq76z0dD2R56BBuZNnVOUoqIJgaAFYyVUZO4EnjQzllzM9IdTAqlrjJFmMZvrRpUj9OnTx3bTahjeUt732CudeoiiZc1dJ6oBFdVgJweCFrCZ6mhaLBlgrusUZi5psmzu9A+NI3Tp0sVtKdgAsL3wwgsegIsVv4GcjVH27NlTLnVSRC54MaVfCTPzm0aaUgPzocCmUE37M9xwww15eXkNZtOUGWlMwc92uyi8aZPMvn37alU1l759+/bgoT4v8rCCZ1KUjC7XlPFX5RFZXmAOVAHbsEDFxcWWFzQYcnzNbdu2+avvefO8ZYk/1b6s7rA4yN0ckcgx9qKlX4lPY0yyPNRIw5OSiqqFR4uvdxtvANgUo546dcrPPrqIvNUEyw/VZ8EuzZBA0KJuVtbTqjyO9FvDTOLPwUx1D40gaLiqYeiKWebN8ubgjYQ3UoaZM2eG+strv2hhY4/xpBXKWjdaGpHyUFk2zTKq1/lFSdZ4vXFrDPbNCr8W5yARiEUCGyFUFkcG2BhHcqCQ5m6FehF58zXeRsLb+fPnQe7qq69WU7xQ9K45wN27d8dAyUWKIgCT0dMuRtrug0TANtEaMGCAdp9O0CK8wTzpokWLMrUVrVeavFk9KnqU3Fo3GjOw16dPHw2vAxWMwRv4XXfddTAZcso6wkXnTYttvSdtPLxJGKsWzUsKRP3lbpy8aSvXBthprWF8qITV9WlC4+RNo9gXq16RWbVs2RI/jvfP4Ca0Xpnlrbq6miSOLKAhR88zKPXiQQpEc3NzvVlrzLyp+alatrWoS6vQRiKNyuljq/u8H5dvzLzhetSHUT926NChafHmLsZ///33/VVu5LyFdOzYsabiWMkL1BLFqh/+Ejch3qw13vr165uEY7UytRoo+FUwTYs3a3sBderO0PjrbDx++OGH/so2XX9qtk697Ot1h8mU5+vaqgd/TZsHbzJ3CxcuLCgoqO/dsVJQYWGhh63Z8KYJwOStPPn7v//7Rsjb6NGjlR344XjPm+fNKwV/6sZyjaFCkpOT07ZtW+JJfx2bK2/Yt/Pnz1+4cOHUqVNqBHxx9dprr/FJ1BvFq7nat9ARcnNzbR1Kfez7oT5i7pHz8vLKysr85ctC3tCdd96pUSTAq6fdGDQeqoFRqP7BD37gt2LITt6qqqpqgrUP3/3ud0N118yu4EPwTOiovMBP+cha+xZSeXm5xpUESSitcFG0sU570Sau25/wY6tWrd555x1/sTxvMROKmsiMzepAeFsbCxNXQMiPBpstrreRi0GDBr333ns6IOmJ7ajj5XmLls3K+CIi/aidJAWPFuW5LTZsk0nNvrM/1zt9tOZ58/JKgTcvr4bT/wNM6G0D');
      GetBitmapSize(FontBitmap, sizex, sizey); //Get the size of the bitmap we created
      ActivateClient; //Prepare to paint the image

      SetTargetBitmap(FontBitmap); //Search for colors in 'FontBitmap', rather than on the screen
      ColorToleranceSpeed(2); //HSL tolerance rather than RGB. Because the picture is in B/W
      FindColorsTolerance(Points, 0, 0, 0, sizex, sizey, 5); //Store (near) black pixels into an array
      SortTPAFrom(Points, Point(sizex / 2, sizey / 2)); //Sort the array (note how the picture is drawn)

      hi := high(Points); //Get the total number of black pixels
      for i := 0 to hi do //Loop through every black pixel,
        ClickTheMouse(Points[i].x, Points[i].y, true); //and click it

      FreeBitmap(FontBitmap); //Free all the resources we've allocated;
      //FreeChars2(Font);    //this will (hopefully) keep SCAR from crashing
                            //over periods of extended use
    end.
    Last edited by Smartzkid; 06-18-2009 at 09:31 PM.
    Interested in C# and Electrical Engineering? This might interest you.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Grabbing or reading Text from a game text box
    By British in forum OSR Help
    Replies: 16
    Last Post: 02-27-2009, 08:02 AM
  2. AlphaBlended painting
    By nielsie95 in forum Research & Development Lounge
    Replies: 12
    Last Post: 10-16-2008, 12:08 AM
  3. Getting text from text window?
    By Gone Fishing in forum OSR Help
    Replies: 8
    Last Post: 04-24-2008, 07:33 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •