Below is a procedure i designed to load a single bitmap. I want foodbmp to equal whatever string1 bmp is and only load the assoicated bitmap will this work?
Will i get in trouble for using the masks out of the core file?
SCAR Code:
procedure LoadFood;
begin
case Capitalize(Players[CurrentPlayer].String1) of
'Meat': FoodBMP := BitmapFromString(37, 36,
'z78DAED99D10D00210C4257728ADB7F2427B8C4A8B480F06D529E' +
'B129EA18511445CEFA16A4CB7577A5169716DD9E4F6F3A7EC6736' +
'F9C74775DB131BAD2219CF4D2A167713D5D65AEA8AC52B993E85A' +
'5DD90F7DCE197AD9890841975919BA248137E9701E78529C2B9D7' +
'A8A7B8DCE2981F7D6EDCAC97EF750B6097BEE4AEB7D728557FD5F' +
'E08F579D8847133C6105A7');
'Chicken': FoodBMP := BitmapFromString(37, 36,
'z78DAED97410EC0200804BFC42BFCFF937A35F182087497EC1C1B' +
'9B3251176A26841042882AD68667259797A7FEFD398B63CC05DFC' +
'EE3C565E7B95FE7AEE1DBDD26067EC2C49290C52B3733FFB5F3EF' +
'D4B93EF62EDA4EE5DE4D16AFD809A9FB3A4E265754C2D87178EDF' +
'A13405E3876C893F94B6D98E730AB2FCC4E481CC7D91DBCBA86FE' +
'49AF7AEEEA3C1B9D2EB7FF2F2F9810621C1F08D50A4B');
'Shrimp' :FoodBMP := BitmapFromString(37, 36,
'z78DAED98D111C020084357EA14EE3F520768F1384982DCE57DDB' +
'480A82EDF318638C31C6987FD696AE78508ED87B9DF93ADBB7F21' +
'42FA7155F8CA8506A5F9DBC32BBAE2AFA155FF9BE818D10E50E5B' +
'6F915F46E7D9AF47E53473BA23E57A1FD0F78A4839B317AF1BAC0' +
'2F9BC64D64F99D78C9AD4CCA93365942F8653543DB02729EA7CED' +
'D5943704BDA6E6FECC9EE0EC19AABC95E5D5F4DF77510CD893D8E' +
'54E79F3EF72C7EE33BDBE781EEFF1857AE7B7E5AB1EED2C4753FE' +
'E69959BCD7ED29BF');
'Sardine':FoodBMP := BitmapFromString(37, 36,
'z78DAEDD6410DC0300C04414A4111FE902A1541947E7CD7190459' +
'5956BC1600007FB45FDD5D7D8DEA3A766D1F48E9BA7BEDCCC6BBA' +
'2C9B3FB5ED4F17FA56CD65D57EBBDD1372F534BACCBFA97CFEBD2' +
'AFACF40B0A0098EC015DDBF308');
'Herring':FoodBMP := BitmapFromString(37, 36,
'z78DAED97D10D80200C0557EA14EC3F9289FF2648B51EF56E01DE' +
'A5F01A2244444484C238E9EDD5C9F10F5E9DECAE2CB4DBB715F7B' +
'59B49CEB11B37E1EFBB4C72A6DD1B16DF9E5569549981D95AF954' +
'F577EFD9462278F5FB7710DEAF53736A9CEED56EADE769BB723E1' +
'BD925BF734344A43507BC49020B');
'Trout':FoodBMP := BitmapFromString(37, 36,
'z78DAED97510A00210805AFE429BCFF9116F6375A04377AEACC6F' +
'416F308DCC000000EAE12FBDBD3A39AE2E3DEC6A79C5B3ED766AD' +
'AC5BB26B3AA7CBB22C97D41D92E9FF696E3778D32A9146A77E274' +
'CDDBD8C9EBDF24D40B2F85A9D56F12E285175E13E63CAFD8CC8EF' +
'30DD5ED223F6BB5BE8B6300309E07443E028F');
'Salmon':FoodBMP := BitmapFromString(37, 36,
'z78DAED97510A00210805AFE429BCFF9116F6375A04377AEACC6F' +
'416F308DCC000000EAE12FBDBD3A39AE2E3DEC6A79C5B3ED766AD' +
'AC5BB26B3AA7CBB22C97D41D92E9FF696E3778D32A9146A77E274' +
'CDDBD8C9EBDF24D40B2F85A9D56F12E285175E13E63CAFD8CC8EF' +
'30DD5ED223F6BB5BE8B6300309E07443E028F');
'Tuna':FoodBMP := BitmapFromString(37, 36,
'z78DAED96BB0DC030084457F214DE7FA448A9D2243A8C0307BE57' +
'45292C9E3F07630821841042A0CC9BDC15FEF65AABD0BF42CC795' +
'96BE3F4F2DBF97726FE95E13557B743BED9ECBE6B980F90FF6C5E' +
'88DDDA9ED4ED656C9D0E39A98A76593BD9CF2BE6B670CE095D67D' +
'75D15E6E61582F24A39ECB9513DECAC9956A57B5AEDB2D2B8DFDC' +
'788EDD5B4AECEA5CCC53414C9F15A22B1749580E6B');
'Lobster':FoodBMP := BitmapFromString(37, 36,
'z78DAED98D111C020084357720AF71FA903787A4114214DBE3DE5' +
'550DB1AD49922431AB2F559DCB3F468C19E8D614154F2C4E57713' +
'7C73A3BA05A6EF99FBBC6C195DF31AC3E80B862AD7481B8E25BAE' +
'59FD88E3E13E99C7D35E9DF00C6B5967E0FB8691EB5A53C1A92C1' +
'19343F6661EABC2337F64D6F2D0E1F3BC7AEF9CF2017F478BA4B3' +
'763AFF6D8AA19BDD267C64B6EEE0C918A71248952CCD41B75727C' +
'7EB9B6FD7F2F402D1DDEEA41CFF9C3958A41BFA00C1682203');
'Swordfish':FoodBMP := BitmapFromString(37, 36,
'z78DAED98C10DC0200CC456620AF61FA952BF552BD4C02539D90B' +
'24064138C60000E8CABCF1F672727CBA60D7F79475B7FBEE7F2EE' +
'37A37D674DCDB8FB75D1DC7733DE4DA69AA6739BADA7957FC572B' +
'3EDD4E4FC688D709EBDC49B477352AEC5DBC7AD60B7C65553BE60' +
'BE5CB5F9979F5894663979BD4F4BBE69AAFF1EA658797D3CF0F5E' +
'00F0C60558360733');
end;
end;