hedgewars/uStore.pas
changeset 2751 2a3091b13ce4
parent 2747 7889a3a9724f
child 2753 2305bb5dc5f2
equal deleted inserted replaced
2750:0585262f76f6 2751:2a3091b13ce4
   216 		r.w:= 26;
   216 		r.w:= 26;
   217 		r.h:= 19;
   217 		r.h:= 19;
   218 
   218 
   219 		DrawRoundRect(@r, cWhiteColor, cNearBlackColor, texsurf, true);
   219 		DrawRoundRect(@r, cWhiteColor, cNearBlackColor, texsurf, true);
   220 
   220 
       
   221 		// overwrite flag for cpu teams and keep players from using it
       
   222 		if (Hedgehogs[0].Gear <> nil) and (Hedgehogs[0].BotLevel > 0) then
       
   223 			Flag:= 'cpu'
       
   224 		else if Flag = 'cpu' then
       
   225 			Flag:= 'hedgewars';
       
   226 		
   221 		flagsurf:= LoadImage(Pathz[ptFlags] + '/' + Flag, ifNone);
   227 		flagsurf:= LoadImage(Pathz[ptFlags] + '/' + Flag, ifNone);
   222 		if flagsurf = nil then
   228 		if flagsurf = nil then
   223 			flagsurf:= LoadImage(Pathz[ptFlags] + '/hedgewars', ifNone);
   229 			flagsurf:= LoadImage(Pathz[ptFlags] + '/hedgewars', ifNone);
   224 		TryDo(flagsurf <> nil, 'Failed to load flag "' + Flag + '" as well as the default flag', true);
   230 		TryDo(flagsurf <> nil, 'Failed to load flag "' + Flag + '" as well as the default flag', true);
   225 		copyToXY(flagsurf, texsurf, 2, 2);
   231 		copyToXY(flagsurf, texsurf, 2, 2);