ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/Deliantra/Deliantra.pm
(Generate patch)

Comparing deliantra/Deliantra/Deliantra.pm (file contents):
Revision 1.103 by root, Mon Apr 16 12:31:22 2007 UTC vs.
Revision 1.106 by root, Mon Apr 23 19:09:48 2007 UTC

… …
58 outdoor temp pressure humid windspeed winddir sky nosmooth 58 outdoor temp pressure humid windspeed winddir sky nosmooth
59 tile_path_1 tile_path_2 tile_path_3 tile_path_4 59 tile_path_1 tile_path_2 tile_path_3 tile_path_4
60)); 60));
61 61
62our @FIELD_ORDER = (qw( 62our @FIELD_ORDER = (qw(
63 inherit
64
63 elevation 65 elevation
64 66
65 name name_pl custom_name attach title race 67 name name_pl custom_name attach title race
66 slaying skill msg lore other_arch 68 slaying skill msg lore other_arch
67 animation face is_animated 69 face animation is_animated
68 magicmap smoothlevel smoothface 70 magicmap smoothlevel smoothface
69 str dex con wis pow cha int 71 str dex con wis pow cha int
70 hp maxhp sp maxsp grace maxgrace 72 hp maxhp sp maxsp grace maxgrace
71 exp perm_exp expmul 73 exp perm_exp expmul
72 food dam luck wc ac x y speed speed_left move_state attack_movement 74 food dam luck wc ac x y speed speed_left move_state attack_movement
… …
128sub MOVE_FLY_LOW (){ 0x02 } 130sub MOVE_FLY_LOW (){ 0x02 }
129sub MOVE_FLY_HIGH (){ 0x04 } 131sub MOVE_FLY_HIGH (){ 0x04 }
130sub MOVE_FLYING (){ 0x06 } 132sub MOVE_FLYING (){ 0x06 }
131sub MOVE_SWIM (){ 0x08 } 133sub MOVE_SWIM (){ 0x08 }
132sub MOVE_BOAT (){ 0x10 } 134sub MOVE_BOAT (){ 0x10 }
135sub MOVE_SHIP (){ 0x20 }
133sub MOVE_KNOWN (){ 0x1f } # all of above 136sub MOVE_KNOWN (){ 0x3f } # all of above
134sub MOVE_ALL (){ 0x10000 } # very special value 137sub MOVE_ALL (){ 0x10000 } # very special value
135 138
136our %MOVE_TYPE = ( 139our %MOVE_TYPE = (
137 walk => MOVE_WALK, 140 walk => MOVE_WALK,
138 fly_low => MOVE_FLY_LOW, 141 fly_low => MOVE_FLY_LOW,
139 fly_high => MOVE_FLY_HIGH, 142 fly_high => MOVE_FLY_HIGH,
140 flying => MOVE_FLYING, 143 flying => MOVE_FLYING,
141 swim => MOVE_SWIM, 144 swim => MOVE_SWIM,
142 boat => MOVE_BOAT, 145 boat => MOVE_BOAT,
146 ship => MOVE_SHIP,
143 all => MOVE_ALL, 147 all => MOVE_ALL,
144); 148);
145 149
146our @MOVE_TYPE = qw(all walk flying fly_low fly_high swim boat); 150our @MOVE_TYPE = keys %MOVE_TYPE;
147 151
148{ 152{
149 package Crossfire::MoveType; 153 package Crossfire::MoveType;
150 154
151 use overload 155 use overload

Diff Legend

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