开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > DirextX编程 > 查看源码
FrmMain.frm
资源名称：vbmcrisrc.rar　[点击查看]
上传用户：pcw2004
上传日期：2022-02-02
资源大小：743k
文件大小：89k
源码类别：

DirextX编程

开发平台：

Visual Basic

FrmMain.frm：源码内容
  1. VERSION 5.00
  2. Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
  3. Begin VB.Form FrmMain 
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "VB游戏服务器"
  6.    ClientHeight    =   4470
  7.    ClientLeft      =   6195
  8.    ClientTop       =   4035
  9.    ClientWidth     =   6090
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MDIChild        =   -1  'True
  13.    ScaleHeight     =   4470
  14.    ScaleWidth      =   6090
  15.    Begin VB.CommandButton Command1 
  16.       Caption         =   "生效"
  17.       Height          =   375
  18.       Left            =   2280
  19.       TabIndex        =   4
  20.       Top             =   3720
  21.       Width           =   1095
  22.    End
  23.    Begin VB.TextBox Text1 
  24.       Height          =   375
  25.       Left            =   1080
  26.       TabIndex        =   3
  27.       Text            =   "1"
  28.       Top             =   3720
  29.       Width           =   1095
  30.    End
  31.    Begin VB.FileListBox File1 
  32.       Height          =   810
  33.       Left            =   4080
  34.       Pattern         =   "*.txt"
  35.       TabIndex        =   1
  36.       Top             =   720
  37.       Visible         =   0   'False
  38.       Width           =   735
  39.    End
  40.    Begin VB.Timer Timer1 
  41.       Enabled         =   0   'False
  42.       Interval        =   1
  43.       Left            =   120
  44.       Top             =   2520
  45.    End
  46.    Begin MSWinsockLib.Winsock LoginServer 
  47.       Index           =   0
  48.       Left            =   360
  49.       Top             =   240
  50.       _ExtentX        =   741
  51.       _ExtentY        =   741
  52.       _Version        =   393216
  53.    End
  54.    Begin MSWinsockLib.Winsock Server 
  55.       Index           =   0
  56.       Left            =   960
  57.       Top             =   240
  58.       _ExtentX        =   741
  59.       _ExtentY        =   741
  60.       _Version        =   393216
  61.    End
  62.    Begin VB.TextBox Text 
  63.       Height          =   3615
  64.       Left            =   0
  65.       MultiLine       =   -1  'True
  66.       ScrollBars      =   2  'Vertical
  67.       TabIndex        =   0
  68.       Top             =   0
  69.       Width           =   6015
  70.    End
  71.    Begin VB.Label Label1 
  72.       AutoSize        =   -1  'True
  73.       BackStyle       =   0  'Transparent
  74.       Caption         =   "经验值倍数"
  75.       Height          =   180
  76.       Left            =   0
  77.       TabIndex        =   2
  78.       Top             =   3840
  79.       Width           =   900
  80.    End
  81. End
  82. Attribute VB_Name = "FrmMain"
  83. Attribute VB_GlobalNameSpace = False
  84. Attribute VB_Creatable = False
  85. Attribute VB_PredeclaredId = True
  86. Attribute VB_Exposed = False
  87. Option Explicit
  88. Dim LoginCount As Integer
  95. Sub MonAttackData(MonID As Long)
  96.     Dim i As Integer
  97.     Dim GongVal As Long
  98.     Dim ShangHai As Long
  99.     If Mon(MonID).Pic = 3 And Mon(MonID).PicSpeed = 0 Then
  100.         Select Case Mon(MonID).Face
  101.             Case FaceInfo.UpFace
  102.                 If Abs(Player(Mon(MonID).追击目标).X - Mon(MonID).X) = 1 Or Abs(Player(Mon(MonID).追击目标).Y - Mon(MonID).Y) = 1 Then
  103.                     GongVal = Abs(Rnd * (Mon(MonID).DBInfo.DC_攻击力 - Mon(MonID).DBInfo.DCMax_最大攻击力) + IIf(Mon(MonID).DBInfo.DCMax_最大攻击力 > Mon(MonID).DBInfo.DC_攻击力, Mon(MonID).DBInfo.DCMax_最大攻击力, Mon(MonID).DBInfo.DC_攻击力))
  104.                     ShangHai = GongVal - (Abs(Rnd * (Player(Mon(MonID).追击目标).AC1 - Player(Mon(MonID).追击目标).Ac2) + IIf(Player(Mon(MonID).追击目标).Ac2 - Player(Mon(MonID).追击目标).AC1, Player(Mon(MonID).追击目标).Ac2, Player(Mon(MonID).追击目标).AC1)))
  105.                     If ShangHai > 0 And Player(Mon(MonID).追击目标).HP > 0 Then
  106.                         Player(Mon(MonID).追击目标).HP = Player(Mon(MonID).追击目标).HP - ShangHai
  107.                         If Player(Mon(MonID).追击目标).HP > 0 Then
  108.                             Player(Mon(MonID).追击目标).Act = Bruise_受伤
  109.                             Player(Mon(MonID).追击目标).Pic = 0
  110.                             Player(Mon(MonID).追击目标).PicSpeed = 0
  111.                         Else
  112.                             Player(Mon(MonID).追击目标).Act = Dead_死亡
  113.                             Player(Mon(MonID).追击目标).Pic = 0
  114.                             Player(Mon(MonID).追击目标).PicSpeed = 0
  115.                         End If
  116.                         
  117.                         For i = 1 To playercount
  118.                             If Player(i).Connected = True Then
  119.                                 If Server(i).State = sckConnected Then
  120.                                     Server(i).SendData PLAYERHP & KONGDATA & Mon(MonID).追击目标 & KONGDATA & Player(Mon(MonID).追击目标).HP & KONGDATA & Player(Mon(MonID).追击目标).MaxHP & NETKONGDATA
  121.                                     Server(i).SendData PLAYERACTDATA & KONGDATA & Mon(MonID).追击目标 & KONGDATA & Player(Mon(MonID).追击目标).Act & KONGDATA & Player(Mon(MonID).追击目标).Pic & NETKONGDATA
  122.                                 End If
  123.                             End If
  124.                         Next
  125.                     End If
  126.                 End If
  127.             Case FaceInfo.RightUpFace
  128.                 If Player(Mon(MonID).追击目标).X = Mon(MonID).X + 1 And Player(Mon(MonID).追击目标).Y = Mon(MonID).Y - 1 Then
  129.                     GongVal = Abs(Rnd * (Mon(MonID).DBInfo.DC_攻击力 - Mon(MonID).DBInfo.DCMax_最大攻击力) + IIf(Mon(MonID).DBInfo.DCMax_最大攻击力 > Mon(MonID).DBInfo.DC_攻击力, Mon(MonID).DBInfo.DCMax_最大攻击力, Mon(MonID).DBInfo.DC_攻击力))
  130.                     ShangHai = GongVal - (Abs(Rnd * (Player(Mon(MonID).追击目标).AC1 - Player(Mon(MonID).追击目标).Ac2) + IIf(Player(Mon(MonID).追击目标).Ac2 - Player(Mon(MonID).追击目标).AC1, Player(Mon(MonID).追击目标).Ac2, Player(Mon(MonID).追击目标).AC1)))
  131.                     If ShangHai > 0 And Player(Mon(MonID).追击目标).HP > 0 Then
  132.                         Player(Mon(MonID).追击目标).HP = Player(Mon(MonID).追击目标).HP - ShangHai
  133.                         If Player(Mon(MonID).追击目标).HP > 0 Then
  134.                             Player(Mon(MonID).追击目标).Act = Bruise_受伤
  135.                             Player(Mon(MonID).追击目标).Pic = 0
  136.                             Player(Mon(MonID).追击目标).PicSpeed = 0
  137.                         Else
  138.                             Player(Mon(MonID).追击目标).Act = Dead_死亡
  139.                             Player(Mon(MonID).追击目标).Pic = 0
  140.                             Player(Mon(MonID).追击目标).PicSpeed = 0
  141.                         End If
  142.                         
  143.                         For i = 1 To playercount
  144.                             If Player(i).Connected = True Then
  145.                                 If Server(i).State = sckConnected Then
  146.                                     Server(i).SendData PLAYERHP & KONGDATA & Mon(MonID).追击目标 & KONGDATA & Player(Mon(MonID).追击目标).HP & KONGDATA & Player(Mon(MonID).追击目标).MaxHP & NETKONGDATA
  147.                                     Server(i).SendData PLAYERACTDATA & KONGDATA & Mon(MonID).追击目标 & KONGDATA & Player(Mon(MonID).追击目标).Act & KONGDATA & Player(Mon(MonID).追击目标).Pic & NETKONGDATA
  148.                                 End If
  149.                             End If
  150.                         Next
  151.                     End If
  152.                 End If
  153.             Case FaceInfo.RightFace
  154.                 If Player(Mon(MonID).追击目标).X = Mon(MonID).X + 1 And Player(Mon(MonID).追击目标).Y = Mon(MonID).Y Then
  155.                     GongVal = Abs(Rnd * (Mon(MonID).DBInfo.DC_攻击力 - Mon(MonID).DBInfo.DCMax_最大攻击力) + IIf(Mon(MonID).DBInfo.DCMax_最大攻击力 > Mon(MonID).DBInfo.DC_攻击力, Mon(MonID).DBInfo.DCMax_最大攻击力, Mon(MonID).DBInfo.DC_攻击力))
  156.                     ShangHai = GongVal - (Abs(Rnd * (Player(Mon(MonID).追击目标).AC1 - Player(Mon(MonID).追击目标).Ac2) + IIf(Player(Mon(MonID).追击目标).Ac2 - Player(Mon(MonID).追击目标).AC1, Player(Mon(MonID).追击目标).Ac2, Player(Mon(MonID).追击目标).AC1)))
  157.                     If ShangHai > 0 And Player(Mon(MonID).追击目标).HP > 0 Then
  158.                         Player(Mon(MonID).追击目标).HP = Player(Mon(MonID).追击目标).HP - ShangHai
  159.                         If Player(Mon(MonID).追击目标).HP > 0 Then
  160.                             Player(Mon(MonID).追击目标).Act = Bruise_受伤
  161.                             Player(Mon(MonID).追击目标).Pic = 0
  162.                             Player(Mon(MonID).追击目标).PicSpeed = 0
  163.                         Else
  164.                             Player(Mon(MonID).追击目标).Act = Dead_死亡
  165.                             Player(Mon(MonID).追击目标).Pic = 0
  166.                             Player(Mon(MonID).追击目标).PicSpeed = 0
  167.                         End If
  168.                         
  169.                         For i = 1 To playercount
  170.                             If Player(i).Connected = True Then
  171.                                 If Server(i).State = sckConnected Then
  172.                                     Server(i).SendData PLAYERHP & KONGDATA & Mon(MonID).追击目标 & KONGDATA & Player(Mon(MonID).追击目标).HP & KONGDATA & Player(Mon(MonID).追击目标).MaxHP & NETKONGDATA
  173.                                     Server(i).SendData PLAYERACTDATA & KONGDATA & Mon(MonID).追击目标 & KONGDATA & Player(Mon(MonID).追击目标).Act & KONGDATA & Player(Mon(MonID).追击目标).Pic & NETKONGDATA
  174.                                 End If
  175.                             End If
  176.                         Next
  177.                     End If
  178.                 End If
  179.             Case FaceInfo.RightDownFace
  180.                 If Player(Mon(MonID).追击目标).X = Mon(MonID).X + 1 And Player(Mon(MonID).追击目标).Y = Mon(MonID).Y + 1 Then
  181.                     GongVal = Abs(Rnd * (Mon(MonID).DBInfo.DC_攻击力 - Mon(MonID).DBInfo.DCMax_最大攻击力) + IIf(Mon(MonID).DBInfo.DCMax_最大攻击力 > Mon(MonID).DBInfo.DC_攻击力, Mon(MonID).DBInfo.DCMax_最大攻击力, Mon(MonID).DBInfo.DC_攻击力))
  182.                     ShangHai = GongVal - (Abs(Rnd * (Player(Mon(MonID).追击目标).AC1 - Player(Mon(MonID).追击目标).Ac2) + IIf(Player(Mon(MonID).追击目标).Ac2 - Player(Mon(MonID).追击目标).AC1, Player(Mon(MonID).追击目标).Ac2, Player(Mon(MonID).追击目标).AC1)))
  183.                     If ShangHai > 0 And Player(Mon(MonID).追击目标).HP > 0 Then
  184.                         Player(Mon(MonID).追击目标).HP = Player(Mon(MonID).追击目标).HP - ShangHai
  185.                         If Player(Mon(MonID).追击目标).HP > 0 Then
  186.                             Player(Mon(MonID).追击目标).Act = Bruise_受伤
  187.                             Player(Mon(MonID).追击目标).Pic = 0
  188.                             Player(Mon(MonID).追击目标).PicSpeed = 0
  189.                         Else
  190.                             Player(Mon(MonID).追击目标).Act = Dead_死亡
  191.                             Player(Mon(MonID).追击目标).Pic = 0
  192.                             Player(Mon(MonID).追击目标).PicSpeed = 0
  193.                         End If
  194.                         
  195.                         For i = 1 To playercount
  196.                             If Player(i).Connected = True Then
  197.                                 If Server(i).State = sckConnected Then
  198.                                     Server(i).SendData PLAYERHP & KONGDATA & Mon(MonID).追击目标 & KONGDATA & Player(Mon(MonID).追击目标).HP & KONGDATA & Player(Mon(MonID).追击目标).MaxHP & NETKONGDATA
  199.                                     Server(i).SendData PLAYERACTDATA & KONGDATA & Mon(MonID).追击目标 & KONGDATA & Player(Mon(MonID).追击目标).Act & KONGDATA & Player(Mon(MonID).追击目标).Pic & NETKONGDATA
  200.                                 End If
  201.                             End If
  202.                         Next
  203.                     End If
  204.                 End If
  205.             Case FaceInfo.DownFace
  206.                 If Player(Mon(MonID).追击目标).X = Mon(MonID).X And Player(Mon(MonID).追击目标).Y = Mon(MonID).Y + 1 Then
  207.                     GongVal = Abs(Rnd * (Mon(MonID).DBInfo.DC_攻击力 - Mon(MonID).DBInfo.DCMax_最大攻击力) + IIf(Mon(MonID).DBInfo.DCMax_最大攻击力 > Mon(MonID).DBInfo.DC_攻击力, Mon(MonID).DBInfo.DCMax_最大攻击力, Mon(MonID).DBInfo.DC_攻击力))
  208.                     ShangHai = GongVal - (Abs(Rnd * (Player(Mon(MonID).追击目标).AC1 - Player(Mon(MonID).追击目标).Ac2) + IIf(Player(Mon(MonID).追击目标).Ac2 - Player(Mon(MonID).追击目标).AC1, Player(Mon(MonID).追击目标).Ac2, Player(Mon(MonID).追击目标).AC1)))
  209.                     If ShangHai > 0 And Player(Mon(MonID).追击目标).HP > 0 Then
  210.                         Player(Mon(MonID).追击目标).HP = Player(Mon(MonID).追击目标).HP - ShangHai
  211.                         If Player(Mon(MonID).追击目标).HP > 0 Then
  212.                             Player(Mon(MonID).追击目标).Act = Bruise_受伤
  213.                             Player(Mon(MonID).追击目标).Pic = 0
  214.                             Player(Mon(MonID).追击目标).PicSpeed = 0
  215.                         Else
  216.                             Player(Mon(MonID).追击目标).Act = Dead_死亡
  217.                             Player(Mon(MonID).追击目标).Pic = 0
  218.                             Player(Mon(MonID).追击目标).PicSpeed = 0
  219.                         End If
  220.                         
  221.                         For i = 1 To playercount
  222.                             If Player(i).Connected = True Then
  223.                                 If Server(i).State = sckConnected Then
  224.                                     Server(i).SendData PLAYERHP & KONGDATA & Mon(MonID).追击目标 & KONGDATA & Player(Mon(MonID).追击目标).HP & KONGDATA & Player(Mon(MonID).追击目标).MaxHP & NETKONGDATA
  225.                                     Server(i).SendData PLAYERACTDATA & KONGDATA & Mon(MonID).追击目标 & KONGDATA & Player(Mon(MonID).追击目标).Act & KONGDATA & Player(Mon(MonID).追击目标).Pic & NETKONGDATA
  226.                                 End If
  227.                             End If
  228.                         Next
  229.                     End If
  230.                 End If
  231.             Case FaceInfo.LeftDownFace
  232.                 If Player(Mon(MonID).追击目标).X = Mon(MonID).X - 1 And Player(Mon(MonID).追击目标).Y = Mon(MonID).Y + 1 Then
  233.                     GongVal = Abs(Rnd * (Mon(MonID).DBInfo.DC_攻击力 - Mon(MonID).DBInfo.DCMax_最大攻击力) + IIf(Mon(MonID).DBInfo.DCMax_最大攻击力 > Mon(MonID).DBInfo.DC_攻击力, Mon(MonID).DBInfo.DCMax_最大攻击力, Mon(MonID).DBInfo.DC_攻击力))
  234.                     ShangHai = GongVal - (Abs(Rnd * (Player(Mon(MonID).追击目标).AC1 - Player(Mon(MonID).追击目标).Ac2) + IIf(Player(Mon(MonID).追击目标).Ac2 - Player(Mon(MonID).追击目标).AC1, Player(Mon(MonID).追击目标).Ac2, Player(Mon(MonID).追击目标).AC1)))
  235.                     If ShangHai > 0 And Player(Mon(MonID).追击目标).HP > 0 Then
  236.                         Player(Mon(MonID).追击目标).HP = Player(Mon(MonID).追击目标).HP - ShangHai
  237.                         If Player(Mon(MonID).追击目标).HP > 0 Then
  238.                             Player(Mon(MonID).追击目标).Act = Bruise_受伤
  239.                             Player(Mon(MonID).追击目标).Pic = 0
  240.                             Player(Mon(MonID).追击目标).PicSpeed = 0
  241.                         Else
  242.                             Player(Mon(MonID).追击目标).Act = Dead_死亡
  243.                             Player(Mon(MonID).追击目标).Pic = 0
  244.                             Player(Mon(MonID).追击目标).PicSpeed = 0
  245.                         End If
  246.                         
  247.                         For i = 1 To playercount
  248.                             If Player(i).Connected = True Then
  249.                                 If Server(i).State = sckConnected Then
  250.                                     Server(i).SendData PLAYERHP & KONGDATA & Mon(MonID).追击目标 & KONGDATA & Player(Mon(MonID).追击目标).HP & KONGDATA & Player(Mon(MonID).追击目标).MaxHP & NETKONGDATA
  251.                                     Server(i).SendData PLAYERACTDATA & KONGDATA & Mon(MonID).追击目标 & KONGDATA & Player(Mon(MonID).追击目标).Act & KONGDATA & Player(Mon(MonID).追击目标).Pic & NETKONGDATA
  252.                                 End If
  253.                             End If
  254.                         Next
  255.                     End If
  256.                 End If
  257.             Case FaceInfo.LeftFace
  258.                 If Player(Mon(MonID).追击目标).X = Mon(MonID).X - 1 And Player(Mon(MonID).追击目标).Y = Mon(MonID).Y Then
  259.                     GongVal = Abs(Rnd * (Mon(MonID).DBInfo.DC_攻击力 - Mon(MonID).DBInfo.DCMax_最大攻击力) + IIf(Mon(MonID).DBInfo.DCMax_最大攻击力 > Mon(MonID).DBInfo.DC_攻击力, Mon(MonID).DBInfo.DCMax_最大攻击力, Mon(MonID).DBInfo.DC_攻击力))
  260.                     ShangHai = GongVal - (Abs(Rnd * (Player(Mon(MonID).追击目标).AC1 - Player(Mon(MonID).追击目标).Ac2) + IIf(Player(Mon(MonID).追击目标).Ac2 - Player(Mon(MonID).追击目标).AC1, Player(Mon(MonID).追击目标).Ac2, Player(Mon(MonID).追击目标).AC1)))
  261.                     If ShangHai > 0 And Player(Mon(MonID).追击目标).HP > 0 Then
  262.                         Player(Mon(MonID).追击目标).HP = Player(Mon(MonID).追击目标).HP - ShangHai
  263.                         If Player(Mon(MonID).追击目标).HP > 0 Then
  264.                             Player(Mon(MonID).追击目标).Act = Bruise_受伤
  265.                             Player(Mon(MonID).追击目标).Pic = 0
  266.                             Player(Mon(MonID).追击目标).PicSpeed = 0
  267.                         Else
  268.                             Player(Mon(MonID).追击目标).Act = Dead_死亡
  269.                             Player(Mon(MonID).追击目标).Pic = 0
  270.                             Player(Mon(MonID).追击目标).PicSpeed = 0
  271.                         End If
  272.                         
  273.                         For i = 1 To playercount
  274.                             If Player(i).Connected = True Then
  275.                                 If Server(i).State = sckConnected Then
  276.                                     Server(i).SendData PLAYERHP & KONGDATA & Mon(MonID).追击目标 & KONGDATA & Player(Mon(MonID).追击目标).HP & KONGDATA & Player(Mon(MonID).追击目标).MaxHP & NETKONGDATA
  277.                                     Server(i).SendData PLAYERACTDATA & KONGDATA & Mon(MonID).追击目标 & KONGDATA & Player(Mon(MonID).追击目标).Act & KONGDATA & Player(Mon(MonID).追击目标).Pic & NETKONGDATA
  278.                                 End If
  279.                             End If
  280.                         Next
  281.                     End If
  282.                 End If
  283.             Case FaceInfo.LeftUpFace
  284.                 If Player(Mon(MonID).追击目标).X = Mon(MonID).X - 1 And Player(Mon(MonID).追击目标).Y = Mon(MonID).Y - 1 Then
  285.                     GongVal = Abs(Rnd * (Mon(MonID).DBInfo.DC_攻击力 - Mon(MonID).DBInfo.DCMax_最大攻击力) + IIf(Mon(MonID).DBInfo.DCMax_最大攻击力 > Mon(MonID).DBInfo.DC_攻击力, Mon(MonID).DBInfo.DCMax_最大攻击力, Mon(MonID).DBInfo.DC_攻击力))
  286.                     ShangHai = GongVal - (Abs(Rnd * (Player(Mon(MonID).追击目标).AC1 - Player(Mon(MonID).追击目标).Ac2) + IIf(Player(Mon(MonID).追击目标).Ac2 - Player(Mon(MonID).追击目标).AC1, Player(Mon(MonID).追击目标).Ac2, Player(Mon(MonID).追击目标).AC1)))
  287.                     If ShangHai > 0 And Player(Mon(MonID).追击目标).HP > 0 Then
  288.                         Player(Mon(MonID).追击目标).HP = Player(Mon(MonID).追击目标).HP - ShangHai
  289.                         If Player(Mon(MonID).追击目标).HP > 0 Then
  290.                             Player(Mon(MonID).追击目标).Act = Bruise_受伤
  291.                             Player(Mon(MonID).追击目标).Pic = 0
  292.                             Player(Mon(MonID).追击目标).PicSpeed = 0
  293.                         Else
  294.                             Player(Mon(MonID).追击目标).Act = Dead_死亡
  295.                             Player(Mon(MonID).追击目标).Pic = 0
  296.                             Player(Mon(MonID).追击目标).PicSpeed = 0
  297.                         End If
  298.                         
  299.                         For i = 1 To playercount
  300.                             If Player(i).Connected = True Then
  301.                                 If Server(i).State = sckConnected Then
  302.                                     Server(i).SendData PLAYERHP & KONGDATA & Mon(MonID).追击目标 & KONGDATA & Player(Mon(MonID).追击目标).HP & KONGDATA & Player(Mon(MonID).追击目标).MaxHP & NETKONGDATA
  303.                                     Server(i).SendData PLAYERACTDATA & KONGDATA & Mon(MonID).追击目标 & KONGDATA & Player(Mon(MonID).追击目标).Act & KONGDATA & Player(Mon(MonID).追击目标).Pic & NETKONGDATA
  304.                                 End If
  305.                             End If
  306.                         Next
  307.                     End If
  308.                 End If
  309.         End Select
  310.     End If
  311.                     
  312.                     
  313. End Sub
  315. Sub MonActInfo(MonNum As Long, MonRace As Integer, MonRaceImage As Integer)
  316.     Dim i As Long, j As Long
  317.     Select Case MonRace
  318.         Case Is <> 51, 52
  319.             If Abs(Player(Mon(MonNum).追击目标).X - Mon(MonNum).X) <= 1 And Abs(Player(Mon(MonNum).追击目标).Y - Mon(MonNum).Y) <= 1 And Rnd * 10 < 5 Then
  320.                 Mon(MonNum).Act = AttAck_怪攻击
  321.                 Mon(MonNum).Pic = 0
  322.                 Mon(MonNum).PicSpeed = 0
  323.                 Mon(MonNum).Face = GetMonFace(Player(Mon(MonNum).追击目标).X, Player(Mon(MonNum).追击目标).Y, Mon(MonNum).X, Mon(MonNum).Y)
  324.                 For j = 1 To playercount
  325.                     If Player(j).Connected = True Then
  326.                         If Server(j).State = sckConnected Then
  327.                             Server(j).SendData MONACTDATA & KONGDATA & Mon(MonNum).Id & KONGDATA & Mon(Mon(MonNum).Id).Act & KONGDATA & Mon(Mon(MonNum).Id).Face & NETKONGDATA
  328.                         End If
  329.                     End If
  330.                 Next
  331.             End If
  332.         Case 101
  333.     End Select
  334. End Sub
  345. '/////////  载入怪物物品
  346. Public Sub LoadMonItems()
  347.     Dim i As Long, j As Integer, mSS As String, MDD As Variant
  348.     MonItemsFile = 0
  349.     ReDim MonItems(MonItemsFile)
  350.     If File1.ListCount = 0 Then Exit Sub
  351.     MonItemsFile = File1.ListCount
  352.     ReDim MonItems(MonItemsFile)
  353.     For i = 0 To File1.ListCount - 1
  354.         File1.Selected(i) = True
  355.         Open App.Path & "MonItems" & File1.FileName For Input As #1
  356.             MonItems(i + 1).MonName = Left(File1.FileName, Len(File1.FileName) - 4)
  357.             Do While Not EOF(1)
  358.                 Line Input #1, mSS
  359.                 For j = 9 To 2 Step -1
  360.                     mSS = Replace(mSS, String(j, " "), " ")
  361.                 Next j
  362.                 MDD = Split(mSS, " ")
  363.                 If UBound(MDD) >= 1 Then
  364.                     If MDD(1) = "金币" Then
  365.                         If UBound(MDD) >= 2 Then
  366.                             MonItems(i + 1).mItemCount = MonItems(i + 1).mItemCount + 1
  367.                             ReDim Preserve MonItems(i + 1).mItem(MonItems(i + 1).mItemCount)
  368.                             MonItems(i + 1).mItem(MonItems(i + 1).mItemCount).BaoLi = Right(MDD(0), Len(MDD(0)) - 2)
  369.                             MonItems(i + 1).mItem(MonItems(i + 1).mItemCount).ItemName = MDD(1)
  370.                             MonItems(i + 1).mItem(MonItems(i + 1).mItemCount).mCount = MDD(2)
  371.                         End If
  372.                         
  373.                     Else
  374.                         MonItems(i + 1).mItemCount = MonItems(i + 1).mItemCount + 1
  375.                         ReDim Preserve MonItems(i + 1).mItem(MonItems(i + 1).mItemCount)
  376.                         MonItems(i + 1).mItem(MonItems(i + 1).mItemCount).BaoLi = Right(MDD(0), Len(MDD(0)) - 2)
  377.                         MonItems(i + 1).mItem(MonItems(i + 1).mItemCount).ItemName = MDD(1)
  378.                     End If
  379.                 End If
  380.                 DoEvents
  381.             Loop
  382.         Close #1
  383.     Next
  384.     
  385. '    For i = 1 To MonItemsFile
  386. '        Open App.Path & "www" & MonItems(i).MonName & ".txt" For Output As #1
  387. '            If MonItems(i).mItemCount > 0 Then
  388. '                For j = 1 To MonItems(i).mItemCount
  389. '                    If MonItems(i).mItem(j).ItemName = "金币" Then
  390. '                       Print #1, "1/" & MonItems(i).mItem(j).BaoLi & " " & MonItems(i).mItem(j).ItemName & " " & MonItems(i).mItem(j).mCount
  391. '                    Else
  392. '                        Print #1, "1/" & MonItems(i).mItem(j).BaoLi & " " & MonItems(i).mItem(j).ItemName
  393. '                    End If
  394. '                Next
  395. '            End If
  396. '        Close #1
  397. '    Next
  398. End Sub
  405. Private Sub Command1_Click()
  406.     If Text1.Text > 0 Then
  407.         mExp = Text1.Text
  408.         Text.Text = Text.Text & "修改经验值倍数为：" & mExp & vbCrLf
  409.     End If
  410. End Sub
  412. Private Sub Form_Load()
  413.     Me.Show
  414.     DoEvents
  415.     File1.Path = App.Path & "MonItems"
  416.     mExp = 1
  417.     Map.Width = 100
  418.     Map.Height = 100
  419.     ReDim Map.Map3(Map.Width, Map.Height)
  420.     ReDim Map.Map4(Map.Width, Map.Height)
  421.     ReDim Map.Map5(Map.Width, Map.Height)
  422.     MapItemCount = 0
  423.     ReDim MapItem(MapItemCount)
  424.     Text.Text = Text.Text & "服务器正在启动......" & vbCrLf
  425.     LoadLevelHP
  426.     Text.Text = Text.Text & "正在加载魔法技能数据......" & vbCrLf
  427.     LoadMagicDBData
  428.     Text.Text = Text.Text & "加载魔法技能数据成功......" & vbCrLf
  429.     Text.Text = Text.Text & "正在加载物品数据......" & vbCrLf
  430.     LoadItemDBData
  431.     Text.Text = Text.Text & "加载物品数据成功......" & vbCrLf
  432.     Text.Text = Text.Text & "正在加载NPC数据......" & vbCrLf
  433.     LoadNPCInfo
  434.     Text.Text = Text.Text & "加载NPC数据成功......" & vbCrLf
  435.     Text.Text = Text.Text & "正在加载等级经验......" & vbCrLf
  436.     LoadLevelExpData
  437.     Text.Text = Text.Text & "加载等级经验成功......" & vbCrLf
  438.     Text.Text = Text.Text & "正在加载注册ID数据......" & vbCrLf
  439.     loadRegPlayerInfo
  440.     Text.Text = Text.Text & "加载注册ID数据成功......" & vbCrLf
  441.     Text.Text = Text.Text & "正在加载怪物数据......" & vbCrLf
  442.     LoadMonDBData
  443.     Text.Text = Text.Text & "加载怪物数据成功......" & vbCrLf
  444.     Text.Text = Text.Text & "正在加载怪物爆率......" & vbCrLf
  445.     LoadMonItems
  446.     Text.Text = Text.Text & "加载怪物爆率成功......" & vbCrLf
  447.     LoadMonGen
  448.     
  449.     InitMon
  450.     InitMapItem
  451.     
  452.     ServerIP = ReadINIFile("Main", "ServerIP", App.Path & "Main.ini")
  453.     ServerPort = ReadINIFile("Main", "ServerPort", App.Path & "Main.ini")
  454.     Server(0).Bind 7001, ServerIP
  455.     Server(0).Listen
  456.     
  457.     LoginServer(0).Bind ServerPort, ServerIP
  458.     LoginServer(0).Listen
  459.     Text.Text = Text.Text & "服务器启动完成......" & vbCrLf
  460.     mSleep 500
  461.     GameLoop
  462.     
  463. End Sub
  465. Sub InitMapItem()
  466.     Dim i As Long
  467.     MapItemCount = 0
  468.     ReDim MapItem(MapItemCount)
  469.     For i = 1 To MapItemCount
  470.         MapItem(i).Id = i
  471.         MapItem(i).State = True
  472.         MapItem(i).mItem = ItemDB(Rnd * (ItemDBCount - 1) + 1)
  473.         MapItem(i).X = Rnd * Map.Width
  474.         MapItem(i).Y = Rnd * Map.Height
  475.     Next
  476. End Sub
  478. Private Sub GameLoop()
  479.     
  480.     mStart = True
  481.     Do While mStart
  482.         If GetTickCount - LTime > 30 Then
  483.             LTime = GetTickCount
  484.             Randomize
  485.             ActMonGen
  486.             MonAct
  487.             
  488.             
  489.         End If
  490.         DoEvents
  491.     Loop
  492.     End
  493. End Sub
  495. Function GetMonFace(XX1 As Long, YY1 As Long, XX2 As Long, YY2 As Long) As FaceInfo
  496.     If XX1 > XX2 Then
  497.         If YY1 > YY2 Then
  498.             GetMonFace = RightDownFace
  499.         ElseIf YY1 < YY2 Then
  500.             GetMonFace = RightUpFace
  501.         ElseIf YY1 = YY2 Then
  502.             GetMonFace = RightFace
  503.         End If
  504.     ElseIf XX1 < XX2 Then
  505.         If YY1 > YY2 Then
  506.             GetMonFace = LeftDownFace
  507.         ElseIf YY1 < YY2 Then
  508.             GetMonFace = LeftUpFace
  509.         ElseIf YY1 = YY2 Then
  510.             GetMonFace = LeftFace
  511.         End If
  512.     ElseIf XX1 = XX2 Then
  513.         If YY1 > YY2 Then
  514.             GetMonFace = DownFace
  515.         ElseIf YY1 < YY2 Then
  516.             GetMonFace = UpFace
  517.         End If
  518.     End If
  519. End Function
  521. Sub MonTexAct(MonID As Long)
  522.     If Mon(MonID).Act = Stone_怪石化 Then
  523.         If Mon(MonID).Pic > 0 Then
  524.             Mon(MonID).PicSpeed = Mon(MonID).PicSpeed + 1
  525.             If Mon(MonID).PicSpeed > 3 Then
  526.                 Mon(MonID).PicSpeed = 0
  527.                 Mon(MonID).Pic = Mon(MonID).Pic + 1
  528.             End If
  529.         End If
  530.     Else
  531.         Mon(MonID).PicSpeed = Mon(MonID).PicSpeed + 1
  532.         If Mon(MonID).PicSpeed > 2 Then
  533.             Mon(MonID).PicSpeed = 0
  534.             Mon(MonID).Pic = Mon(MonID).Pic + 1
  535.         End If
  536.     End If
  537.     Select Case Mon(MonID).Act
  538.         Case MonActType.Stone_怪石化
  539.             If Mon(MonID).Pic > 5 Then
  540.                 Mon(MonID).PicSpeed = 0
  541.                 Mon(MonID).Pic = 0
  542.                 Mon(MonID).Act = Stand_怪站立
  543.             End If
  544.         Case MonActType.Stand_怪站立
  545.             If Mon(MonID).Pic > 10 Then
  546.                 Mon(MonID).PicSpeed = 0
  547.                 Mon(MonID).Pic = 0
  548.                 Mon(MonID).Act = Stand_怪站立
  549.             End If
  550.         Case MonActType.Move_怪移动
  551.             If Mon(MonID).Pic > 8 Then
  552.                 Mon(MonID).Pic = 0
  553.                 Mon(MonID).Act = Stand_怪站立
  554.                 Mon(MonID).PicSpeed = 0
  555.             End If
  556.         Case MonActType.Bruise_怪受伤
  557.             If Mon(MonID).Pic > 2 Then
  558.                 Mon(MonID).Pic = 0
  559.                 Mon(MonID).Act = Stand_怪站立
  560.                 Mon(MonID).PicSpeed = 0
  561.             End If
  562.         Case MonActType.AttAck_怪攻击
  563.             MonAttackData MonID
  564.             If Mon(MonID).Pic > 5 Then
  565.                 Mon(MonID).Pic = 0
  566.                 Mon(MonID).PicSpeed = 0
  567.                 Mon(MonID).Act = Stand_怪站立
  568.             End If
  569.         Case MonActType.Dead_怪死亡
  570.             If GetTickCount - Mon(MonID).DeadLTime > 5000 Then
  571.                 Mon(MonID).Dead = True
  572.             End If
  573.             If Mon(MonID).DBInfo.Appr_形象代码 = 218 Then
  574.                 If Mon(MonID).Pic > 19 Then
  575.                     Mon(MonID).Pic = 19
  576.                 End If
  577.             Else
  578.                 If Mon(MonID).Pic > 9 Then
  579.                     Mon(MonID).Pic = 9
  580.                 End If
  581.             End If
  582.     End Select
  583. End Sub
  586. Private Sub MonAct()
  587.     Dim i As Long, j As Integer
  588.     Dim XX As Long, YY As Long
  589.     Dim MM As Integer
  590.     If MonCount <= 0 Then Exit Sub
  591.     
  592.     For i = 1 To MonCount
  593.         If Mon(i).Dead = False Then
  594.             MonTexAct i         ' 怪贴图动作
  595.             
  596.             If Mon(i).Act = Stand_怪站立 Or Mon(i).Act = Stone_怪石化 Then
  597.                 If Mon(i).追击 = False Then
  598.                     
  599.                     If GetTickCount - Mon(i).LassWalkTime > Mon(i).DBInfo.WalkWait_行走等待 Then
  600.                         Mon(i).LassWalkTime = GetTickCount
  601.                         If Rnd * 10 = 10 Then
  602.                         
  603.                             XX = Mon(i).X + Rnd * 2 - 1
  604.                             YY = Mon(i).Y + Rnd * 2 - 1
  605.                             If XX < 0 Then XX = Mon(i).X
  606.                             If YY < 0 Then YY = Mon(i).Y
  607.                             If XX > Map.Width Then XX = Mon(i).X
  608.                             If YY > Map.Height Then YY = Mon(i).Y
  609.                             If Mon(i).X <> XX Or Mon(i).Y <> YY Then
  610.                                 Mon(i).Face = GetMonFace(XX, YY, Mon(i).X, Mon(i).Y)
  611.                                 For j = 1 To playercount
  612.                                     If Abs(Mon(i).X - Player(j).X) < 5 And Abs(Mon(i).Y - Player(j).Y) < 5 Then
  613.                                         If Player(j).Connected = True Then
  614.                                             If Server(j).State = sckConnected Then
  615.                                                 Server(j).SendData MONFACE & KONGDATA & Mon(i).Id & KONGDATA & Mon(i).Face & NETKONGDATA
  616.                                                 
  617.                                             End If
  618.                                         End If
  619.                                     End If
  620.                                 Next
  621.                                 Map.Map4(Mon(i).X, Mon(i).Y) = Map.Map4(Mon(i).X, Mon(i).Y) - 1
  622.                                 Mon(i).X = XX
  623.                                 Mon(i).Y = YY
  624.                                 Mon(i).Act = Move_怪移动
  625.                                 Mon(i).Pic = 0
  626.                                 Mon(i).PicSpeed = 0
  627.                                 Map.Map4(Mon(i).X, Mon(i).Y) = Map.Map4(Mon(i).X, Mon(i).Y) + 1
  628.                                 For j = 1 To playercount
  629.                                     If Abs(Mon(i).X - Player(j).X) < 17 And Abs(Mon(i).Y - Player(j).Y) < 20 Then
  630.                                         If Player(j).Connected = True Then
  631.                                             If Server(j).State = sckConnected Then
  632.                                                 Server(j).SendData MONMOVE & KONGDATA & Mon(i).Id & KONGDATA & Mon(i).X & KONGDATA & Mon(i).Y & NETKONGDATA
  633.         '                                        mSendDataMonInfo j
  634.                                             End If
  635.                                         End If
  636.                                     End If
  637.                                 Next
  638.                             End If
  639.                             
  640.                         End If
  641.                         
  642.                     End If
  643.                     For j = 1 To playercount
  644.                         If Abs(Mon(i).X - Player(j).X) < 5 And Abs(Mon(i).Y - Player(j).Y) < 5 Then
  645.                             Mon(i).追击 = True
  646.                             Mon(i).追击目标 = j
  647.                             If Mon(i).Act = Stone_怪石化 And Mon(i).Pic = 0 Then Mon(i).Pic = 1
  648.                             Exit For
  649.                         End If
  650.                     Next
  651.                 ElseIf Mon(i).追击 = True Then
  652.                     If Abs(Mon(i).X - Player(Mon(i).追击目标).X) > 10 Or Abs(Mon(i).Y - Player(Mon(i).追击目标).Y) > 10 Or Player(Mon(i).追击目标).Connected = False Or Player(Mon(i).追击目标).Act = Dead_死亡 Then
  653.                         Mon(i).追击 = False
  654.                     Else
  655.                         If GetTickCount - Mon(i).LassWalkTime > Mon(i).DBInfo.WalkWait_行走等待 And Rnd * 10 < 1 Then
  656.                             Mon(i).LassWalkTime = GetTickCount
  657.                             MonActInfo i, Mon(i).DBInfo.Race_种族, Mon(i).DBInfo.RaceImage_种族图像
  658.                             If Mon(i).Act = Stand_怪站立 Then
  659.                                 XX = Player(Mon(i).追击目标).X: YY = Player(Mon(i).追击目标).Y
  660.                                 FindPath Mon(i).X, Mon(i).Y, XX, YY, Mon(i).WayPath, Mon(i).Way, True
  661.                                 If XX < 0 Then XX = Mon(i).X
  662.                                 If YY < 0 Then YY = Mon(i).Y
  663.                                 If XX > Map.Width Then XX = Mon(i).X
  664.                                 If YY > Map.Height Then YY = Mon(i).Y
  665.                                 If Mon(i).X <> Mon(i).Way(Mon(i).WayPath).X Or Mon(i).Y <> Mon(i).Way(Mon(i).WayPath).Y Then
  666.                                     Mon(i).Face = GetMonFace(Mon(i).Way(Mon(i).WayPath).X, Mon(i).Way(Mon(i).WayPath).Y, Mon(i).X, Mon(i).Y)
  667.                                     For j = 1 To playercount
  668.                                         If Abs(Mon(i).X - Player(j).X) < 17 And Abs(Mon(i).Y - Player(j).Y) < 20 Then
  669.                                             If Player(j).Connected = True Then
  670.                                                 If Server(j).State = sckConnected Then
  671.                                                     Server(j).SendData MONFACE & KONGDATA & Mon(i).Id & KONGDATA & Mon(i).Face & NETKONGDATA
  672.                                                     
  673.                                                 End If
  674.                                             End If
  675.                                         End If
  676.                                     Next
  677.                                     Map.Map4(Mon(i).X, Mon(i).Y) = Map.Map4(Mon(i).X, Mon(i).Y) - 1
  678.                                     Mon(i).X = Mon(i).Way(Mon(i).WayPath).X
  679.                                     Mon(i).Y = Mon(i).Way(Mon(i).WayPath).Y
  680.                                     Mon(i).Act = Move_怪移动
  681.                                     Mon(i).Pic = 0
  682.                                     Mon(i).PicSpeed = 0
  683.                                     Map.Map4(Mon(i).X, Mon(i).Y) = Map.Map4(Mon(i).X, Mon(i).Y) + 1
  684.                                     For j = 1 To playercount
  685.                                         If Abs(Mon(i).X - Player(j).X) < 17 And Abs(Mon(i).Y - Player(j).Y) < 20 Then
  686.                                             If Player(j).Connected = True Then
  687.                                                 If Server(j).State = sckConnected Then
  688.                                                     Server(j).SendData MONMOVE & KONGDATA & Mon(i).Id & KONGDATA & Mon(i).X & KONGDATA & Mon(i).Y & NETKONGDATA
  689.     '                                                mSendDataMonInfo j
  690.                                                 End If
  691.                                             End If
  692.                                         End If
  693.                                     Next
  694.                                 End If
  695.                             End If
  696.                         End If
  697.                     End If
  698.                 End If
  699.             End If
  700.         End If
  701.     Next
  702.     
  703. End Sub
  705. '////////  发送数据
  706. Private Sub ServerSendData(mNum As Integer, Str As String)
  707.     If Server(mNum).State = sckConnected Then
  708.         Server(mNum).SendData Str & NETKONGDATA
  709.     End If
  711. End Sub
  713. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  714.     
  715.     Cancel = 1
  716.     Me.Hide
  717. '
  718.     
  719. End Sub
  723. Private Sub LoginServer_ConnectionRequest(Index As Integer, ByVal requestID As Long)
  724.     Dim i As Integer
  725.     Dim Work As Boolean
  726.     If LoginCount > 0 Then
  727.         For i = 1 To LoginCount
  728.             If LoginServer(i).State = 0 Then
  729.                 LoginServer(i).Accept requestID
  730.                 Work = True
  731.                 Exit For
  732.             End If
  733.         Next
  734.     End If
  735.     
  736.     If Work = False Then
  737.         LoginCount = LoginCount + 1
  738.         Load LoginServer(LoginCount)
  739.         
  740.         LoginServer(LoginCount).Accept requestID
  741.         Work = True
  742.     End If
  743. End Sub
  747. Private Sub LoginServer_DataArrival(Index As Integer, ByVal bytesTotal As Long)
  748.     Dim mData As String
  749.     LoginServer(Index).GetData mData, vbString
  750.     ExecuteNETData mData, Index
  751. End Sub
  753. Private Sub LoginServer_Error(Index As Integer, ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
  754.     LoginServer(Index).Close
  755. End Sub
  757. Private Sub Server_Close(Index As Integer)
  758.     Unload Server(Index)
  759.     Player(Index).Connected = False
  760.     Map.Map3(Player(Index).X, Player(Index).Y) = Map.Map3(Player(Index).X, Player(Index).Y) - 1
  761.     Text.Text = Text.Text & "玩家[" & Player(Index).Name_名字 & "]下线了！......" & vbCrLf
  762.     SaveHero = Player(Index)
  763.     SavePlayerInfo
  764.     Dim i As Integer
  765.     For i = 1 To playercount
  766.         If Player(i).Connected = True Then
  767. '            Server(i).SendData PLAYEREND & KONGDATA & Index & NETKONGDATA
  768.             ServerSendData i, PLAYEREND & KONGDATA & Index
  769.         End If
  770.     Next
  771.     Player(Index).Name_名字 = ""
  772. End Sub
  774. Private Sub Server_ConnectionRequest(Index As Integer, ByVal requestID As Long)
  775.     Dim i As Integer, Work As Boolean
  776.     Dim mNum As Integer
  777.     If playercount = 0 Then
  778.         playercount = playercount + 1
  779.         ReDim Preserve Player(playercount)
  780.         Load Server(playercount)
  781.         Server(playercount).Accept requestID
  782.         Server(playercount).SendData NOWPLAYERCOUNT & KONGDATA & playercount & NETKONGDATA
  783.         Server(playercount).SendData PlayerNum & KONGDATA & playercount & NETKONGDATA
  784.         Player(playercount).Connected = True
  785.         Work = True
  786.         mNum = playercount
  787.     End If
  788.     If Work = False Then
  789.         For i = 1 To playercount
  790.             If Player(i).Connected = False Then
  791.                 Player(i).Connected = True
  792.                 Load Server(i)
  793.                 Server(i).Accept requestID
  794.                 Server(i).SendData NOWPLAYERCOUNT & KONGDATA & playercount & NETKONGDATA
  795.                 Server(i).SendData PlayerNum & KONGDATA & i & NETKONGDATA
  796.                 Work = True
  797.                 mNum = i
  798.                 Exit For
  799.             End If
  800.         Next
  801.     End If
  802.     
  803.     If Work = False Then
  804.         playercount = playercount + 1
  805.         ReDim Preserve Player(playercount)
  806.         Load Server(playercount)
  807.         Server(playercount).Accept requestID
  808.         Server(playercount).SendData NOWPLAYERCOUNT & KONGDATA & playercount & NETKONGDATA
  809.         Server(playercount).SendData PlayerNum & KONGDATA & i & NETKONGDATA
  810.         Player(playercount).Connected = True
  811.         Work = True
  812.         mNum = playercount
  813.     End If
  814.     Text.Text = Text.Text & "当前在线人数:" & playercount & vbCrLf
  815.     
  816.     For i = 1 To playercount
  817.         If i <> mNum Then
  818.             If Player(i).Connected = True Then
  819.                 If Server(i).State = 7 Then Server(i).SendData NOWPLAYERCOUNT & KONGDATA & playercount & NETKONGDATA
  820.             End If
  821.         End If
  822.     Next
  823.     
  824. End Sub
  826. Private Sub ExecuteNETData(NowStr As String, Index As Integer)
  827.     Dim mData As Variant, mWord As Variant, i As Long, j As Integer, l As Integer, M As Integer
  828.     Dim MS As String, MM(3) As String, mInt(2) As Integer
  829.     Dim ShangHaiVal As Long
  830.     Dim NowExp As Long
  831.     On Error GoTo mErr
  832.     mWord = Split(NowStr, NETKONGDATA)
  833.     For i = 0 To UBound(mWord)
  834.         If Len(mWord(i)) > 4 Then
  835.             mData = Split(mWord(i), KONGDATA)
  836.             Select Case mData(0)
  837.                 Case PLAYERDUIITEM      '玩家丢物品
  838.                     Player(Index).Bag(mData(1)).State = False
  839.                 Case JIANITEMDATA       '玩家捡地图上物品
  840.                     If MapItem(mData(1)).X = mData(2) And MapItem(mData(1)).Y = mData(3) Then
  841.                         Dim JianItemOK As Boolean
  842.                         JianItemOK = False
  843.                         For j = 0 To 39
  844.                             If Player(Index).Bag(j).State = False Then
  845.                                 Player(Index).Bag(j).State = True
  846.                                 Player(Index).Bag(j).Item = MapItem(mData(1)).mItem
  847.                                 JianItemOK = True
  848.                                 Exit For
  849.                             End If
  850.                         Next
  851.                         If JianItemOK = True Then
  852.                             Server(Index).SendData GIVEITEMDATA & KONGDATA & Index & KONGDATA & Player(Index).Name_名字 & KONGDATA & ItemStr(MapItem(mData(1)).mItem) & NETKONGDATA
  853.                             If mData(1) < MapItemCount Then
  854.                                 MapItem(mData(1)) = MapItem(MapItemCount)
  855.                             End If
  856.                             MapItemCount = MapItemCount - 1
  857.                             ReDim Preserve MapItem(MapItemCount)
  858.                             
  859.                             For j = 1 To playercount
  860.                                 If Player(j).Connected = True Then
  861.                                     If Server(j).State = sckConnected Then
  862.                                         mSendDataMapItemInfo j
  863.                                     End If
  864.                                 End If
  865.                             Next
  866.                         End If
  867.                         
  868.                     End If
  869.                 Case CMDDATA        '命令
  870.                     Dim MDD As Variant
  871.                     MDD = Split(mData(1), " ")
  872.                     If UCase(MDD(0)) = "@LEVEL" Then
  873.                         If UBound(MDD) = 1 Then
  874.                             Player(Index).Level = MDD(1)
  875.                             Player(Index).MaxHP = LevelHP(Player(Index).Level)
  876.                             Player(Index).HP = Player(Index).MaxHP
  877.                             Server(Index).SendData PLAYERHP & KONGDATA & Index & KONGDATA & Player(Index).HP & KONGDATA & Player(Index).MaxHP & NETKONGDATA
  878.                             Server(Index).SendData PLAYERLEVEL & KONGDATA & Index & KONGDATA & Player(Index).Name_名字 & KONGDATA & Player(Index).Level & NETKONGDATA
  879.                             Server(Index).SendData PLAYEREXPDATA & KONGDATA & Player(Index).Exp_经验值 & KONGDATA & LevelExp(Player(Index).Level) & NETKONGDATA
  880.                         End If
  881.                     
  882.                     ElseIf UCase(MDD(0)) = "@MOB" Then
  883.                         Dim mMonCount As Long
  884.                         If UBound(MDD) >= 4 Then
  885.                             MM(0) = MDD(1)      '怪名字
  886.                             mInt(0) = MDD(3)    '怪X
  887.                             mInt(1) = MDD(4)    '怪Y
  888.                             mInt(2) = GetMonDBNum(MM(0))
  889.                             If mInt(2) > 0 Then
  890. '                                mMonCount = MonCount
  891. '                                MonCount = MonCount + MDD(2)
  892. '                                ReDim Preserve Mon(MonCount)
  893. '                                Dim H As Long
  894.                                 AddMon MM(0), mInt(0), mInt(1), Int(MDD(2))
  895. '                                For H = mMonCount To MonCount
  896. '                                    AddMon H, MM(0), mInt(0), mInt(1)
  897. '                                Next
  898.                                 For j = 1 To playercount
  899.                                     If Player(j).Connected = True Then
  900.                                         If Server(j).State = sckConnected Then
  901.                                             mSendDataMonInfo j
  902.                                         End If
  903.                                     End If
  904.                                 Next
  905.                             End If
  906.                         End If
  907.                     ElseIf UCase(MDD(0)) = "@MAKE" Then
  908.                         If UBound(MDD) >= 1 Then
  909.                             
  910.                             Dim mCount As Integer
  911.                             If UBound(MDD) >= 2 Then
  912.                                 mCount = MDD(2)
  913.                             Else
  914.                                 mCount = 1
  915.                             End If
  916.                             
  917.                             Dim mItemNum As Integer
  918.                             MM(1) = MDD(1)
  919.                             mItemNum = GetItemNum(MM(1))
  920.                             If mItemNum > 0 Then
  921.                                 Server(Index).SendData GIVEITEMDATA & KONGDATA & Index & KONGDATA & Player(Index).Name_名字 & KONGDATA & ItemStr(ItemDB(mItemNum)) & KONGDATA & mCount & NETKONGDATA
  922.                             End If
  923.                         End If
  924.                     End If
  925.                 Case REGPLAYERID        '注册ID 和角色名
  926.                     Dim IDOK As Boolean
  927.                     IDOK = True
  928.                     For j = 0 To RegPlayerCount
  929.                         If mData(1) = RegPlayer(j).Id Then
  930.                             IDOK = False
  931.                             Exit For
  932.                         End If
  933.                     Next
  934.                     
  935.                     If IDOK = True Then
  936.                         RegPlayerCount = RegPlayerCount + 1
  937.                         ReDim Preserve RegPlayer(RegPlayerCount)
  938.                         ReDim Preserve RegPlayer(RegPlayerCount).mPlayer(0)
  939.                         RegPlayer(RegPlayerCount).Id = mData(1)
  940.                         Text.Text = Text.Text & "注册ID [ " & mData(1) & " ] 成功..." & vbCrLf
  941.                     End If
  942.                     If IDOK = False Then
  943.                         LoginServer(Index).SendData REGIDSTATE & KONGDATA & 0 & KONGDATA & "ID号已被注册!" & NETKONGDATA
  944.                     Else
  945.                         LoginServer(Index).SendData REGIDSTATE & KONGDATA & 1 & KONGDATA & "恭喜你注册成功!" & NETKONGDATA
  946.                     End If
  947.                 Case SELHERONUM
  948.                     For j = 0 To RegPlayerCount
  949.                         If RegPlayer(j).Id = mData(1) Then
  950.                             RegPlayer(j).SelNum = mData(2)
  951.                             If RegPlayer(j).SelNum = 0 Then RegPlayer(j).SelNum = 1
  952.                             LoginServer(Index).SendData SELHERONUM & KONGDATA & mData(1) & KONGDATA & RegPlayer(j).SelNum & NETKONGDATA
  953.                             Exit For
  954.                         End If
  955.                     Next
  956.                 Case LOGINID        '登陆ID
  957.                     Dim Work As Boolean
  958.                     For j = 1 To RegPlayerCount
  959.                         If mData(1) = RegPlayer(j).Id Then
  960.                             Work = True
  961.                             
  962.                             
  963.                             If RegPlayer(j).SavePlayerCount > 0 Then
  964.                                 For l = 1 To RegPlayer(j).SavePlayerCount
  965.                                     LoginServer(Index).SendData SAVEHERODATA & KONGDATA & l & KONGDATA & RegPlayer(j).mPlayer(l).PlayerName & KONGDATA & RegPlayer(j).mPlayer(l).Level & KONGDATA & RegPlayer(j).mPlayer(l).Job & KONGDATA & RegPlayer(j).mPlayer(l).Sex & NETKONGDATA
  966.                                 Next
  967.                                 If RegPlayer(j).SelNum = 0 Then RegPlayer(j).SelNum = 1
  968.                                 LoginServer(Index).SendData SELHERONUM & KONGDATA & RegPlayer(j).Id & KONGDATA & RegPlayer(j).SelNum & NETKONGDATA
  969.                             
  970.                                 
  971.                                 Exit For
  972.                             End If
  973.                         End If
  974.                     Next
  975.                     If Work = False Then
  976.                         LoginServer(Index).SendData LOGINSTATE & KONGDATA & 0 & NETKONGDATA
  977.                     Else
  978.                         LoginServer(Index).SendData LOGINSTATE & KONGDATA & 1 & NETKONGDATA
  979.                     End If
  980.                 Case REGHERONAME            '建立角色
  981.                     Work = False
  982.                     For j = 0 To RegPlayerCount
  983.                         If RegPlayer(j).SavePlayerCount > 0 Then
  984.                             For l = 1 To RegPlayer(j).SavePlayerCount
  985.                                 If RegPlayer(j).mPlayer(l).PlayerName = mData(2) Then
  986.                                     Work = True
  987.                                     Exit For
  988.                                 End If
  989.                             Next
  990.                         End If
  991.                      Next
  992.                      
  993.                      If Work = False Then
  994.                         For j = 0 To RegPlayerCount
  995.                             If RegPlayer(j).Id = mData(1) Then
  996.                                 RegPlayer(j).SavePlayerCount = RegPlayer(j).SavePlayerCount + 1
  997.                                 ReDim Preserve RegPlayer(j).mPlayer(RegPlayer(j).SavePlayerCount)
  998.                                 RegPlayer(j).mPlayer(RegPlayer(j).SavePlayerCount).PlayerName = mData(2)
  999.                                 RegPlayer(j).mPlayer(RegPlayer(j).SavePlayerCount).Job = mData(3)
  1000.                                 RegPlayer(j).mPlayer(RegPlayer(j).SavePlayerCount).Sex = mData(4)
  1001.                                 LoginServer(Index).SendData SAVEHERODATA & KONGDATA & RegPlayer(j).SavePlayerCount & KONGDATA & RegPlayer(j).mPlayer(RegPlayer(j).SavePlayerCount).PlayerName & KONGDATA & RegPlayer(j).mPlayer(RegPlayer(j).SavePlayerCount).Level & KONGDATA & RegPlayer(j).mPlayer(RegPlayer(j).SavePlayerCount).Job & KONGDATA & RegPlayer(j).mPlayer(RegPlayer(j).SavePlayerCount).Sex & NETKONGDATA
  1002.                                 If RegPlayer(j).SelNum = 0 Then RegPlayer(j).SelNum = 1
  1003.                                 LoginServer(Index).SendData SELHERONUM & KONGDATA & RegPlayer(j).Id & KONGDATA & RegPlayer(j).SelNum & NETKONGDATA
  1004.                                 Exit For
  1005.                             End If
  1006.                         Next
  1007.                     ElseIf Work = True Then
  1008.                         LoginServer(Index).SendData TISHIDATA & KONGDATA & "该角色名已被注册！" & NETKONGDATA
  1009.                     End If
  1010.                     
  1011.                 Case LOGINNAME      '登陆名字
  1012.                     MM(1) = mData(1)
  1013.                     MM(2) = mData(2)
  1014.                     MM(3) = mData(3)
  1015.                     If Dir(App.Path & "SavePlayerSave" & MM(1) & ".DB") = "" Then
  1016.                         SaveHero.Name_名字 = MM(1)
  1017.                         SaveHero.Job_职业 = MM(2)
  1018.                         SaveHero.Sex_性别 = MM(3)
  1019.                         SaveHero.X = 50
  1020.                         SaveHero.Y = 50
  1021.                         SaveHero.Level = 1
  1022.                         SaveHero.HP = LevelHP(SaveHero.Level)
  1023.                         SaveHero.MaxHP = LevelHP(SaveHero.Level)
  1024.                         
  1025.                         SaveHero.Exp_经验值 = 0
  1026.                         SaveHero.Clothing.State = True
  1027.                         SaveHero.Clothing.Item = ItemDB(GetItemNum("布衣(男)"))
  1028.                         SaveHero.Weapon.State = True
  1029.                         SaveHero.Weapon.Item = ItemDB(GetItemNum("炼狱"))
  1030.                         SaveHero.FingerRingLeft.State = True
  1031.                         SaveHero.FingerRingLeft.Item = ItemDB(GetItemNum("圣战戒指"))
  1032.                         SaveHero.FingerRingRight.State = True
  1033.                         SaveHero.FingerRingRight.Item = ItemDB(GetItemNum("圣战戒指"))
  1034.                         SaveHero.BraceletLeft.State = True
  1035.                         SaveHero.BraceletLeft.Item = ItemDB(GetItemNum("圣战手镯"))
  1036.                         SaveHero.BraceletRight.State = True
  1037.                         SaveHero.BraceletRight.Item = ItemDB(GetItemNum("圣战手镯"))
  1038.                         SaveHero.HeadPiece.State = True
  1039.                         SaveHero.HeadPiece.Item = ItemDB(GetItemNum("圣战头盔"))
  1040.                         SaveHero.Necklace.State = True
  1041.                         SaveHero.Necklace.Item = ItemDB(GetItemNum("圣战项链"))
  1042.                         SavePlayerInfo
  1043.                     End If
  1044.                     
  1045.                     '///////////  检测角色名是否已经登陆
  1046.                     Dim LoginNameOK As Boolean
  1047.                     LoginNameOK = True
  1048.                     For j = 1 To playercount
  1049.                         If Player(j).Connected = True Then
  1050.                             If Player(j).Name_名字 = MM(1) Then
  1051.                                 Server(j).Close
  1052.                                 Unload Server(j)
  1053.                                 Player(j).Name_名字 = ""
  1054.                                 LoginNameOK = False
  1055.                                 Exit For
  1056.                             End If
  1057.                         End If
  1058.                     Next
  1059.                     ' Download by http://www.codefans.net
  1060.                     '//////////////////////////////////////////////////////////////////////////
  1061.                     If LoginNameOK = False Then
  1062.                         Server(Index).SendData TISHIDATA & KONGDATA & "该角色名已登陆" & NETKONGDATA
  1063.                         mSleep 200
  1064.                         Server_Close (Index)
  1065.                     
  1066.                     ElseIf LoginNameOK = True Then
  1067.                             
  1068.                         LoadPlayer Index, MM(1)
  1069.                         Map.Map3(Player(Index).X, Player(Index).Y) = Map.Map3(Player(Index).X, Player(Index).Y) + 1
  1070.                         Text.Text = Text.Text & "玩家[" & Player(Index).Name_名字 & "]上线了[" & Server(Index).RemoteHostIP & "] ..." & vbCrLf
  1071.                         Player(Index).LoginTime = Time
  1072.     '                ////////////////////////   发送主角信息  ///////////////////////////////////////////////////////////////////////////////
  1073.                          Server(Index).SendData PlayerName & KONGDATA & Index & KONGDATA & Player(Index).Name_名字 & NETKONGDATA
  1074.                          mSleep 100
  1075.                          Server(Index).SendData PLAYERLEVEL & KONGDATA & Index & KONGDATA & Player(Index).Name_名字 & KONGDATA & Player(Index).Level & NETKONGDATA
  1076.                          mSleep 100
  1077.                          Server(Index).SendData PLAYERXY & KONGDATA & Index & KONGDATA & Player(Index).X & KONGDATA & Player(Index).Y & NETKONGDATA
  1078.                          Server(Index).SendData PLAYERFACEDATA & KONGDATA & Index & KONGDATA & Player(Index).Face & NETKONGDATA
  1079.                          If Player(Index).HP <= 0 Then
  1080.                             Player(Index).HP = LevelHP(Player(Index).Level)
  1081.                             Player(Index).X = 50
  1082.                             Player(Index).Y = 50
  1083.                         End If
  1084.                          Server(Index).SendData PLAYERHP & KONGDATA & Index & KONGDATA & Player(Index).HP & KONGDATA & Player(Index).MaxHP & NETKONGDATA
  1085.                         Server(Index).SendData PLAYERSEX & KONGDATA & Index & KONGDATA & Player(Index).Sex_性别 & NETKONGDATA
  1086.                         Server(Index).SendData PLAYEREXPDATA & KONGDATA & Player(Index).Exp_经验值 & KONGDATA & LevelExp(Player(Index).Level) & NETKONGDATA
  1087.                          
  1088.                          If Player(Index).Clothing.State = True Then
  1089.                              Server(Index).SendData CLOTHINGDATA & KONGDATA & Index & KONGDATA & 1 & KONGDATA & ItemStr(Player(Index).Clothing.Item) & NETKONGDATA
  1090.                          End If
  1091.                          If Player(Index).Weapon.State = True Then
  1092.                              Server(Index).SendData WEAPONDATA & KONGDATA & Index & KONGDATA & 1 & KONGDATA & ItemStr(Player(Index).Weapon.Item) & NETKONGDATA
  1093.                          End If
  1094.                          If Player(Index).HeadPiece.State = True Then
  1095.                              Server(Index).SendData HEADPIECEDATA & KONGDATA & Index & KONGDATA & 1 & KONGDATA & ItemStr(Player(Index).HeadPiece.Item) & NETKONGDATA
  1096.                          End If
  1097.                          If Player(Index).Necklace.State = True Then
  1098.                              Server(Index).SendData NECKLACEDATA & KONGDATA & Index & KONGDATA & 1 & KONGDATA & ItemStr(Player(Index).Necklace.Item) & NETKONGDATA
  1099.                          End If
  1100.                          If Player(Index).BraceletLeft.State = True Then
  1101.                              Server(Index).SendData BRACELETLEFTDATA & KONGDATA & Index & KONGDATA & 1 & KONGDATA & ItemStr(Player(Index).BraceletLeft.Item) & NETKONGDATA
  1102.                          End If
  1103.                          If Player(Index).BraceletRight.State = True Then
  1104.                              Server(Index).SendData BRACELETRIGHTDATA & KONGDATA & Index & KONGDATA & 1 & KONGDATA & ItemStr(Player(Index).BraceletRight.Item) & NETKONGDATA
  1105.                          End If
  1106.                          If Player(Index).FingerRingLeft.State = True Then
  1107.                              Server(Index).SendData FINGERRINGLEFTDATA & KONGDATA & Index & KONGDATA & 1 & KONGDATA & ItemStr(Player(Index).FingerRingLeft.Item) & NETKONGDATA
  1108.                          End If
  1109.                          If Player(Index).FingerRingRight.State = True Then
  1110.                              Server(Index).SendData FINGERRINGRIGHTDATA & KONGDATA & Index & KONGDATA & 1 & KONGDATA & ItemStr(Player(Index).FingerRingRight.Item) & NETKONGDATA
  1111.                          End If
  1112.                          
  1113.                          '///////////////////////////////////   发送主角信息结束    //////////////////////////////////////////////////////////////////
  1114.                          
  1115.                          mSleep 300
  1116.                          For j = 1 To playercount
  1117.                              If j <> Index Then
  1118.                                  If Player(j).Connected = True Then
  1119.                                      Server(Index).SendData PlayerName & KONGDATA & j & KONGDATA & Player(j).Name_名字 & NETKONGDATA
  1120.                                      mSleep 100
  1121.                                      Server(Index).SendData PLAYERXY & KONGDATA & j & KONGDATA & Player(j).X & KONGDATA & Player(j).Y & NETKONGDATA
  1122.                                      Server(Index).SendData PLAYERFACEDATA & KONGDATA & j & KONGDATA & Player(j).Face & NETKONGDATA
  1123.                                      Server(Index).SendData PLAYERSEX & KONGDATA & j & KONGDATA & Player(j).Sex_性别 & NETKONGDATA
  1124.                                      Server(Index).SendData PLAYERHP & KONGDATA & j & KONGDATA & Player(j).HP & KONGDATA & Player(j).MaxHP & NETKONGDATA
  1125.                                      
  1126.                                      
  1127.                                      If Player(j).HP = 0 Then
  1128.                                          Server(Index).SendData PLAYERACTDATA & KONGDATA & j & KONGDATA & HeroActType.Dead_死亡 & KONGDATA & 3 & NETKONGDATA
  1129.                                      End If
  1130.                                      
  1131.                                      If Player(j).Clothing.State = True Then
  1132.                                          Server(Index).SendData CLOTHINGDATA & KONGDATA & j & KONGDATA & 1 & KONGDATA & ItemStr(Player(j).Clothing.Item) & NETKONGDATA
  1133.                                      End If
  1134.                                      If Player(j).Weapon.State = True Then
  1135.                                          Server(Index).SendData WEAPONDATA & KONGDATA & j & KONGDATA & 1 & KONGDATA & ItemStr(Player(j).Weapon.Item) & NETKONGDATA
  1136.                                      End If
  1137.                                      If Player(j).HeadPiece.State = True Then
  1138.                                          Server(Index).SendData HEADPIECEDATA & KONGDATA & j & KONGDATA & 1 & KONGDATA & ItemStr(Player(j).HeadPiece.Item) & NETKONGDATA
  1139.                                      End If
  1140.                                      If Player(j).Necklace.State = True Then
  1141.                                          Server(Index).SendData NECKLACEDATA & KONGDATA & j & KONGDATA & 1 & KONGDATA & ItemStr(Player(j).Necklace.Item) & NETKONGDATA
  1142.                                      End If
  1143.                                      If Player(j).BraceletLeft.State = True Then
  1144.                                          Server(Index).SendData BRACELETLEFTDATA & KONGDATA & j & KONGDATA & 1 & KONGDATA & ItemStr(Player(j).BraceletLeft.Item) & NETKONGDATA
  1145.                                      End If
  1146.                                      If Player(j).BraceletRight.State = True Then
  1147.                                          Server(Index).SendData BRACELETRIGHTDATA & KONGDATA & j & KONGDATA & 1 & KONGDATA & ItemStr(Player(j).BraceletRight.Item) & NETKONGDATA
  1148.                                      End If
  1149.                                      If Player(j).FingerRingLeft.State = True Then
  1150.                                          Server(Index).SendData FINGERRINGLEFTDATA & KONGDATA & j & KONGDATA & 1 & KONGDATA & ItemStr(Player(j).FingerRingLeft.Item) & NETKONGDATA
  1151.                                      End If
  1152.                                      If Player(j).FingerRingRight.State = True Then
  1153.                                          Server(Index).SendData FINGERRINGRIGHTDATA & KONGDATA & j & KONGDATA & 1 & KONGDATA & ItemStr(Player(j).FingerRingRight.Item) & NETKONGDATA
  1154.                                      End If
  1155.                                  End If
  1156.                                  
  1157.                              End If
  1158.                          Next
  1159.                          
  1160.                          Server(Index).SendData MAPNPCCOUNTINFO & KONGDATA & NpcCount & NETKONGDATA
  1161.                          
  1162.                          For j = 1 To UBound(NPCInfo)
  1163.                              Server(Index).SendData MAPNPCINFO & KONGDATA & j & KONGDATA & NPCInfo(j).X & KONGDATA & NPCInfo(j).Y & KONGDATA & NPCInfo(j).Name_名称 & KONGDATA & NPCInfo(j).Image & NETKONGDATA
  1164.                          Next
  1165.                          
  1166.                          
  1167.                          For j = 1 To playercount
  1168.                             If Player(j).Connected = True Then
  1169.                                 If Server(j).State = 7 Then
  1170.                                     Server(j).SendData PlayerName & KONGDATA & Index & KONGDATA & Player(Index).Name_名字 & NETKONGDATA
  1171.                                     mSleep 100
  1172.                                     Server(j).SendData PLAYERXY & KONGDATA & Index & KONGDATA & Player(Index).X & KONGDATA & Player(Index).Y & NETKONGDATA
  1173.                                     Server(j).SendData PLAYERFACEDATA & KONGDATA & Index & KONGDATA & Player(Index).Face & NETKONGDATA
  1174.                                     Server(j).SendData PLAYERHP & KONGDATA & Index & KONGDATA & Player(Index).HP & KONGDATA & Player(Index).MaxHP & NETKONGDATA
  1175.                                     
  1176.                                     If Player(Index).HP = 0 Then
  1177.                                         Server(j).SendData PLAYERACTDATA & KONGDATA & Index & KONGDATA & HeroActType.Dead_死亡 & KONGDATA & 3 & NETKONGDATA
  1178.                                     End If
  1179.                                     
  1180.                                     If Player(Index).Clothing.State = True Then
  1181.                                         Server(j).SendData CLOTHINGDATA & KONGDATA & Index & KONGDATA & 1 & KONGDATA & ItemStr(Player(Index).Clothing.Item) & NETKONGDATA
  1182.                                     End If
  1183.                                     If Player(Index).Weapon.State = True Then
  1184.                                         Server(j).SendData WEAPONDATA & KONGDATA & Index & KONGDATA & 1 & KONGDATA & ItemStr(Player(Index).Weapon.Item) & NETKONGDATA
  1185.                                     End If
  1186. '                                    If Player(Index).HeadPiece.State = True Then
  1187. '                                        Server(j).SendData HEADPIECEDATA & KONGDATA & Index & KONGDATA & 1 & KONGDATA & ItemStr(Player(Index).HeadPiece.Item) & NETKONGDATA
  1188. '                                    End If
  1189. '                                    If Player(Index).Necklace.State = True Then
  1190. '                                        Server(j).SendData NECKLACEDATA & KONGDATA & Index & KONGDATA & 1 & KONGDATA & ItemStr(Player(Index).Necklace.Item) & NETKONGDATA
  1191. '                                    End If
  1192. '                                    If Player(Index).BraceletLeft.State = True Then
  1193. '                                        Server(j).SendData BRACELETLEFTDATA & KONGDATA & Index & KONGDATA & 1 & KONGDATA & ItemStr(Player(Index).BraceletLeft.Item) & NETKONGDATA
  1194. '                                    End If
  1195. '                                    If Player(Index).BraceletRight.State = True Then
  1196. '                                        Server(j).SendData BRACELETRIGHTDATA & KONGDATA & Index & KONGDATA & 1 & KONGDATA & ItemStr(Player(Index).BraceletRight.Item) & NETKONGDATA
  1197. '                                    End If
  1198. '                                    If Player(Index).FingerRingLeft.State = True Then
  1199. '                                        Server(j).SendData FINGERRINGLEFTDATA & KONGDATA & Index & KONGDATA & 1 & KONGDATA & ItemStr(Player(Index).FingerRingLeft.Item) & NETKONGDATA
  1200. '                                    End If
  1201. '                                    If Player(Index).FingerRingRight.State = True Then
  1202. '                                        Server(j).SendData FINGERRINGRIGHTDATA & KONGDATA & Index & KONGDATA & 1 & KONGDATA & ItemStr(Player(Index).FingerRingRight.Item) & NETKONGDATA
  1203. '                                    End If
  1204.                                     
  1205.                                 End If
  1206.                             End If
  1207.                          Next
  1208.                     End If
  1209.                     mSendDataMonInfo Index
  1210.                     mSendDataMapItemInfo Index
  1211.                     mSleep 300
  1212.                     mSendDataBagItemInfo Index
  1213.                 Case SCRIPTFUNNAMEINFO          '脚本函数名
  1214.                     MM(1) = mData(3)
  1215.                     mInt(1) = mData(2)
  1216.                     mInt(2) = GetFunNum(1, "@main")
  1217.                     MM(0) = ActScript(mData(1), mData(2), NPCInfo(mData(2)).Script(GetFunNum(mInt(1), MM(1))).ScriptStr)
  1218.                     If Len(MM(0)) > 0 Then
  1219.                         If Player(mData(1)).Connected = True Then
  1220.                             Server(mData(1)).SendData SCRIPTDATAINFO & KONGDATA & mData(2) & KONGDATA & MM(0) & NETKONGDATA
  1221.                         End If
  1222.                     End If
  1223.                 Case TALKINFO       '聊天信息
  1224.                     For j = 1 To playercount
  1225.                         If Player(j).Connected = True Then
  1226.                             Server(j).SendData mWord(i) & NETKONGDATA
  1227.                         End If
  1228.                     Next
  1229.                 Case SILIAOINFO
  1230.                     If Player(mData(3)).Name_名字 = mData(4) And Player(mData(3)).Connected = True Then
  1231.                         Server(mData(1)).SendData TALKINFO & KONGDATA & mData(3) & KONGDATA & mData(4) & KONGDATA & "/" & mData(4) & "  " & mData(5) & KONGDATA & D3DColorRGBA(0, 0, 255, 255) & KONGDATA & 1 & NETKONGDATA
  1232.                         Server(mData(3)).SendData TALKINFO & KONGDATA & mData(3) & KONGDATA & mData(2) & KONGDATA & mData(2) & "→" & mData(5) & KONGDATA & D3DColorRGBA(0, 0, 255, 255) & KONGDATA & 1 & NETKONGDATA
  1233.                         
  1234.                     Else
  1235.                         Server(mData(1)).SendData TALKINFO & KONGDATA & mData(3) & KONGDATA & mData(4) & KONGDATA & mData(4) & "  不在线" & KONGDATA & D3DColorRGBA(255, 0, 0, 255) & KONGDATA & 1 & NETKONGDATA
  1236.                     End If
  1237.                             
  1238.                 Case PLAYERFUHUO        '复活
  1239.                     Player(mData(1)).HP = Player(mData(1)).MaxHP
  1240.                     For j = 1 To playercount
  1241.                         If Player(j).Connected = True Then
  1242.                             Server(j).SendData mWord(i) & NETKONGDATA
  1243.                         End If
  1244.                     Next
  1245.                 Case PLAYERATTACKINFO
  1246.                     Dim AA As Integer, SS As String
  1247.                     AA = mData(1)
  1248.                     SS = mData(2)
  1249.                     GetPlayerInfo AA, SS
  1250.                 Case MONSHANGHAI        '玩家对怪伤害
  1251.                     If Mon(mData(1)).Act <> Dead_怪死亡 Then
  1252.                         If mData(3) = 0 Then
  1253.                             ShangHaiVal = mData(2) - (Rnd * Mon(mData(1)).DBInfo.AC)
  1254.                         ElseIf mData(3) = 1 Then
  1255.                             ShangHaiVal = mData(2) - (Rnd * Mon(mData(1)).DBInfo.MAC)
  1256.                         End If
  1257.                         If ShangHaiVal > 0 Then
  1258.                             Mon(mData(1)).HP = Mon(mData(1)).HP - ShangHaiVal
  1259.                             
  1260.                             If Mon(mData(1)).HP < 0 Then Mon(mData(1)).HP = 0
  1261.                             If Mon(mData(1)).HP > 0 Then
  1262.                                 Mon(mData(1)).追击 = True
  1263.                                 Mon(mData(1)).追击目标 = Index
  1264.                                 If Mon(mData(1)).Act <> AttAck_怪攻击 Or Mon(mData(1)).Act <> Bruise_怪受伤 Then
  1265.                                     Mon(mData(1)).Act = Bruise_怪受伤
  1266.                                     Mon(mData(1)).Pic = 0
  1267.                                     Mon(mData(1)).PicSpeed = 0
  1268.                                 End If
  1269.                             ElseIf Mon(mData(1)).HP = 0 Then
  1270.                                 Mon(mData(1)).DeadLTime = GetTickCount
  1271.                                 Mon(mData(1)).Act = Dead_怪死亡
  1272.                                 Mon(mData(1)).Pic = 0
  1273.                                 Mon(mData(1)).PicSpeed = 0
  1274.                                 Dim mMonItemName() As String, mMonItemCount As Integer, FDD As Integer
  1275.                                 For j = 1 To MonItemsFile
  1276.                                     If Mon(mData(1)).DBInfo.Name_名称 = MonItems(j).MonName Then
  1277.                                         If MonItems(j).mItemCount > 0 Then
  1278.                                             For l = 1 To MonItems(j).mItemCount
  1279.                                                 FDD = Rnd * MonItems(j).mItem(l).BaoLi
  1280. '                                           怪暴东东
  1281.                                                 If FDD < 1 Then
  1282.                                                     mMonItemCount = mMonItemCount + 1
  1283.                                                     ReDim Preserve mMonItemName(mMonItemCount)
  1284.                                                     mMonItemName(mMonItemCount) = MonItems(j).mItem(l).ItemName
  1285.                                                 End If
  1286.                                             Next
  1287.                                         End If
  1288.                                     End If
  1289.                                 Next
  1290.                                 If mMonItemCount > 0 Then
  1291.                                     ItemsXY mMonItemName(), mMonItemCount, Mon(mData(1)).X, Mon(mData(1)).Y
  1292.                                 End If
  1293.                                 NowExp = Mon(mData(1)).DBInfo.Exp_经验值 * mExp
  1294.                                 Player(Index).Exp_经验值 = Player(Index).Exp_经验值 + NowExp
  1295.                                 Server(Index).SendData PLAYERGETEXP & KONGDATA & NowExp & NETKONGDATA
  1296.                                 If Player(Index).Exp_经验值 > LevelExp(Player(Index).Level) Then
  1297.                                     Player(Index).Level = Player(Index).Level + 1
  1298.                                     Player(Index).MaxHP = LevelHP(Player(Index).Level)
  1299.                                     Player(Index).HP = Player(Index).MaxHP
  1300.                                     Server(Index).SendData PLAYERHP & KONGDATA & Index & KONGDATA & Player(Index).HP & KONGDATA & Player(Index).MaxHP & NETKONGDATA
  1301.                                     Server(Index).SendData PLAYERLEVEL & KONGDATA & Index & KONGDATA & Player(Index).Name_名字 & KONGDATA & Player(Index).Level & NETKONGDATA
  1302.                                     Server(Index).SendData PLAYEREXPDATA & KONGDATA & Player(Index).Exp_经验值 & KONGDATA & LevelExp(Player(Index).Level) & NETKONGDATA
  1303.                                 End If
  1304.                                 
  1305.                             End If
  1306.                             For j = 1 To playercount
  1307.                                 If Abs(Mon(mData(1)).X - Player(j).X) < 17 And Abs(Mon(mData(1)).Y - Player(j).Y) < 20 Then
  1308.                                     
  1309.                                     If Player(j).Connected = True Then
  1310.                                         If Server(j).State = sckConnected Then
  1311.                                             Server(j).SendData MONHP & KONGDATA & mData(1) & KONGDATA & Mon(mData(1)).HP & KONGDATA & Mon(mData(1)).MaxHP & NETKONGDATA
  1312.                                             Server(j).SendData MONACTDATA & KONGDATA & mData(1) & KONGDATA & Mon(mData(1)).Act & KONGDATA & Mon(mData(1)).Face & NETKONGDATA
  1313.                                             If mMonItemCount > 0 Then
  1314.                                                 mSendDataMapItemInfo j
  1315.                                             End If
  1316.                                         End If
  1317.                                     End If
  1318.                                 End If
  1319.                             Next
  1320.                         End If
  1321.                     End If
  1322.                 Case SHANGHAIDATA   '玩家伤害
  1323.                     
  1324.                     If mData(3) = 0 Then
  1325.                         ShangHaiVal = mData(2) - (Rnd * Abs(Player(mData(1)).AC1 - Player(mData(1)).Ac2) + IIf(Player(mData(1)).AC1 < Player(mData(1)).Ac2, Player(mData(1)).AC1, Player(mData(1)).Ac2))
  1326.                     ElseIf mData(3) = 1 Then
  1327.                         ShangHaiVal = mData(2) - (Rnd * Abs(Player(mData(1)).MAC1 - Player(mData(1)).Mac2) + IIf(Player(mData(1)).MAC1 < Player(mData(1)).Mac2, Player(mData(1)).MAC1, Player(mData(1)).Mac2))
  1328.                     End If
  1329.                     If ShangHaiVal > 0 Then
  1330.                         Player(mData(1)).HP = Player(mData(1)).HP - ShangHaiVal
  1331.                         If Player(mData(1)).HP < 0 Then Player(mData(1)).HP = 0
  1332.                         For j = 1 To playercount
  1333.                             If Player(j).Connected = True Then
  1334.                                 Server(j).SendData PLAYERHP & KONGDATA & mData(1) & KONGDATA & Player(mData(1)).HP & KONGDATA & Player(mData(1)).MaxHP & NETKONGDATA
  1335.                                 If Player(mData(1)).HP > 0 Then
  1336.                                     Server(j).SendData PLAYERACTDATA & KONGDATA & mData(1) & KONGDATA & HeroActType.Bruise_受伤 & KONGDATA & 0 & NETKONGDATA
  1337.                                 Else
  1338.                                     Server(j).SendData PLAYERACTDATA & KONGDATA & mData(1) & KONGDATA & HeroActType.Dead_死亡 & KONGDATA & 0 & NETKONGDATA
  1339.                                 End If
  1340.                             End If
  1341.                         Next
  1342.                     End If
  1343.                 Case PLAYERHP       '玩家HP
  1344.                     Player(mData(1)).HP = mData(2)
  1345.                     Player(mData(1)).MaxHP = mData(3)
  1346.                     
  1347.                     For j = 1 To playercount
  1348.                         If Player(j).Connected = True Then
  1349.                             Server(j).SendData mWord(i) & NETKONGDATA
  1350.                         End If
  1351.                     Next
  1352.                 Case PLAYERJIAOYIITEM       '交易物品
  1353.                     Server(mData(1)).SendData mWord(i) & NETKONGDATA
  1354.                 Case PLAYERJIAOYIEND        '交易取消
  1355.                     Server(mData(2)).SendData mWord(i) & NETKONGDATA
  1356.                 Case PLAYERJIAOYIOK         '交易确认
  1357.                     Server(mData(2)).SendData PLAYERJIAOYIOK & KONGDATA & mData(1) & NETKONGDATA
  1358.                 Case PLAYERJIAOYI           '交易
  1359.                     If Player(mData(2)).Connected And Player(mData(2)).HP > 0 Then
  1360.                         Server(mData(2)).SendData PLAYERJIAOYI & KONGDATA & mData(1) & NETKONGDATA
  1361.                         Server(mData(1)).SendData PLAYERJIAOYI & KONGDATA & mData(2) & NETKONGDATA
  1362.                     End If
  1363.                 Case PLAYERMP       '玩家MP
  1364.                     Player(mData(1)).MP = mData(2)
  1365.                     Player(mData(1)).MaxMP = mData(3)
  1366.                 Case PlayerName     '玩家名
  1367.                     Player(mData(1)).Name_名字 = mData(2)
  1368.                     Text.Text = Text.Text & "玩家[" & Player(mData(1)).Name_名字 & "]上线了！......" & vbCrLf
  1369.                     For j = 1 To playercount
  1370.                         If Player(j).Connected = True Then
  1371.                             Server(j).SendData mWord(i) & NETKONGDATA
  1372.                         End If
  1373.                     Next
  1374.                 Case PLAYERXY       '玩家XY
  1375.                     Player(mData(1)).X = mData(2)
  1376.                     Player(mData(1)).Y = mData(3)
  1377.                     Player(mData(1)).Act = Stand_站立
  1378.                     Player(mData(1)).ActState = Stand_站立
  1379.                     For j = 1 To playercount
  1380.                         If Player(j).Connected = True Then
  1381.                             If j <> mData(1) Then Server(j).SendData mWord(i) & NETKONGDATA
  1382.                         End If
  1383.                     Next
  1384.                 Case PLAYERATTACKDATA
  1385.                     For j = 1 To playercount
  1386. '                        ServerSendData j, Str(mWord(i))
  1387.                         If Player(j).Connected = True Then
  1388.                             If Server(j).State = sckConnected Then
  1389.                                 Server(j).SendData mWord(i) & NETKONGDATA
  1390.                             End If
  1391.                         End If
  1392.                     Next
  1393.                 Case WALKDATA       '玩家走
  1394.                     Map.Map3(Player(mData(1)).X, Player(mData(1)).Y) = Map.Map3(Player(mData(1)).X, Player(mData(1)).Y) - 1
  1395.                     Player(mData(1)).Act = walk_走
  1396.                     Player(mData(1)).Pic = 0
  1397.                     Player(mData(1)).PicSpeed = 0
  1398.                     Player(mData(1)).X = mData(2)
  1399.                     Player(mData(1)).Y = mData(3)
  1400.                     Player(mData(1)).CanAct = False
  1401.                     For j = 1 To playercount
  1402.                         If Player(j).Connected = True Then
  1403.                             Server(j).SendData mWord(i) & NETKONGDATA
  1404.                         End If
  1405.                     Next
  1406.                     Map.Map3(Player(mData(1)).X, Player(mData(1)).Y) = Map.Map3(Player(mData(1)).X, Player(mData(1)).Y) + 1
  1407.                     mSendDataMonInfo Index
  1408.                     mSendDataMapItemInfo Index
  1409.                 Case RUNDATA        '玩家跑
  1410.                     Map.Map3(Player(mData(1)).X, Player(mData(1)).Y) = Map.Map3(Player(mData(1)).X, Player(mData(1)).Y) - 1
  1411.                     Player(mData(1)).Act = Run_跑
  1412.                     Player(mData(1)).Pic = 0
  1413.                     Player(mData(1)).PicSpeed = 0
  1414.                     Player(mData(1)).X = mData(2)
  1415.                     Player(mData(1)).Y = mData(3)
  1416.                     Player(mData(1)).CanAct = False
  1417.                     For j = 1 To playercount
  1418.                         If Player(j).Connected = True Then
  1419.                             Server(j).SendData mWord(i) & NETKONGDATA
  1420.                         End If
  1421.                     Next
  1422.                     Map.Map3(Player(mData(1)).X, Player(mData(1)).Y) = Map.Map3(Player(mData(1)).X, Player(mData(1)).Y) + 1
  1423.                     mSendDataMonInfo Index
  1424.                     mSendDataMapItemInfo Index
  1425.                 Case PLAYERFACEDATA     '玩家方向
  1426.                     Player(Val(mData(1))).Face = mData(2)
  1427.                     For j = 1 To playercount
  1428.                         If Player(j).Connected = True Then
  1429.                             Server(j).SendData mWord(i) & NETKONGDATA
  1430.                             
  1431.                         End If
  1432.                     Next
  1433.                 Case PLAYERMAGICDATA    '施放魔法
  1434.                     If mData(4) = "治愈术" Then
  1435.                         If Player(Index).HP < Player(Index).MaxHP Then
  1436.                             Player(Index).HP = Player(Index).HP + 10
  1437.                             If Player(Index).HP > Player(Index).MaxHP Then
  1438.                                 Player(Index).HP = Player(Index).MaxHP
  1439.                             End If
  1440.                             Server(Index).SendData PLAYERHP & KONGDATA & Index & KONGDATA & Player(Index).HP & KONGDATA & Player(Index).MaxHP & NETKONGDATA
  1441.                         End If
  1442.                     End If
  1443.                     For j = 1 To playercount
  1444.                         If Player(j).Connected = True Then
  1445.                             Server(j).SendData mWord(i) & NETKONGDATA
  1446.                         End If
  1447.                     Next
  1448.                 Case CLOTHINGDATA       '衣服
  1449.                     Player(mData(1)).Clothing.State = mData(2)
  1450.                     MS = mData(3)
  1451.                     If mData(2) <> 0 Then Player(mData(1)).Clothing.Item = GetItem(MS)
  1452.                     For j = 1 To playercount
  1453.                         If Player(j).Connected = True Then
  1454.                             Server(j).SendData mWord(i) & NETKONGDATA
  1455.                         End If
  1456.                     Next
  1457.                 Case WEAPONDATA         '武器
  1458.                     Player(mData(1)).Weapon.State = mData(2)
  1459.                     MS = mData(3)
  1460.                     If mData(2) <> 0 Then Player(mData(1)).Weapon.Item = GetItem(MS)
  1461.                     For j = 1 To playercount
  1462.                         If Player(j).Connected = True Then
  1463.                             Server(j).SendData mWord(i) & NETKONGDATA
  1464.                         End If
  1465.                     Next
  1466.                 Case HEADPIECEDATA         '头盔
  1467.                     Player(mData(1)).HeadPiece.State = mData(2)
  1468.                     MS = mData(3)
  1469.                     If mData(2) <> 0 Then Player(mData(1)).HeadPiece.Item = GetItem(MS)
  1470.                     For j = 1 To playercount
  1471.                         If Player(j).Connected = True Then
  1472.                             Server(j).SendData mWord(i) & NETKONGDATA
  1473.                         End If
  1474.                     Next
  1475.                 Case NECKLACEDATA         '项链
  1476.                     Player(mData(1)).Necklace.State = mData(2)
  1477.                     MS = mData(3)
  1478.                     If mData(2) <> 0 Then Player(mData(1)).Necklace.Item = GetItem(MS)
  1479.                     For j = 1 To playercount
  1480.                         If Player(j).Connected = True Then
  1481.                             Server(j).SendData mWord(i) & NETKONGDATA
  1482.                         End If
  1483.                     Next
  1484.                 Case BRACELETLEFTDATA         '左手镯
  1485.                     Player(mData(1)).BraceletLeft.State = mData(2)
  1486.                     MS = mData(3)
  1487.                     If mData(2) <> 0 Then Player(mData(1)).BraceletLeft.Item = GetItem(MS)
  1488.                     For j = 1 To playercount
  1489.                         If Player(j).Connected = True Then
  1490.                             Server(j).SendData mWord(i) & NETKONGDATA
  1491.                         End If
  1492.                     Next
  1493.                 Case BRACELETRIGHTDATA         '右手镯
  1494.                     Player(mData(1)).BraceletRight.State = mData(2)
  1495.                     MS = mData(3)
  1496.                     If mData(2) <> 0 Then Player(mData(1)).BraceletRight.Item = GetItem(MS)
  1497.                     For j = 1 To playercount
  1498.                         If Player(j).Connected = True Then
  1499.                             Server(j).SendData mWord(i) & NETKONGDATA
  1500.                         End If
  1501.                     Next
  1502.                 Case FINGERRINGLEFTDATA         '左戒指
  1503.                     Player(mData(1)).FingerRingLeft.State = mData(2)
  1504.                     MS = mData(3)
  1505.                     If mData(2) <> 0 Then Player(mData(1)).FingerRingLeft.Item = GetItem(MS)
  1506.                     For j = 1 To playercount
  1507.                         If Player(j).Connected = True Then
  1508.                             Server(j).SendData mWord(i) & NETKONGDATA
  1509.                         End If
  1510.                     Next
  1511.                 Case FINGERRINGRIGHTDATA         '右戒指
  1512.                     Player(mData(1)).FingerRingRight.State = mData(2)
  1513.                     MS = mData(3)
  1514.                     If mData(2) <> 0 Then Player(mData(1)).FingerRingRight.Item = GetItem(MS)
  1515.                     For j = 1 To playercount
  1516.                         If Player(j).Connected = True Then
  1517.                             Server(j).SendData mWord(i) & NETKONGDATA
  1518.                         End If
  1519.                     Next
  1520.             End Select
  1521.         End If
  1522. mErr:
  1523.     Next
  1524.         
  1525. End Sub
  1527. '发送附近怪物信息给玩家
  1528. Private Sub mSendDataMonInfo(Index As Integer)
  1529.     Dim i As Integer
  1530.     HMonCount = 0
  1531.     ReDim HMonInfo(0)
  1532.     For i = 1 To MonCount
  1533.         If Abs(Mon(i).X - Player(Index).X) < 17 And Abs(Mon(i).Y - Player(Index).Y) < 20 And Mon(i).Dead = False Then
  1534.             HMonCount = HMonCount + 1
  1535.             ReDim Preserve HMonInfo(HMonCount)
  1536.             HMonInfo(HMonCount) = Mon(i)
  1537.         End If
  1538.     Next
  1539.     
  1540.     If HMonCount > 0 Then
  1541.         If Player(Index).Connected = True Then
  1542.             If Server(Index).State = sckConnected Then
  1543.                 Server(Index).SendData HEREMONCOUNT & KONGDATA & HMonCount & NETKONGDATA
  1544.                 For i = 1 To HMonCount
  1545.                     Server(Index).SendData HEREMONINFO & KONGDATA & i & KONGDATA & HMonInfo(i).Id & KONGDATA & HMonInfo(i).DBInfo.Race_种族 & KONGDATA & HMonInfo(i).DBInfo.RaceImage_种族图像 & KONGDATA & HMonInfo(i).DBInfo.Appr_形象代码 & KONGDATA & HMonInfo(i).DBInfo.Name_名称 & KONGDATA & HMonInfo(i).Face & KONGDATA & HMonInfo(i).X & KONGDATA & HMonInfo(i).Y & KONGDATA & HMonInfo(i).Act & KONGDATA & HMonInfo(i).Pic & NETKONGDATA
  1546.                 Next
  1547.             End If
  1548.         End If
  1549.     End If
  1550. End Sub
  1552. '////////  发送玩家包裹物品信息
  1553. Private Sub mSendDataBagItemInfo(Index As Integer)
  1554.     Dim i As Integer
  1555.     
  1556.     For i = 0 To 39
  1557.         If Player(Index).Bag(i).State = True Then
  1558.             Server(Index).SendData PLAYERBAGITEMDATA & KONGDATA & i & KONGDATA & ItemStr(Player(Index).Bag(i).Item) & NETKONGDATA
  1559.         End If
  1560.     Next
  1561.         
  1562. End Sub
  1565. '///  发送附近地图上物品
  1566. Public Sub mSendDataMapItemInfo(Index As Integer)
  1567.     Dim i As Integer
  1568.     Dim mMapItemCount As Long
  1569.     Dim mMapItem() As MapItemType
  1570.     For i = 1 To MapItemCount
  1571.         If i > MapItemCount Then Exit For
  1572.         If GetTickCount - MapItem(i).mTime > 60000 Then
  1573.             MapItem(i) = MapItem(MapItemCount)
  1574.             MapItemCount = MapItemCount - 1
  1575.             ReDim Preserve MapItem(MapItemCount)
  1576.         Else
  1577.             If Abs(MapItem(i).X - Player(Index).X) < 17 And Abs(MapItem(i).Y - Player(Index).Y) < 20 Then
  1578.                 mMapItemCount = mMapItemCount + 1
  1579.                 ReDim Preserve mMapItem(mMapItemCount)
  1580.                 mMapItem(mMapItemCount) = MapItem(i)
  1581.                 mMapItem(mMapItemCount).Id = i
  1582.             End If
  1583.         End If
  1584.     Next
  1585.     If mMapItemCount > 0 Then
  1586.         If Player(Index).Connected = True Then
  1587.             If Server(Index).State = sckConnected Then
  1588.                 Server(Index).SendData HEREMAPITEMCOUNT & KONGDATA & mMapItemCount & NETKONGDATA
  1589.                 
  1590.                 For i = 1 To mMapItemCount
  1591.                     Server(Index).SendData HEREMAPITEMINFO & KONGDATA & i & KONGDATA & mMapItem(i).Id & KONGDATA & mMapItem(i).mItem.Name & KONGDATA & mMapItem(i).mItem.Looks & KONGDATA & mMapItem(i).X & KONGDATA & mMapItem(i).Y & NETKONGDATA
  1592.                 Next
  1593.             End If
  1594.         End If
  1595.     End If
  1596. End Sub
  1600. Private Sub Server_DataArrival(Index As Integer, ByVal bytesTotal As Long)
  1601.     Dim mData As String
  1602.     Server(Index).GetData mData, vbString
  1603.     ExecuteNETData mData, Index
  1604. '    Text.Text = Text.Text & Server(Index).BytesReceived & vbCrLf
  1605. End Sub
  1614. Private Sub Server_Error(Index As Integer, ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
  1615.     Player(Index).Connected = False
  1616.     Server(Index).Close
  1617. '    Unload Server(Index)
  1618.     
  1619. End Sub
  1621. Private Sub Text_Change()
  1622.     Text.SelStart = Len(Text.Text)
  1623.     Text.SelLength = 1
  1624. End Sub
  1626. Private Sub Text_KeyPress(KeyAscii As Integer)
  1627.     KeyAscii = 0
  1628. End Sub
  1630. Private Sub Timer1_Timer()
  1631.     MonAct
  1632. End Sub