Okay this got me freaky, the begins and ends are ok but still Identifier Expected on line 9!! (Without counting SRL lines)
Or is it just may eyes
can't they spot the error.
I didn't even do anything yet just installed BMPs, aww
SCAR Code:
Program PwnzorChopper;
{.include SRL/SRL.scar}
var
MouseCoordX, MouseCoordY : Integer;
var
99NT, 99NT2, 88NT : Integer; //ERROR HERE! What...?
var
88NT2, 33NT, 33NT2, 33NT3, 22NT, 22NT2 : Integer;
var
1010DT, 77DT : Integer;
Procedure CheckAxe;
begin
MouseCoordX := 586;
MouseCoordY := 290;
Wait(250+random(50));
Gametab(5);
Wait(100+random(50));
MMouse(MouseCoordX, MouseCoordY, 10, 10);
Wait(350+random(150));
if (IsUpText('axe')) then
Writeln('Axe Found')
else
Writeln('No Axe Found') //ANTI-RANDOMS
Wait(100+random(200));
Gametab(4);
Wait(100+random(200));
end;
Procedure BitMaps1;
begin
Wait(2);
99NT := BitmapFromString(9, 9, 'z78DA4D515B12C32' +
'008BCD20A28F43335E9FD8FD405924E27E34EC47D800A24C0A518' +
'5B4343F60A875C8D163346A16C83912541BE6B18B0BB7EABB0822' +
'A381EFEC484BEA94A1F6A65151EAD4D1C579D7EC8878647846D47' +
'C05CB9273FD3D79392FCC4CC729E671D5C99DBBDA5CF3812E5CA8' +
'99E0E3BE53711E43024935AA8B2CF3F2D7D96C3432FA99BC9B92A' +
'8B89933BF1CE6A557E63016C1AE579ABFABFDD7A8A9C8889AD62B' +
'DD243A5111834297FA103F0AA1739EA6EA37A989D9B5A9CBC2BD8' +
'D9AA9AD1BAC33C47BD85594FDD952FA8BD64EE');
Wait(2);
99NT2 := BitmapFromString(9, 9, 'z78DA6D50C90DC3' +
'300C5B89946C477E266EBAFF48D5E1147D14010C42A178484D174' +
'F59DA48851A67E2E91842CDBFF9BE1B9A896E6C1D72AB3508726B' +
'1004466CF16EE8E0E8E8E69CD0917A6BABDB809E0231CCD0640BC' +
'CD835991BFF283B364F68AE7CD26840AA1DE5A5086678A94672BC' +
'A4B942EF18C1CAADF22AE5AF97E7E1F24FC28B94258BB7EB44367' +
'3CEF5B8EC24EE553A3579747E737AFEAB98D1D155F3267F98D934' +
'3BB69C6CC76C7700A88E16EDF605FC9E75D5BA6126395367142E8' +
'5EC1B93F0F58920B6647E00B45A6322');
Wait(2);
88NT := BitmapFromString(8, 8, 'z78DA4D50C911032' +
'10C6B493E30CA7393A1FF96E2233BD98F01C996640C060983512E' +
'A102A8BB86D1A1EE5CC956D528561275568733A7989DF54AB64EB' +
'98AD55888C21A590CE84E05EA2EFC46667694C7BD7D5FFF1E6B35' +
'EC40D0D62081455F2B6BB2A929B1B8814EA557CDEAA7BD3E810D3' +
'99BA43722C75301BB1D4FF6679D0CAD8651FBE5A9EDEE0C0F6476' +
'BF91CEFFD837AA46641E3D55ED3DBEF53FE0A472E47F9E542EB56' +
'6BF61CF4F8D');
Wait(2);
end;
Procedure BitMaps2;
begin
Wait(2);
88NT2 := BitmapFromString(8, 8, 'z78DA5D5051AE04' +
'2108BB520BE8E0E7AC99BDFF915EC1C9FBD898985A0AB47A062C1' +
'C9EBC2347DAC53440EF48DC02295CD5470CF85495D24DB80F4CF0' +
'7688FF1CDED2C5BC5DD26307226D15B6AF309CDD7BB572D68DF5D' +
'3252787693C675E192C6F9CEF1698BC1D9F07AB0A7B6A17EF8999' +
'3EFCE44AFF9F6672C74FB935949E955A1E02A39C680E6731663D7' +
'3F5FC55D96D0D8C747F7B3B517529573347D3FFE3BD8BDC3AA68D' +
'9BD9BFA7AA6F82DB82ECD48F6D29F30FFA2E4E5E');
Wait(2);
33NT := BitmapFromString(3, 3, '90A0567080225868' +
'0948502270802250601A38482238401E48582C');
Wait(2);
33NT2 := BitmapFromString(3, 3, '303027304020303' +
'01E30301E58604010100628281B181807000800');
Wait(2);
33NT3 := BitmapFromString(3, 3, '788834809046384' +
'822707834708034383824607032889049809046');
Wait(2);
22NT := BitmapFromString(2, 2, '5860365860275058' +
'27485816');
Wait(2);
22NT2 := BitmapFromString(2, 2, '809046788834788' +
'82078804D');
Wait(2);
end;
Procedure BitMaps3
begin
Wait(2);
1010DT := BitmapFromString(10, 10, 'z78DA4D' +
'525B8EC43008BB9279B4A59F93A473FF23AD713AD22A2A8AC0D88' +
'6D467C0C23BAEC828F740A45D36794E9B0E7C1D5E3819D30E4B2B' +
'3CBCC32E4F2FC60A60B1ABEC61266D88615A1199064BA079EC641' +
'EE22F55276E71A2911656C440FC6BF30B73081364480C2FEFCE24' +
'676C75E557DF31E439950FF52EE9FAEFDE55F52EF19081CEE3CD4' +
'B6BABBC1EA4856900E4A1765E730DE5A7A63B365B3390536E5FFC' +
'BF8C54B43DF6E8AE1963474C9E8FB63D146F39D73EB843679C6F6' +
'FABF78B2431ED79887F4F2D47E41146EAFD0E0FF1EE2731426A8A' +
'A1DEAF542E75E5F6D06FDD2F86FE8AC7A97EE25615DAF36757B7F' +
'A6F1BAACA55FF4B8E3F2C587BB7');
Wait(2);
77DT := BitmapFromString(7, 7, '0C0C00181C0' +
'B2C301B242C132C301918180B0C10001C20102C301B282C170004' +
'0000040014180D0004000A0C002226141214080E1208242817343' +
'C2624241920221612140C14140812140C18181000040018180B1C' +
'1E0F181C08161A0C14140D12120C161A020C0C031C1C152020131' +
'81C141014041C200924281024280A14140914141014180B141810' +
'0C0C00141410080803');
Wait(2);
end;
Procedure FreeBitMaps1;
begin
Wait(2);
FreeBitMap(99NT);
Wait(2);
FreeBitMap(99NT2);
Wait(2);
FreeBitMap(88NT);
Wait(2);
end;
Procedure FreeBitMaps2;
begin
Wait(2);
FreeBitMap(88NT2);
Wait(2);
FreeBitMap(33NT);
Wait(2);
FreeBitMap(33NT2);
Wait(2);
FreeBitMap(33NT3);
Wait(2);
FreeBitMap(22NT);
Wait(2);
FreeBitMap(22NT2);
Wait(2);
end;
Procedure FindTree;
begin
end;
Procedure DropLogs;
begin
end;
begin
end.