All walls are now thin walls

cosplay.pas

@@ -1,74 +1,82 @@
-program cosplay2;
-
-uses gears,sdlgfx,sdlmenus,colormenu,sdl;
-
-Procedure RedrawOpening;
-	{ The opening menu redraw procedure. }
-begin
-	ClrScreen;
-	ClearExtendedBorder( ZONE_Menu.GetRect() );
-end;
-
-Procedure BrowseByType( FPat: String; width,height,frames,ColorMode: Integer );
-	{ Browse the images by file pattern and color mode. }
-var
-	FileMenu: RPGMenuPtr;
-	SpriteName: String;
-begin
-	FileMenu := CreateRPGMenu( MenuItem , MenuSelect , ZONE_Menu );
-    if FPat = '' then begin
-        { We want all the mecha. All of them!!! }
-        BuildFileMenu( FileMenu , Graphics_Directory + 'aer_*.png' );
-        BuildFileMenu( FileMenu , Graphics_Directory + 'ara_*.png' );
-        BuildFileMenu( FileMenu , Graphics_Directory + 'btr_*.png' );
-        BuildFileMenu( FileMenu , Graphics_Directory + 'gca_*.png' );
-        BuildFileMenu( FileMenu , Graphics_Directory + 'ger_*.png' );
-        BuildFileMenu( FileMenu , Graphics_Directory + 'ghu_*.png' );
-        BuildFileMenu( FileMenu , Graphics_Directory + 'hov_*.png' );
-        BuildFileMenu( FileMenu , Graphics_Directory + 'orn_*.png' );
-        BuildFileMenu( FileMenu , Graphics_Directory + 'zoa_*.png' );
-
-    end else BuildFileMenu( FileMenu , Graphics_Directory + FPat );
-	RPMSortAlpha( FileMenu );
-    AddRPGMenuItem( FileMenu, MsgString( 'EXIT' ), -1 );
-	SpriteName := '';
-
-	repeat
-		SpriteName := SelectFile( FileMenu , @RedrawOpening );
-		if SpriteName <> '' then SelectColorPalette( ColorMode, SpriteName, '200 0 0 200 200 0 0 200 0', width, height, frames, @ClrScreen );
-	until SpriteName = '';
-
-	DisposeRPGMenu( FileMenu );
-end;
-
-var
-	FileMenu: RPGMenuPtr;
-	N: Integer;
-    MySprite: SensibleSpritePtr;
-
-begin
-	FileMenu := CreateRPGMenu( MenuItem , MenuSelect , ZONE_Menu );
-
-    {MySprite := ConfirmSprite( 'Elisha_Demo.png', '80 40 120 255 230 200 166 47 32', 64, 64 );}
-    {SDL_SaveBmp( MySprite^.img , 'out.bmp' );}
-
-	AddRPGMenuItem( FileMenu , 'Browse Portraits' , 1 );
-	AddRPGMenuItem( FileMenu , 'Browse Mecha' , 2 );
-	AddRPGMenuItem( FileMenu , 'Browse Monsters' , 3 );
-	AddRPGMenuItem( FileMenu , 'Browse All' , 4 );
-
-	repeat
-		N := SelectMenu( FileMenu , @RedrawOpening );
-		case N of
-			1: BrowseByType( 'por_*.png' , 100, 150, 0, colormenu_mode_character );
-			2: BrowseByType( '' , 64, 64, 8, colormenu_mode_mecha );
-			3: BrowseByType( 'monster_*.png' , 64, 64, 8, colormenu_mode_allcolors );
-			4: BrowseByType( '*.png' , 211, 308, 0, colormenu_mode_allcolors );
-		end;
-
-	until N = -1;
-
-
-
-	DisposeRPGMenu( FileMenu );
+unit cosplay;
+
+interface
+    uses gears,sdlgfx,sdlmenus,colormenu,sdl;
+
+    Procedure DoCosplay();
+
+
+implementation
+    Procedure RedrawOpening;
+        { The opening menu redraw procedure. }
+    begin
+        ClrScreen;
+        ClearExtendedBorder( ZONE_Menu.GetRect() );
+    end;
+
+    Procedure BrowseByType( FPat: String; width,height,frames,ColorMode: Integer );
+        { Browse the images by file pattern and color mode. }
+    var
+        FileMenu: RPGMenuPtr;
+        SpriteName: String;
+    begin
+        FileMenu := CreateRPGMenu( MenuItem , MenuSelect , ZONE_Menu );
+        if FPat = '' then begin
+            { We want all the mecha. All of them!!! }
+            BuildFileMenu( FileMenu , Graphics_Directory + 'aer_*.png' );
+            BuildFileMenu( FileMenu , Graphics_Directory + 'ara_*.png' );
+            BuildFileMenu( FileMenu , Graphics_Directory + 'btr_*.png' );
+            BuildFileMenu( FileMenu , Graphics_Directory + 'gca_*.png' );
+            BuildFileMenu( FileMenu , Graphics_Directory + 'ger_*.png' );
+            BuildFileMenu( FileMenu , Graphics_Directory + 'ghu_*.png' );
+            BuildFileMenu( FileMenu , Graphics_Directory + 'hov_*.png' );
+            BuildFileMenu( FileMenu , Graphics_Directory + 'orn_*.png' );
+            BuildFileMenu( FileMenu , Graphics_Directory + 'zoa_*.png' );
+
+        end else BuildFileMenu( FileMenu , Graphics_Directory + FPat );
+        RPMSortAlpha( FileMenu );
+        AddRPGMenuItem( FileMenu, MsgString( 'EXIT' ), -1 );
+        SpriteName := '';
+
+        repeat
+            SpriteName := SelectFile( FileMenu , @RedrawOpening );
+            if SpriteName <> '' then SelectColorPalette( ColorMode, SpriteName, '200 0 0 200 200 0 0 200 0', width, height, frames, @ClrScreen );
+        until SpriteName = '';
+
+        DisposeRPGMenu( FileMenu );
+    end;
+
+    Procedure DoCosplay();
+
+    var
+        FileMenu: RPGMenuPtr;
+        N: Integer;
+        MySprite: SensibleSpritePtr;
+
+    begin
+        FileMenu := CreateRPGMenu( MenuItem , MenuSelect , ZONE_Menu );
+
+        {MySprite := ConfirmSprite( 'Elisha_Demo.png', '80 40 120 255 230 200 166 47 32', 64, 64 );}
+        {SDL_SaveBmp( MySprite^.img , 'out.bmp' );}
+
+        AddRPGMenuItem( FileMenu , 'Browse Portraits' , 1 );
+        AddRPGMenuItem( FileMenu , 'Browse Mecha' , 2 );
+        AddRPGMenuItem( FileMenu , 'Browse Monsters' , 3 );
+        AddRPGMenuItem( FileMenu , 'Browse All' , 4 );
+
+        repeat
+            N := SelectMenu( FileMenu , @RedrawOpening );
+            case N of
+                1: BrowseByType( 'por_*.png' , 100, 150, 0, colormenu_mode_character );
+                2: BrowseByType( '' , 64, 64, 8, colormenu_mode_mecha );
+                3: BrowseByType( 'monster_*.png' , 64, 64, 8, colormenu_mode_allcolors );
+                4: BrowseByType( '*.png' , 211, 308, 0, colormenu_mode_allcolors );
+            end;
+
+        until N = -1;
+
+
+
+        DisposeRPGMenu( FileMenu );
+    end;
 end.

gharena.pas

@@ -30,13 +30,13 @@
 {$IFNDEF DEBUG}
 {$APPTYPE GUI}
 {$ENDIF}
-uses gears,sdlgfx,arenahq,sdlmenus,randchar,navigate,sdlmap,ghchars;
+uses gears,sdlgfx,arenahq,sdlmenus,randchar,navigate,sdlmap,ghchars,cosplay;
 {$ELSE}
 uses gears,congfx,arenahq,conmenus,randchar,navigate,context,mapedit;
 {$ENDIF}
 
 const
-	Version = '1.302';
+	Version = '1.310';
 
 var
 	RPM: RPGMenuPtr;
@@ -87,6 +87,9 @@
 	AddRPGMenuItem( RPM , 'Edit Map' , 6 );
 {$ENDIF}
 	AddRPGMenuItem( RPM , 'View Design Files' , 7 );
+{$IFDEF SDLMODE}
+	AddRPGMenuItem( RPM , 'View Color Selector' , 8 );
+{$ENDIF}
 	AddRPGMenuItem( RPM , 'Quit Game' , -1 );
 
     {GenNames();}
@@ -124,6 +127,7 @@
 {$ENDIF}
 {$IFDEF SDLMODE}
 			7:	DesignDirBrowser( @RedrawOpening );
+            8:  DoCosplay;
 {$ELSE}
 			7:	DesignDirBrowser;
 {$ENDIF}

history.txt

@@ -1,3 +1,10 @@
+1.310	February 7 2019
+- All old style walls have been replaced by thin walls (sdlmap.pp)
+- Portraits may be assigned as unisex "por_n_*.png" (sdlinfo.pp)
+- Cosplay changed from separate program to main menu option (cosplay.pas)
+- Centers on player, shows active player in info box, at start of tactics turn (arenaplay.pp)
+- Cannot sell items for higher price than you bought them (services.pp)
+- Lancemate field of view also visible (conmap.pp, sdlmap.pp)
 - Fixed problem with SanitizeFilename on Windows (pcaction.pp,navigate.pp)
 - Some illegal characters removed from filenames (texutil.pp)
 - FillRectWithSprite can now accept x,y offsets (sdlgfx.pp)

sdlinfo.pp

@@ -93,6 +93,7 @@ implementation
 	end else begin
 		PList := CreateFileList( Graphics_Directory + 'por_m_*.*' );
         ExpandFileList( PList, Graphics_Directory + 'por_f_*.*' );
+        ExpandFileList( PList, Graphics_Directory + 'por_n_*.*' );
 	end;
     DefaultPortraitList := PList;
 end;

sdlmap.pp

@@ -110,7 +110,7 @@ implementation
 		0, 0
 	);
 
-	NumThinWalls = 8;
+	NumThinWalls = 16;
 	ThinWall_Earth = 1;
 	ThinWall_RustySteel = 2;
 	ThinWall_Stone = 3;
@@ -119,13 +119,22 @@ implementation
     ThinWall_Wood = 6;
     ThinWall_Default = 7;
     ThinWall_Fortress = 8;
+    ThinWall_Hospital = 9;
+    ThinWall_Golden = 10;
+    ThinWall_Commercial = 11;
+    ThinWall_StainlessSteel = 12;
+    ThinWall_Neon = 13;
+    ThinWall_Restaurant = 14;
+    ThinWall_Garage = 15;
+    ThinWall_Organic = 16;
+
 
 	Terrain_Image: Array [1..NumTerr] of SmallInt = (
 		 1, 2, 3, 4, 5,  6, 7, 8, 9,10,
-		11,12,-5,14,-3, 16,17,18,19,20,
-		21,22,-Thinwall_Default,24,25, 26,-ThinWall_Wood,28,-ThinWall_RustySteel,30,
-		-1,32,-ThinWall_Fortress,34,-4, 36,37,38,39,40,
-		41,42
+		11,12,-ThinWall_Residential,14,-Thinwall_Stone, 16,17,-ThinWall_Hospital,19,20,
+		21,22,-Thinwall_Default,-ThinWall_Golden,25, 26,-ThinWall_Wood,28,-ThinWall_RustySteel,30,
+		-ThinWall_Earth,-ThinWall_Commercial,-ThinWall_Fortress,-ThinWall_StainlessSteel,-ThinWall_Industrial, -ThinWall_Neon,-ThinWall_Restaurant,-ThinWall_Garage,39,40,
+		41,-ThinWall_Organic
 	);
 
 	HalfTileWidth = 32;
@@ -1597,6 +1606,15 @@ initialization
 	Thin_Wall_Sprites[ ThinWall_Default ] := ConfirmSprite( 'wall_default.png' , '' , 64 , 96 );
 	Thin_Wall_Sprites[ ThinWall_Fortress ] := ConfirmSprite( 'wall_fortress.png' , '' , 64 , 96 );
 
+	Thin_Wall_Sprites[ ThinWall_Hospital ] := ConfirmSprite( 'wall_hospital.png' , '' , 64 , 64 );
+	Thin_Wall_Sprites[ ThinWall_Golden ] := ConfirmSprite( 'wall_gold.png' , '' , 64 , 64 );
+	Thin_Wall_Sprites[ ThinWall_Commercial ] := ConfirmSprite( 'wall_commercial.png' , '' , 64 , 64 );
+	Thin_Wall_Sprites[ ThinWall_StainlessSteel ] := ConfirmSprite( 'wall_stainless.png' , '' , 64 , 64 );
+	Thin_Wall_Sprites[ ThinWall_Neon ] := ConfirmSprite( 'wall_neon.png' , '' , 64 , 64 );
+	Thin_Wall_Sprites[ ThinWall_Restaurant ] := ConfirmSprite( 'wall_restaurant.png' , '' , 64 , 64 );
+	Thin_Wall_Sprites[ ThinWall_Garage ] := ConfirmSprite( 'wall_garage.png' , '' , 64 , 64 );
+	Thin_Wall_Sprites[ ThinWall_Organic ] := ConfirmSprite( 'wall_organic.png' , '' , 64 , 64 );
+
 	Thin_wall_Cap := ConfirmSprite( 'wall_cap.png' , '' , 64 , 96 );
     {SDL_SetAlpha( Thin_wall_Cap^.Img , SDL_SRCAlpha , 128 );}