equal
deleted
inserted
replaced
100 SDL_FreeSurface(resSurface) |
100 SDL_FreeSurface(resSurface) |
101 end; |
101 end; |
102 |
102 |
103 // For uStore texture recreation |
103 // For uStore texture recreation |
104 procedure ReloadLines; |
104 procedure ReloadLines; |
105 var i: LongWord; |
105 var i, t: LongWord; |
106 begin |
106 begin |
107 SetLine(InputStr, InputStr.s, true); |
107 if InputStr.s <> '' then SetLine(InputStr, InputStr.s, true); |
108 for i:= 0 to MaxStrIndex do SetLine(Strs[i], Strs[i].s, false) |
108 for i:= 0 to MaxStrIndex do |
|
109 if Strs[i].s <> '' then |
|
110 begin |
|
111 t:= Strs[i].Time; |
|
112 SetLine(Strs[i], Strs[i].s, false); |
|
113 Strs[i].Time:= t |
|
114 end; |
109 end; |
115 end; |
110 |
116 |
111 procedure AddChatString(s: shortstring); |
117 procedure AddChatString(s: shortstring); |
112 begin |
118 begin |
113 if not ChatReady then |
119 if not ChatReady then |