equal
deleted
inserted
replaced
124 if (GameState = gsChat) |
124 if (GameState = gsChat) |
125 and (InputStr.Tex <> nil) then |
125 and (InputStr.Tex <> nil) then |
126 begin |
126 begin |
127 r.w:= InputStr.Width; |
127 r.w:= InputStr.Width; |
128 DrawFillRect(r); |
128 DrawFillRect(r); |
129 Tint($80000000); |
129 Tint($00, $00, $00, $80); |
130 DrawTexture(9 - cScreenWidth div 2, visibleCount * 16 + 11, InputStr.Tex); |
130 DrawTexture(9 - cScreenWidth div 2, visibleCount * 16 + 11, InputStr.Tex); |
131 Tint($FFFFFFFF); |
131 Tint($FF, $FF, $FF, $FF); |
132 DrawTexture(8 - cScreenWidth div 2, visibleCount * 16 + 10, InputStr.Tex); |
132 DrawTexture(8 - cScreenWidth div 2, visibleCount * 16 + 10, InputStr.Tex); |
133 end; |
133 end; |
134 |
134 |
135 dec(r.y, 16); |
135 dec(r.y, 16); |
136 |
136 |
143 and |
143 and |
144 (Strs[i].Tex <> nil) do |
144 (Strs[i].Tex <> nil) do |
145 begin |
145 begin |
146 r.w:= Strs[i].Width; |
146 r.w:= Strs[i].Width; |
147 DrawFillRect(r); |
147 DrawFillRect(r); |
148 Tint($80000000); |
148 Tint($00, $00, $00, $80); |
149 DrawTexture(9 - cScreenWidth div 2, (visibleCount - t) * 16 - 5, Strs[i].Tex); |
149 DrawTexture(9 - cScreenWidth div 2, (visibleCount - t) * 16 - 5, Strs[i].Tex); |
150 Tint($FFFFFFFF); |
150 Tint($FF, $FF, $FF, $FF); |
151 DrawTexture(8 - cScreenWidth div 2, (visibleCount - t) * 16 - 6, Strs[i].Tex); |
151 DrawTexture(8 - cScreenWidth div 2, (visibleCount - t) * 16 - 6, Strs[i].Tex); |
152 dec(r.y, 16); |
152 dec(r.y, 16); |
153 |
153 |
154 if i = 0 then i:= MaxStrIndex else dec(i); |
154 if i = 0 then i:= MaxStrIndex else dec(i); |
155 inc(cnt); |
155 inc(cnt); |