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') or (CurrentTeam = nil) then exit; |
358 if (s[0] <> #1) or (s[1] < '1') or (s[1] > '5') |
|
359 or (CurrentTeam = nil) |
|
360 or (CurrentHedgehog^.Gear = nil) then exit; |
359 bShowFinger:= false; |
361 bShowFinger:= false; |
360 if not CurrentTeam^.ExtDriven then SendIPC(s); |
362 if not CurrentTeam^.ExtDriven then SendIPC(s); |
361 with CurrentHedgehog^.Gear^ do |
363 with CurrentHedgehog^.Gear^ do |
362 begin |
364 begin |
363 Message:= Message or gm_Timer; |
365 Message:= Message or gm_Timer; |