| … | |
… | |
| 98 | |
98 | |
| 99 | delete $dialog{$_} for grep $pl->ob == $dialog{$_}{ob}, keys %dialog; |
99 | delete $dialog{$_} for grep $pl->ob == $dialog{$_}{ob}, keys %dialog; |
| 100 | }, |
100 | }, |
| 101 | ; |
101 | ; |
| 102 | |
102 | |
| 103 | sub on_unload { |
103 | sub unload { |
| 104 | while (my ($id, $dialog) = each %dialog) { |
104 | while (my ($id, $dialog) = each %dialog) { |
| 105 | $dialog->{ob}->contr->ext_reply ($id => msgtype => "error", msg => "npc dialogue module was reloaded"); |
105 | $dialog->{ob}->contr->ext_reply ($id => msgtype => "error", msg => "npc dialogue module was reloaded"); |
| 106 | } |
106 | } |
| 107 | |
107 | |
| 108 | %dialog = (); |
108 | %dialog = (); |
