equal
deleted
inserted
replaced
577 if speech <> nil then |
577 if speech <> nil then |
578 begin |
578 begin |
579 speech^.Text:= SpeechText; |
579 speech^.Text:= SpeechText; |
580 speech^.Hedgehog:= Gear^.Hedgehog; |
580 speech^.Hedgehog:= Gear^.Hedgehog; |
581 speech^.FrameTicks:= SpeechType; |
581 speech^.FrameTicks:= SpeechType; |
582 AddChatString(#9+'[' + Gear^.Hedgehog^.Name + '] '+SpeechText); |
582 AddChatString(#9+FormatA(trmsg[sidChatHog], [Gear^.Hedgehog^.Name, SpeechText])); |
583 end; |
583 end; |
584 SpeechText:= '' |
584 SpeechText:= '' |
585 end; |
585 end; |
586 |
586 |
587 Power:= 0; |
587 Power:= 0; |