Need some help

Can someone make this script to work:

Code:

procedure LoadBitmap;
begin
  Case MyBow of
    'Short' : ShortB := DTMFromString('78DA6314606060E0634001C5FEBC609A11CA6' +
       '7140712ECA86A422D3950D53001093102E6F00009615435060A0A' +
       'A86A405A0418D00023AA1A0920C184AA22C00CCD3D92408219BF5' +
       'D007EE50478');
 
    'Long' : LongB := DTMFromString('78DA6364656060006124D016CD0BA619A17C4' +
       '67620C18EAA26CE9E03550D3F90E0415563A0A080AA46144888A3' +
       'AAA90F43B34B004808A0AAC9F14053C382E9E6627F34352079365' +
       '43501661C24BB0700B45506B5');
 
    'OakShort' : OakShortB := DTMFromString('78DA6314646060E06540016DB9100146289F5' +
       '11C4830A1AA490FE140550392176340038CA86A9831D518282860' +
       'AA11465533AB4E10550D3F90E027E066414C35E8760100C002059' +
       '8');
 
    'OakLong' : OakLongB := DTMFromString('78DA636465606060634001C9011C609A11CA6' +
       '7E40712FCA86ABA0A0451D5880009315435CD59BCA86A4431D5C0' +
       '64E16AC430D5182828A0AA110712B2F8DD030033DE0527');
 
    'WillowShort' : WillowShortB := DTMFromString('78DA6314606060E0634001D525DA609A11CA6' +
       '71403125CA86AE2A21451D5480009565435060A0AA86AC431D5C0' +
       '64E16AD8808430AA8A965A7D54359C404208554D53952EAA1A264' +
       'C7326761AA3A80100194F06D9');
 
    'WillowLong' : WillowLongB := DTMFromString('78DA63E461606060634001AB16D8806946289' +
       'F910F487032A001464C353CA82A5A6AF551D580E4B950D504F9CA' +
       'A0AA610712ACA86AF2D25551D588000911543515859AA86A58800' +
       '4337EF7000072580751');
 
    'MapleShort' : MapleShortB := DTMFromString('78DA6314616060E064400193AA8BC1342394C' +
       'F0892174455D35F5984AA861548081330871B538D818202AA1A31' +
       '20C184AAA6262309558D38A69AE4107F5435A240821B554D51623' +
       '4A65DDCF8CD0100234D0A5A');
 
    'MapleLong' : MapleLongB := DTMFromString('78DA63E461606060674001DB664D00D38C503' +
       'E232B90604555931CE28FAA460C4848A0AA99D15081AA4614534D' +
       '69720CAA1A3E20C18BAAA6BFB208530D0FAA9A432B17A2AAE1071' +
       '2DCA86A0C141450D40000668D0A76');
 
    'YewShort' : YewShortB := DTMFromString('78DA63E4676060106040016DA5BC609A11CA6' +
       '764061222A86A66B50BA2AA110512EC04CC01A9E14155539C8AA6' +
       '4602538D818202AA1A3120C18AAAA63C03CD1C7120C18CAA263D8' +
       'A03550D1790104655D35581EA2F00DBC30859');
 
    'YewLong' : YewLongB := DTMFromString('78DA63E4676060E06340015D1582609A11CA6' +
       '7E404126CA86A964F124155C304249851D5D4E7F3A2AA11031292' +
       'A86AA634A1D9250A242450D59467A09903D2C28FAA66E72234F78' +
       '0E4B951D5182828A0A801002F400823');
  end;
end;
  

Got this error: Line 3: [Error] (3:6): Unknown identifier 'MyBow' in script

 

You have to call the bitmaps as integers, and I think MyBow should be a constant.

 

You think I know how?

 

You can't make a script if you don't know how.

 

I didn't made it, just need help to get it working.

 

That script will do nothing even if you get it to compile. All it does is load DTM's. . . At least it would if it had a main loop. Find a real script.

 

Thanks.