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

外挂编程

开发平台:

Windows_Unix

  1. #########################################################################
  2. #  OpenKore - Network subsystem
  3. #  This module contains functions for sending messages to the server.
  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. # Servertype overview: http://www.openkore.com/wiki/index.php/ServerType
  13. package Network::Send::ServerType12;
  14. use strict;
  15. use Globals qw($accountID $sessionID $sessionID2 $accountSex $char $charID %config %guild @chars $masterServer $syncSync $net);
  16. use Network::Send::ServerType0;
  17. use Network::PaddedPackets;
  18. use base qw(Network::Send::ServerType0);
  19. use Log qw(message warning error debug);
  20. use I18N qw(stringToBytes);
  21. use Utils qw(getTickCount getHex getCoordString);
  22. sub new {
  23. my ($class) = @_;
  24. return $class->SUPER::new(@_);
  25. }
  26. sub sendAttack {
  27. my ($self, $monID, $flag) = @_;
  28. $self->sendToServer(Network::PaddedPackets::generateAtk($monID, $flag));
  29. debug "Sent attack: ".getHex($monID)."n", "sendPacket", 2;
  30. }
  31. sub sendSit {
  32. my ($self) = @_;
  33. $self->sendToServer(Network::PaddedPackets::generateSitStand(1));
  34. debug "Sittingn", "sendPacket", 2;
  35. }
  36. sub sendStand {
  37. my ($self) = @_;
  38. $self->sendToServer(Network::PaddedPackets::generateSitStand(0));
  39. debug "Standingn", "sendPacket", 2;
  40. }
  41. sub sendSkillUse {
  42. my ($self, $ID, $lv, $targetID) = @_;
  43. $self->sendToServer(Network::PaddedPackets::generateSkillUse($ID, $lv,  $targetID));
  44. debug "Skill Use: $IDn", "sendPacket", 2;
  45. }
  46. sub sendDrop {
  47. my ($self, $index, $amount) = @_;
  48. my $msg;
  49. $msg = pack("C2 v1 v1", 0x93, 0x01, $index, $amount);
  50. $self->sendToServer($msg);
  51. debug "Sent drop: $index x $amountn", "sendPacket", 2;
  52. }
  53. sub sendGetPlayerInfo {
  54. my ($self, $ID) = @_;
  55. my $msg;
  56. $msg = pack("C*", 0x8C, 0x00) . pack("x2") . $ID;
  57. $self->sendToServer($msg);
  58. debug "Sent get player info: ID - ".getHex($ID)."n", "sendPacket", 2;
  59. }
  60. sub sendItemUse {
  61. my ($self, $ID, $targetID) = @_;
  62. my $msg;
  63. $msg = pack("C2 v1", 0xF5, 0x00, $ID) .
  64. $targetID;
  65. $self->sendToServer($msg);
  66. debug "Item Use: $IDn", "sendPacket", 2;
  67. }
  68. sub sendLook {
  69. my ($self, $body, $head) = @_;
  70. my $msg;
  71. $msg = pack("C*", 0x16, 0x01, $head, 0x00, $body);
  72. $self->sendToServer($msg);
  73. debug "Sent look: $body $headn", "sendPacket", 2;
  74. $char->{look}{head} = $head;
  75. $char->{look}{body} = $body;
  76. }
  77. sub sendChat {
  78. my ($self, $message) = @_;
  79. $message = "|00$message" if ($config{chatLangCode} && $config{chatLangCode} ne "none");
  80. my ($data, $charName); # Type: Bytes
  81. $message = stringToBytes($message); # Type: Bytes
  82. $charName = stringToBytes($char->{name});
  83. $data = pack("C*", 0x7E, 0x00) .
  84. pack("v*", length($charName) + length($message) + 8) .
  85. $charName . " : " . $message . chr(0);
  86. $self->sendToServer($data);
  87. }
  88. sub sendMapLogin {
  89. my ($self, $accountID, $charID, $sessionID, $sex) = @_;
  90. my $msg;
  91. $sex = 0 if ($sex > 1 || $sex < 0); # Sex can only be 0 (female) or 1 (male)
  92. $msg = pack("C*", 0x94, 0x00) .
  93. $charID .
  94. $sessionID .
  95. pack("x2") .
  96. $accountID .
  97. pack ("x6") .
  98. pack("V", getTickCount()) .
  99. pack ("x3") .
  100. pack("C*", $sex);
  101. $self->sendToServer($msg);
  102. }
  103. sub sendMove {
  104. my $self = shift;
  105. my $x = int scalar shift;
  106. my $y = int scalar shift;
  107. my $msg;
  108. $msg = pack("C2 x9", 0xA2, 0x00) . getCoordString($x, $y, 1);
  109. $self->sendToServer($msg);
  110. debug "Sent move to: $x, $yn", "sendPacket", 2;
  111. }
  112. sub sendSkillUseLoc {
  113. my ($self, $ID, $lv, $x, $y) = @_;
  114. my $msg;
  115. $msg = pack("v1 v1 x8 v1 v1 v1", 0xF3, $lv, $ID, $x, $y);
  116. $self->sendToServer($msg);
  117. debug "Skill Use on Location: $ID, ($x, $y)n", "sendPacket", 2;
  118. }
  119. sub sendStorageAdd {
  120. my ($self, $index, $amount) = @_;
  121. my $msg;
  122. $msg = pack("C2 x1 V1 v1", 0x13, 0x01, $amount, $index);
  123. $self->sendToServer($msg);
  124. debug "Sent Storage Add: $index x $amountn", "sendPacket", 2;
  125. }
  126. sub sendStorageGet {
  127. my ($self, $index, $amount) = @_;
  128. my $msg;
  129. $msg = pack("C2 v1 V1 C1", 0xF7, 0x00, $index, $amount, 0x00);
  130. $self->sendToServer($msg);
  131. debug "Sent Storage Get: $index x $amountn", "sendPacket", 2;
  132. }
  133. sub sendSync {
  134. my ($self, $initialSync) = @_;
  135. my $msg;
  136. # XKore mode 1 lets the client take care of syncing.
  137. return if ($self->{net}->version == 1);
  138. $syncSync = pack("V", getTickCount());
  139. $msg = pack("C2 x9", 0xA7, 0x00) . $syncSync . pack("x5");
  140. $self->sendToServer($msg);
  141. debug "Sent Syncn", "sendPacket", 2;
  142. }
  143. sub sendTake {
  144. my ($self, $itemID) = @_;
  145. my $msg;
  146. $msg = pack("C2", 0x9F, 0x00) . $itemID;
  147. $self->sendToServer($msg);
  148. debug "Sent taken", "sendPacket", 2;
  149. }
  150. 1;