equal
deleted
inserted
replaced
72 end; |
72 end; |
73 |
73 |
74 procedure chAddTeam(var s: shortstring); |
74 procedure chAddTeam(var s: shortstring); |
75 var Color: Longword; |
75 var Color: Longword; |
76 ts: shortstring; |
76 ts: shortstring; |
77 {$IFNDEF ENDIAN_LITTLE} |
|
78 tmpA, tmpR, tmpG, tmpB: byte; |
|
79 tmpColor: LongWord = 0; |
|
80 {$ENDIF} |
|
81 begin |
77 begin |
82 if isDeveloperMode then |
78 if isDeveloperMode then |
83 begin |
79 begin |
84 SplitBySpace(s, ts); |
80 SplitBySpace(s, ts); |
85 val(s, Color); |
81 val(s, Color); |