| … | |
… | |
| 445 | sub spell_add { |
445 | sub spell_add { |
| 446 | my ($self, $spell) = @_; |
446 | my ($self, $spell) = @_; |
| 447 | |
447 | |
| 448 | # TODO |
448 | # TODO |
| 449 | # create a widget dynamically, using spell face (CF::Protocol downloads them) |
449 | # create a widget dynamically, using spell face (CF::Protocol downloads them) |
|
|
450 | $::SPELL_LIST->add_spell ($spell); |
|
|
451 | |
| 450 | $self->{map_widget}->add_command ("invoke $spell->{name}", CFClient::UI::Label::escape $spell->{message}); |
452 | $self->{map_widget}->add_command ("invoke $spell->{name}", CFClient::UI::Label::escape $spell->{message}); |
| 451 | $self->{map_widget}->add_command ("cast $spell->{name}", CFClient::UI::Label::escape $spell->{message}); |
453 | $self->{map_widget}->add_command ("cast $spell->{name}", CFClient::UI::Label::escape $spell->{message}); |
| 452 | } |
454 | } |
| 453 | |
455 | |
| 454 | sub spell_delete { |
456 | sub spell_delete { |
| 455 | my ($self, $spell) = @_; |
457 | my ($self, $spell) = @_; |
|
|
458 | $::SPELL_LIST->remove_spell ($spell); |
| 456 | } |
459 | } |
| 457 | |
460 | |
| 458 | sub addme_success { |
461 | sub addme_success { |
| 459 | my ($self) = @_; |
462 | my ($self) = @_; |
| 460 | |
463 | |
