| … | |
… | |
| 833 | ); |
833 | ); |
| 834 | |
834 | |
| 835 | $LOGVIEW->add_paragraph ($color[$color], $text); |
835 | $LOGVIEW->add_paragraph ($color[$color], $text); |
| 836 | } |
836 | } |
| 837 | |
837 | |
| 838 | sub conn::addspell { |
838 | sub conn::spell_add { |
| 839 | my ($self, $spell) = @_; |
839 | my ($self, $spell) = @_; |
| 840 | |
840 | |
| 841 | # $MAPWIDGET->add_abbrev ("invoke spell $spell->{name}", |
841 | $MAPWIDGET->add_command ("invoke $spell->{name}", $spell->{message}, sub { |
|
|
842 | }); |
|
|
843 | $MAPWIDGET->add_command ("cast $spell->{name}", $spell->{message}, sub { |
|
|
844 | }); |
|
|
845 | } |
|
|
846 | |
|
|
847 | sub conn::spell_delete { |
|
|
848 | my ($self, $spell) = @_; |
|
|
849 | } |
|
|
850 | |
|
|
851 | sub conn::addme_success { |
|
|
852 | my ($self) = @_; |
|
|
853 | |
|
|
854 | for my $skill (values %{$self->{skill_info}}) { |
|
|
855 | $MAPWIDGET->add_command ("ready_skill $skill", "", sub { |
|
|
856 | }); |
|
|
857 | $MAPWIDGET->add_command ("use_skill $skill", "", sub { |
|
|
858 | }); |
|
|
859 | } |
| 842 | } |
860 | } |
| 843 | |
861 | |
| 844 | %SDL_CB = ( |
862 | %SDL_CB = ( |
| 845 | SDL_QUIT() => sub { |
863 | SDL_QUIT() => sub { |
| 846 | Event::unloop -1; |
864 | Event::unloop -1; |
