maps/perl/cfplus.ext

#! perl

# additional support for cfplus client

use NPC_Dialogue;

cf::register_extcmd cfplus_support => sub {
   my ($pl, $msg) = @_;

   # $msg->{version}

   (version => 1)
};

my %dialog; # currently active dialogs

my $timer = Event->timer (interval => 0.2, parked => 1, cb => sub {
   while (my ($id, $dialog) = each %dialog) {
      my (undef, $dx, $dy) = $dialog->{ob}->rangevector ($dialog->{npc});
      next if (abs $dx) <= 2 && (abs $dy) <= 2;

      $dialog->{ob}->contr->ext_reply ($id => msgtype => "error", msg => "out of range");
      delete $dialog{$id};
   }

   $_[0]->w->stop unless keys %dialog;
});

sub dialog_tell {
   my ($id, $dialog, $msg) = @_;

   my $pl = $dialog->{ob}->contr;
   my ($reply, @kw) = $dialog->tell ($msg);
   $reply = "..." unless $reply;

   $pl->ext_reply ($id => msgtype => "reply", msg => $reply, add_topics => \@kw);
}

# return "interesting" information about the given tile
# currently only returns the npc_dialog title when a dialog is possible
cf::register_extcmd lookat => sub {
   my ($pl, $msg) = @_;
   my ($dx, $dy) = @$msg{qw(dx dy)};

   my $near = (abs $dx) <= 2 && (abs $dy) <= 2;

   my %res;

   if ($pl->cell_visible ($dx, $dy)) {
      for my $ob ($pl->ob->map->at ($pl->ob->x + $dx, $pl->ob->y + $dy)) {
         $res{npc_dialog} = $ob->name
            if $near && NPC_Dialogue::has_dialogue $ob;
      }
   }

   %res
};

cf::register_extcmd npc_dialog_begin => sub {
   my ($pl, $msg) = @_;
   my ($id, $dx, $dy) = @$msg{qw(msgid dx dy)};

   return unless (abs $dx) <= 2 && (abs $dy) <= 2;
   return unless $pl->cell_visible ($dx, $dy);

   for my $npc ($pl->ob->map->at ($pl->ob->x + $dx, $pl->ob->y + $dy)) {
      if (NPC_Dialogue::has_dialogue $npc) {
         $dialog{$id} = new NPC_Dialogue ob => $pl->ob, npc => $npc;
         dialog_tell $id, $dialog{$id}, "hi";
         $timer->start;
         return;
      }
   }

   (msgtype => "error", msg => "nothing to talk to found")
};

cf::register_extcmd npc_dialog_tell => sub {
   my ($pl, $msg) = @_;

   dialog_tell $msg->{msgid}, $dialog{$msg->{msgid}}, $msg->{msg}
      if $dialog{$msg->{msgid}};

   ()
};

cf::register_extcmd npc_dialog_end => sub {
   my ($pl, $msg) = @_;

   delete $dialog{$msg->{msgid}};

   ()
};

cf::attach_to_players
   on_logout => sub {
      my ($pl) = @_;

      delete $dialog{$_} for grep $pl->ob == $dialog{$_}{ob}, keys %dialog;
   },
;

sub on_unload {
   while (my ($id, $dialog) = each %dialog) {
      $dialog->{ob}->contr->ext_reply ($id => msgtype => "error", msg => "npc dialogue module was reloaded");
   }

   %dialog = ();
}


Revision:	1.9
Committed:	Fri Aug 25 15:07:43 2006 UTC (20 years, 1 month ago) by root
Branch:	MAIN
Changes since 1.8:	+7 -9 lines
Log Message:	Convert remainin scripts to new event system, noted conversion status of all plugins in second line, to aid in further event conversions.
#	User	Rev	Content
1	root	1.1	#! perl
2
3			# additional support for cfplus client
4
5	root	1.4	use NPC_Dialogue;
6
7	root	1.1	cf::register_extcmd cfplus_support => sub {
8	root	1.8	my ($pl, $msg) = @_;
9	root	1.1
10	root	1.8	# $msg->{version}
11	root	1.1
12	root	1.8	(version => 1)
13	root	1.1	};
14
15	root	1.3	my %dialog; # currently active dialogs
16
17	root	1.5	my $timer = Event->timer (interval => 0.2, parked => 1, cb => sub {
18	root	1.8	while (my ($id, $dialog) = each %dialog) {
19	root	1.5	my (undef, $dx, $dy) = $dialog->{ob}->rangevector ($dialog->{npc});
20			next if (abs $dx) <= 2 && (abs $dy) <= 2;
21
22	root	1.8	$dialog->{ob}->contr->ext_reply ($id => msgtype => "error", msg => "out of range");
23			delete $dialog{$id};
24	root	1.5	}
25
26			$_[0]->w->stop unless keys %dialog;
27			});
28
29	root	1.3	sub dialog_tell {
30	root	1.8	my ($id, $dialog, $msg) = @_;
31	root	1.3
32			my $pl = $dialog->{ob}->contr;
33			my ($reply, @kw) = $dialog->tell ($msg);
34			$reply = "..." unless $reply;
35	root	1.8
36			$pl->ext_reply ($id => msgtype => "reply", msg => $reply, add_topics => \@kw);
37	root	1.1	}
38
39			# return "interesting" information about the given tile
40			# currently only returns the npc_dialog title when a dialog is possible
41			cf::register_extcmd lookat => sub {
42	root	1.8	my ($pl, $msg) = @_;
43			my ($dx, $dy) = @$msg{qw(dx dy)};
44	root	1.1
45	root	1.3	my $near = (abs $dx) <= 2 && (abs $dy) <= 2;
46	root	1.1
47			my %res;
48
49			if ($pl->cell_visible ($dx, $dy)) {
50			for my $ob ($pl->ob->map->at ($pl->ob->x + $dx, $pl->ob->y + $dy)) {
51			$res{npc_dialog} = $ob->name
52	root	1.3	if $near && NPC_Dialogue::has_dialogue $ob;
53	root	1.1	}
54			}
55
56	root	1.8	%res
57	root	1.1	};
58
59			cf::register_extcmd npc_dialog_begin => sub {
60	root	1.8	my ($pl, $msg) = @_;
61			my ($id, $dx, $dy) = @$msg{qw(msgid dx dy)};
62	root	1.1
63	root	1.2	return unless (abs $dx) <= 2 && (abs $dy) <= 2;
64	root	1.1	return unless $pl->cell_visible ($dx, $dy);
65
66			for my $npc ($pl->ob->map->at ($pl->ob->x + $dx, $pl->ob->y + $dy)) {
67	root	1.3	if (NPC_Dialogue::has_dialogue $npc) {
68	root	1.8	$dialog{$id} = new NPC_Dialogue ob => $pl->ob, npc => $npc;
69			dialog_tell $id, $dialog{$id}, "hi";
70	root	1.5	$timer->start;
71	root	1.1	return;
72			}
73			}
74
75	root	1.8	(msgtype => "error", msg => "nothing to talk to found")
76	root	1.1	};
77
78			cf::register_extcmd npc_dialog_tell => sub {
79	root	1.8	my ($pl, $msg) = @_;
80	root	1.1
81	root	1.8	dialog_tell $msg->{msgid}, $dialog{$msg->{msgid}}, $msg->{msg}
82			if $dialog{$msg->{msgid}};
83	root	1.1
84	root	1.8	()
85	root	1.1	};
86
87			cf::register_extcmd npc_dialog_end => sub {
88	root	1.8	my ($pl, $msg) = @_;
89
90			delete $dialog{$msg->{msgid}};
91	root	1.1
92	root	1.8	()
93	root	1.1	};
94
95	root	1.9	cf::attach_to_players
96			on_logout => sub {
97			my ($pl) = @_;
98
99			delete $dialog{$_} for grep $pl->ob == $dialog{$_}{ob}, keys %dialog;
100			},
101			;
102	root	1.3
103	root	1.6	sub on_unload {
104	root	1.8	while (my ($id, $dialog) = each %dialog) {
105			$dialog->{ob}->contr->ext_reply ($id => msgtype => "error", msg => "npc dialogue module was reloaded");
106	root	1.6	}
107
108			%dialog = ();
109			}
110
111	root	1.2