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 *
#	User	Rev	Content
1	root	1.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	root	1.2