shaunthasheep
2007-06-24 08:05:11
Edited to save me the embarrassment
2007-06-24 08:05:11
2007-06-24 08:08:38
program New;
var
kebabshop : integer;
begin
kebabshop := BitmapFromString(15, 5, 'z78DA7DD0410E4321080' +
'4D02B8922C812F473FF2335E97441627E3713A399274A4A83DA91' +
'D3F75353D670B2877733DDE143122987981AF248F092BB4B5F932' +
'E192D986F895BBA51D06FFD5FAE26E6412BCFE9AE48ECBBE9E055' +
'5F51FD5BCE787277C8A1A632EF3921E3D453F79C3164D2821F12D' +
'D5F7F03DDAA455B3E1B1C4C8BB42636962647679855FE005B3666' +
'35');
writeln(inttostr(kebabshop))
writeln(inttostr(BitMapFromString(2,2,'sadasdsadd')))
writeln(inttostr(BitMapFromString(1,2,'sadarerreesdsadd')))
writeln(inttostr(BitMapFromString(2,3,'safsdfsf')))
end.
lol, first bitmap always returns as 0, next as 1 and next as 2. :D2007-06-24 08:11:48