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

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

模拟服务器

开发平台：

Asm

V-MapLoad.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. ;                       VeMU Project
  42. ;                        Map Load !
  43. ;////////////////////////////////////////////////////////////////////////////////////
  45. .const
  46. .data?
  47. .Data
  48. ;////////////////////////////////////////////////
  49. ;Aligned strings to 26 bytes dont edit the ",0"
  50. ;////////////////////////////////////////////////
  51. MapNames DB "./Data/Maps/terrain1.att", 0, 0
  52.          DB "./Data/Maps/terrain2.att", 0, 0
  53.          DB "./Data/Maps/terrain3.att", 0, 0
  54.          DB "./Data/Maps/terrain4.att", 0, 0
  55.          DB "./Data/Maps/terrain5.att", 0, 0
  56.          DB "./Data/Maps/terrain6.att", 0, 0
  57.          DB "./Data/Maps/terrain7.att", 0, 0
  58.          DB "./Data/Maps/terrain8.att", 0, 0
  59.          DB "./Data/Maps/terrain9.att", 0, 0
  60.          DB "./Data/Maps/terrain10.att", 0
  61.          DB "./Data/Maps/terrain11.att", 0
  62.          DB "./Data/Maps/terrain12.att", 0 ;Loaded 8 times (BC for normal levels)
  63.          DB "./Data/Maps/terrain19.att", 0 ;Loaded 7 times i dont know what is
  64.          DB "./Data/Maps/terrain25.att", 0
  65.          DB "./Data/Maps/terrain31.att", 0
  66.          DB "./Data/Maps/terrain32.att", 0
  67.          DB "./Data/Maps/terrain33.att", 0
  68.          DB "./Data/Maps/terrain34.att", 0
  69.          DB "./Data/Maps/terrain35.att", 0
  70.          DB "./Data/Maps/terrain36.att", 0
  71.          DB "./Data/Maps/terrain37.att", 0
  72.          DB "./Data/Maps/terrain38.att", 0
  73.          DB "./Data/Maps/terrain39.att", 0
  74.          DB "./Data/Maps/terrain40.att", 0
  75.          DB "./Data/Maps/terrain41.att", 0
  76.          DB "./Data/Maps/terrain42.att", 0
  77.          DB "./Data/Maps/terrain43.att", 0
  78.          DB "./Data/Maps/terrain46.att", 0 ;Load 8 times (BC floors for master level i think)
  79.          DB "./Data/Maps/terrain52.att", 0 ;Elbeland
  80.          DB "./Data/Maps/terrain57.att", 0
  81. .Code
  83. ;////////////////////////////////////////////////////////////
  84. ;Main procedure for loading maps that will make a loop
  85. ;between the maps list (MapNames space) and load them.
  86. ;Also the inputed maps like Terrain12, 19, etc
  87. ;Got RealoadTime variable depending how many floors
  88. ;they have.
  89. ;////////////////////////////////////////////////////////////
  90. V_CMap_LoadAll Proc
  91. Local MapCounter:DWord
  92. Local MapStringCounter:Dword
  93. Local Reloadtimes:DWord
  94. Local StringPos:Dword
  95.  Mov MapCounter, 0
  96.  Mov MapStringCounter, 0
  97.  .Repeat
  98.   lea ecx, MapNames
  99.   mov eax, ALIGN_MAP_STRINGS ;Aligment bytes for MapStrings
  100.   Mov Edx, MapStringCounter
  101.   IMul Edx, Eax ;MapNumber * Aling String
  102.   add edx, ecx
  103.   mov StringPos, edx
  104.   invoke szCmp, $CTA0("./Data/Maps/terrain12.att"), edx
  105.   .if (eax != 0)
  106.     Mov Reloadtimes, 8 ;Load 8 floors
  107.     jmp ReadMap
  108.   .endif
  109.   mov edx, StringPos
  110.   invoke szCmp, $CTA0("./Data/Maps/terrain19.att"), edx
  111.   .if (eax != 0)
  112.     Mov Reloadtimes, 7 ;Load 7 floors
  113.     jmp ReadMap
  114.   .endif
  115.   mov edx, StringPos
  116.   invoke szCmp, $CTA0("./Data/Maps/terrain25.att"), edx
  117.   .if (eax != 0)
  118.     Mov Reloadtimes, 6 ;Load 6 floors
  119.     jmp ReadMap
  120.   .endif
  121.   mov edx, StringPos
  122.   invoke szCmp, $CTA0("./Data/Maps/terrain46.att"), edx
  123.   .if (eax != 0)
  124.     Mov Reloadtimes, 8 ;Load 8 floors
  125.     jmp ReadMap
  126.   .endif
  127.   mov edx, StringPos
  128.   invoke szCmp, $CTA0("./Data/Maps/terrain57.att"), edx
  129.   .if (eax != 0)
  130.     Mov Reloadtimes, 3 ;Load 3 floors
  131.     jmp ReadMap
  132.   .else
  133.     Mov Reloadtimes, 0
  134.   .endif
  135. ReadMap:
  136.   .Repeat
  137.       mov edx, StringPos
  138.       pObj MapCounter, SizeOf MapClass, pMapObjSpace
  139.       mov ecx, eax
  140.     Invoke V_CMap_LoadTerrain, edx ;Load the terrain
  141.       mov edx, StringPos
  142.       .if (eax == 1) && (Reloadtimes != 0)
  143.          RGB 255, 64, 64
  144.          mov edx, StringPos
  145.          Invoke vprint, $CTA0("CMapLoad:] MAP {%s} Floor {%d} Sucessfully loaded"), Eax, 2, edx, Reloadtimes
  146.          sub Reloadtimes, 1
  147.       .elseif (eax == 1) && (Reloadtimes == 0)
  148.          RGB 255, 64, 64
  149.          mov edx, StringPos
  150.          Invoke vprint, $CTA0("CMapLoad:] MAP {%s} Successfully loaded"), Eax, 1, edx
  151.       .else
  152.       .endif
  153.       add MapCounter, 1
  154.   .Until (Reloadtimes == 0)
  155.   add MapStringCounter, 1
  156.  .Until (MapCounter == MAPLIMIT)
  157.  Ret
  158. V_CMap_LoadAll EndP
  161. ;////////////////////////////////////////////////////////////
  162. ;Procedure that will read into the inputed
  163. ;Terrain name and take the information into
  164. ;PATHDIMENSION struct.
  165. ;////////////////////////////////////////////////////////////
  166. V_CMap_LoadTerrain Proc szMapName:DWord
  167. Local MyStruct:DWord
  168. Local Header:DWord
  169. Local hHandle:HANDLE
  170.  Mov MyStruct, Ecx
  171.  Assume Ecx:Ptr MapClass
  172.  Mov hHandle, fopen(szMapName)
  173.  Mov Ecx, MyStruct
  174.  Mov Eax, fread(hHandle, Addr [Ecx].gWidth, 1) ;EAX = Bytes readed but i dont care to check them
  175.  Mov Ecx, MyStruct
  176.  Mov Eax, fread(hHandle, addr [Ecx].gHeight, 1) ;EAX = Bytes readed but i dont care to check them
  177.  Mov Ecx, MyStruct
  178.  .If ([Ecx].gWidth > 255) || ([ecx].gHeight > 255) ;If Width or Height exceeded
  179.   RGB 255, 64, 64
  180.   Mov Edx, Eax
  181.   Invoke vprint, $CTA0("CMapLoad:] MAP {%s} INVALID_WIDTH or INVALID_HEIGHT"), Edx, 1, szMapName
  182.     xor eax, eax
  183.     Jmp EndProcedure
  184.  .EndIf
  185.  .If ([Ecx].pMapAttr != 0)
  186.   Invoke HeapFree, V_ProcessHeapHandle, HEAP_NO_SERIALIZE, addr [Ecx].pMapAttr
  187.  .EndIf
  188.  fastalloc MAPWIDTH * MAPHEIGHT, 1 ;allocate space for Map Attribute
  189.  Mov Ecx, MyStruct
  190.  Mov [Ecx].pMapAttr, Eax ;Save the pointer of allocated space
  191.  Mov Eax, fread(hHandle, [Ecx].pMapAttr, 100h) ;EAX = Bytes readed but i dont care to check them
  192.  fclose (hHandle)
  193.  Mov Ecx, MyStruct
  194. ;-----------------------------------------------------
  195. ;Set path dimensions !
  196. ;-----------------------------------------------------
  197.  Mov Eax, [Ecx].pPath ;pointer to PATHDIMENSION struct
  198.  Assume Eax:Ptr PATHDIMENSION
  199.  Mov [Eax].vWidth, MAPWIDTH ;Set the max cords
  200.  Mov [Eax].vHeight, MAPHEIGHT ;Set the max cords
  201.  Push Eax ; save eax
  202.  fastalloc MAPWIDTH * MAPHEIGHT, 1 ;allocate space for HitMap buffer
  203.  Mov Edx, Eax
  204.  Pop Eax ; return eax
  205.  Mov [Eax].pHitMap, Edx ;Save the pointer to allocated data
  206. EndProcedure:
  207.  mov eax, 1
  208. Assume Eax:Nothing
  209. Assume Ecx:Nothing
  210.  Ret
  211. V_CMap_LoadTerrain EndP