| … | |
… | |
| 1214 | } |
1214 | } |
| 1215 | |
1215 | |
| 1216 | sub conn::spell_add { |
1216 | sub conn::spell_add { |
| 1217 | my ($self, $spell) = @_; |
1217 | my ($self, $spell) = @_; |
| 1218 | |
1218 | |
|
|
1219 | # TODO |
|
|
1220 | # create a widget dynamically, using spell face (CF::Protocol downloads them) |
| 1219 | $MAPWIDGET->add_command ("invoke $spell->{name}", $spell->{message}, sub { |
1221 | $MAPWIDGET->add_command ("invoke $spell->{name}", $spell->{message}); |
| 1220 | }); |
|
|
| 1221 | $MAPWIDGET->add_command ("cast $spell->{name}", $spell->{message}, sub { |
1222 | $MAPWIDGET->add_command ("cast $spell->{name}", $spell->{message}); |
| 1222 | }); |
|
|
| 1223 | } |
1223 | } |
| 1224 | |
1224 | |
| 1225 | sub conn::spell_delete { |
1225 | sub conn::spell_delete { |
| 1226 | my ($self, $spell) = @_; |
1226 | my ($self, $spell) = @_; |
| 1227 | } |
1227 | } |
| 1228 | |
1228 | |
| 1229 | sub conn::addme_success { |
1229 | sub conn::addme_success { |
| 1230 | my ($self) = @_; |
1230 | my ($self) = @_; |
| 1231 | |
1231 | |
| 1232 | for my $skill (values %{$self->{skill_info}}) { |
1232 | for my $skill (values %{$self->{skill_info}}) { |
| 1233 | $MAPWIDGET->add_command ("ready_skill $skill", "", sub { |
1233 | $MAPWIDGET->add_command ("ready_skill $skill", "Ready the skill '$skill'"); |
| 1234 | }); |
1234 | $MAPWIDGET->add_command ("use_skill $skill", "Immediately use the skill '$skill'"); |
| 1235 | $MAPWIDGET->add_command ("use_skill $skill", "", sub { |
|
|
| 1236 | }); |
|
|
| 1237 | } |
1235 | } |
| 1238 | } |
1236 | } |
| 1239 | |
1237 | |
| 1240 | sub conn::container_add { |
1238 | sub conn::container_add { |
| 1241 | my ($self, $id, $items) = @_; |
1239 | my ($self, $id, $items) = @_; |
