SRL Archive - Test corner

In our search to get rid of global variables we stumbled across a possible Memory Leak in Scar. Run this program and report me after how many times it gives a "out of Memory" error…Also, state the amount of physical memory you have.

program New;
{.include SRL\SRL.scar}
procedure Test;
var
  bmpMod,bmpAdmin,bmpFreakyForester,Frog,CWindow,Lamp,dtmPlant,
  Damien,NewBox: Integer;
begin
  bmpMod   := BitmapFromString(9, 6, 'z78DA733472A41B74350041' +
    '08DB0009E012B13407414C5DF8D994E8220F0200F59E4633');
  bmpAdmin := BitmapFromString(9, 6, 'z78DA7333777333B070A3' +
    '0F0904162610B60112C025E26266E96A6488A90B3F9B125DE4910' +
    '0A83249DE');
  bmpFreakyForester := BitmapFromString(106, 2, 'z78DAA552410AC0' +
    '3008FBD23618B8A3C2FEFFA531BA4346D406DA8394D8468DB1ED3' +
    'DE11EE67A34F885F7B8FCB47DC4817F59C07B36442A3C41C2EFEB' +
    'E0F8CBB63C2BB1EF61D215E3BADAF437C9221BEC455295AA24B57' +
    '846A57FE2A9365EB1252FD163E4C0C48DC456EAAC7812676FA75B' +
    'F21E5499F00B0E54F6B8C2D96BD8EBD0D7D555AD781E9D382154');

  Frog := BitmapFromString(30, 2, 'z78DA73727274B534B23000012' +
    '74747270B47E249645DB84C808A836D4126C91447321317498C9B' +
    '5154426CC160633119C355982EC4A51E00B445523B');

  CWindow  := BitmapFromString(66, 8, 'z78DA33304000372460' +
    '800170890F1420C63DB473333D4D264664342E06CACCE11117D4F' +
    '2C5E08C0BFC251BA61A4ACCA145BE20C66DD4F205EDFC4EAD928D' +
    '76BA06BF083DE382F8D432506963A04488610FCE5C408C69F87D3' +
    '454E28276651D754B636A95F994E76E5AD49E002F369293');
  Lamp     := BitmapFromString(6, 6,
    '81800E79780E84830E00000100000100000179780E75740E000001' +
    '000001C3C118B5B3156E6D0E525209000001302020000001000001' +
    '696809484709000001302020544A3B302020000001000001302020' +
    '302020544A3B564D42302020302020302020544A3B544A3B564D42' +
    '');
  dtmPlant := DTMFromString('78DA6354636060306100031E08C5D092B0824' +
    '103483302F17F2060D404323450D5046671C2D58000A31690B046' +
    '5533ABE0305C0D18EB00092DDCE630013100D4CB0B1F');
  Damien   := BitmapFromString(27, 1, 'z78DAB3300001272747574B2' +
    '3274747270B4708690111C71481A8442231C58911214616220E00' +
    'D7022518');
  NewBox := BitmapFromString(6, 6, 'z78DA8DCAC10DC0200C03C095' +
     'A2C4317C5D28FB8F54DA3E1112B1740F3B2528AA6C8C0C0B5B7B6' +
     'F2E571203E34476BE77601A04FDAE6BBD2B663E7181E0EEE70163' +
     'FD2FF4');

     Wait(1);
     
    FreeBitMap(bmpMod);
    FreeBitMap(bmpAdmin);
    FreeBitMap(bmpFreakyForester);
    FreeBitMap(Frog);
    FreeBitMap(CWindow);
    FreeBitMap(Lamp);
    FreeDTM(dtmPlant);
    FreeBitMap(Damien);
    FreeBitMap(NewBox);
end;

var tries: Integer;
begin
repeat
tries := tries + 1;
Test;
    writeln('Loaded dtm ' + IntToStr(tries) + 'Times');
until False;
end.

fakawi its deff scars fault because that code is nothing wrong within it so why is it so gay :P KAIT WHATS WRONG WITH YOU (jk)

I got 512mb of ram fawki, and a crapload of other memory hogging programs running(namly azureas (written in java)) while running this SCAR program too, and am already up to 50000 times, Ill let it keep running to see if it ever happens, but up till now it kinda looks like its going to get to big for an "int" to handle before I run out of memory ;)

Well is it currently on about 50k tries and nothing so far. I have 1gb RAM.
I'll edit when I get an "out of memory" error.

Other programs I have running:
MSN
Firefox
VB6
AIM
Windows Media Player
Another SCAR
Hex Workshop 4.2

Nothing too RAM consumming though.

Edit:

From: SCAR 2.03
Loaded dtm 61169Times
[Runtime Error] : Exception: Out of memory in line 41 in script

Watch your page file usage on your processor it gradually goes up up and away

i got 2 gigs of ram and a 3500+ processor i hit bottom at like 60k times 62k? depends what i got going on for pagefile. Its literal memory on your processor that is being consumed not ram. I closed scar and my PF dropped 50k rofl

turns out I was wrong :P

Loaded dtm 56237Times
Loaded dtm 56238Times
Loaded dtm 56239Times
[Runtime Error] : Exception: Out of memory in line 41 in script

From: mutant squirrle
Watch your page file usage on your processor it gradually goes up up and away

i got 2 gigs of ram and a 3500+ processor i hit bottom at like 60k times 62k? depends what i got going on for pagefile. Its literal memory on your processor that is being consumed not ram. I closed scar and my PF dropped 50k rofl

I watched my PF for about 10k tries and it stayed within 500-620
But it was my CPU that went up from 23 to 97 and stayed in that range.

I have 512mb I stopped it at 50k

Yea, it seems that most people stop at about 50k-60k.

lol silly goose your cpu went up because your waiting .001? seconds and loading and freeing like 5 bitmaps rofl not kidding ur cpu went up if you let the script run for a little way (about 50k loads) then it freaks out it easily adds 50k to your PF on ur CPU. Trust me haha.

EDIT : Bebemycat2… WHAT THE FUCK IS THAT FREAKY DUDE … hes scaring me :( *runs away crying because of some freaky dude*

From: mutant squirrle
lol silly goose your cpu went up because your waiting .001? seconds and loading and freeing like 5 bitmaps rofl not kidding ur cpu went up if you let the script run for a little way (about 50k loads) then it freaks out it easily adds 50k to your PF on ur CPU. Trust me haha.

EDIT : Bebemycat2… WHAT THE FUCK IS THAT FREAKY DUDE … hes scaring me :( *runs away crying because of some freaky dude*

Yea, I guess I never thought of the loading the 5 bitmaps thing :o

and that guy is awsome :D
<3 Whatever his name is :p

Mynes up to 10k so far.. It takes a while ey -.-'

I have to go to school in 30 mins, but i'll tell you before i leave.
I have 512mb ram. ;o

Edit: It's up to 46k, but i gotta go to school. So, good luck to the problem ;D..

Mine is at 10k right now..

I know this sounds really stupid, but I ain't very smart with some parts of computers, and I don't even no how much memory I have? Haha, anyone no hwo I can check this?

Thanks,
Cheesehunk.

74810 times before it killed itself
1 GB of ram but my computer is awesome :p

From: Cheesehunk
Mine is at 10k right now..

I know this sounds really stupid, but I ain't very smart with some parts of computers, and I don't even no how much memory I have? Haha, anyone no hwo I can check this?

Thanks,
Cheesehunk.

you can get kind of confused when talking about memory and storage
memory=ram=temporary
storage=hdd=permanent
right click on my computer and it should tell you your ram

bring up the task manager and look at your available physical memory when you do this, it goes down, at a pretty fast rate

so a computer with twice as much ram should be able to run this test twice as long

[edit] if you look at the process thing, the memory used by scar does increase as you run this, but dont worry because it gets freed when you quit scar

Loaded dtm 71111Times
Loaded dtm 71112Times
Loaded dtm 71113Times
[Runtime Error] : Exception: Out of memory in line 41 in script

46079 Times with 512mb of ram

This will make it run a billion times faster and still give enough info for our purposes.

In the above code replace this:

 writeln('Loaded dtm ' + IntToStr(tries) + 'Times');

With this:

if (tries mod 100 = 0) then writeln('Loaded dtm ' + IntToStr(tries) + 'Times');

Loaded dtm 93800 Times

———————————

scar.exe    70 cpu  15.98k mem usage

I'll run it over night.. It doesn't seem to be doing anything on me :)

I'm not sure if it would make it faster but, wouldn't status be easier.

status('Loaded dtm ' + IntToStr(tries) + ' Times');

Since when the debug box gets quite full it might take up more memory to tell it to add a line and move everything o.o;;

I have no idea about stuff like this, So, meh.

Edit: Nvm, then if it stops you don't know what it was up to D:

you could add to report and clear report

Loaded dtm 171000 Times
[Runtime Error] : Exception: Out of memory in line 41 in script C:\Documents and Settings\Bob\Desktop\Text.scar

From: Pwnd

Loaded dtm 171000 Times
[Runtime Error] : Exception: Out of memory in line 41 in script C:\Documents and Settings\Bob\Desktop\Text.scar

I want Pwnd's computer… Is it possible the memory leak is just the debug window growing to a huge size? I thought there was a limit to how big it could get.

is it possible that the bmps will never be loaded and freed 50k+ when you run a script ? so this doesn't matter to much ?

Thanks for the help masquerader!!

And mine stopped at about 47000.
I have 256MB RAM, and I was using the ScuneRape Client downloaded from ScuneRape's Home Page!

a) Flyboys right i ran it up to 180k trys without a problem and even then it just slowed me down mildly
b) when are you gunna load 1.7m bitmaps -_- even over 2 days or 4 days thats an excessive amount
c) change the report to addreport

I have 1gig duel channel ram, running 5 tabs on FF.

53k for me. 512 ddr ram.

From: Flyboy
I want Pwnd's computer… Is it possible the memory leak is just the debug window growing to a huge size? I thought there was a limit to how big it could get.

Could that be?
haha, wow, that would really be a bummer.

From: WT-Fakawi
Could that be?
haha, wow, that would really be a bummer.

i suspect it is at least part of it

i added like:
if(tries mod 1000 =0)then
cleardebug;

and you can see scar memory usage drop in task manager
it also seems to use a lot less memory when minimized..

the debug area is not the problem, I ran a test and it clears itself after a few thousand lines, just repeat writeln() and see what happens ;) :D

Yeah, I don't think the debug area is the problem. I'm still running to 170k times with the ClearDebug;.

var
  tries: Integer;
begin
  repeat
    tries := tries + 1;
    Test;
    Status(inttostr(tries) + ' Times');
    if(tries mod 100 = 0)then
      begin
        cleardebug;
        writeln('Loaded dtm ' + IntToStr(tries) + ' Times');
      end;
  until False;
end.

Well for me, without the clear debug, I was at 14K, and my computer started lagging a little. I have 1GB of memory. I guess my computer just sucks

i have 512mg of ram… i had 2% cpu usage, when i ran it i had 100% cpu usage (holy crap, only normally happens when i get a virus:eek: )

at 6k, nuthin so far, ill edit if and when i get th error

EDIT:
Loaded dtm 50947Times
[Runtime Error] : Exception: Out of memory in line 41 in script

Its more of a dtm problem than bitmap, running all of those with the dtm in it it stopped at about 56k, if you remove the dtm and just load the bitmaps it doesnt stop until 170k + ;) :D

I guess all of your computers suck? Mine's not even that great and I'm running into 170+.

DTMs are hella laggy to begin with.

Please run this test program.

I have elliminated a lot of the variables that could throw off the results. This should give us a better idea of exactly what the culprit is.

This will test:
loading and unloading bitmaps only
loading and unloading dtm's only
loading and unloading both bitmaps and dtm's
and lastly, it will test just using writeln a pile of times

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

{
please run this script until it dies from memory issues.
note how many times it ran and then change AreaToTest and do again.
when all four settings are attempted please post your results on the
fourm.

Set CompSpeed to adjust the lag on your computer.  If you are needing to
use your computer while running this test, adjust the number higher.

If you are just testing only you can set to zero but this will LAG big time
but make the test go real fast.

Thanks for your help.
Flyboy
}
const
  AreaToTest = 1; // set 1 - 4
                  // 1 = test bitmaps only
                  // 2 = test dtms only
                  // 3 = test both bitmaps and dtms
                  // 4 = writeln only

  CompSpeed = 1; // set 0 - 10 (default = 1)
                 // higher the number the less lag on your computer
var
  tries: LongInt;

procedure TestBmp;
var
  bmpFreakyForester: Integer;
begin
  bmpFreakyForester := BitmapFromString(106, 2, 'z78DAA552410AC0' +
    '3008FBD23618B8A3C2FEFFA531BA4346D406DA8394D8468DB1ED3' +
    'DE11EE67A34F885F7B8FCB47DC4817F59C07B36442A3C41C2EFEB' +
    'E0F8CBB63C2BB1EF61D215E3BADAF437C9221BEC455295AA24B57' +
    '846A57FE2A9365EB1252FD163E4C0C48DC456EAAC7812676FA75B' +
    'F21E5499F00B0E54F6B8C2D96BD8EBD0D7D555AD781E9D382154');

  FreeBitMap(bmpFreakyForester);
end;

procedure TestDtm;
var
  dtmPlant: Integer;
begin
  dtmPlant := DTMFromString('78DA6354636060306100031E08C5D092B0824' +
    '103483302F17F2060D404323450D5046671C2D58000A31690B046' +
    '5533ABE0305C0D18EB00092DDCE630013100D4CB0B1F');

  FreeDTM(dtmPlant);
end;

begin
  cleardebug;
  Writeln('Testing Memory leak issues');

  //test proper script setup
  if ((AreaToTest < 1) or (AreaToTest > 4)) then
  begin
    writeln('Please set AreaToTest between 1 - 4');
    writeln('halting execution of script');
    TerminateScript;
  end;
  if ((CompSpeed < 0) or (CompSpeed > 10)) then
  begin
    writeln('Please set CompSpeed between 0 - 10');
    writeln('halting execution of script');
    TerminateScript;
  end;

  repeat
    tries := tries + 1;
    case AreaToTest of
      1:
        begin
          TestBmp;
          if (tries mod 1000 = 0) then
          begin
            cleardebug;
            writeln('Tested bitmaps only ' + IntToStr(tries) + ' times');
          end;
        end;
      2:
        begin
          TestDtm;
          if (tries mod 1000 = 0) then
          begin
            cleardebug;
            writeln('Tested dtm''s only ' + IntToStr(tries) + ' times');
          end;
        end;
      3:
        begin
          TestBmp;
          TestDtm;
          if (tries mod 1000 = 0) then
          begin
            cleardebug;
            writeln('Tested both bitmaps and dtm''s  ' + IntToStr(tries) + ' times');
          end;
        end;
      4:
        begin
          writeln(IntToStr(tries));
          if (tries mod 1000 = 0) then
          begin
            writeln('Tested Writeln only ' + IntToStr(tries) + ' times');
          end;
        end;
    end;

    wait(CompSpeed);
  until false;
end.

as said before 512mb ram… areatotest=1, compspeed=1, im at

Tested bitmaps only 691000 times

so far, and still nuthin.. ill update later

With the first one I got up to 600k and only managed to eat up 30k of ram. It wouldn't let me open any other programs though and SCAR was lagging quite a bit.

I ran these the first three setings all at once last night (and still running) without crashing yet.
I have the CompSpeed set to 1 which makes it a bit laggy as it is using 100% of the CPU.

I'm starting to hope I might not ever crash… I will leave it running for the morning as well.

Tested bitmaps only 1296000 times
Tested dtm's only 651000 times
Tested both bitmaps and dtm's 1467000 times

Still no error??? could I be onto something here? Please someone else test and let post if you get an error.

well as i stated in the above post…. 1, 1 and 512mb of ram

Tested bitmaps only 5633000 times

still no error… ran last night and just checked it again at 12:32 pm the next day, Had to stop it… too much lag

Tested both bitmaps and dtm's 4090000 times (run for 24 hours straight)

Bummer.

So…… there is no spoon, it is just the Debug Window getting spammed up :p :p :p

From: WT-Fakawi
Tested both bitmaps and dtm's 4090000 times (run for 24 hours straight)

Bummer.

So…… there is no spoon, it is just the Debug Window getting spammed up :p :p :p

but it clears itself after so many tries, ive just ran that too, must be a combination of everything :confused:

Now we are getting somewhere! Did anyone try option 4? I ran the others (1 - 3) for 24 hours straight without any problems. I will run option 4 tonight.

We need to determine exactly what is causing the memory error so we can avoid it in SRL.

Option 4 led to the dreaded Blue Screen!

I hadn't seen that one in a long time, but Scar actually throwd it in my face!


I think that about unravels (sp) the mistery. Don't spam the debug!

Ok im trying now….the first time I made it up to 47k…now I'm using Flyboy's script option 1, I'll try the others when i have time…

I added a writeln(times) thingie magigy in it. In every repeat so it 1,2,,3,4,5 real fast. And boom brought up blue screen. Mind you my comp is crap but ya

I just ran option 4:
Tested Writeln only 5289000 times
still no problems.

I had the wait time at zero… is it my computer is so crappy it cant go fast enough to crash :confused:
Fakawi could you try option 4 again with a long wait time… I suspect you are overloading the I/O stack. Lets see if just giving it enough time to get it to the screen does the trick. (you might have to remove my setup protection if you go more than 10 milliseconds ;)

ADDED:

Ok, here's the deal. I'm not convinced writeln is the only cause of problems, I think it is a second problem. two people reported blue screens from using option 4 of my test script. This is a different error to the original problem we were investigating which gave an out of memory error.

We need to be able to reproduce the error to isolate what is the cause before we start removing all the globals from SRL.

This is now set up to load/unload 20 dtm/bmps at a time to see if this will overload the system. Since my computer is crap, its results are nonconclusive, so need others to test on theirs.

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

{
please run this script until it dies from memory issues.
note how many times it ran and then change AreaToTest and do again.
when all four settings are attempted please post your results on the
fourm.

Set CompSpeed to adjust the lag on your computer.  If you are needing to
use your computer while running this test, adjust the number higher.

If you are just testing only you can set to zero but this will LAG big time
but make the test go real fast.

Thanks for your help.
Flyboy
}
//const
//  AreaToTest = 3; // set 1 - 4
                  // 1 = test bitmaps only
                  // 2 = test dtms only
                  // 3 = test both bitmaps and dtms
                  // 4 = writeln only

//  CompSpeed = 0; // set 0 - 10 (default = 1)
                 // higher the number the less lag on your computer
var
  tries: LongInt;
  AreaToTest, CompSpeed: Integer;

procedure TestBmp;
var
  bmp1, bmp2, bmp3, bmp4, bmp5, bmp6, bmp7, bmp8, bmp9, bmp10, bmp11, bmp12,
  bmp13, bmp14, bmp15, bmp16, bmp17, bmp18, bmp19, bmp20 : Integer;
begin
  bmp1 := BitmapFromString(106, 2, 'z78DAA552410AC0' +
    '3008FBD23618B8A3C2FEFFA531BA4346D406DA8394D8468DB1ED3' +
    'DE11EE67A34F885F7B8FCB47DC4817F59C07B36442A3C41C2EFEB' +
    'E0F8CBB63C2BB1EF61D215E3BADAF437C9221BEC455295AA24B57' +
    '846A57FE2A9365EB1252FD163E4C0C48DC456EAAC7812676FA75B' +
    'F21E5499F00B0E54F6B8C2D96BD8EBD0D7D555AD781E9D382154');
  bmp2 := BitmapFromString(106, 2, 'z78DAA552410AC0' +
    '3008FBD23618B8A3C2FEFFA531BA4346D406DA8394D8468DB1ED3' +
    'DE11EE67A34F885F7B8FCB47DC4817F59C07B36442A3C41C2EFEB' +
    'E0F8CBB63C2BB1EF61D215E3BADAF437C9221BEC455295AA24B57' +
    '846A57FE2A9365EB1252FD163E4C0C48DC456EAAC7812676FA75B' +
    'F21E5499F00B0E54F6B8C2D96BD8EBD0D7D555AD781E9D382154');
  bmp3 := BitmapFromString(106, 2, 'z78DAA552410AC0' +
    '3008FBD23618B8A3C2FEFFA531BA4346D406DA8394D8468DB1ED3' +
    'DE11EE67A34F885F7B8FCB47DC4817F59C07B36442A3C41C2EFEB' +
    'E0F8CBB63C2BB1EF61D215E3BADAF437C9221BEC455295AA24B57' +
    '846A57FE2A9365EB1252FD163E4C0C48DC456EAAC7812676FA75B' +
    'F21E5499F00B0E54F6B8C2D96BD8EBD0D7D555AD781E9D382154');
  bmp4 := BitmapFromString(106, 2, 'z78DAA552410AC0' +
    '3008FBD23618B8A3C2FEFFA531BA4346D406DA8394D8468DB1ED3' +
    'DE11EE67A34F885F7B8FCB47DC4817F59C07B36442A3C41C2EFEB' +
    'E0F8CBB63C2BB1EF61D215E3BADAF437C9221BEC455295AA24B57' +
    '846A57FE2A9365EB1252FD163E4C0C48DC456EAAC7812676FA75B' +
    'F21E5499F00B0E54F6B8C2D96BD8EBD0D7D555AD781E9D382154');
  bmp5 := BitmapFromString(106, 2, 'z78DAA552410AC0' +
    '3008FBD23618B8A3C2FEFFA531BA4346D406DA8394D8468DB1ED3' +
    'DE11EE67A34F885F7B8FCB47DC4817F59C07B36442A3C41C2EFEB' +
    'E0F8CBB63C2BB1EF61D215E3BADAF437C9221BEC455295AA24B57' +
    '846A57FE2A9365EB1252FD163E4C0C48DC456EAAC7812676FA75B' +
    'F21E5499F00B0E54F6B8C2D96BD8EBD0D7D555AD781E9D382154');
  bmp6 := BitmapFromString(106, 2, 'z78DAA552410AC0' +
    '3008FBD23618B8A3C2FEFFA531BA4346D406DA8394D8468DB1ED3' +
    'DE11EE67A34F885F7B8FCB47DC4817F59C07B36442A3C41C2EFEB' +
    'E0F8CBB63C2BB1EF61D215E3BADAF437C9221BEC455295AA24B57' +
    '846A57FE2A9365EB1252FD163E4C0C48DC456EAAC7812676FA75B' +
    'F21E5499F00B0E54F6B8C2D96BD8EBD0D7D555AD781E9D382154');
  bmp7 := BitmapFromString(106, 2, 'z78DAA552410AC0' +
    '3008FBD23618B8A3C2FEFFA531BA4346D406DA8394D8468DB1ED3' +
    'DE11EE67A34F885F7B8FCB47DC4817F59C07B36442A3C41C2EFEB' +
    'E0F8CBB63C2BB1EF61D215E3BADAF437C9221BEC455295AA24B57' +
    '846A57FE2A9365EB1252FD163E4C0C48DC456EAAC7812676FA75B' +
    'F21E5499F00B0E54F6B8C2D96BD8EBD0D7D555AD781E9D382154');
  bmp8 := BitmapFromString(106, 2, 'z78DAA552410AC0' +
    '3008FBD23618B8A3C2FEFFA531BA4346D406DA8394D8468DB1ED3' +
    'DE11EE67A34F885F7B8FCB47DC4817F59C07B36442A3C41C2EFEB' +
    'E0F8CBB63C2BB1EF61D215E3BADAF437C9221BEC455295AA24B57' +
    '846A57FE2A9365EB1252FD163E4C0C48DC456EAAC7812676FA75B' +
    'F21E5499F00B0E54F6B8C2D96BD8EBD0D7D555AD781E9D382154');
  bmp9 := BitmapFromString(106, 2, 'z78DAA552410AC0' +
    '3008FBD23618B8A3C2FEFFA531BA4346D406DA8394D8468DB1ED3' +
    'DE11EE67A34F885F7B8FCB47DC4817F59C07B36442A3C41C2EFEB' +
    'E0F8CBB63C2BB1EF61D215E3BADAF437C9221BEC455295AA24B57' +
    '846A57FE2A9365EB1252FD163E4C0C48DC456EAAC7812676FA75B' +
    'F21E5499F00B0E54F6B8C2D96BD8EBD0D7D555AD781E9D382154');
  bmp10 := BitmapFromString(106, 2, 'z78DAA552410AC0' +
    '3008FBD23618B8A3C2FEFFA531BA4346D406DA8394D8468DB1ED3' +
    'DE11EE67A34F885F7B8FCB47DC4817F59C07B36442A3C41C2EFEB' +
    'E0F8CBB63C2BB1EF61D215E3BADAF437C9221BEC455295AA24B57' +
    '846A57FE2A9365EB1252FD163E4C0C48DC456EAAC7812676FA75B' +
    'F21E5499F00B0E54F6B8C2D96BD8EBD0D7D555AD781E9D382154');
  bmp11 := BitmapFromString(106, 2, 'z78DAA552410AC0' +
    '3008FBD23618B8A3C2FEFFA531BA4346D406DA8394D8468DB1ED3' +
    'DE11EE67A34F885F7B8FCB47DC4817F59C07B36442A3C41C2EFEB' +
    'E0F8CBB63C2BB1EF61D215E3BADAF437C9221BEC455295AA24B57' +
    '846A57FE2A9365EB1252FD163E4C0C48DC456EAAC7812676FA75B' +
    'F21E5499F00B0E54F6B8C2D96BD8EBD0D7D555AD781E9D382154');
  bmp12 := BitmapFromString(106, 2, 'z78DAA552410AC0' +
    '3008FBD23618B8A3C2FEFFA531BA4346D406DA8394D8468DB1ED3' +
    'DE11EE67A34F885F7B8FCB47DC4817F59C07B36442A3C41C2EFEB' +
    'E0F8CBB63C2BB1EF61D215E3BADAF437C9221BEC455295AA24B57' +
    '846A57FE2A9365EB1252FD163E4C0C48DC456EAAC7812676FA75B' +
    'F21E5499F00B0E54F6B8C2D96BD8EBD0D7D555AD781E9D382154');
  bmp13 := BitmapFromString(106, 2, 'z78DAA552410AC0' +
    '3008FBD23618B8A3C2FEFFA531BA4346D406DA8394D8468DB1ED3' +
    'DE11EE67A34F885F7B8FCB47DC4817F59C07B36442A3C41C2EFEB' +
    'E0F8CBB63C2BB1EF61D215E3BADAF437C9221BEC455295AA24B57' +
    '846A57FE2A9365EB1252FD163E4C0C48DC456EAAC7812676FA75B' +
    'F21E5499F00B0E54F6B8C2D96BD8EBD0D7D555AD781E9D382154');
  bmp14 := BitmapFromString(106, 2, 'z78DAA552410AC0' +
    '3008FBD23618B8A3C2FEFFA531BA4346D406DA8394D8468DB1ED3' +
    'DE11EE67A34F885F7B8FCB47DC4817F59C07B36442A3C41C2EFEB' +
    'E0F8CBB63C2BB1EF61D215E3BADAF437C9221BEC455295AA24B57' +
    '846A57FE2A9365EB1252FD163E4C0C48DC456EAAC7812676FA75B' +
    'F21E5499F00B0E54F6B8C2D96BD8EBD0D7D555AD781E9D382154');
  bmp15 := BitmapFromString(106, 2, 'z78DAA552410AC0' +
    '3008FBD23618B8A3C2FEFFA531BA4346D406DA8394D8468DB1ED3' +
    'DE11EE67A34F885F7B8FCB47DC4817F59C07B36442A3C41C2EFEB' +
    'E0F8CBB63C2BB1EF61D215E3BADAF437C9221BEC455295AA24B57' +
    '846A57FE2A9365EB1252FD163E4C0C48DC456EAAC7812676FA75B' +
    'F21E5499F00B0E54F6B8C2D96BD8EBD0D7D555AD781E9D382154');
  bmp16 := BitmapFromString(106, 2, 'z78DAA552410AC0' +
    '3008FBD23618B8A3C2FEFFA531BA4346D406DA8394D8468DB1ED3' +
    'DE11EE67A34F885F7B8FCB47DC4817F59C07B36442A3C41C2EFEB' +
    'E0F8CBB63C2BB1EF61D215E3BADAF437C9221BEC455295AA24B57' +
    '846A57FE2A9365EB1252FD163E4C0C48DC456EAAC7812676FA75B' +
    'F21E5499F00B0E54F6B8C2D96BD8EBD0D7D555AD781E9D382154');
  bmp17 := BitmapFromString(106, 2, 'z78DAA552410AC0' +
    '3008FBD23618B8A3C2FEFFA531BA4346D406DA8394D8468DB1ED3' +
    'DE11EE67A34F885F7B8FCB47DC4817F59C07B36442A3C41C2EFEB' +
    'E0F8CBB63C2BB1EF61D215E3BADAF437C9221BEC455295AA24B57' +
    '846A57FE2A9365EB1252FD163E4C0C48DC456EAAC7812676FA75B' +
    'F21E5499F00B0E54F6B8C2D96BD8EBD0D7D555AD781E9D382154');
  bmp18 := BitmapFromString(106, 2, 'z78DAA552410AC0' +
    '3008FBD23618B8A3C2FEFFA531BA4346D406DA8394D8468DB1ED3' +
    'DE11EE67A34F885F7B8FCB47DC4817F59C07B36442A3C41C2EFEB' +
    'E0F8CBB63C2BB1EF61D215E3BADAF437C9221BEC455295AA24B57' +
    '846A57FE2A9365EB1252FD163E4C0C48DC456EAAC7812676FA75B' +
    'F21E5499F00B0E54F6B8C2D96BD8EBD0D7D555AD781E9D382154');
  bmp19 := BitmapFromString(106, 2, 'z78DAA552410AC0' +
    '3008FBD23618B8A3C2FEFFA531BA4346D406DA8394D8468DB1ED3' +
    'DE11EE67A34F885F7B8FCB47DC4817F59C07B36442A3C41C2EFEB' +
    'E0F8CBB63C2BB1EF61D215E3BADAF437C9221BEC455295AA24B57' +
    '846A57FE2A9365EB1252FD163E4C0C48DC456EAAC7812676FA75B' +
    'F21E5499F00B0E54F6B8C2D96BD8EBD0D7D555AD781E9D382154');
  bmp20 := BitmapFromString(106, 2, 'z78DAA552410AC0' +
    '3008FBD23618B8A3C2FEFFA531BA4346D406DA8394D8468DB1ED3' +
    'DE11EE67A34F885F7B8FCB47DC4817F59C07B36442A3C41C2EFEB' +
    'E0F8CBB63C2BB1EF61D215E3BADAF437C9221BEC455295AA24B57' +
    '846A57FE2A9365EB1252FD163E4C0C48DC456EAAC7812676FA75B' +
    'F21E5499F00B0E54F6B8C2D96BD8EBD0D7D555AD781E9D382154');

  FreeBitMap(bmp1);
  FreeBitMap(bmp2);
  FreeBitMap(bmp3);
  FreeBitMap(bmp4);
  FreeBitMap(bmp5);
  FreeBitMap(bmp6);
  FreeBitMap(bmp7);
  FreeBitMap(bmp8);
  FreeBitMap(bmp9);
  FreeBitMap(bmp10);
  FreeBitMap(bmp11);
  FreeBitMap(bmp12);
  FreeBitMap(bmp13);
  FreeBitMap(bmp14);
  FreeBitMap(bmp15);
  FreeBitMap(bmp16);
  FreeBitMap(bmp17);
  FreeBitMap(bmp18);
  FreeBitMap(bmp19);
  FreeBitMap(bmp20);
end;

procedure TestDtm;
var
  dtm1, dtm2, dtm3, dtm4, dtm5, dtm6, dtm7, dtm8, dtm9, dtm10, dtm11, dtm12,
  dtm13, dtm14, dtm15, dtm16, dtm17, dtm18, dtm19, dtm20 : integer;

begin
  dtm1 := DTMFromString('78DA6354636060306100031E08C5D092B0824' +
    '103483302F17F2060D404323450D5046671C2D58000A31690B046' +
    '5533ABE0305C0D18EB00092DDCE630013100D4CB0B1F');
  dtm2 := DTMFromString('78DA6354636060306100031E08C5D092B0824' +
    '103483302F17F2060D404323450D5046671C2D58000A31690B046' +
    '5533ABE0305C0D18EB00092DDCE630013100D4CB0B1F');
  dtm3 := DTMFromString('78DA6354636060306100031E08C5D092B0824' +
    '103483302F17F2060D404323450D5046671C2D58000A31690B046' +
    '5533ABE0305C0D18EB00092DDCE630013100D4CB0B1F');
  dtm4 := DTMFromString('78DA6354636060306100031E08C5D092B0824' +
    '103483302F17F2060D404323450D5046671C2D58000A31690B046' +
    '5533ABE0305C0D18EB00092DDCE630013100D4CB0B1F');
  dtm5 := DTMFromString('78DA6354636060306100031E08C5D092B0824' +
    '103483302F17F2060D404323450D5046671C2D58000A31690B046' +
    '5533ABE0305C0D18EB00092DDCE630013100D4CB0B1F');
  dtm6 := DTMFromString('78DA6354636060306100031E08C5D092B0824' +
    '103483302F17F2060D404323450D5046671C2D58000A31690B046' +
    '5533ABE0305C0D18EB00092DDCE630013100D4CB0B1F');
  dtm7 := DTMFromString('78DA6354636060306100031E08C5D092B0824' +
    '103483302F17F2060D404323450D5046671C2D58000A31690B046' +
    '5533ABE0305C0D18EB00092DDCE630013100D4CB0B1F');
  dtm8 := DTMFromString('78DA6354636060306100031E08C5D092B0824' +
    '103483302F17F2060D404323450D5046671C2D58000A31690B046' +
    '5533ABE0305C0D18EB00092DDCE630013100D4CB0B1F');
  dtm9 := DTMFromString('78DA6354636060306100031E08C5D092B0824' +
    '103483302F17F2060D404323450D5046671C2D58000A31690B046' +
    '5533ABE0305C0D18EB00092DDCE630013100D4CB0B1F');
  dtm10 := DTMFromString('78DA6354636060306100031E08C5D092B0824' +
    '103483302F17F2060D404323450D5046671C2D58000A31690B046' +
    '5533ABE0305C0D18EB00092DDCE630013100D4CB0B1F');
  dtm11 := DTMFromString('78DA6354636060306100031E08C5D092B0824' +
    '103483302F17F2060D404323450D5046671C2D58000A31690B046' +
    '5533ABE0305C0D18EB00092DDCE630013100D4CB0B1F');
  dtm12 := DTMFromString('78DA6354636060306100031E08C5D092B0824' +
    '103483302F17F2060D404323450D5046671C2D58000A31690B046' +
    '5533ABE0305C0D18EB00092DDCE630013100D4CB0B1F');
  dtm13 := DTMFromString('78DA6354636060306100031E08C5D092B0824' +
    '103483302F17F2060D404323450D5046671C2D58000A31690B046' +
    '5533ABE0305C0D18EB00092DDCE630013100D4CB0B1F');
  dtm14 := DTMFromString('78DA6354636060306100031E08C5D092B0824' +
    '103483302F17F2060D404323450D5046671C2D58000A31690B046' +
    '5533ABE0305C0D18EB00092DDCE630013100D4CB0B1F');
  dtm15 := DTMFromString('78DA6354636060306100031E08C5D092B0824' +
    '103483302F17F2060D404323450D5046671C2D58000A31690B046' +
    '5533ABE0305C0D18EB00092DDCE630013100D4CB0B1F');
  dtm16 := DTMFromString('78DA6354636060306100031E08C5D092B0824' +
    '103483302F17F2060D404323450D5046671C2D58000A31690B046' +
    '5533ABE0305C0D18EB00092DDCE630013100D4CB0B1F');
  dtm17 := DTMFromString('78DA6354636060306100031E08C5D092B0824' +
    '103483302F17F2060D404323450D5046671C2D58000A31690B046' +
    '5533ABE0305C0D18EB00092DDCE630013100D4CB0B1F');
  dtm18 := DTMFromString('78DA6354636060306100031E08C5D092B0824' +
    '103483302F17F2060D404323450D5046671C2D58000A31690B046' +
    '5533ABE0305C0D18EB00092DDCE630013100D4CB0B1F');
  dtm19 := DTMFromString('78DA6354636060306100031E08C5D092B0824' +
    '103483302F17F2060D404323450D5046671C2D58000A31690B046' +
    '5533ABE0305C0D18EB00092DDCE630013100D4CB0B1F');
  dtm20 := DTMFromString('78DA6354636060306100031E08C5D092B0824' +
    '103483302F17F2060D404323450D5046671C2D58000A31690B046' +
    '5533ABE0305C0D18EB00092DDCE630013100D4CB0B1F');

  FreeDTM(dtm1);
  FreeDTM(dtm2);
  FreeDTM(dtm3);
  FreeDTM(dtm4);
  FreeDTM(dtm5);
  FreeDTM(dtm6);
  FreeDTM(dtm7);
  FreeDTM(dtm8);
  FreeDTM(dtm9);
  FreeDTM(dtm10);
  FreeDTM(dtm11);
  FreeDTM(dtm12);
  FreeDTM(dtm13);
  FreeDTM(dtm14);
  FreeDTM(dtm15);
  FreeDTM(dtm16);
  FreeDTM(dtm17);
  FreeDTM(dtm18);
  FreeDTM(dtm19);
  FreeDTM(dtm20);
end;

procedure TestBoth;
var
  bmp1, bmp2, bmp3, bmp4, bmp5, bmp6, bmp7, bmp8, bmp9, bmp10: Integer;
  dtm1, dtm2, dtm3, dtm4, dtm5, dtm6, dtm7, dtm8, dtm9, dtm10: integer;
begin
  bmp1 := BitmapFromString(106, 2, 'z78DAA552410AC0' +
    '3008FBD23618B8A3C2FEFFA531BA4346D406DA8394D8468DB1ED3' +
    'DE11EE67A34F885F7B8FCB47DC4817F59C07B36442A3C41C2EFEB' +
    'E0F8CBB63C2BB1EF61D215E3BADAF437C9221BEC455295AA24B57' +
    '846A57FE2A9365EB1252FD163E4C0C48DC456EAAC7812676FA75B' +
    'F21E5499F00B0E54F6B8C2D96BD8EBD0D7D555AD781E9D382154');
  bmp2 := BitmapFromString(106, 2, 'z78DAA552410AC0' +
    '3008FBD23618B8A3C2FEFFA531BA4346D406DA8394D8468DB1ED3' +
    'DE11EE67A34F885F7B8FCB47DC4817F59C07B36442A3C41C2EFEB' +
    'E0F8CBB63C2BB1EF61D215E3BADAF437C9221BEC455295AA24B57' +
    '846A57FE2A9365EB1252FD163E4C0C48DC456EAAC7812676FA75B' +
    'F21E5499F00B0E54F6B8C2D96BD8EBD0D7D555AD781E9D382154');
  dtm5 := DTMFromString('78DA6354636060306100031E08C5D092B0824' +
    '103483302F17F2060D404323450D5046671C2D58000A31690B046' +
    '5533ABE0305C0D18EB00092DDCE630013100D4CB0B1F');
  dtm6 := DTMFromString('78DA6354636060306100031E08C5D092B0824' +
    '103483302F17F2060D404323450D5046671C2D58000A31690B046' +
    '5533ABE0305C0D18EB00092DDCE630013100D4CB0B1F');
  dtm7 := DTMFromString('78DA6354636060306100031E08C5D092B0824' +
    '103483302F17F2060D404323450D5046671C2D58000A31690B046' +
    '5533ABE0305C0D18EB00092DDCE630013100D4CB0B1F');
  dtm8 := DTMFromString('78DA6354636060306100031E08C5D092B0824' +
    '103483302F17F2060D404323450D5046671C2D58000A31690B046' +
    '5533ABE0305C0D18EB00092DDCE630013100D4CB0B1F');
  bmp3 := BitmapFromString(106, 2, 'z78DAA552410AC0' +
    '3008FBD23618B8A3C2FEFFA531BA4346D406DA8394D8468DB1ED3' +
    'DE11EE67A34F885F7B8FCB47DC4817F59C07B36442A3C41C2EFEB' +
    'E0F8CBB63C2BB1EF61D215E3BADAF437C9221BEC455295AA24B57' +
    '846A57FE2A9365EB1252FD163E4C0C48DC456EAAC7812676FA75B' +
    'F21E5499F00B0E54F6B8C2D96BD8EBD0D7D555AD781E9D382154');
  bmp4 := BitmapFromString(106, 2, 'z78DAA552410AC0' +
    '3008FBD23618B8A3C2FEFFA531BA4346D406DA8394D8468DB1ED3' +
    'DE11EE67A34F885F7B8FCB47DC4817F59C07B36442A3C41C2EFEB' +
    'E0F8CBB63C2BB1EF61D215E3BADAF437C9221BEC455295AA24B57' +
    '846A57FE2A9365EB1252FD163E4C0C48DC456EAAC7812676FA75B' +
    'F21E5499F00B0E54F6B8C2D96BD8EBD0D7D555AD781E9D382154');
  bmp5 := BitmapFromString(106, 2, 'z78DAA552410AC0' +
    '3008FBD23618B8A3C2FEFFA531BA4346D406DA8394D8468DB1ED3' +
    'DE11EE67A34F885F7B8FCB47DC4817F59C07B36442A3C41C2EFEB' +
    'E0F8CBB63C2BB1EF61D215E3BADAF437C9221BEC455295AA24B57' +
    '846A57FE2A9365EB1252FD163E4C0C48DC456EAAC7812676FA75B' +
    'F21E5499F00B0E54F6B8C2D96BD8EBD0D7D555AD781E9D382154');
  dtm1 := DTMFromString('78DA6354636060306100031E08C5D092B0824' +
    '103483302F17F2060D404323450D5046671C2D58000A31690B046' +
    '5533ABE0305C0D18EB00092DDCE630013100D4CB0B1F');
  dtm2 := DTMFromString('78DA6354636060306100031E08C5D092B0824' +
    '103483302F17F2060D404323450D5046671C2D58000A31690B046' +
    '5533ABE0305C0D18EB00092DDCE630013100D4CB0B1F');
  dtm3 := DTMFromString('78DA6354636060306100031E08C5D092B0824' +
    '103483302F17F2060D404323450D5046671C2D58000A31690B046' +
    '5533ABE0305C0D18EB00092DDCE630013100D4CB0B1F');
  dtm4 := DTMFromString('78DA6354636060306100031E08C5D092B0824' +
    '103483302F17F2060D404323450D5046671C2D58000A31690B046' +
    '5533ABE0305C0D18EB00092DDCE630013100D4CB0B1F');
  dtm9 := DTMFromString('78DA6354636060306100031E08C5D092B0824' +
    '103483302F17F2060D404323450D5046671C2D58000A31690B046' +
    '5533ABE0305C0D18EB00092DDCE630013100D4CB0B1F');
  dtm10 := DTMFromString('78DA6354636060306100031E08C5D092B0824' +
    '103483302F17F2060D404323450D5046671C2D58000A31690B046' +
    '5533ABE0305C0D18EB00092DDCE630013100D4CB0B1F');
  bmp6 := BitmapFromString(106, 2, 'z78DAA552410AC0' +
    '3008FBD23618B8A3C2FEFFA531BA4346D406DA8394D8468DB1ED3' +
    'DE11EE67A34F885F7B8FCB47DC4817F59C07B36442A3C41C2EFEB' +
    'E0F8CBB63C2BB1EF61D215E3BADAF437C9221BEC455295AA24B57' +
    '846A57FE2A9365EB1252FD163E4C0C48DC456EAAC7812676FA75B' +
    'F21E5499F00B0E54F6B8C2D96BD8EBD0D7D555AD781E9D382154');
  bmp7 := BitmapFromString(106, 2, 'z78DAA552410AC0' +
    '3008FBD23618B8A3C2FEFFA531BA4346D406DA8394D8468DB1ED3' +
    'DE11EE67A34F885F7B8FCB47DC4817F59C07B36442A3C41C2EFEB' +
    'E0F8CBB63C2BB1EF61D215E3BADAF437C9221BEC455295AA24B57' +
    '846A57FE2A9365EB1252FD163E4C0C48DC456EAAC7812676FA75B' +
    'F21E5499F00B0E54F6B8C2D96BD8EBD0D7D555AD781E9D382154');
  bmp8 := BitmapFromString(106, 2, 'z78DAA552410AC0' +
    '3008FBD23618B8A3C2FEFFA531BA4346D406DA8394D8468DB1ED3' +
    'DE11EE67A34F885F7B8FCB47DC4817F59C07B36442A3C41C2EFEB' +
    'E0F8CBB63C2BB1EF61D215E3BADAF437C9221BEC455295AA24B57' +
    '846A57FE2A9365EB1252FD163E4C0C48DC456EAAC7812676FA75B' +
    'F21E5499F00B0E54F6B8C2D96BD8EBD0D7D555AD781E9D382154');
  bmp9 := BitmapFromString(106, 2, 'z78DAA552410AC0' +
    '3008FBD23618B8A3C2FEFFA531BA4346D406DA8394D8468DB1ED3' +
    'DE11EE67A34F885F7B8FCB47DC4817F59C07B36442A3C41C2EFEB' +
    'E0F8CBB63C2BB1EF61D215E3BADAF437C9221BEC455295AA24B57' +
    '846A57FE2A9365EB1252FD163E4C0C48DC456EAAC7812676FA75B' +
    'F21E5499F00B0E54F6B8C2D96BD8EBD0D7D555AD781E9D382154');
  bmp10 := BitmapFromString(106, 2, 'z78DAA552410AC0' +
    '3008FBD23618B8A3C2FEFFA531BA4346D406DA8394D8468DB1ED3' +
    'DE11EE67A34F885F7B8FCB47DC4817F59C07B36442A3C41C2EFEB' +
    'E0F8CBB63C2BB1EF61D215E3BADAF437C9221BEC455295AA24B57' +
    '846A57FE2A9365EB1252FD163E4C0C48DC456EAAC7812676FA75B' +
    'F21E5499F00B0E54F6B8C2D96BD8EBD0D7D555AD781E9D382154');

  FreeBitMap(bmp1);
  FreeDTM(dtm1);
  FreeBitMap(bmp2);
  FreeDTM(dtm2);
  FreeDTM(dtm3);
  FreeBitMap(bmp3);
  FreeBitMap(bmp4);
  FreeDTM(dtm4);
  FreeDTM(dtm5);
  FreeDTM(dtm6);
  FreeBitMap(bmp5);
  FreeBitMap(bmp6);
  FreeBitMap(bmp7);
  FreeDTM(dtm7);
  FreeDTM(dtm8);
  FreeBitMap(bmp8);
  FreeBitMap(bmp9);
  FreeBitMap(bmp10);
  FreeDTM(dtm9);
  FreeDTM(dtm10);
end;

begin
  cleardebug;
  Writeln('Testing Memory leak issues');
  AreaToTest := strtoint(Readln('Test what? 1=bmp 2=dtm 3=both 4=writeln'));
  wait(100);
  CompSpeed := strtoint(Readln('Wait Time: (0-5000) higher the number the less lag but goes slower'));

  //test proper script setup
  if ((AreaToTest < 1) or (AreaToTest > 4)) then
  begin
    writeln('Please set AreaToTest between 1 - 4');
    writeln('halting execution of script');
    TerminateScript;
  end;
  if ((CompSpeed < 0) or (CompSpeed > 5000)) then
  begin
    writeln('Please set CompSpeed between 0 - 5000');
    writeln('halting execution of script');
    TerminateScript;
  end;

  repeat
    tries := tries + 1;
    case AreaToTest of
      1:
        begin
          TestBmp;
          if (tries mod 100 = 0) then
          begin
            cleardebug;
            writeln('Tested bitmaps only ' + IntToStr(tries) + ' times');
          end;
        end;
      2:
        begin
          TestDtm;
          if (tries mod 100 = 0) then
          begin
            cleardebug;
            writeln('Tested dtm''s only ' + IntToStr(tries) + ' times');
          end;
        end;
      3:
        begin
          TestBoth;
          if (tries mod 100 = 0) then
          begin
            cleardebug;
            writeln('Tested both bitmaps and dtm''s  ' + IntToStr(tries) + ' times');
          end;
        end;
      4:
        begin
          writeln(IntToStr(tries));
          if (tries mod 1000 = 0) then
          begin
            writeln('Tested Writeln only ' + IntToStr(tries) + ' times');
          end;
        end;
    end;

    wait(CompSpeed);
  until false;
end.

Hmmm kinda flyboy. I got the blue screen using kinda my own option.
I wrote writeln('tested' +inttostr(times)+'') into the BITMAP repeat. Try doing that.

From: Mutant Squirrle
Watch your page file usage on your processor it gradually goes up up and away

i got 2 gigs of ram and a 3500+ processor i hit bottom at like 60k times 62k? depends what i got going on for pagefile. Its literal memory on your processor that is being consumed not ram. I closed scar and my PF dropped 50k rofl

crp man ur comp is 1337 my comp only got 256 ram and my other comp got 512 and my parents use the 512 one