equal
deleted
inserted
replaced
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); |
|
105 CurrentTeam^.AdjColor:= CurrentTeam^.Color; |
104 CurrentTeam^.AdjColor:= CurrentTeam^.Color; |
106 AdjustColor(CurrentTeam^.AdjColor) |
105 AdjustColor(CurrentTeam^.AdjColor) |
107 end; |
106 end; |
108 |
107 |
109 procedure chAddHH(var id: shortstring); |
108 procedure chAddHH(var id: shortstring); |