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.1
Committed:	Tue Aug 21 00:31:18 2007 UTC (16 years, 9 months ago) by root
Branch:	MAIN
CVS Tags:	rel-2_82, rel-2_81, rel-2_80, rel-2_6, rel-2_7, rel-2_4, rel-2_5, rel-2_2, rel-2_3, rel-2_72, rel-2_73, rel-2_71, rel-2_76, rel-2_77, rel-2_74, rel-2_75, rel-2_54, rel-2_55, rel-2_56, rel-2_79, rel-2_52, rel-2_53, rel-2_32, rel-2_90, rel-2_92, rel-2_93, rel-2_78, rel-2_61, rel-2_43, rel-2_42, rel-2_41
Log Message:	fixed exti handling, implemented generic resource request 'framework'
#	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			};