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 |
}; |