hedgewars/CCHandlers.inc
changeset 375 18012da67681
parent 371 731ad6d27bd1
child 377 d9b88dbdf5a9
equal deleted inserted replaced
374:95169697cc38 375:18012da67681
    98 
    98 
    99 procedure chColor(var id: shortstring);
    99 procedure chColor(var id: shortstring);
   100 var c: LongInt;
   100 var c: LongInt;
   101 begin
   101 begin
   102 if CurrentTeam = nil then OutError(errmsgIncorrectUse + ' "/color"', true);
   102 if CurrentTeam = nil then OutError(errmsgIncorrectUse + ' "/color"', true);
   103 val(id, CurrentTeam^.Color, c);
   103 //val(id, CurrentTeam^.Color, c);
       
   104 CurrentTeam^.Color:= random($FFFFFF);
   104 CurrentTeam^.AdjColor:= CurrentTeam^.Color;
   105 CurrentTeam^.AdjColor:= CurrentTeam^.Color;
   105 AdjustColor(CurrentTeam^.AdjColor)
   106 AdjustColor(CurrentTeam^.AdjColor)
   106 end;
   107 end;
   107 
   108 
   108 procedure chAddHH(var id: shortstring);
   109 procedure chAddHH(var id: shortstring);