Добавляем Наемников в список Actor.
src/Actor/Mercenary.pm (создать)
Код: Выделить всё
package Actor::Mercenary;
use strict;
our @ISA = qw(Actor);
sub new {
my ($class) = @_;
return $class->SUPER::new('Mercenary');
}
1;
Найти
Код: Выделить всё
sub new {
my ($class, $type) = @_;
my $actorType = ($type >= 6001 && $type <= 6016) ? 'Homunculus' : 'Player';
return $class->SUPER::new($actorType);
}
sub selfString {
my ($self) = @_;
return ($self->{actorType} eq 'Homunculus') ? 'itself' : ($self->{sex} ? 'himself' : 'herself');
}
Код: Выделить всё
sub new {
my ($class, $type) = @_;
my $actorType;
if ($type >= 6001 && $type <= 6016) {
$actorType = 'Homunculus';
}
elsif ($type >= 6017 && $type <= 6046) {
$actorType = 'Mercenary';
}
else {
$actorType = 'Player';
}
return $class->SUPER::new($actorType);
}
sub selfString {
my ($self) = @_;
return ($self->{actorType} eq 'Homunculus' || $self->{actorType} eq 'Mercenary') ? 'itself' : ($self->{sex} ? 'himself' : 'herself');
}
Найти
Код: Выделить всё
6016 => 'High Vanilmirth 2',
Код: Выделить всё
6017 => 'Mercenary Archer 1',
6018 => 'Mercenary Archer 2',
6019 => 'Mercenary Archer 3',
6020 => 'Mercenary Archer 4',
6021 => 'Mercenary Archer 5',
6022 => 'Mercenary Archer 6',
6023 => 'Mercenary Archer 7',
6024 => 'Mercenary Archer 8',
6025 => 'Mercenary Archer 9',
6026 => 'Mercenary Archer 10',
6027 => 'Mercenary Lancer 1',
6028 => 'Mercenary Lancer 2',
6029 => 'Mercenary Lancer 3',
6030 => 'Mercenary Lancer 4',
6031 => 'Mercenary Lancer 5',
6032 => 'Mercenary Lancer 6',
6033 => 'Mercenary Lancer 7',
6034 => 'Mercenary Lancer 8',
6035 => 'Mercenary Lancer 9',
6036 => 'Mercenary Lancer 10',
6037 => 'Mercenary Swordman 1',
6038 => 'Mercenary Swordman 2',
6039 => 'Mercenary Swordman 3',
6040 => 'Mercenary Swordman 4',
6041 => 'Mercenary Swordman 5',
6042 => 'Mercenary Swordman 6',
6043 => 'Mercenary Swordman 7',
6044 => 'Mercenary Swordman 8',
6045 => 'Mercenary Swordman 9',
6046 => 'Mercenary Swordman 10'
Добавлено спустя 19 минут 24 секунды:
Скилы Наемников
tables/skills.txt
8201 MS_BASH Bash
8202 MS_MAGNUM Magnum Break
8203 MS_BOWLINGBASH Bowling Bash
8204 MS_PARRYING Parrying
8205 MS_REFLECTSHIELD Reflect Shield
8206 MS_BERSERK Berserk
8207 MA_DOUBLE Double Strafing
8208 MA_SHOWER Arrow Shower
8209 MA_SKIDTRAP Skid Trap
8210 MA_LANDMINE Land Mine
8211 MA_SANDMAN Sandman
8212 MA_FREEZINGTRAP Freezing Trap
8213 MA_REMOVETRAP Remove Trap
8214 MA_CHARGEARROW Charge Arrow
8215 MA_SHARPSHOOTING Sharp Shooting
8216 ML_PIERCE Pierce
8217 ML_BRANDISH Brandish Spear
8218 ML_SPIRALPIERCE Spiral Pierce
8219 ML_DEFENDER Defender
8220 ML_AUTOGUARD Auto Guard
8221 ML_DEVOTION Devotion
8222 MER_MAGNIFICAT Magnificat
8223 MER_QUICKEN Two-Hand Quicken
8224 MER_SIGHT Sight
8225 MER_CRASH Crash
8226 MER_REGAIN Regain
8227 MER_TENDER Tender
8228 MER_BENEDICTION Benediction
8229 MER_RECUPERATE Recuperate
8230 MER_MENTALCURE Mental Cure
8231 MER_COMPRESS Compress
8232 MER_PROVOKE Provoke
8233 MER_AUTOBERSERK Auto Berserk
8234 MER_DECAGI Decrease Agility
8235 MER_SCAPEGOAT Scapegoat
8236 MER_LEXDIVINA Lex_Divina
8237 MER_ESTIMATION Monster Property