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

Tree @master (Download .tar.gz)

BodyArmour.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
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
# 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;

### NATURAL ARMOR

$nonexistant_part = Item->new('name' => 'nonexistant body part',
                       'identity' => 'nonexistant body part',
                       '_defense' => 9999,
                       'body' => 1);

$thick_fur = Item->new('name' => 'fur',
                       'identity' => 'thick fur',
                       '_defense' => 1,
                       'worn_on' => { 'head'      => { 'head'      => 66 },
                                      'shoulders' => { 'shoulders' => 66 },
                                      'arms'      => { 'arms'      => 66 },
                                      'hands'     => { 'hands'     => 66 },
                                      'torso'     => { 'torso'     => 66 },
                                      'waist'     => { 'waist'     => 66 },
                                      'legs'      => { 'legs'      => 66 },
                                      'feet'      => { 'feet'      => 66 },
                                    },
                       'body' => 1)->implies($Adj::fur);

$reptilian_scales = Item->new('name' => 'scales',
                       'identity' => 'reptilian scales',
                       '_defense' => 2,
                       'worn_on' => { 'head'      => { 'head'      => 80 },
                                      'shoulders' => { 'shoulders' => 80 },
                                      'arms'      => { 'arms'      => 80 },
                                      'hands'     => { 'hands'     => 80 },
                                      'torso'     => { 'torso'     => 80 },
                                      'waist'     => { 'waist'     => 80 },
                                      'legs'      => { 'legs'      => 80 },
                                      'feet'      => { 'feet'      => 80 },
                                    },
                       'body' => 1)->implies($Adj::flesh);

$thick_bark = Item->new('name' => 'bark',
                       'identity' => 'thick bark',
                       '_defense' => 3,
                       'worn_on' => { 'head'      => { 'head'      => 85 },
                                      'shoulders' => { 'shoulders' => 85 },
                                      'arms'      => { 'arms'      => 85 },
                                      'hands'     => { 'hands'     => 85 },
                                      'torso'     => { 'torso'     => 85 },
                                      'waist'     => { 'waist'     => 85 },
                                      'legs'      => { 'legs'      => 85 },
                                      'feet'      => { 'feet'      => 85 },
                                    },
                       'body' => 1)->implies($Adj::wood);

$bony_exterior = Item->new('name' => 'bony exterior',
                       'identity' => 'bony exterior',
                       '_defense' => 3,
                       'worn_on' => { 'head'      => { 'head'      => 90 },
                                      'shoulders' => { 'shoulders' => 90 },
                                      'arms'      => { 'arms'      => 90 },
                                      'hands'     => { 'hands'     => 90 },
                                      'torso'     => { 'torso'     => 90 },
                                      'waist'     => { 'waist'     => 90 },
                                      'legs'      => { 'legs'      => 90 },
                                      'feet'      => { 'feet'      => 90 },
                                    },
                       'body' => 1)->implies($Adj::bone);

$chitonous_shell = Item->new('name' => 'hard shell',
                       'identity' => 'chitonous shell',
                       '_defense' => 4,
                       'worn_on' => { 'head'      => { 'head'      => 90 },
                                      'shoulders' => { 'shoulders' => 90 },
                                      'arms'      => { 'arms'      => 90 },
                                      'hands'     => { 'hands'     => 90 },
                                      'torso'     => { 'torso'     => 90 },
                                      'waist'     => { 'waist'     => 90 },
                                      'legs'      => { 'legs'      => 90 },
                                      'feet'      => { 'feet'      => 90 },
                                    },
                       'body' => 1)->implies($Adj::bone);

$skin = Item->new('name' => 'tough skin',
                  'identity' => 'skin',
                  'worn_on'      => { 'head'      => { 'head'      => 100 },
                                      'shoulders' => { 'shoulders' => 100 },
                                      'arms'      => { 'arms'      => 100 },
                                      'hands'     => { 'hands'     => 100 },
                                      'torso'     => { 'torso'     => 100 },
                                      'waist'     => { 'waist'     => 100 },
                                      'legs'      => { 'legs'      => 100 },
                                      'feet'      => { 'feet'      => 100 },
                                    },
                  'body' => 1);  # must 'make' this

1;