Complete BigTask

code/GameSelectedMap.pas

@@ -0,0 +1,22 @@
+unit GameSelectedMap;
+
+{$mode objfpc}{$H+}{$codepage utf8}
+
+interface
+
+const
+  SelectedMapRelativePath = 'Maps/CatchTheSnake/CatchTheSnake.map';
+
+function SelectedMapUrl: string;
+
+implementation
+
+uses
+  CastleUriUtils;
+
+function SelectedMapUrl: string;
+begin
+  Result := 'castle-data:/game/' + UrlEncode(SelectedMapRelativePath);
+end;
+
+end.