equal
deleted
inserted
replaced
353 AddChatString(text) |
353 AddChatString(text) |
354 end; |
354 end; |
355 |
355 |
356 procedure chTimer(var s: shortstring); |
356 procedure chTimer(var s: shortstring); |
357 begin |
357 begin |
358 if (s[0] <> #1) or (s[1] < '1') or (s[1] > '5') |
358 if (s[0] <> #1) or (s[1] < '1') or (s[1] > '5') or CheckNoTeamOrHH then exit; |
359 or (CurrentTeam = nil) |
359 bShowFinger:= false; |
360 or (CurrentHedgehog^.Gear = nil) then exit; |
360 |
361 bShowFinger:= false; |
|
362 if not CurrentTeam^.ExtDriven then SendIPC(s); |
361 if not CurrentTeam^.ExtDriven then SendIPC(s); |
363 with CurrentHedgehog^.Gear^ do |
362 with CurrentHedgehog^.Gear^ do |
364 begin |
363 begin |
365 Message:= Message or gm_Timer; |
364 Message:= Message or gm_Timer; |
366 MsgParam:= byte(s[1]) - ord('0') |
365 MsgParam:= byte(s[1]) - ord('0') |