equal
deleted
inserted
replaced
36 begin |
36 begin |
37 SendIPC('Q'); |
37 SendIPC('Q'); |
38 GameState:= gsExit |
38 GameState:= gsExit |
39 end |
39 end |
40 else |
40 else |
41 begin |
41 ParseCommand('chat team', true); |
42 GameState:= gsChat; |
|
43 KeyPressChat(27); |
|
44 KeyPressChat(47); |
|
45 KeyPressChat(116); |
|
46 KeyPressChat(101); |
|
47 KeyPressChat(97); |
|
48 KeyPressChat(109); |
|
49 KeyPressChat(32) |
|
50 end |
|
51 end; |
42 end; |
52 |
43 |
53 procedure chCheckProto(var s: shortstring); |
44 procedure chCheckProto(var s: shortstring); |
54 var i, c: LongInt; |
45 var i, c: LongInt; |
55 begin |
46 begin |
335 if not CurrentTeam^.ExtDriven then SendIPC('N'); |
326 if not CurrentTeam^.ExtDriven then SendIPC('N'); |
336 {$IFDEF DEBUGFILE} |
327 {$IFDEF DEBUGFILE} |
337 AddFileLog('Doing SwitchHedgehog: time '+inttostr(GameTicks)); |
328 AddFileLog('Doing SwitchHedgehog: time '+inttostr(GameTicks)); |
338 {$ENDIF} |
329 {$ENDIF} |
339 perfExt_NewTurnBeginning(); |
330 perfExt_NewTurnBeginning(); |
340 end; |
|
341 |
|
342 procedure chSay(var s: shortstring); |
|
343 begin |
|
344 SendIPC('s' + s); |
|
345 |
|
346 if copy(s, 1, 4) = '/me ' then |
|
347 s:= #2'* ' + UserNick + ' ' + copy(s, 5, Length(s) - 4) |
|
348 else |
|
349 s:= #1 + UserNick + ': ' + s; |
|
350 |
|
351 AddChatString(s) |
|
352 end; |
|
353 |
|
354 procedure chTeamSay(var s: shortstring); |
|
355 begin |
|
356 SendIPC('b' + s); |
|
357 |
|
358 s:= #4 + '[Team] ' + UserNick + ': ' + s; |
|
359 |
|
360 AddChatString(s) |
|
361 end; |
331 end; |
362 |
332 |
363 procedure chTimer(var s: shortstring); |
333 procedure chTimer(var s: shortstring); |
364 begin |
334 begin |
365 if (s[0] <> #1) or (s[1] < '1') or (s[1] > '5') or CheckNoTeamOrHH then exit; |
335 if (s[0] <> #1) or (s[1] < '1') or (s[1] > '5') or CheckNoTeamOrHH then exit; |
590 begin |
560 begin |
591 s:= s; // avoid compiler hint |
561 s:= s; // avoid compiler hint |
592 ZoomValue:= cDefaultZoomLevel; |
562 ZoomValue:= cDefaultZoomLevel; |
593 end; |
563 end; |
594 |
564 |
595 procedure chChat(var s: shortstring); |
565 |
596 begin |
|
597 s:= s; // avoid compiler hint |
|
598 GameState:= gsChat; |
|
599 KeyPressChat(27) |
|
600 end; |
|
601 |
|
602 procedure chHistory(var s: shortstring); |
|
603 begin |
|
604 s:= s; // avoid compiler hint |
|
605 uChat.showAll:= not uChat.showAll |
|
606 end; |
|
607 |
|