| … | |
… | |
| 94 | return if $pl->{npc_dialog}; # only one dialog at a time |
94 | return if $pl->{npc_dialog}; # only one dialog at a time |
| 95 | |
95 | |
| 96 | for my $npc ($pl->ob->map->at ($pl->ob->x + $dx, $pl->ob->y + $dy)) { |
96 | for my $npc ($pl->ob->map->at ($pl->ob->x + $dx, $pl->ob->y + $dy)) { |
| 97 | if (NPC_Dialogue::has_dialogue $npc) { |
97 | if (NPC_Dialogue::has_dialogue $npc) { |
| 98 | $pl->attach ("npc_dialog_active"); |
98 | $pl->attach ("npc_dialog_active"); |
| 99 | $pl->{npc_dialog} = new NPC_Dialogue pl => $pl, npc => $npc; |
99 | $pl->{npc_dialog} = new NPC_Dialogue pl => $pl, npc => $npc, id => $id; |
| 100 | dialog_tell $id, $pl->{npc_dialog}, "hi"; |
100 | dialog_tell $id, $pl->{npc_dialog}, "hi"; |
| 101 | return; |
101 | return; |
| 102 | } |
102 | } |
| 103 | } |
103 | } |
| 104 | |
104 | |
