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

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

模拟服务器

开发平台：

Asm

V-UniUsage.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. ;-----------------------------------------------------------------------------------
  40. pObj Macro Counter:REQ, Length:REQ, pMyObj:REQ
  41.   Mov Eax, Counter
  42.   IMul Eax, Eax, Length
  43.   Add Eax, Offset pMyObj
  44. EndM
  46. VSetRect Macro posLEFT:REQ, posTOP:REQ, posRIGHT:REQ, posBOTTOM:REQ, pRECT:REQ
  47.   push ecx
  48.   invoke SetRect, pRECT,  posLEFT, posTOP, posRIGHT, posBOTTOM
  49.   pop ecx
  50. EndM
  52. GetFileLength Macro pFileName:REQ, pFile_Attribute_Data:REQ
  53. invoke GetFileAttributesEx, pFileName, NULL, edx ; NULL = GetFileExInfoStandard
  54. EndM
  56. fastalloc Macro AllocSpace:REQ, TypeAlloc:REQ
  57. IF TypeAlloc eq 1
  58.  .If (V_ProcessHeapHandle == 0)
  59.     Invoke GetProcessHeap
  60.     Mov V_ProcessHeapHandle, Eax
  61.  .Else
  62.     Mov Eax, V_ProcessHeapHandle
  63.  .EndIf
  64.  Invoke HeapAlloc, Eax, NULL, AllocSpace
  65.  .If (Eax == NULL)
  66.  .EndIf
  67. ELSEIF TypeAlloc eq 2
  68.  Invoke VirtualAlloc, NULL, AllocSpace, MEM_COMMIT, PAGE_EXECUTE_READWRITE
  69.  .If (Eax == NULL)
  70.  .EndIf
  71. ELSE
  72. ENDIF
  73. EndM
  76. FastDeAlloc Macro pBuffer:REQ, RegionSize:REQ, VirtualOrHeap:REQ
  77. IF VirtualOrHeap eq 1
  78.  invoke VirtualFree, pBuffer, RegionSize, MEM_RELEASE
  79. ELSE
  80.  invoke HeapFree, V_ProcessHeapHandle, HEAP_NO_SERIALIZE, pBuffer
  81. ENDIF
  82. EndM
  84. ReadThisFile Macro pFileName:REQ, pBufferSpace:REQ, pBytesReaded:REQ
  85. push ecx ;BytesReaded
  86. Invoke CreateFile, pFileName, GENERIC_READ, NULL, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_READONLY, NULL
  87. pop ecx
  88. Push Eax ;Save handler
  89. Invoke ReadFile, Eax, pBufferSpace, dword ptr StructFile.nFileSizeLow, ecx, NULL
  90. Pop Eax ;retun handler
  91. Invoke CloseHandle, Eax
  92. mov eax, pBufferSpace
  93. EndM
  95. .Const
  97. .Data?
  99. .Data
  101. .Code
  103. vprint Proc C vString:DWord, sRGB:DWord, Args:VarArg
  104. Local StringBuffer[MAXPRINTCHAR]:Byte
  105. Local LinesCounter:DWord
  106. Local TotalSize:DWord
  107. local msg:MSG
  108. Assume Eax:Ptr VPRINTs
  109. Invoke V_ZeroBuff, addr StringBuffer, MAXPRINTCHAR
  110. ;------------------------------------------------------------------------------------------------------------------------
  111. ;DONT EDIT THIS, ITS THE STACK ALIGMENT FOR USE THE PRINT SYSTEM IN A MORE "EASY WAY"
  112. ;------------------------------------------------------------------------------------------------------------------------
  113. Mov Eax, Args
  114. test eax, eax
  115. je @2
  116. lea edx, Args
  117. @1:
  118.   push DWord Ptr [edx + Eax * 4]
  119.   Sub Eax, 1
  120.   test eax, eax
  121.   jnz @1
  122. @2:
  123. ;------------------------------------------------------------------------------------------------------------------------
  124. push vString
  125. lea eax, StringBuffer
  126. push eax
  127. call wsprintf
  128. .If (VPrintTotalLines >= MAXPRINTLINES) ;If we exceed the max of print lines possible in window
  129.   mov VPrintTotalLines, 0
  130.   xor eax, eax
  131.   .Repeat
  132.      push eax
  133.      pObj eax, SizeOf VPRINTs, pObjectPaint
  134.      invoke V_ZeroBuff, addr [eax].vString, sizeof VPRINTs.vString ;Clean old text
  135.      pop eax
  136.      add eax, 1
  137.   .Until (eax == MAXPRINTLINES)
  138.   invoke InvalidateRect, GShWnd, NULL, TRUE ;Erase the background
  139. .Endif
  140. Invoke lstrlen, Addr StringBuffer
  141. Mov Edx, Eax
  142. pObj VPrintTotalLines, SizeOf VPRINTs, pObjectPaint
  143. Mov [Eax].vStringLength, Edx ;Save length
  144. push eax
  145. Invoke MemCopy, Addr StringBuffer, Addr [Eax].vString, Edx ;copy to virtual struct "String Buffer"
  146. pop eax
  147. Mov Ecx, sRGB
  148. Mov [Eax].vRGB, Ecx ;save RGB value into virtual struct
  149. Add VPrintTotalLines, 1 ;add one line added into global counter
  150. Mov VPrintNewLine, 1 ;lets print it
  151. mov eax, GShWnd
  152. mov msg.hwnd, eax
  153. mov msg.message, WM_PAINT
  154. invoke DispatchMessage, addr msg ;Update window now
  155. Ret
  156. vprint EndP
  158. V_VectorCreator Proc uses ecx pAllocStruct:DWord, pVectorConstructor:DWord, StructSize:DWord, InitTimes:DWord
  159. Local pAllocatedStruct:DWord
  160. Local Counter:DWord
  161.  Mov Counter, 0
  162.  mov Eax, pAllocStruct
  163.  Mov Ecx, Eax
  164.  .Repeat
  165.    push ecx ;Avoid bugs in case you forget to use proc "uses ecx"
  166.    Call pVectorConstructor ;call the vector constructor that must have proc uses ecx
  167.    pop ecx ;Avoid bugs in case you forget to use proc "uses ecx"
  168.    Add Ecx, StructSize
  169.    Add Counter, 1
  170.    Mov Eax, Counter
  171.  .Until (Eax == InitTimes)
  172.  Ret
  173. V_VectorCreator EndP
  175. V_ZeroBuff Proc pAddr:DWord, RepTimes:DWord
  176. push edi
  177. mov edi, pAddr
  178. mov ecx, RepTimes
  179. shr ecx, 2
  180. xor edx, edx
  181. xor eax, eax
  182. rep stosd
  183. pop edi
  184. Ret
  185. V_ZeroBuff EndP
  187. GetToken Proc pMemSpace:DWord, StartByte:Dword, Brackets:Dword
  188. Local IsComment:Dword
  189. Local BytesReaded:DWord
  190. Local TerminatedFile:Byte
  191.  And TerminatedFile, 0
  192.  And BytesReaded, 0
  193.  And IsComment, 0
  194.  invoke V_ZeroBuff, Addr SaveBytes, SizeOf SaveBytes
  195.  mov ecx, StartByte
  196.  .While (Ecx != -1) ;its a infinite loop
  197.    Mov Eax, pMemSpace
  198. ;//////////////////////////////////
  199. ; Checkea End of file 00 Byte
  200. ;//////////////////////////////////
  201.    .If (Byte Ptr Ds:[Eax + Ecx] == 0) ;ENDIFILE
  202.          Mov TerminatedFile, 1
  203.       .Break
  204. ;///////////////////////////////
  205. ; Check Comment / Character
  206. ;///////////////////////////////
  207.    .ElseIf (Byte Ptr Ds:[Eax + Ecx] == 2FH)
  208.      Add Ecx, 1
  209.      mov IsComment, 1
  210.      .Continue
  211. ;///////////////////////////////
  212. ; Check "09" byte
  213. ;///////////////////////////////
  214.    .ElseIf (Byte Ptr Ds:[Eax + Ecx] == 09H)
  215.     .If (BytesReaded == 0) || (IsComment == 1)
  216.        add ecx, 1
  217.       .Continue
  218.     .endif
  219.     add ecx, 1
  220.     .break
  221. ;///////////////////////////////
  222. ; Check SPACE byte
  223. ;///////////////////////////////
  224.    .ElseIf (Byte Ptr Ds:[Eax + Ecx] == 20H)
  225.      .if (BytesReaded != 0)
  226.        add ecx, 1 ;Ignore space
  227.        .Break
  228.      .elseif (IsComment == 1)
  229.        add ecx, 1
  230.        .Continue
  231.      .else
  232.      .endif
  233.      add ecx, 1
  234.      .Continue
  235. ;/////////////////////////////////
  236. ; Check ENTER (0D, 0A)
  237. ;/////////////////////////////////
  238.    .ElseIf (Byte Ptr Ds:[Eax + Ecx] == 0DH) ;NEXT LINE:> FIRST BYTE
  239.       Add Ecx, 1 ;Read Next Byte
  240.       .If (Byte Ptr Ds:[Eax + Ecx] == 0AH) ;NEXT LINE:>  SECOND BYTE
  241.          add ecx, 1
  242.         .if (IsComment == 1)
  243.            mov IsComment, 0
  244.            .continue
  245.         .elseif (BytesReaded != 0) ;If i already read a byte
  246.           .Break
  247.         .else
  248.         .endif
  249.       .Endif
  250.       .Continue
  251. ;/////////////////////////////////
  252. ; Save bytes into buffer
  253. ;/////////////////////////////////
  254.    .Else
  255.      .if (IsComment == 1)
  256.        add ecx, 1
  257.        .continue
  258.      .endif
  259.      Push Ecx ;save ECX in stack
  260.      Lea Ebx, SaveBytes
  261.      Mov Dl, Byte Ptr Ds:[Eax + Ecx]
  262.      Mov Ecx, BytesReaded
  263.      Mov Byte Ptr Ds:[Ebx + Ecx], Dl
  264.      Add BytesReaded, 1
  265.      Pop Ecx
  266.      Add Ecx, 1
  267.    .EndIf
  268.  .EndW
  269. ;/////////////////////////////////
  270. ; Convert ASCII to DECIMAL
  271. ;/////////////////////////////////
  272.  Push Ecx ;save ECX value
  273.  Invoke atol, addr SaveBytes  ; ASCII to HEX
  274.  Pop Ecx
  275.  Movsx Edx, TerminatedFile
  276.  Ret
  277. GetToken EndP
  279. GetString Proc uses eax BufferFile:DWord, ReadFileByte:DWord
  280. Local fLength:DWord
  281. Local StartLong:Dword
  282. Local IsComment:Dword
  283. Invoke V_ZeroBuff, Addr StringToken, SizeOf StringToken
  284. And fLength, 0
  285. And StartLong, 0
  286. And IsComment, 0
  287. Xor Ebx, Ebx
  288. Mov Ecx, ReadFileByte
  289. Mov Eax, BufferFile
  290. .While (Ecx != -1) ;its a infinite loop
  291. ;//////////////////////////////////
  292. ; Checkea End of file 00 Byte
  293. ;//////////////////////////////////
  294.   .If (Byte Ptr [Eax + Ecx] == 0)
  295.     Xor Edx, Edx
  296.     Mov Edx, 1
  297.     .break
  298. ;///////////////////////////////
  299. ; Check SPACE byte
  300. ;///////////////////////////////
  301.   .ElseIf (Byte Ptr [Eax + Ecx] == 20H) ;ESPACE
  302.     .if (IsComment == 1)
  303.        add ecx, 1
  304.        .Continue
  305.     .elseif (StartLong == 1)
  306.        jmp SaveByte
  307.     .elseif (fLength != 0)
  308.        add ecx, 1
  309.        .Break
  310.     .else
  311.       add ecx, 1
  312.       .Continue
  313.     .endif
  314. ;///////////////////////////////
  315. ; Check Comment / Character
  316. ;///////////////////////////////
  317.    .ElseIf (Byte Ptr Ds:[Eax + Ecx] == 2FH)
  318.      Add Ecx, 1
  319.      mov IsComment, 1
  320.      .Continue
  321. ;///////////////////////////////
  322. ; Check "09" byte
  323. ;///////////////////////////////
  324.    .ElseIf (Byte Ptr Ds:[Eax + Ecx] == 09H)
  325.     .If (fLength == 0) || (IsComment == 1)
  326.        add ecx, 1
  327.       .Continue
  328.     .endif
  329.     add ecx, 1
  330.     .break
  331. ;///////////////////////////////
  332. ; Check <"> byte
  333. ;///////////////////////////////
  334.   .ElseIf (Byte ptr [eax + ecx] == 22H) ;<">
  335.      .if (IsComment == 1)
  336.        add ecx, 1
  337.        .Continue
  338.      .endif
  339.      .if (StartLong == 0 || StartLong == 1)
  340.         add StartLong, 1
  341.         add ecx, 1
  342.         .if (StartLong == 2)
  343.            add ecx, 1
  344.            .break
  345.         .endif
  346.      .endif
  347.      .continue ;Volvemos al loop
  348. ;/////////////////////////////////
  349. ; Check ENTER (0D, 0A)
  350. ;/////////////////////////////////
  351.    .ElseIf (Byte Ptr Ds:[Eax + Ecx] == 0DH) ;NEXT LINE:> FIRST BYTE
  352.       Add Ecx, 1 ;Read Next Byte
  353.       .If (Byte Ptr Ds:[Eax + Ecx] == 0AH) ;NEXT LINE:>  SECOND BYTE
  354.          add ecx, 1
  355.         .if (IsComment == 1)
  356.            mov IsComment, 0
  357.            .continue
  358.         .elseif (fLength != 0) ;If i already read a byte
  359.           .Break
  360.         .else
  361.         .endif
  362.       .Endif
  363.       .Continue
  364. ;/////////////////////////////////
  365. ; Save STRING
  366. ;/////////////////////////////////
  367.    .Else
  368. SaveByte:
  369.     .if (IsComment == 1)
  370.       add ecx, 1
  371.       .continue
  372.     .endif
  373.     Mov Dl, Byte Ptr Ds:[Eax + Ecx]
  374.     Lea Esi, [StringToken]
  375.     Mov Byte Ptr Ds:[Esi + Ebx], Dl
  376.     Add Ecx, 1
  377.     Add Ebx, 1
  378.     Add fLength, 1
  379.   .EndIf
  380. .Endw
  381. Ret
  382. GetString EndP