server/ext/shop_ring.ext

#!perl

cf::object::attachment "ring_adornment_shop",
   on_auto_apply => sub {
      my ($ob) = @_;

      my $o = cf::object::new 'ring';
      $o->flag (cf::FLAG_IDENTIFIED, 1);
      $o->flag (cf::FLAG_UNPAID, 1);
      $o->set_animation (cf::rndm $o->num_animations);

      $o->insert_ob_in_map_at ($ob->map, undef, cf::INS_ABOVE_FLOOR_ONLY, $ob->x, $ob->y);

      cf::override;

      1
   };
   
cf::object::attachment "amulet_adornment_shop",
   on_auto_apply => sub {
      my ($ob) = @_;

      my $arch = ('amulet', 'amulet_gray', 'amulet_white')[cf::rndm 3];
      my $o = cf::object::new $arch;
      $o->flag (cf::FLAG_IDENTIFIED, 1);
      $o->flag (cf::FLAG_UNPAID, 1);
      $o->insert_ob_in_map_at ($ob->map, undef, cf::INS_ABOVE_FLOOR_ONLY, $ob->x, $ob->y);

      cf::override;

      1
   };
Revision:	1.1
Committed:	Mon Jul 14 10:26:43 2008 UTC (15 years, 10 months ago) by elmex
Branch:	MAIN
Log Message:	added auto_apply event and shop ring attachments
#	Content
1	#!perl
2
3	cf::object::attachment "ring_adornment_shop",
4	on_auto_apply => sub {
5	my ($ob) = @_;
6
7	my $o = cf::object::new 'ring';
8	$o->flag (cf::FLAG_IDENTIFIED, 1);
9	$o->flag (cf::FLAG_UNPAID, 1);
10	$o->set_animation (cf::rndm $o->num_animations);
11
12	$o->insert_ob_in_map_at ($ob->map, undef, cf::INS_ABOVE_FLOOR_ONLY, $ob->x, $ob->y);
13
14	cf::override;
15
16	1
17	};
18
19	cf::object::attachment "amulet_adornment_shop",
20	on_auto_apply => sub {
21	my ($ob) = @_;
22
23	my $arch = ('amulet', 'amulet_gray', 'amulet_white')[cf::rndm 3];
24	my $o = cf::object::new $arch;
25	$o->flag (cf::FLAG_IDENTIFIED, 1);
26	$o->flag (cf::FLAG_UNPAID, 1);
27	$o->insert_ob_in_map_at ($ob->map, undef, cf::INS_ABOVE_FLOOR_ONLY, $ob->x, $ob->y);
28
29	cf::override;
30
31	1
32	};