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

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

模拟服务器

开发平台：

Asm

V-ShopLoad.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. ;////////////////////////////////////////////////////////////////////////////////////
  41. ;                      VALKYRIE PROJECT
  42. ;                        SHOP LOAD !
  43. ;////////////////////////////////////////////////////////////////////////////////////
  45. V_CShop_LoadShop Proto :Dword, :Dword
  46. V_CShop_SetItem Proto :Dword, :Dword, :Dword, :Dword, :Dword, :Dword, :Dword
  48. ;-----------------------------------------------------------------
  49. ; Structure that contain most of the item options
  50. ;-----------------------------------------------------------------
  52. .Const
  53. TotalShopsVariable equ 7
  54. .Data?
  55. .Data
  56. ;///////////////////////////////////////////////////////
  57. ;Dont changes the 0, 0 this is aligment
  58. ;so i can use a loop system for load them
  59. ;///////////////////////////////////////////////////////
  61. szAlignShop DB ".DataGamePlayShopsShopX.txt", 0, 0 ;ITS NOT A SHOP JUST A STRING FOR GET SIZEOF
  63. szShops DB ".DataGamePlayShopsShop0.txt", 0, 0
  64.         DB ".DataGamePlayShopsShop1.txt", 0, 0
  65.         DB ".DataGamePlayShopsShop2.txt", 0, 0
  66.         DB ".DataGamePlayShopsShop3.txt", 0, 0
  67.         DB ".DataGamePlayShopsShop4.txt", 0, 0
  68.         DB ".DataGamePlayShopsShop5.txt", 0, 0
  69.         DB ".DataGamePlayShopsShop6.txt", 0, 0
  70.         DB ".DataGamePlayShopsShop7.txt", 0, 0
  71.         DB ".DataGamePlayShopsShop8.txt", 0, 0
  72.         DB ".DataGamePlayShopsShop9.txt", 0, 0
  73.         DB ".DataGamePlayShopsShop10.txt", 0
  74.         DB ".DataGamePlayShopsShop11.txt", 0
  75.         DB ".DataGamePlayShopsShop12.txt", 0
  76.         DB ".DataGamePlayShopsShop13.txt", 0
  77.         DB ".DataGamePlayShopsShop14.txt", 0
  78.         DB ".DataGamePlayShopsShop15.txt", 0
  79.         DB ".DataGamePlayShopsShop16.txt", 0
  80.         DB ".DataGamePlayShopsShop17.txt", 0
  81.         DB ".DataGamePlayShopsShop18.txt", 0
  82.         DB ".DataGamePlayShopsShop19.txt", 0
  83.         DB ".DataGamePlayShopsShop20.txt", 0
  84. .Code
  86. V_Shop_LoadAll Proc
  87. local LoopCounter:Dword
  88. And LoopCounter, 0
  89. .Repeat
  90.   lea edx, szShops
  91.   mov eax, LoopCounter
  92.   imul eax, eax, SizeOf szAlignShop
  93.   add edx, eax
  94.   invoke V_CShop_LoadShop, edx, LoopCounter
  95.   add LoopCounter, 1
  96. .Until (LoopCounter == MAX_SHOPS)
  97. Ret
  98. V_Shop_LoadAll EndP
  101. V_CShop_LoadShop Proc AddrShop:Dword, ShopNumber:Dword
  102. local PlaceHolder[TotalShopsVariable]:Dword ;ItemType, ItemIndex, Level, Dur, Luck, Skill, JOL
  103. local MyStruct:Dword
  104. local LoopCounter:Dword
  105. local pBufferSpace:Dword
  106. local FilePosition:Dword
  107. local BytesReaded:Dword
  108. local StructFile:WIN32_FILE_ATTRIBUTE_DATA
  109. assume edx:ptr SHOP_STRUCT
  110. ;-------------------------------
  111. ;Clean locals
  112. ;-------------------------------
  113. And FilePosition, 0
  114. And LoopCounter, 0
  115. ;-------------------------------
  116. ;Load file into memory
  117. ;-------------------------------
  118. lea edx, StructFile
  119. GetFileLength AddrShop, edx
  120. mov eax, StructFile.nFileSizeLow
  121. fastalloc eax, 1 ;alloc space for file
  122. mov pBufferSpace, eax
  123. lea ecx, BytesReaded
  124. ReadThisFile AddrShop, pBufferSpace, ecx ;read of file and handles the close
  125. mov ecx, StructFile.nFileSizeLow
  126. add eax, ecx
  127. mov dword ptr [eax], 0 ;Append to 00 byte in the end of file for prevent bugs
  128. xor ecx, ecx
  129. ;-------------------------------
  130. ;Initialise Loop
  131. ;-------------------------------
  132. .While (ecx != -1)
  133. ;-------------------------------
  134. ;Load all variables
  135. ;-------------------------------
  136.  lea eax, PlaceHolder
  137.  xor ebx, ebx
  138. .Repeat
  139.   push eax
  140.   push ebx ;Save EBX
  141.   invoke GetToken, pBufferSpace, ecx, NULL
  142.   .If (edx == 1)
  143.    xor eax, eax
  144.    .Break
  145.   .Endif
  146.   mov FilePosition, ecx
  147.   mov ecx, edx ;Avoid bugs
  148.   mov edx, eax ;Avoid bugs
  149.   pop ebx
  150.   pop eax
  151.   mov [eax + ebx], edx
  152.   add ebx, 4
  153.   add LoopCounter, 1
  154.   mov ecx, FilePosition
  155. .Until (LoopCounter == TotalShopsVariable)
  156. mov LoopCounter, 0
  157. mov edx, ShopNumber
  158. lea eax, pObjShops
  159. imul edx, SizeOf SHOP_STRUCT
  160. add edx, eax
  161. mov MyStruct, edx
  162. mov eax, [edx].ItemCounter
  163. imul eax, eax, SizeOf ItemStruct
  164. add edx, eax
  165. mov FilePosition, ecx
  166. invoke V_CShop_SetItem, PlaceHolder, PlaceHolder + 4, PlaceHolder + 8, PlaceHolder + 0Ch, PlaceHolder + 10h, 
  167.                         PlaceHolder + 14h, PlaceHolder + 18h
  168. .If (eax == 0)
  169.   RGB 255, 64, 64 ;Red Collor
  170.   Mov Edx, Eax
  171.   Invoke vprint, $CTA0("CShopLoad:] ERROR ON [%s] WHILE LOADING ITEM [%d] [%d]"), Edx, 3, AddrShop, PlaceHolder, PlaceHolder + 4
  172.   mov ecx, FilePosition
  173.   .Continue
  174. .Endif
  175. mov edx, MyStruct
  176. add [edx].ItemCounter, 1
  177. .If ([edx].ItemCounter > MAX_SHOP_ITEMS)
  178.   RGB 255, 64, 64 ;Red Collor
  179.   Mov Edx, Eax
  180.   Invoke vprint, $CTA0("CShopLoad:] ERROR ON [%s] CANT LOAD MORE ITEMS"), Edx, 1, AddrShop
  181.   .Break
  182. .ElseIf ([edx].ItemCounter == MAX_SHOP_ITEMS)
  183.   mov eax, 1
  184.   .Break
  185. .Endif
  186. mov ecx, FilePosition
  187. invoke GetString, pBufferSpace, ecx ;Try to search for "end" string
  188. invoke szCmp, $CTA0("end"), Addr StringToken ;If end string
  189. .If (eax != 0) ;Founded
  190.  mov eax, 1
  191.  .Break
  192. .Endif
  193. mov ecx, FilePosition
  194. .Endw
  195. .If (eax == 0)
  196.     RGB 255, 64, 64 ;Red Collor
  197. Mov Edx, Eax
  198. Invoke vprint, $CTA0("CShopLoad:] UNKNOWN ERROR, ON SHOP :  [%s]"), Edx, 1, AddrShop
  199. .Else
  200.     RGB 24, 116, 205 ;Light blue
  201.     mov ecx, eax
  202.     mov edx, MyStruct
  203. Invoke vprint, $CTA0("CShopLoad:] Operation Successful Shop [%s] loaded with [%d] Items"), Ecx, 2, AddrShop, [edx].ItemCounter
  204.     add TotalShopsLoaded, 1
  205. .Endif
  206. FastDeAlloc pBufferSpace, NULL, 0 ;Free the heap when we dont use it anymore
  207. assume edx:NOTHING
  208. Ret
  209. V_CShop_LoadShop EndP