hedgewars/uStore.pas
changeset 4517 0618b31023dc
parent 4404 6bae4e9461aa
child 4603 d362ab6c7f53
equal deleted inserted replaced
4516:ecf012a762d8 4517:0618b31023dc
   118 
   118 
   119         DrawRoundRect(@r, cWhiteColor, cNearBlackColor, texsurf, true);
   119         DrawRoundRect(@r, cWhiteColor, cNearBlackColor, texsurf, true);
   120 
   120 
   121         // overwrite flag for cpu teams and keep players from using it
   121         // overwrite flag for cpu teams and keep players from using it
   122         if (Hedgehogs[0].Gear <> nil) and (Hedgehogs[0].BotLevel > 0) then
   122         if (Hedgehogs[0].Gear <> nil) and (Hedgehogs[0].BotLevel > 0) then
   123             Flag:= 'cpu'
   123             if Flag = 'hedgewars' then Flag:= 'cpu'
   124         else if Flag = 'cpu' then
   124         else if Flag = 'cpu' then
   125             Flag:= 'hedgewars';
   125             Flag:= 'hedgewars';
   126 
   126 
   127         flagsurf:= LoadImage(Pathz[ptFlags] + '/' + Flag, ifNone);
   127         flagsurf:= LoadImage(Pathz[ptFlags] + '/' + Flag, ifNone);
   128         if flagsurf = nil then
   128         if flagsurf = nil then