SRL Archive - OSR Help

Function FindWaterScreen: Boolean;
Var
  X, Y: Integer;
Begin
  WaterScreen := BitmapFromString(226, 57, 'meJztnW9MG+cdx5/z/X3uv332+R/GQCBACQkhJBBIKZBSCP9SSCBJw2gC489C04AUljZV16VKojTZorbr1CqNpjWLVq3R2kmRplbd1Kl5sReTIlWbtr3qJk3VNE17s7yZ9mLaz77OdQ4HGWJhe/y++uj03HO2zsDHv+c5353xebXI49/hqBIdWdz93t/bfnbPIX7sAnTCJp9Xqyz1KrLsrx+HpaqqOgazvvGhpZiCD1qKKfygpZjCD1qKKfygpZjCD1qKKfygpZjCD1qKKfygpZjCD1qKKfygpZjCD1qKKfygpZjCT5aWyklLZUoVRVExmPXNqmoppTQhqiwjyHqSpaXgM1RReLyc7xeMbECyraWKArUUQfLCqkZ8SZLo/5BEURQEBFkHsj96srY8lfCTJg0VBJ7nWcxGDbe+ZF9LrbrDCUGTihqauDluNNRYCLIOZG+pr/aglBjkBb9Xjkd0WCIbFlOXAF0VVVlQKE8lDpbQhh5nU27J3lJv9ZPgKJTf+irLeW7IryIbE8ukhirKEi9wHp71eBgCS5FnoQf6QePc7i57S82qAZiMGqoAhRQUhVcSC+kbmbyrki9MTaIiB1oSrZw0nCGPvkX230ks6+aJEoF+ReLhMfmxdNM+sBT27gz38Nw1/GUDMFhoIrzdkCJFlpJ+8kpCy+l/h/ddjrfP1G5vhaXd9z0yeY80nWMIgbrqN2muCkL2lhoVPTzHgaWJZ5nUMmXbp2QkaCkRW3PtqCSoqZRntDhpfiXxAyLFyLZvksBOwqtk5DfhfVcerWVd7N4aigy8Qbpvgaggc8hSXBqEYbZgUK8mZcRn0IzVb22WGprEHXyZPXI5I/zYeSvgde1IVwRSv8gc/dzTeJarP4EUHeyWOU+4jRF0kLB88FJvA/cgSp98g+x8mUg2FViXBl5dqh5YrOj+RkZqBhZVzS32GiyFeSk8S1PE+Ku/5Zc+zEj0yl09EoOJQYqorbKiSqb+WRkRt8UYpBipsolXJiTaZR/95cEWdgWG2gIwGSBaBePhg5acboIqC0efv956+AWgY+Jc78wrADScnrHTbwqmnf54h9VaqikC1GTYl//8r5m5mxkxXvpUi5Sm78UyJFIzxXb9YGe5BylSNgUYiSOk62b70PixTm5l6kcvke3PERqEMTTdBIXyAye+W7V3prp7rr7/WUJgasBAA1ah8/HJC7zmy6Gl5rfvJJycv+Vm7qb24q9clmoyT3pvx2PhPTUsUqSUBRgPIWT8L8cH4yf7+JUZGuknfT8nkl8SWJelUDwdRaF4OpZCwxE1t5bCsV7C0oEzzI5hNwNn6PO/0KOl5VEjhQJvwtHPGqvUJ7bxSJFSYXtAKRjKTw9LS8P8yjw92gRHWITXBM5znwlJSz1lexlOYajPsRQasAqdMPQLmi/98Q5rthQKJtN8yNlLOtCZ2dIDd5tr9eEWASlSHilhE5ZO3jtzyP+tMWEZfDrTR5qTlurLLYWCmfLzPnOoD4pqbi0FFZmeBaah3w10Ltx2WQqTE6b7vbrqkvEOESlSWjZzlCdk/52Zpzsufk1chpDOyPEZ8tjbjFJCRc5lKajIRFsTWnLKl34mG9DZPPocr6g5tBRUZIbPMYevMEdf/QpYhc75Wy5LAyYllUdA1OkeihQp+3YIEZ+HbJlvn3796qS4DCGdzTMfk+heopZ6VdFladPIklY35G8chYmoYyk0YBU6YXaaY0uf/SAxL83I3E2XpbGQljhhMf2v3mbz5CBFipHJbqmpkmOSB1ATs1///qx0P2KKodkXEudMqc0yTElQdVm6bXABpqAAaOlYCg2nB3TNoaWmJvFLHzJjlzKzcNuIxlw7MjWR1Ewxx/7BtpzP+wfUyNrwxLoZOUTsXTA7nToxef0ZaTljJ5bIxN+IEiVqDJx0aQD+wIhvbh0GoH6WtR8HoOH0QJkVVC1XlloGHKqd4gaWMsL3LQaCGebAhiqw1O9pPJv/M33I2mh9nWw6AuM4Ce6Gitr3zNULp5puLEoOZ091d82/RQ79Ifl5PkdFdrkDfpMGWyeM7QczYreMa3oOaqlz7sn2KSFLCfszE7XV0lCGdwQQCSiWIXk1ESlSQABZ5Dg43OeVxAVRo5+R2f98yeAnpG7eOYNvakI8rC8XIBbUbJ8MDmQENoE8D2+pcx7fuSQgo4fI/z3xiG57KegqCayH+eqzJM7DwBG9qYogW1kkl3qkLLU7Djff+LOj6O53/xrun13hyj20FIGqGExWRTjicIDRHEbYBw2jD4NjqWJ4wcnNi9d3vfM5UH36h7Aq6+aDroJ2ri/N+y8K2SCkaqlDoH0MSK0+6I4S5+aXvF8tj2wQ0uelTkUFVNO3wt15UEWdQR/JI3m/QW89AQMBq3GGV00x8a0QFEg0VAs6na2uO51BVF3BO52R9cORUK/sCzQvaLFdICcADViFzvss3fKUTGnym6Jkp6iu81cHIBuWlIeiVQXFM9R5IdR5ERqwmtqE31+KyW/SVVwBtBSTx6ClmMIPWoop/ICB8YixaeLi2Cdf7H3n91tf+tQ38CNvzzVv12ty/ImcWWqYelmrr2HK2nMeQVaLI6GmCD3v/rHv/T81X71rHXgfRPU9dklXxZxYaoaqvfs/CDRNhWs7o+U1CLJaHAnLS0y7Y3L4oy/ar/0OLPXv/7Eca4Ua+/CWGoFSf+drsKOwxQMVYQ5BVkvKQ8ugLZc/hkHfGvmp3vaiz6A5mZdaey5CCQU/68s9O6rYndVc6yMCgqyKdBWN2nYY96GWUrsGqmsuLDW8Bz4CRWtjnrz/pEjxkq5iOKDWnbymNi4GLSUnx/iGN+DvuQGWQhXt2s4jyNpw2SgKLBU5V2f2lmrJOP92R5ZlzfSDpTCvgLdDbxOPIGsjh5+XphQFP6kkgaj9g8PWyE8cS0faeARZG/8F5L0HKg==');
  If (FindBitmap(WaterScreen, X, Y)) Then
    Begin
      Result:= True
    End;
  If Not(FindBitmap(WaterScreen, X, Y)) Then
    Begin
      Result:= False;
      Exit;
    End;
  FreeBitmap(WaterScreen);
End; 

I am not too sure if this is the correct way to free the bitmap? i made waterscreen a global variable and added to my freedtms procedure to also FreeBitmap(WaterScreen); so if the client terminates the script it will still free the waterskin bitmap. However is that the correct way to free a bitmap? Because when i stop the script i am still getting bitmap errors?

I would try something along the lines as:
(note the code comments)

program Test;
{$include_once srl/srl.simba}

var WaterScreen: Integer; // Declare BMP/DTM globally, if using more than once/several times

procedure Init();
begin
  WaterScreen := BitmapFromString(226, 57, '');
  SetBitmapName(WaterScreen, 'WaterScreen Bitmap'); // Helps show us if it errors in the script
end;

procedure DumpGlobals();
begin
  FreeBitmap(WaterScreen);
end;

function FindWaterScreen(): Boolean;
var
  x, y: Integer;
begin
  Result := FindBitmap(WaterScreen, x, y);
end;

begin
  SetupSRL;
  AddOnTerminate('DumpGlobals'); // Free's for us if the script stops/terminates
end.