equal
deleted
inserted
replaced
84 procedure chColor(var id: shortstring); |
84 procedure chColor(var id: shortstring); |
85 var c: integer; |
85 var c: integer; |
86 begin |
86 begin |
87 if CurrentTeam = nil then OutError(errmsgIncorrectUse + ' "/color"', true); |
87 if CurrentTeam = nil then OutError(errmsgIncorrectUse + ' "/color"', true); |
88 val(id, CurrentTeam.Color, c); |
88 val(id, CurrentTeam.Color, c); |
89 AdjustColor(CurrentTeam.Color) |
89 CurrentTeam.AdjColor:= CurrentTeam.Color; |
|
90 AdjustColor(CurrentTeam.AdjColor) |
90 end; |
91 end; |
91 |
92 |
92 procedure chAdd(var id: shortstring); |
93 procedure chAdd(var id: shortstring); |
93 var s: shortstring; |
94 var s: shortstring; |
94 c: integer; |
95 c: integer; |