1 |
#!perl |
2 |
|
3 |
cf::object::attachment "ring_adornment_shop", |
4 |
on_reset => 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_anim_frame (cf::rndm $o->anim_frames); |
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 |
|
20 |
cf::object::attachment "amulet_adornment_shop", |
21 |
on_reset => sub { |
22 |
my ($ob) = @_; |
23 |
|
24 |
my $arch = ('amulet', 'amulet_gray', 'amulet_white')[cf::rndm 3]; |
25 |
my $o = cf::object::new $arch; |
26 |
$o->flag (cf::FLAG_IDENTIFIED, 1); |
27 |
$o->flag (cf::FLAG_UNPAID, 1); |
28 |
$o->insert_ob_in_map_at ($ob->map, undef, cf::INS_ABOVE_FLOOR_ONLY, $ob->x, $ob->y); |
29 |
|
30 |
cf::override; |
31 |
|
32 |
1 |
33 |
} |
34 |
; |