changeset 13564 | d8da70fdec16 |
parent 13533 | 0c8001e43fd3 |
child 13568 | 470982c05f7e |
13562:0ff20bb15037 | 13564: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; |