equal
deleted
inserted
replaced
35 procedure NetGetNextCmd; |
35 procedure NetGetNextCmd; |
36 |
36 |
37 var hiTicks: Word = 0; |
37 var hiTicks: Word = 0; |
38 |
38 |
39 implementation |
39 implementation |
40 uses uConsole, uConsts, uWorld, uMisc, uLand; |
40 uses uConsole, uConsts, uWorld, uMisc, uLand, uChat; |
41 const isPonged: boolean = false; |
41 const isPonged: boolean = false; |
42 |
42 |
43 type PCmd = ^TCmd; |
43 type PCmd = ^TCmd; |
44 TCmd = packed record |
44 TCmd = packed record |
45 Next: PCmd; |
45 Next: PCmd; |
210 IPCWaitPongEvent |
210 IPCWaitPongEvent |
211 end; |
211 end; |
212 |
212 |
213 procedure NetGetNextCmd; |
213 procedure NetGetNextCmd; |
214 var tmpflag: boolean; |
214 var tmpflag: boolean; |
|
215 s: shortstring; |
215 begin |
216 begin |
216 while (headcmd <> nil) and (headcmd^.cmd = 's') do |
217 while (headcmd <> nil) and (headcmd^.cmd = 's') do |
217 begin |
218 begin |
218 WriteLnToConsole('> ' + copy(headcmd^.str, 2, Pred(headcmd^.len))); |
219 s:= '> ' + copy(headcmd^.str, 2, Pred(headcmd^.len)); |
219 AddCaption('> ' + copy(headcmd^.str, 2, Pred(headcmd^.len)), $FFFFFF, capgrpNetSay); |
220 AddChatString(s); |
|
221 WriteLnToConsole(s); |
|
222 //AddCaption('> ' + copy(headcmd^.str, 2, Pred(headcmd^.len)), $FFFFFF, capgrpNetSay); |
220 RemoveCmd |
223 RemoveCmd |
221 end; |
224 end; |
222 |
225 |
223 if (headcmd <> nil) then |
226 if (headcmd <> nil) then |
224 TryDo(GameTicks <= headcmd^.Time, |
227 TryDo(GameTicks <= headcmd^.Time, |