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