server/ext/resource.ext

#! perl # mandatory

# resource handling

cf::register_exticmd resource => sub {
   my ($ns, @resnames) = @_;

   $ns->send_face ($_ = cf::face::find "res/$_")
      for @resnames;

   $ns->flush_fx;

   @resnames
};

Revision:	1.2
Committed:	Tue May 4 21:45:42 2010 UTC (14 years, 1 month ago) by root
Branch:	MAIN
CVS Tags:	rel-3_0
Changes since 1.1:	+1 -0 lines
Log Message:	* empty log message *
#	Content
1	#! perl # mandatory
2
3	# resource handling
4
5	cf::register_exticmd resource => sub {
6	my ($ns, @resnames) = @_;
7
8	$ns->send_face ($_ = cf::face::find "res/$_")
9	for @resnames;
10
11	$ns->flush_fx;
12
13	@resnames
14	};
15