thanks everyone, yes i will put proper indentation from now. i m guna read some tuts on DTMs
just 1 last thing, this is the script that does not work:
SCAR Code:
program WalkFally;
{.include SRL/SRL.scar}
var
Door1:integer;
procedure North;
begin
MakeCompass('n');
Writeln('Made Compass North.')
end;
procedure LoadBitmapDoor1;
begin
Door1 := BitmapFromString(38, 21, 'beNrNlEsKAkEMRPtO3smNuPA' +
'eLhTcCYJ4UQMNRVHJ1ET84FAM/X+dUOkxHpeD0e209/Lbs8ZwxPt5' +
'39EHiR3ol2IUdO6+SSyP9WH20UHkvdvNYIUxVnHTP80rhUCE98Bi8' +
'YLcLSU4jAdRVk7i9biDMBVtSQIvy7PIUkBxDoiyqyRy+BnKXcHFH8' +
'tmVhm6RMR4mRDZNafYTv9AXMqqd9QScY5wvTRjzIcbm+W2IXKY5W1' +
'Xs5q9Km8CE1Ge4v+S2PEqipGfGiRNYswFVVL69djxaha/AJJV77cY' +
'mQkUose9RDQFwkTPWiWK5XLO5W6e2I+xr/H77wkjBymq');
end;
procedure FBitmapDoor1;
var
x, y :integer;
begin
Writeln('Looking for bitmap...');
If(findbitmap(Door1, x, y))Then
Begin
Writeln('Found bitmap!');
end;
end;
begin
setupsrl;
activateClient;
North;
LoadBitmapDoor1;
FBitmapDoor1;
end.
but this one works, after i add in something random between then and begin in procedure FBitmapDoor1:
SCAR Code:
program WalkFally;
{.include SRL/SRL.scar}
var
Door1:integer;
procedure North;
begin
MakeCompass('n');
Writeln('Made Compass North.')
end;
procedure LoadBitmapDoor1;
begin
Door1 := BitmapFromString(38, 21, 'beNrNlEsKAkEMRPtO3smNuPA' +
'eLhTcCYJ4UQMNRVHJ1ET84FAM/X+dUOkxHpeD0e209/Lbs8ZwxPt5' +
'39EHiR3ol2IUdO6+SSyP9WH20UHkvdvNYIUxVnHTP80rhUCE98Bi8' +
'YLcLSU4jAdRVk7i9biDMBVtSQIvy7PIUkBxDoiyqyRy+BnKXcHFH8' +
'tmVhm6RMR4mRDZNafYTv9AXMqqd9QScY5wvTRjzIcbm+W2IXKY5W1' +
'Xs5q9Km8CE1Ge4v+S2PEqipGfGiRNYswFVVL69djxaha/AJJV77cY' +
'mQkUose9RDQFwkTPWiWK5XLO5W6e2I+xr/H77wkjBymq');
end;
procedure FBitmapDoor1;
var
x, y :integer;
begin
Writeln('Looking for bitmap...');
If(findbitmap(Door1, x, y))Then
writeln('sd'); //<-------this is what i added in to make it work. just something random.
Begin
Writeln('Found bitmap!');
end;
end;
begin
setupsrl;
activateClient;
North;
LoadBitmapDoor1;
FBitmapDoor1;
end.
why is that?