changeset 13569 | d8da70fdec16 |
parent 13538 | 0c8001e43fd3 |
child 13573 | 470982c05f7e |
13567:0ff20bb15037 | 13569:d8da70fdec16 |
---|---|
574 if speech <> nil then |
574 if speech <> nil then |
575 begin |
575 begin |
576 speech^.Text:= SpeechText; |
576 speech^.Text:= SpeechText; |
577 speech^.Hedgehog:= Gear^.Hedgehog; |
577 speech^.Hedgehog:= Gear^.Hedgehog; |
578 speech^.FrameTicks:= SpeechType; |
578 speech^.FrameTicks:= SpeechType; |
579 AddChatString(#9+'[' + Gear^.Hedgehog^.Name + '] '+SpeechText); |
|
579 end; |
580 end; |
580 SpeechText:= '' |
581 SpeechText:= '' |
581 end; |
582 end; |
582 |
583 |
583 Power:= 0; |
584 Power:= 0; |