| … | |
… | |
| 656 | # try to create single paragraphs out of the multiple lines sent by the server |
656 | # try to create single paragraphs out of the multiple lines sent by the server |
| 657 | $spell->{message} =~ s/(?<=\S)\n(?=\w)/ /g; |
657 | $spell->{message} =~ s/(?<=\S)\n(?=\w)/ /g; |
| 658 | $spell->{message} =~ s/\n+$//; |
658 | $spell->{message} =~ s/\n+$//; |
| 659 | $spell->{message} ||= "Server did not provide a description for this spell."; |
659 | $spell->{message} ||= "Server did not provide a description for this spell."; |
| 660 | |
660 | |
| 661 | $::SPELL_PAGE->add_spell ($spell); |
661 | $::SPELL_LIST->add_spell ($spell); |
| 662 | |
662 | |
| 663 | $self->{map_widget}->add_command ("invoke $spell->{name}", CFPlus::asxml $spell->{message}); |
663 | $self->{map_widget}->add_command ("invoke $spell->{name}", CFPlus::asxml $spell->{message}); |
| 664 | $self->{map_widget}->add_command ("cast $spell->{name}", CFPlus::asxml $spell->{message}); |
664 | $self->{map_widget}->add_command ("cast $spell->{name}", CFPlus::asxml $spell->{message}); |
| 665 | } |
665 | } |
| 666 | |
666 | |
| 667 | sub spell_delete { |
667 | sub spell_delete { |
| 668 | my ($self, $spell) = @_; |
668 | my ($self, $spell) = @_; |
| 669 | |
669 | |
| 670 | $::SPELL_PAGE->remove_spell ($spell); |
670 | $::SPELL_LIST->remove_spell ($spell); |
| 671 | } |
671 | } |
| 672 | |
672 | |
| 673 | sub setup { |
673 | sub setup { |
| 674 | my ($self, $setup) = @_; |
674 | my ($self, $setup) = @_; |
| 675 | |
675 | |
