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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 游戏 > 模拟服务器 > 查看源码
V-GatesLoad.asm
资源名称：VeMU.rar　[点击查看]
上传用户：santakups8
上传日期：2021-03-23
资源大小：544k
文件大小：5k
源码类别：

模拟服务器

开发平台：

Asm

V-GatesLoad.asm：源码内容
  1. ;EasyCodeName=Module1,1
  2. ;-----------------------------------------------------------------------------------
  3. ;    VeMU
  4. ;    Its a package that allows the user to set his own server of the game
  5. ;    "MuOnline", this is not an emulator since i am not "emulating"
  6. ;    what the actual games does, i am "creating" a method for set a Server
  7. ;    of this Game.
  8. ;
  9. ;    Copyright (C) 2010  Felipe Ya馿z
  10. ;
  11. ;    This program is free software: you can redistribute it and/or modify
  12. ;    it under the terms of the GNU General Public License as published by
  13. ;    the Free Software Foundation, either version 3 of the License, or
  14. ;    (at your option) any later version.
  15. ;
  16. ;    This program is distributed in the hope that it will be useful,
  17. ;    but WITHOUT ANY WARRANTY; without even the implied warranty of
  18. ;    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19. ;    GNU General Public License for more details.
  20. ;
  21. ;    You should have received a copy of the GNU General Public License
  22. ;    along with this program.  If not, see http://www.gnu.org/licenses/.
  23. ;-----------------------------------------------------------------------------------
  25. ;-----------------------------------------------------------------------------------
  26. ;                        -----------------
  27. ;                             Coded     /
  28. ;                              By      /
  29. ;                           -={FeN$x)=-
  30. ;                         /  Felipe Y.  
  31. ;                        /               
  32. ;                        -----------------
  33. ; Programming Lang: ASM
  34. ; Country: Chile
  35. ;              My respect for all those who lost their lifes
  36. ;              In the earthquake of my country...
  37. ;              Let god take their spirits home...
  38. ;-----------------------------------------------------------------------------------
  41. .Const
  42. .Data?
  43. .Data
  44. szGates DB ".DataGamePlayGate.txt", 0
  45. .Code
  47. V_Gate_Init Proc
  48. assume edx:ptr GATE_STRUCT
  49. lea edx, pObjGates
  50. xor ecx, ecx
  51. .Repeat
  52.  mov [edx].GateIndex, 0FFh ;-1
  53.  mov [edx].LvlRequired, 0
  54.  add edx, SizeOf GATE_STRUCT
  55.  add ecx, 1
  56. .Until (ecx == MAX_GATES)
  57. assume edx:NOTHING
  58. Ret
  59. V_Gate_Init EndP
  61. V_Gate_Load Proc
  62. local pThisObj:Dword
  63. local LoopCounter:Dword
  64. local FilePosition:Dword
  65. local pBufferSpace:Dword
  66. local BytesReaded:Dword
  67. local StructFile:WIN32_FILE_ATTRIBUTE_DATA
  68. .const
  69. TotalVariablesForGates equ 10
  70. .code
  71. ;------------------------------------------------
  72. ; Clean local variables that are needed
  73. ;------------------------------------------------
  74. And LoopCounter, 0
  75. call V_Gate_Init
  76. ;-------------------------------
  77. ;Load file into memory
  78. ;-------------------------------
  79. lea edx, StructFile
  80. GetFileLength addr szGates, edx
  81. mov eax, StructFile.nFileSizeLow
  82. fastalloc eax, 1 ;alloc space for file
  83. mov pBufferSpace, eax
  84. lea edx, StructFile
  85. lea ecx, BytesReaded
  86. ReadThisFile Addr szGates, pBufferSpace, ecx ;read of file and handles the close
  87. mov ecx, StructFile.nFileSizeLow
  88. add eax, ecx
  89. mov dword ptr [eax], 0 ;Append to 00 byte in the end of file for prevent bugs
  90. xor ecx, ecx
  91. .While (ecx != -1) ;Infinite loop
  92.   pObj TotalGatesLoaded, SizeOf GATE_STRUCT, pObjGates
  93.   mov pThisObj, eax
  94.   xor ebx, ebx
  95.   .Repeat
  96.     push ebx
  97.     invoke GetToken, pBufferSpace, ecx, NULL
  98.     pop ebx
  99.     .If (edx == 1)
  100.       xor eax, eax
  101.       .Break
  102.     .Endif
  103.     mov edx, pThisObj
  104.     .if (LoopCounter == 9) ;Variable LvlRequirement
  105.       mov word ptr [edx + ebx], Ax
  106.       add ebx, 2
  107.     .else
  108.       mov [edx + ebx], Al ;Save all Gates variables
  109.       add ebx, 1
  110.     .endif
  111.     Add LoopCounter, 1
  112.   .Until (LoopCounter == TotalVariablesForGates)
  113.   mov LoopCounter, 0
  114.   add TotalGatesLoaded, 1
  115.   .if (TotalGatesLoaded > MAX_GATES)
  116.     RGB 255, 64, 64 ;Red Collor
  117. Mov Edx, Eax
  118. Invoke vprint, $CTA0("GateSystem:] ERROR YOU CANT BLOCK MORE THAN :  [%d] GATES"), Edx, 1, MAX_GATES
  119.     mov eax, 1
  120.     .Break
  121.   .endif
  122.   mov FilePosition, ecx
  123.   invoke GetString, pBufferSpace, ecx ;Search for string "End"
  124.   push ecx
  125.   invoke szCmp, $CTA0("end"), Addr StringToken
  126.   pop ecx
  127.   .if (eax != 0)
  128.     mov eax, 1
  129.     .Break
  130.   .Endif
  131.   mov ecx, FilePosition
  132. .Endw
  133. .If (eax == 0)
  134.   RGB 255, 64, 64 ;Red Collor
  135.   Mov Edx, Eax
  136.   Invoke vprint, $CTA0("GateSystem:] UNKNOWN ERROR, LAST GATE LOADED :  [%d]"), Edx, 1, TotalGatesLoaded
  137. .Else
  138.   RGB 24, 116, 205 ;Light blue
  139.   Mov Edx, Eax
  140.   Invoke vprint, $CTA0("GateSystem:] Operation Successful total gates loaded :  [%d]"), Edx, 1, TotalGatesLoaded
  141. .Endif
  142. FastDeAlloc pBufferSpace, NULL, 0 ;Free the heap when we dont use it anymore
  143. Ret
  144. V_Gate_Load EndP