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(0, 0, 0, 0.5); |
|
130 DrawTexture(9 - cScreenWidth div 2, visibleCount * 16 + 11, InputStr.Tex); |
|
131 Tint(1, 1, 1, 1); |
129 DrawTexture(8 - cScreenWidth div 2, visibleCount * 16 + 10, InputStr.Tex); |
132 DrawTexture(8 - cScreenWidth div 2, visibleCount * 16 + 10, InputStr.Tex); |
130 end; |
133 end; |
131 |
134 |
132 dec(r.y, 16); |
135 dec(r.y, 16); |
133 |
136 |
140 and |
143 and |
141 (Strs[i].Tex <> nil) do |
144 (Strs[i].Tex <> nil) do |
142 begin |
145 begin |
143 r.w:= Strs[i].Width; |
146 r.w:= Strs[i].Width; |
144 DrawFillRect(r); |
147 DrawFillRect(r); |
|
148 Tint(0, 0, 0, 0.5); |
|
149 DrawTexture(9 - cScreenWidth div 2, (visibleCount - t) * 16 - 5, Strs[i].Tex); |
|
150 Tint(1, 1, 1, 1); |
145 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); |
146 dec(r.y, 16); |
152 dec(r.y, 16); |
147 |
153 |
148 if i = 0 then i:= MaxStrIndex else dec(i); |
154 if i = 0 then i:= MaxStrIndex else dec(i); |
149 inc(cnt); |
155 inc(cnt); |