ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/ext/shop_ring.ext
(Generate patch)

Comparing deliantra/server/ext/shop_ring.ext (file contents):
Revision 1.1 by elmex, Mon Jul 14 10:26:43 2008 UTC vs.
Revision 1.3 by root, Tue May 4 21:45:42 2010 UTC

1#!perl 1#!perl
2 2
3cf::object::attachment "ring_adornment_shop", 3cf::object::attachment "ring_adornment_shop",
4 on_auto_apply => sub { 4 on_reset => sub {
5 my ($ob) = @_; 5 my ($ob) = @_;
6 6
7 my $o = cf::object::new 'ring'; 7 my $o = cf::object::new 'ring';
8 $o->flag (cf::FLAG_IDENTIFIED, 1); 8 $o->flag (cf::FLAG_IDENTIFIED, 1);
9 $o->flag (cf::FLAG_UNPAID, 1); 9 $o->flag (cf::FLAG_UNPAID, 1);
… …
12 $o->insert_ob_in_map_at ($ob->map, undef, cf::INS_ABOVE_FLOOR_ONLY, $ob->x, $ob->y); 12 $o->insert_ob_in_map_at ($ob->map, undef, cf::INS_ABOVE_FLOOR_ONLY, $ob->x, $ob->y);
13 13
14 cf::override; 14 cf::override;
15 15
16 1 16 1
17 }; 17 }
18;
18 19
19cf::object::attachment "amulet_adornment_shop", 20cf::object::attachment "amulet_adornment_shop",
20 on_auto_apply => sub { 21 on_reset => sub {
21 my ($ob) = @_; 22 my ($ob) = @_;
22 23
23 my $arch = ('amulet', 'amulet_gray', 'amulet_white')[cf::rndm 3]; 24 my $arch = ('amulet', 'amulet_gray', 'amulet_white')[cf::rndm 3];
24 my $o = cf::object::new $arch; 25 my $o = cf::object::new $arch;
25 $o->flag (cf::FLAG_IDENTIFIED, 1); 26 $o->flag (cf::FLAG_IDENTIFIED, 1);
… …
27 $o->insert_ob_in_map_at ($ob->map, undef, cf::INS_ABOVE_FLOOR_ONLY, $ob->x, $ob->y); 28 $o->insert_ob_in_map_at ($ob->map, undef, cf::INS_ABOVE_FLOOR_ONLY, $ob->x, $ob->y);
28 29
29 cf::override; 30 cf::override;
30 31
31 1 32 1
32 }; 33 }
34;

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines