Slave.pm.svn-base
Upload User: market2
Upload Date: 2018-11-18
Package Size: 18786k
Code Size: 0k
Category:

Game Hook Crack

Development Platform:

Windows_Unix

  1. package Actor::Slave;
  2. use strict;
  3. use Actor;
  4. use Globals;
  5. use base qw/Actor/;
  6. sub new {
  7. my ($class, $type) = @_;
  8. my $actorType =
  9. ($type >= 6001 && $type <= 6016) ? 'Homunculus' :
  10. ($type >= 6017 && $type <= 6046) ? 'Mercenary' :
  11. 'Unknown';
  12. return $class->SUPER::new ($actorType);
  13. }
  14. 1;