hedgewars/uStore.pas
changeset 2751 2a3091b13ce4
parent 2747 7889a3a9724f
child 2753 2305bb5dc5f2
--- a/hedgewars/uStore.pas	Thu Feb 04 20:49:59 2010 +0000
+++ b/hedgewars/uStore.pas	Thu Feb 04 22:29:19 2010 +0000
@@ -218,6 +218,12 @@
 
 		DrawRoundRect(@r, cWhiteColor, cNearBlackColor, texsurf, true);
 
+		// overwrite flag for cpu teams and keep players from using it
+		if (Hedgehogs[0].Gear <> nil) and (Hedgehogs[0].BotLevel > 0) then
+			Flag:= 'cpu'
+		else if Flag = 'cpu' then
+			Flag:= 'hedgewars';
+		
 		flagsurf:= LoadImage(Pathz[ptFlags] + '/' + Flag, ifNone);
 		if flagsurf = nil then
 			flagsurf:= LoadImage(Pathz[ptFlags] + '/hedgewars', ifNone);