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

外挂编程

开发平台:

Windows_Unix

  1. #########################################################################
  2. #  OpenKore - Party 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: Party.pm 4710 2006-07-08 12:01:48Z hongli $
  14. #
  15. #########################################################################
  16. ##
  17. # MODULE DESCRIPTION: Party actor object
  18. #
  19. # Represents a party member.
  20. # All members in $char->{party}{users} are of the Actor::Party class.
  21. #
  22. # Actor.pm is the base class for this class.
  23. package Actor::Party;
  24. use strict;
  25. use Actor;
  26. our @ISA = qw(Actor);
  27. sub new {
  28. my ($class) = @_;
  29. return $class->SUPER::new('Party');
  30. }
  31. ##
  32. # Hash* $ActorParty->position()
  33. #
  34. # Returns the position of the actor.
  35. sub position {
  36. my ($self) = @_;
  37. return $self->{pos};
  38. }
  39. 1;