Unknown.pm
上传用户:market2
上传日期:2018-11-18
资源大小:18786k
文件大小:1k
源码类别:

外挂编程

开发平台:

Windows_Unix

  1. #########################################################################
  2. #  OpenKore - Unknown actor object
  3. #  Copyright (c) 2005 OpenKore Team
  4. #
  5. #  This software is open source, licensed under the GNU General Public
  6. #  License, version 2.
  7. #  Basically, this means that you're allowed to modify and distribute
  8. #  this software. However, if you distribute modified versions, you MUST
  9. #  also distribute the source code.
  10. #  See http://www.gnu.org/licenses/gpl.html for the full license.
  11. #
  12. #  $Revision: 4710 $
  13. #  $Id: Unknown.pm 4710 2006-07-08 12:01:48Z hongli $
  14. #
  15. #########################################################################
  16. ##
  17. # MODULE DESCRIPTION: Unknown actor object
  18. #
  19. # The Actor::Unknown class represents any actors who are off-screen.
  20. #
  21. # Actor.pm is the base class for this class.
  22. package Actor::Unknown;
  23. use strict;
  24. use Actor;
  25. our @ISA = qw(Actor);
  26. sub new {
  27. my ($class, $ID) = @_;
  28. my $self = $class->SUPER::new('Unknown');
  29. $self->{ID} = $ID;
  30. $self->{nameID} = unpack("V", $ID);
  31. return $self;
  32. }
  33. sub nameString {
  34. my ($self, $otherActor) = @_;
  35. return 'self' if $self->{ID} eq $otherActor->{ID};
  36. return $self->name;
  37. }
  38. 1;