git @ Cat's Eye Technologies Corona-Realm-of-Magic / master src / corona / Mineral.pm
master

Tree @master (Download .tar.gz)

Mineral.pm @master — raw · history · blame 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
# Copyright (c)2000-2013, Chris Pressey, Cat's Eye Technologies.
# All rights reserved.
# Distributed under a BSD-style license; see file LICENSE for more info.

package Item;

## STONES

$stone = Item->new('name' => 'stone',
                   'identity' => 'mundane stone',
                   'appearance' => 'tiny',
                   'color' => 'grey',
                   'weight' => 2,
                   'melee_attacks' => [ Attack->weapon(0, Dice->new(1,1), $Adj::stone, $Adj::crushing), ],
                   'projectile_attacks' => [ Attack->weapon(0, Dice->new(1,2), $Adj::stone, $Adj::crushing), ],
                  )->implies($Adj::round);

$rock = Item->new('name' => 'rock',
                   'identity' => 'mundane rock',
                   'appearance' => 'rock',
                   'color' => 'grey',
                   'weight' => 10,
                   'melee_attacks' => [ Attack->weapon(0, Dice->new(1,3), $Adj::stone, $Adj::crushing), ],
                  )->implies($Adj::round);

$boulder = Item->new('name' => 'boulder',
                   'identity' => 'mundane boulder',
                   'appearance' => 'boulder',
                   'color' => 'grey',
                   'weight' => 1000,
                   'melee_attacks' => [ Attack->weapon(0, Dice->new(1,8,+2), $Adj::stone, $Adj::crushing), ],
                   'projectile_attacks' => [ Attack->weapon(+1, Dice->new(2,6), $Adj::stone, $Adj::crushing), ],
                  )->implies($Adj::round);

$menhir = Item->new('name' => 'boulder',
                   'identity' => 'menhir',
                   'appearance' => 'boulder',
                   'color' => 'white',
                   'weight' => 1000,
                   'melee_attacks' => [ Attack->weapon(+1, Dice->new(1,10,+2), $Adj::stone, $Adj::crushing), ],
                   'projectile_attacks' => [ Attack->weapon(+2, Dice->new(2,8,+2), $Adj::stone, $Adj::crushing, $Adj::magic), ],
                  )->implies($Adj::round);

## ASH

$volcanic_ash = Item->new('name' => 'ash',
                   'identity' => 'volcanic ash',
                   'appearance' => 'ash',
                   'color' => 'grey',
                   'weight' => 1,
                   'melee_attacks' => [ Attack->weapon(0, Dice->new(1,10,-9), $Adj::ash, $Adj::crushing), ],
                   'projectile_attacks' => [ Attack->weapon(0, Dice->new(1,1,-1), $Adj::ash, $Adj::crushing), ],
                  );

$brimstone = Item->new('name' => 'crystal',
                   'identity' => 'brimstone',
                   'appearance' => 'crystal',
                   'color' => 'yellow',
                   'weight' => 1,
                   'melee_attacks' => [ Attack->weapon(0, Dice->new(1,1), $Adj::brimstone, $Adj::crushing), ],
                   'projectile_attacks' => [ Attack->weapon(0, Dice->new(1,1), $Adj::brimstone, $Adj::crushing), ],
                  );

$salt  = Item->new('name' => 'crystal',
                   'identity' => 'salt',
                   'appearance' => 'crystal',
                   'color' => 'white',
                   'weight' => 1,
                   'melee_attacks' => [ Attack->weapon(0, Dice->new(1,1), $Adj::salt, $Adj::crushing), ],
                   'projectile_attacks' => [ Attack->weapon(0, Dice->new(1,1), $Adj::salt, $Adj::crushing), ],
                  );

# dust constructor: copper dust, gold dust etc.

1;