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

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

模拟服务器

开发平台：

Asm

V-ItemSetValues.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. ;                       Item Actions !
  43. ;////////////////////////////////////////////////////////////////////////////////////
  45. V_CItem_SetBonusByOptions Proto :DWord, :DWord
  46. V_CItem_SetReqLevel Proto :DWord, :DWord, :Dword
  47. V_CItem_SetRequiredStats Proto :Dword, :Dword
  48. V_CItem_SetBonusForPendants Proto :DWord, :DWord
  49. V_CItem_SetBonusForRings Proto :DWord, :DWord
  50. V_CItem_SetSkillOpt Proto :DWord
  51. V_CItem_SetOption2 Proto :DWord, :DWord, :DWord
  52. V_CItem_SetOption3 Proto :DWord, :DWord, :DWord
  55. V_CItem_SetBonusByOptions Proc Uses Edx Ecx ItemType:DWord, ItemIndex:DWord
  56. Local Bonus:DWord
  57. Local pThisItem:DWord
  58. Local MyStruct:DWord
  59. ;----------------------------------------------------
  60. ;Save structs into locals and assume.
  61. ;----------------------------------------------------
  62. Assume Edx:Ptr ItemStruct
  63. Assume Ecx:Ptr ITEM_ATTRIBUTE_STRUCT ;From Item.txt
  64. Mov pThisItem, Ecx
  65. Mov MyStruct, Edx
  66. ;---------------------------------------------------------------------------------
  67. ;Bonus "SetOption" for DmgMin, DmgMax, MagicPower, SuccesfulBlocing & Defense
  68. ;Calc: ItemLvl+30
  69. ;---------------------------------------------------------------------------------
  70. .If ([Edx].Item_SetOption != 0)
  71.   .If ([Edx].Item_Level !=0)
  72.     Movsx Eax, [Edx].Item_Level
  73.     Add Eax, 30
  74.     Mov Bonus, Eax
  75. ;---------------------------------------------------------------------------------------------
  76. ;New Calculation for DamageMin, DamageMax, MagicPower, SuccessfulBlocing & Defense
  77. ;In base of SetOption
  78. ;Calc: (DamageMin*25/ItemLevel+5)+DamageMin+(Bonus/40+5)
  79. ;Calc: (DamageMax*25/ItemLevel+5)+DamageMax+(Bonus/40+5)
  80. ;Calc: (MagicPower*25/ItemLevel+5)+MagicPower+(Bonus/60+5)
  81. ;Calc: (SuccesBlock*25/ItemLevel+5)+SuccessBlock+(Bonus/40+5)
  82. ;Calc: [((Defense*12/ItemLevel)+(ItemLevel/5))+4+Defense] + [(*3/Bonus)+(Bonus/30)+5+Defense]
  83. ;---------------------------------------------------------------------------------------------
  84.     Movsx Eax, [Edx].Item_DamageMin
  85.     IMul Eax, Eax, 25
  86.     Movsx Ecx, [Edx].Item_Level
  87.     Xor Edx, Edx ;Optimisation instead CDQ
  88.     IDiv Ecx
  89.     Add Eax, 5
  90.     Mov Edx, MyStruct
  91.     Add [Edx].Item_DamageMin, Ax
  92.     Mov Eax, Bonus
  93.     Xor Edx, Edx ;Optimisation instead CDQ
  94.     Mov Ecx, 40
  95.     IDiv Ecx
  96.     Add Eax, 5
  97.     Mov Edx, MyStruct
  98.     Add [Edx].Item_DamageMin, Ax
  99.     Movsx Eax, [Edx].Item_DamageMax
  100.     IMul Eax, Eax, 25
  101.     Movsx Ecx, [Edx].Item_Level
  102.     Xor Edx, Edx ;Optimisation instead CDQ
  103.     IDiv Ecx
  104.     Add Eax, 5
  105.     Mov Edx, MyStruct
  106.     Add [Edx].Item_DamageMax, Ax
  107.     Mov Eax, Bonus
  108.     Xor Edx, Edx ;Optimisation instead CDQ
  109.     Mov Ecx, 40
  110.     IDiv Ecx
  111.     Add Eax, 5
  112.     Mov Edx, MyStruct
  113.     Add [Edx].Item_DamageMax, Ax
  114.     Movsx Eax, [Edx].Item_MagicPower
  115.     IMul Eax, Eax, 25
  116.     Movsx Ecx, [Edx].Item_Level
  117.     Xor Edx, Edx ;Optimisation instead CDQ
  118.     IDiv Ecx
  119.     Add Eax, 5
  120.     Mov Edx, MyStruct
  121.     Add [Edx].Item_MagicPower, Ax
  122.     Mov Eax, Bonus
  123.     Xor Edx, Edx ;Optimisation instead CDQ
  124.     Mov Ecx, 60
  125.     IDiv Ecx
  126.     Add Eax, 5
  127.     Mov Edx, MyStruct
  128.     Add [Edx].Item_MagicPower, Ax
  129.     Movsx Eax, [Edx].Item_SuccesfulBlocking
  130.     IMul Eax, Eax, 25
  131.     Movsx Ecx, [Edx].Item_Level
  132.     Xor Edx, Edx ;Optimisation instead CDQ
  133.     IDiv Ecx
  134.     Add Eax, 5
  135.     Mov Edx, MyStruct
  136.     Add [Edx].Item_SuccesfulBlocking, Al
  137.     Mov Eax, Bonus
  138.     Xor Edx, Edx ;Optimisation instead CDQ
  139.     Mov Ecx, 60
  140.     IDiv Ecx
  141.     Add Eax, 5
  142.     Mov Edx, MyStruct
  143.     Add [Edx].Item_SuccesfulBlocking, Al
  144.     Movsx Eax, [Edx].Item_Defense
  145.     IMul Eax, Eax, 12
  146.     Movsx Ecx, [Edx].Item_Level
  147.     Xor Edx, Edx ;Optimisation instead CDQ
  148.     IDiv Ecx
  149.     Mov Edx, MyStruct
  150.     Mov Ecx, Eax
  151.     Movsx Eax, [Edx].Item_Level
  152.     Xor Edx, Edx ;Optimisation instead CDQ
  153.     Mov Esi, 5
  154.     IDiv Esi
  155.     Lea Eax, [Ecx + Eax + 4]
  156.     Mov Edx, MyStruct
  157.     Add [Edx].Item_Defense, Al
  158.     Movsx Eax, [Edx].Item_Defense
  159.     IMul Eax, Eax, 3
  160.     Xor Edx, Edx ;Optimisation instead CDQ
  161.     IDiv Bonus
  162.     Mov Ecx, Eax
  163.     Mov Eax, Bonus
  164.     Xor Edx, Edx ;Optimisation instead CDQ
  165.     Mov Esi, 30
  166.     IDiv Esi
  167.     Lea Eax, [Ecx + Eax + 2]
  168.     Mov Edx, MyStruct
  169.     Add [Edx].Item_Defense, Al
  170.   .EndIf
  171. ;----------------------------------------------------
  172. ;Bonus "NewOption" for DmgMin, DmgMax & MagicPower
  173. ;BUT ONLY FOR SOME ITEMS.
  174. ;----------------------------------------------------
  175. .ElseIf ([Edx].Item_NewOption !=0)
  176.   .If (ItemType == 2) && (ItemIndex == 6) ;Chaos Dragon Axe
  177.     Add [Edx].Item_DamageMin, 15
  178.     Add [Edx].Item_DamageMax, 15
  179.     Add [Edx].Item_MagicPower, 15
  180.   .ElseIf (ItemType == 5) && (ItemIndex == 7) ;Chaos Staff
  181.     Add [Edx].Item_DamageMin, 25
  182.     Add [Edx].Item_DamageMax, 25
  183.     Add [Edx].Item_MagicPower, 25
  184.   .ElseIf (ItemType == 4) && (ItemIndex == 6) ;Chaos Nature Bow
  185.     Add [Edx].Item_DamageMin, 30
  186.     Add [Edx].Item_DamageMax, 30
  187.     Add [Edx].Item_MagicPower, 30
  188.   .EndIf
  189. ;-------------------------------------------------------------------------------
  190. ;Bonus "NewOption" for DamageMin, DamageMax, MagicPower, SuccesfulBlocking
  191. ;For all kind of other items
  192. ;Calc: (DamageMin*25/ItemLevel+5)+DamageMin
  193. ;Calc: (DamageMax*25/ItemLevel+5)+DamageMax
  194. ;Calc: (MagicPower*25/ItemLevel+5)+MagicPower
  195. ;Calc: (SuccesBlock*25/ItemLevel+5)+SuccesBlock
  196. ;Calc: ((Defense*12/ItemLevel)+(ItemLevel/5))+4+Defense
  197. ;--------------------------------------------------------------------------------
  198. .ElseIf ([Edx].Item_NewOption !=0)
  199.   .If ([Edx].Item_Level != 0)
  200.     Movsx Eax, [Edx].Item_DamageMin
  201.     IMul Eax, Eax, 25
  202.     Movsx Ecx, [Edx].Item_Level
  203.     Xor Edx, Edx ;Optimisation instead CDQ
  204.     IDiv Ecx
  205.     Add Eax, 5
  206.     Mov Edx, MyStruct
  207.     Add [Edx].Item_DamageMin, Ax
  208.     Movsx Eax, [Edx].Item_DamageMax
  209.     IMul Eax, Eax, 25
  210.     Movsx Ecx, [Edx].Item_Level
  211.     Xor Edx, Edx ;Optimisation instead CDQ
  212.     IDiv Ecx
  213.     Add Eax, 5
  214.     Mov Edx, MyStruct
  215.     Add [Edx].Item_DamageMax, Ax
  216.     Movsx Eax, [Edx].Item_MagicPower
  217.     IMul Eax, Eax, 25
  218.     Movsx Ecx, [Edx].Item_Level
  219.     Xor Edx, Edx ;Optimisation instead CDQ
  220.     IDiv Ecx
  221.     Add Eax, 5
  222.     Mov Edx, MyStruct
  223.     Add [Edx].Item_MagicPower, Ax
  224.     Movsx Eax, [Edx].Item_SuccesfulBlocking
  225.     IMul Eax, Eax, 25
  226.     Movsx Ecx, [Edx].Item_Level
  227.     Xor Edx, Edx ;Optimisation instead CDQ
  228.     IDiv Ecx
  229.     Add Eax, 5
  230.     Mov Edx, MyStruct
  231.     Add [Edx].Item_SuccesfulBlocking, Al
  232.     Movsx Eax, [Edx].Item_Defense
  233.     IMul Eax, Eax, 12
  234.     Movsx Ecx, [Edx].Item_Level
  235.     Xor Edx, Edx ;Optimisation instead CDQ
  236.     IDiv Ecx
  237.     Mov Edx, MyStruct
  238.     Mov Ecx, Eax
  239.     Movsx Eax, [Edx].Item_Level
  240.     Xor Edx, Edx ;Optimisation instead CDQ
  241.     Mov Esi, 5
  242.     IDiv Esi
  243.     Lea Eax, [Ecx + Eax + 4]
  244.     Mov Edx, MyStruct
  245.     Add [Edx].Item_Defense, Al
  246.   .EndIf
  247. .EndIf
  248. ;----------------------------------------------------------------------------------------------------
  249. ;Set DamageMin,DamageMax,MagicPower, SuccesfulBlocking, Defense & MagicDefense BASIC calculation
  250. ;Calc: (ItemLvl*4)+DamageMin Or DamageMax
  251. ;----------------------------------------------------------------------------------------------------
  252. Movsx Eax, [Edx].Item_DamageMin
  253. Movsx Ebx, [Edx].Item_Level
  254. Lea Eax, [Eax + Ebx * 4]
  255. Mov [Edx].Item_DamageMin, Ax
  256. Movsx Eax, [Edx].Item_DamageMax
  257. Movsx Ebx, [Edx].Item_Level
  258. Lea Eax, [Eax + Ebx * 4]
  259. Mov [Edx].Item_DamageMax, Ax
  260. Movsx Eax, [Edx].Item_MagicPower
  261. Movsx Ebx, [Edx].Item_Level
  262. Lea Eax, [Eax + Ebx * 4]
  263. Mov [Edx].Item_MagicPower, Ax
  264. Movsx Eax, [Edx].Item_SuccesfulBlocking
  265. Movsx Ebx, [Edx].Item_Level
  266. Lea Eax, [Eax + Ebx * 4]
  267. Mov [Edx].Item_SuccesfulBlocking, Al
  268. Movsx Eax, [Edx].Item_Defense
  269. Movsx Ebx, [Edx].Item_Level
  270. Lea Eax, [Eax + Ebx * 4]
  271. Mov [Edx].Item_Defense, Al
  272. Movsx Eax, [Edx].Item_MagicDefense
  273. Movsx Ebx, [Edx].Item_Level
  274. Lea Eax, [Eax + Ebx * 4]
  275. Mov [Edx].Item_MagicDefense, Al
  276. ;--------------------------------------------------------------------------------------------------------------
  277. ;Set DamageMin, DamageMax, MagicPower, SuccesfulBlocking, Defense & MagicDefense addition if level is
  278. ;greater than 10.
  279. ;Calc: ((ItemLevel-9)+(ItemLevel-8))/2+DamageMin
  280. ;Calc: ((ItemLevel-9)+(ItemLevel-8))/2+DamageMax
  281. ;Calc: ((ItemLevel-9)+(ItemLevel-8))/2+MagicPower
  282. ;---------------------------------------------------------------------------------------------------------------
  283. .If ([Edx].Item_Level >= 10)
  284.   Movsx Eax, [Edx].Item_Level
  285.   Sub Eax, 9
  286.   Movsx Ebx, [Edx].Item_Level
  287.   Sub Ebx, 8
  288.   IMul Eax, Ebx
  289.   Sar Eax, 1 ;/2
  290.   Add [Edx].Item_DamageMin, Ax
  291.   Add [Edx].Item_DamageMax, Ax
  292.   Add [Edx].Item_MagicPower, Ax
  293.   Add [Edx].Item_SuccesfulBlocking, Al
  294.   Add [Edx].Item_Defense, Al
  295.   Add [Edx].Item_MagicDefense, Al
  296. .EndIf
  297. ;-------------------------------------------------------
  298. ;Add Item_Level to Item_Defense if its shield or helms
  299. ;-------------------------------------------------------
  300. .If (ItemType >=6) || (ItemType < 7) ;Only for shields and helms
  301.   Movsx Eax, [Edx].Item_Level
  302.   Add [Edx].Item_Defense, Al
  303.   .If ([Edx].Item_SetOption != 0)
  304.     .If ([Edx].Item_Level !=0)
  305.        Movsx Eax, [Edx].Item_Defense
  306.        IMul Eax, Eax, 20
  307.        Xor Edx, Edx ;Optimisation instead CDQ
  308.        IDiv Bonus
  309.        Add Eax, 2
  310.        Mov Edx, MyStruct
  311.        Add [Edx].Item_Defense, Al
  312.     .EndIf
  313.   .EndIf
  314. ;------------------------------------------------------
  315. ;Add determinated defense bonus to some items
  316. ;Wings Spirit, Soul, Dragon, Cape Of Lord & DarkHorse
  317. ;Have the same bonus:
  318. ;Calc: ItemLevel*2+Defense
  319. ;
  320. ;Also Cape Of Lord have an extra bonus:
  321. ;Calc: ItemLevel*2+15+Defense
  322. ;------------------------------------------------------
  323. .ElseIf (ItemType == 12) && (ItemIndex >= 3) && (ItemIndex < 6) ;Wings Spirit, Soul & Dragon
  324.   Jmp @AddBonusDef
  325. .ElseIf (ItemType == 13) && (ItemIndex == 30) ;Cape Of Lord
  326.   Movsx Eax, [Edx].Item_Level
  327.   Lea Ebx, [Eax + Eax + 15]
  328.   Add [Edx].Item_Defense, Bl
  329.   Jmp @AddBonusDef
  330. .ElseIf (ItemType == 13) && (ItemIndex == 4) ;DarkHorse
  331. @AddBonusDef:
  332.   Movsx Eax, [Edx].Item_Level
  333.   Shl Eax, 1 ;*2
  334.   Add [Edx].Item_Defense, Al
  335. .EndIf
  336. assume edx:NOTHING
  337. assume ecx:NOTHING
  338. ret
  339. V_CItem_SetBonusByOptions EndP
  341. V_CItem_SetReqLevel Proc Uses Edx Ecx ItemType:DWord, ItemIndex:DWord, NewOption:Dword
  342. Local pThisItem:DWord
  343. Local MyStruct:DWord
  344. ;----------------------------------------------------
  345. ;Savre structs into locals and assume.
  346. ;----------------------------------------------------
  347. Assume Edx:Ptr ItemStruct
  348. Assume Ecx:Ptr ITEM_ATTRIBUTE_STRUCT ;From Item.txt
  349. Mov pThisItem, Ecx
  350. Mov MyStruct, Edx
  351. ;--------------------------------------
  352. ;Check if item need a required level
  353. ;--------------------------------------
  354. .If ([Ecx].ReqVars.ReqLevel != 0)
  355. ;----------------------------------
  356. ;item DarkHorse
  357. ;Calc: PetItemLevel*2+218
  358. ;-----------------------------------
  359.   .If (ItemType == 13) && (ItemIndex == 4) ;DarkHorse
  360.     Mov Eax, [Edx].Item_PetItemLevel
  361.     Lea Ebx, [Eax + Eax + 218]
  362.     Mov [Edx].Item_ReqLevel, Bx
  363. ;----------------------------------
  364. ;items Wings Spirit, Soul & Dragon
  365. ;Calc: ReqLevel+(ItemLvl*5)
  366. ;-----------------------------------
  367.   .ElseIf (ItemType == 12) && (ItemIndex >= 3) && (ItemIndex < 6) ; items Wings Spirit, Soul & Dragon
  368.     Movsx Eax, [Ecx].ReqVars.ReqLevel
  369.     Movsx Ebx, [Edx].Item_Level
  370.     imul ebx, ebx, 5
  371.     add eax, ebx
  372.     Mov [Edx].Item_ReqLevel, Ax
  373. ;-----------------------------------------
  374. ;Items: All Orbs + Jewel Chaos (WZ bug)
  375. ;       or Item(Kor).txt that i have bug.
  376. ;Calc: No calc
  377. ;-----------------------------------------
  378.   .ElseIf (ItemType == 13) && (ItemIndex >= 7) && (ItemIndex < 18)
  379.     Movsx Eax, [Ecx].ReqVars.ReqLevel
  380.     Mov [Edx].Item_ReqLevel, Ax
  381. ;----------------------------------
  382. ;All Items Type from 0 to 12
  383. ;This means (sets & weapons)
  384. ;Calc: ReqLevel+(ItemLvl*5)
  385. ;-----------------------------------
  386.   .ElseIf (ItemType >= 0) && (ItemType > 12)
  387.     Movsx Eax, [Ecx].ReqVars.ReqLevel
  388.     Mov [Edx].Item_ReqLevel, Ax
  389. ;----------------------------------
  390. ;All rest of items
  391. ;Calc: ReqLevel+(ItemLvl*4)
  392. ;-----------------------------------
  393.   .Else
  394.     Movsx Eax, [Ecx].ReqVars.ReqLevel
  395.     Movsx Ebx, [Edx].Item_Level
  396.     Lea Eax, [Eax + Ebx * 4]
  397.     Mov [Edx].Item_ReqLevel, Ax
  398.   .Endif
  399.   Jmp @Next
  400. .EndIf
  401. Mov [Edx].Item_ReqLevel, 0
  402. ;----------------------------------
  403. ;item "Transformation Ring"
  404. ;If level > 2, reqlvl = 50
  405. ;If level <= 2, Reqlvl = 20
  406. ;-----------------------------------
  407. @Next:
  408. .If (ItemType == 13) && (ItemIndex == 10) ;Transformation Ring
  409.   .If ([Edx].Item_Level <= 2) ; || (BonusRequirementStats <= 2) (Removed for now)
  410.     Mov [Edx].Item_ReqLevel, 20
  411.   .Else
  412.     Mov [Edx].Item_ReqLevel, 50
  413.   .EndIf
  414. .EndIf
  415. ;-----------------------------------
  416. ;Bonus "NewOption" for all weapons
  417. ;and sets.
  418. ;Calc: ItemReqLevel + 20
  419. ;-----------------------------------
  420. Mov Eax, NewOption
  421. And Eax, 3FH
  422. .If (Eax != 0)
  423.  .If (ItemType >= 0) && (ItemType < 12)
  424.    Add [Edx].Item_ReqLevel, 20
  425.  .EndIf
  426. .EndIf
  427. assume edx:NOTHING
  428. assume ecx:NOTHING
  429. ret
  430. V_CItem_SetReqLevel EndP
  432. V_CItem_SetRequiredStats Proc Uses Edx Ecx ItemType:Dword, ItemIndex:Dword
  433. Local BonusRequirementStats:DWord
  434. Local pThisItem:DWord
  435. Local MyStruct:DWord
  436. ;----------------------------------------------------
  437. ;Savre structs into locals and assume.
  438. ;----------------------------------------------------
  439. Assume Edx:Ptr ItemStruct
  440. Assume Ecx:Ptr ITEM_ATTRIBUTE_STRUCT ;From Item.txt
  441. Mov MyStruct, Edx
  442. Mov pThisItem, Ecx
  443. ;------------------------------------------------------
  444. ;Give bonus in base of "NewOption" & "SetOption"
  445. ;for required stats.
  446. ;Calc: ItemLevel + 25 = Bonus
  447. ;------------------------------------------------------
  448. .If ([Edx].Item_NewOption != 0) || ([Edx].Item_SetOption != 0)
  449.   Movsx Eax, [Edx].Item_Level
  450.   Add Eax, 25
  451.   Mov BonusRequirementStats, Eax
  452. .Else
  453.   Mov BonusRequirementStats, 0
  454. .EndIf
  455. ;------------------------------------------------------
  456. ;Set Requiered Strenght
  457. ;Calc: (((ItemLevel*3+Bonus)*ReqStrenght)*3/100)+20
  458. ;------------------------------------------------------
  459. .If ([Ecx].ReqVars.ReqStrenght != 0)
  460.  Movsx Eax, [Ecx].ReqVars.ReqStrenght
  461.  Movsx Ebx, [Edx].Item_Level
  462.  IMul Ebx, Ebx, 3
  463.  Add Ebx, BonusRequirementStats
  464.  IMul Eax, Ebx
  465.  IMul Eax, Eax, 3
  466.  Xor Edx, Edx ;optimisation instead CDQ
  467.  Mov Ecx, 100
  468.  IDiv Ecx
  469.  Add Eax, 20
  470.  Mov Edx, MyStruct
  471.  Mov [Edx].Item_ReqStr, Ax
  472. .Else
  473.  Mov [Edx].Item_ReqStr, 0
  474. .EndIf
  475. Mov Ecx, pThisItem
  476. ;------------------------------------------------------
  477. ;Set Requiered Dexterity
  478. ;Calc: (((ItemLevel*3+Bonus)*ReqDex)*3/100)+20
  479. ;------------------------------------------------------
  480. .If ([Ecx].ReqVars.ReqDex != 0)
  481.  Movsx Eax, [Ecx].ReqVars.ReqDex
  482.  Movsx Ebx, [Edx].Item_Level
  483.  IMul Ebx, Ebx, 3
  484.  Add Ebx, BonusRequirementStats
  485.  IMul Eax, Ebx
  486.  IMul Eax, Eax, 3
  487.  Xor Edx, Edx ;optimisation instead CDQ
  488.  Mov Ecx, 100
  489.  IDiv Ecx
  490.  Add Eax, 20
  491.  Mov Edx, MyStruct
  492.  Mov [Edx].Item_ReqDex, Ax
  493. .Else
  494.  Mov [Edx].Item_ReqDex, 0
  495. .EndIf
  496. mov ecx, pThisItem
  497. ;------------------------------------------------------
  498. ;Set Requiered Energy
  499. ;Calc: (((ItemLevel*3+Bonus)*ReqEner)*4/100)+20
  500. ;------------------------------------------------------
  501. .If ([Ecx].ReqVars.ReqEnergy != 0)
  502.  Movsx Eax, [Ecx].ReqVars.ReqEnergy
  503.  Movsx Ebx, [Edx].Item_Level
  504.  IMul Ebx, Ebx, 3
  505.  Add Ebx, BonusRequirementStats
  506.  IMul Eax, Ebx
  507.  Shl Eax, 2 ;*4 optimised instead of imul eax, eax, 4
  508.  Xor Edx, Edx ;optimisation instead CDQ
  509.  Mov Ecx, 100
  510.  IDiv Ecx
  511.  Add Eax, 20
  512.  Mov Edx, MyStruct
  513.  Mov [Edx].Item_ReqEner, Ax
  514. .Else
  515.  Mov [Edx].Item_ReqEner, 0
  516. .EndIf
  517. mov ecx, pThisItem
  518. ;------------------------------------------------------
  519. ;Set Requiered Vitality
  520. ;Calc: (((ItemLevel*3+Bonus)*ReqVit)*3/100)+20
  521. ;
  522. ;Note: WZ add here a limit for only sets & weapons
  523. ;      could have vitality requirement, this is
  524. ;      removed here.
  525. ;------------------------------------------------------
  526. .If ([Ecx].ReqVars.ReqVitality != 0)
  527.  Movsx Eax, [Ecx].ReqVars.ReqVitality
  528.  Movsx Ebx, [Edx].Item_Level
  529.  IMul Ebx, Ebx, 3
  530.  Add Ebx, BonusRequirementStats
  531.  IMul Eax, Ebx
  532.  IMul Eax, Eax, 3
  533.  Xor Edx, Edx ;optimisation instead CDQ
  534.  Mov Ecx, 100
  535.  IDiv Ecx
  536.  Add Eax, 20
  537.  Mov Edx, MyStruct
  538.  Mov [Edx].Item_ReqVit, Ax
  539. .Else
  540.  Mov [Edx].Item_ReqVit, 0
  541. .EndIf
  542. mov ecx, pThisItem
  543. ;------------------------------------------------------
  544. ;Set Requiered LeaderShip
  545. ;Calc: (((ItemLevel*3+Bonus)*ReqCmd)*3/100)+20
  546. ;
  547. ;Note: WZ add here a limit for only sets & weapons
  548. ;      could have LeaderShip requirement, this is
  549. ;      removed here.
  550. ;------------------------------------------------------
  551. .If ([Ecx].ReqVars.ReqLeaderShip != 0)
  552.  Mov Eax, [Ecx].ReqVars.ReqLeaderShip
  553.  Movsx Ebx, [Edx].Item_Level
  554.  IMul Ebx, Ebx, 3
  555.  Add Ebx, BonusRequirementStats
  556.  IMul Eax, Ebx
  557.  IMul Eax, Eax, 3
  558.  Xor Edx, Edx ;optimisation instead CDQ
  559.  Mov Ecx, 100
  560.  IDiv Ecx
  561.  Add Eax, 20
  562.  Mov Edx, MyStruct
  563.  Mov [Edx].Item_ReqLeaderShip, Ax
  564. .Else
  565.  Mov [Edx].Item_ReqLeaderShip, 0
  566. .EndIf
  567. ;------------------------------------------------------
  568. ;Set LeaderShip for item "DarkRaven"
  569. ;Meaby this is bugged WZ thing, ill research
  570. ;it, but for now is included.
  571. ;
  572. ;Calc: PetLvl*15+185
  573. ;------------------------------------------------------
  574. Mov Edx, MyStruct
  575. Mov Ecx, pThisItem
  576. .If (ItemType == 13) && (ItemIndex == 5) ;DarkRaven
  577.   Mov Eax, [Edx].Item_PetItemLevel
  578.   IMul Eax, Eax, 15
  579.   Add Eax, 185
  580.   Mov [Edx].Item_ReqLeaderShip, Ax
  581. .EndIf
  582. assume edx:NOTHING
  583. assume ecx:NOTHING
  584. Ret
  585. V_CItem_SetRequiredStats EndP
  587. V_CItem_SetBonusForPendants Proc Uses Edx Ecx ItemType:DWord, ItemIndex:DWord
  588. Local pThisItem:DWord
  589. Local MyStruct:DWord
  590. ;----------------------------------------------------
  591. ;Savre structs into locals and assume.
  592. ;----------------------------------------------------
  593. Assume Edx: Ptr ItemStruct
  594. Assume Ecx:Ptr ITEM_ATTRIBUTE_STRUCT ;From Item.txt
  595. Mov MyStruct, Ecx
  596. Mov pThisItem, Edx
  597. ;---------------------------------------------
  598. ;Add options to Pendants !
  599. ;---------------------------------------------
  600. .If (ItemType >= 0) && (ItemType < 6)
  601.   Jmp @2
  602. .ElseIf (ItemType == 13) && (ItemType == 12) ;Pendant of Lighting
  603.   Jmp @2
  604. .ElseIf (ItemType == 13) && (ItemType == 13) ;Pendant of Fire
  605.   Jmp @2
  606. .ElseIf (ItemType == 13) && (ItemType == 25) ;Pendant of Ice
  607.   Jmp @2
  608. .ElseIf (ItemType == 13) && (ItemType == 26) ;Pendant of Wind
  609.   Jmp @2
  610. .ElseIf (ItemType == 13) && (ItemType == 27) ;Pendant of Water
  611.   Jmp @2
  612. .ElseIf (ItemType == 13) && (ItemType == 28) ;Pendant of Ability
  613. @2:
  614.   Movsx Eax, [Edx].Item_NewOption
  615.   Sar Eax, 5
  616.   And Eax, 1
  617.   .If (Eax != 0)
  618.     Movsx Eax, [Edx].Item_SpecialNum
  619.     Mov [[Edx].Item_Special + Eax], 92 ;Special[SpecialNum] (array)  (SKILL = Unknown)
  620.     Add [Edx].Item_SpecialNum, 1
  621.   .EndIf
  622.   .If (ItemType == 5) ;Staffs
  623.     Jmp @3
  624.   .ElseIf (ItemType == 13) && (ItemType == 12) ;Pendant of Lighting
  625.     Jmp @3
  626.   .ElseIf (ItemType == 13) && (ItemType == 25) ;Pendant of Ice
  627.     Jmp @3
  628.   .ElseIf (ItemType == 13) && (ItemType == 27) ;Pendant of Water
  629. @3:
  630.     Movsx Eax, [Edx].Item_NewOption
  631.     Sar Eax, 4
  632.     And Eax, 1
  633.     .If (Eax != 0)
  634.       Movsx Eax, [Edx].Item_SpecialNum
  635.       Mov [[Edx].Item_Special + Eax], 95 ;Special[SpecialNum] (array)  (SKILL = Unknown)
  636.       Add [Edx].Item_SpecialNum, 1
  637.     .EndIf
  638.     Movsx Eax, [Edx].Item_NewOption
  639.     Sar Eax, 3
  640.     And Eax, 1
  641.     .If (Eax != 0)
  642.       Movsx Eax, [Edx].Item_SpecialNum
  643.       Mov [[Edx].Item_Special + Eax], 96 ;Special[SpecialNum] (array)  (SKILL = Unknown)
  644.       Add [Edx].Item_SpecialNum, 1
  645.     .EndIf
  646.   .Else
  647.     Movsx Eax, [Edx].Item_NewOption
  648.     Sar Eax, 4
  649.     And Eax, 1
  650.     .If (Eax != 0)
  651.       Movsx Eax, [Edx].Item_SpecialNum
  652.       Mov [[Edx].Item_Special + Eax], 93 ;Special[SpecialNum] (array)  (SKILL = Unknown)
  653.       Add [Edx].Item_SpecialNum, 1
  654.     .EndIf
  655.     Movsx Eax, [Edx].Item_NewOption
  656.     Sar Eax, 3
  657.     And Eax, 1
  658.     .If (Eax != 0)
  659.       Movsx Eax, [Edx].Item_SpecialNum
  660.       Mov [[Edx].Item_Special + Eax], 94 ;Special[SpecialNum] (array)  (SKILL = Unknown)
  661.       Add [Edx].Item_SpecialNum, 1
  662.     .EndIf
  663.   .EndIf
  664.   Movsx Eax, [Edx].Item_NewOption
  665.   Sar Eax, 2
  666.   And Eax, 1
  667.   .If (Eax != 0)
  668.     Movsx Eax, [Edx].Item_SpecialNum
  669.     Mov [[Edx].Item_Special + Eax], 97 ;Special[SpecialNum] (array)  (SKILL = Unknown)
  670.     Add [Edx].Item_SpecialNum, 1
  671.   .EndIf
  672.   Movsx Eax, [Edx].Item_NewOption
  673.   Sar Eax, 1
  674.   And Eax, 1
  675.   .If (Eax != 0)
  676.     Movsx Eax, [Edx].Item_SpecialNum
  677.     Mov [[Edx].Item_Special + Eax], 98 ;Special[SpecialNum] (array)  (SKILL = Unknown)
  678.     Add [Edx].Item_SpecialNum, 1
  679.   .EndIf
  680.   Movsx Eax, [Edx].Item_NewOption
  681.   And Eax, 1
  682.   .If (Eax != 0)
  683.     Movsx Eax, [Edx].Item_SpecialNum
  684.     Mov [[Edx].Item_Special + Eax], 99 ;Special[SpecialNum] (array)  (SKILL = Unknown)
  685.     Add [Edx].Item_SpecialNum, 1
  686.   .EndIf
  687. .EndIf
  688. assume edx:NOTHING
  689. assume ecx:NOTHING
  690. ret
  691. V_CItem_SetBonusForPendants EndP
  693. V_CItem_SetBonusForRings Proc Uses Edx Ecx ItemType:DWord, ItemIndex:DWord
  694. Local pThisItem:DWord
  695. Local MyStruct:DWord
  696. ;----------------------------------------------------
  697. ;Savre structs into locals and assume.
  698. ;----------------------------------------------------
  699. Assume Edx: Ptr ItemStruct
  700. Assume Ecx:Ptr ITEM_ATTRIBUTE_STRUCT ;From Item.txt
  701. Mov MyStruct, Ecx
  702. Mov pThisItem, Edx
  703. ;---------------------------------------------
  704. ;Add options to Rings !
  705. ;---------------------------------------------
  706. .If (ItemType >= 6) && (ItemType < 12)
  707.   Jmp @1
  708. .ElseIf (ItemType == 13) && (ItemType == 08) ;Ring Ice
  709.   Jmp @1
  710. .ElseIf (ItemType == 13) && (ItemType == 09) ;Ring Posion
  711.   Jmp @1
  712. .ElseIf (ItemType == 13) && (ItemType == 21) ;Ring Fire
  713.   Jmp @1
  714. .ElseIf (ItemType == 13) && (ItemType == 22) ;Ring Earth
  715.   Jmp @1
  716. .ElseIf (ItemType == 13) && (ItemType == 23) ;Ring Wind
  717.   Jmp @1
  718. .ElseIf (ItemType == 13) && (ItemType == 24) ;Ring Wind
  719. @1:
  720.   Movsx Eax, [Edx].Item_NewOption
  721.   Sar Eax, 5
  722.   And Eax, 1
  723.   .If (Eax != 0)
  724.     Movsx Eax, [Edx].Item_SpecialNum
  725.     Mov [[Edx].Item_Special + Eax], 86 ;Special[SpecialNum] (array)  (SKILL = Unknown)
  726.     Add [Edx].Item_SpecialNum, 1
  727.   .EndIf
  728.   Movsx Eax, [Edx].Item_NewOption
  729.   Sar Eax, 4
  730.   And Eax, 1
  731.   .If (Eax != 0)
  732.     Movsx Eax, [Edx].Item_SpecialNum
  733.     Mov [[Edx].Item_Special + Eax], 87 ;Special[SpecialNum] (array)  (SKILL = Unknown)
  734.     Add [Edx].Item_SpecialNum, 1
  735.   .EndIf
  736.   Movsx Eax, [Edx].Item_NewOption
  737.   Sar Eax, 3
  738.   And Eax, 1
  739.   .If (Eax != 0)
  740.     Movsx Eax, [Edx].Item_SpecialNum
  741.     Mov [[Edx].Item_Special + Eax], 88 ;Special[SpecialNum] (array)  (SKILL = Unknown)
  742.     Add [Edx].Item_SpecialNum, 1
  743.   .EndIf
  744.   Movsx Eax, [Edx].Item_NewOption
  745.   Sar Eax, 2
  746.   And Eax, 1
  747.   .If (Eax != 0)
  748.     Movsx Eax, [Edx].Item_SpecialNum
  749.     Mov [[Edx].Item_Special + Eax], 89 ;Special[SpecialNum] (array)  (SKILL = Unknown)
  750.     Add [Edx].Item_SpecialNum, 1
  751.   .EndIf
  752.   Movsx Eax, [Edx].Item_NewOption
  753.   Sar Eax, 1
  754.   And Eax, 1
  755.   .If (Eax != 0)
  756.     Movsx Eax, [Edx].Item_SpecialNum
  757.     Mov [[Edx].Item_Special + Eax], 90 ;Special[SpecialNum] (array)  (SKILL = Unknown)
  758.     Add [Edx].Item_SpecialNum, 1
  759.   .EndIf
  760.   Movsx Eax, [Edx].Item_NewOption
  761.   And Eax, 1
  762.   .If (Eax != 0)
  763.     Movsx Eax, [Edx].Item_SpecialNum
  764.     Mov [[Edx].Item_Special + Eax], 91 ;Special[SpecialNum] (array)  (SKILL = Unknown)
  765.     Add [Edx].Item_SpecialNum, 1
  766.   .EndIf
  767. .EndIf
  768. ret
  769. assume edx:NOTHING
  770. assume ecx:NOTHING
  771. V_CItem_SetBonusForRings EndP
  773. V_CItem_SetSkillOpt Proc Uses Edx Ecx Option1:Dword
  774. Local pThisItem:DWord
  775. Local MyStruct:DWord
  776. ;----------------------------------------------------
  777. ;Save structs into locals and assume.
  778. ;----------------------------------------------------
  779. Assume Edx: Ptr ItemStruct
  780. Assume Ecx:Ptr ITEM_ATTRIBUTE_STRUCT ;From Item.txt
  781. Mov pThisItem, Ecx
  782. Mov MyStruct, Edx
  783. ;------------------------------------------------------
  784. ;Set If SkillOption is enabled.
  785. ;------------------------------------------------------
  786. .If (Option1 != 0)
  787.   .If ([Ecx].UniversalVars.SkillType != 0)
  788.     Movsx Eax, [Edx].Item_SpecialNum
  789.     Mov Ebx, [Ecx].UniversalVars.SkillType
  790.     Mov [[Edx].Item_Special + Eax], Bl ;Special[SpecialNum] (array)
  791.     Mov [Edx].Item_Option1, 1
  792.   .EndIf
  793. .EndIf
  794. ret
  795. assume edx:NOTHING
  796. assume ecx:NOTHING
  797. V_CItem_SetSkillOpt EndP
  799. V_CItem_SetOption2 Proc Uses Edx Ecx ItemType:DWord, ItemIndex:DWord, Option2:DWord
  800. Local pThisItem:DWord
  801. Local MyStruct:DWord
  802. ;----------------------------------------------------
  803. ;Save structs into locals and assume.
  804. ;----------------------------------------------------
  805. Assume Edx: Ptr ItemStruct
  806. Assume Ecx:Ptr ITEM_ATTRIBUTE_STRUCT ;From Item.txt
  807. Mov pThisItem, Ecx
  808. Mov MyStruct, Edx
  809. ;------------------------------------------------------
  810. ;Set If Option2 is abled and change Some Skill Types
  811. ;For some items, like weapons, sets and all wings.
  812. ;------------------------------------------------------
  813. .If (Option2 != 0)
  814.  .If (ItemType >= 0) && (ItemType < 12) ;Weapons & Sets
  815.    Jmp @SetOption
  816.  .ElseIf (ItemType == 12) && (ItemIndex >= 0) && (ItemIndex <= 6) ;items Wings Elf, Satan, Heaven, Spirit, Soul, Dragon & Darkness
  817.    Jmp @SetOption
  818.  .ElseIf (ItemType == 13) && (ItemIndex == 30) ;Cape Lord
  819. @SetOption:
  820.    Mov [Edx].Item_Option2, 1
  821.    Movsx Eax, [Edx].Item_SpecialNum
  822.    Mov [[Edx].Item_Special + Eax], 84 ;Special[SpecialNum] (array)  (SKILL = Unknown)
  823.  .EndIf
  824. .EndIf
  825. ret
  826. assume edx:NOTHING
  827. assume ecx:NOTHING
  828. V_CItem_SetOption2 EndP
  830. V_CItem_SetOption3 Proc Uses Edx Ecx ItemType:DWord, ItemIndex:DWord, Option3:DWord
  831. Local pThisItem:DWord
  832. Local MyStruct:DWord
  833. ;----------------------------------------------------
  834. ;Save structs into locals and assume.
  835. ;----------------------------------------------------
  836. Assume Edx: Ptr ItemStruct
  837. Assume Ecx:Ptr ITEM_ATTRIBUTE_STRUCT ;From Item.txt
  838. Mov pThisItem, Ecx
  839. Mov MyStruct, Edx
  840. ;------------------------------------------------------
  841. ;Set If Option3 is abled and change Some Skill Types
  842. ;And Required stats.
  843. ;For some items, like weapons, sets and all wings.
  844. ;------------------------------------------------------
  845. .If (Option3 != 0)
  846.  .If (ItemType >= 0) && (ItemType < 4) ;Swords to Bows
  847.    Movsx Eax, [Edx].Item_SpecialNum
  848.    Mov [[Edx].Item_Special + Eax], 80 ;Special[SpecialNum] (array)  (SKILL = Increa Dmg Min Origin)
  849.    Mov Eax, Option3
  850.    Mov [Edx].Item_Option3, Al
  851.    And Eax, 0FFH ;To byte
  852.    Shl Eax, 2 ;*4
  853.    Add [Edx].Item_ReqStr, Ax
  854.  .ElseIf (ItemType == 5) ;Staffs
  855.    Movsx Eax, [Edx].Item_SpecialNum
  856.    Mov [[Edx].Item_Special + Eax], 81 ;Special[SpecialNum] (array)  (SKILL = Unknown)
  857.    Mov Eax, Option3
  858.    Mov [Edx].Item_Option3, Al
  859.    And Eax, 0FFH ;To byte
  860.    Shl Eax, 2 ;*4
  861.    Add [Edx].Item_ReqStr, Ax
  862.  .ElseIf (ItemType == 6) ;Shields
  863.    Movsx Eax, [Edx].Item_SpecialNum
  864.    Mov [[Edx].Item_Special + Eax], 82 ;Special[SpecialNum] (array)  (SKILL = Unknown)
  865.    Mov Eax, Option3
  866.    Mov [Edx].Item_Option3, Al
  867.    And Eax, 0FFH ;To byte
  868.    Shl Eax, 2 ;*4
  869.    Add [Edx].Item_ReqStr, Ax
  870.  .ElseIf (ItemType >= 7) && (ItemType < 11) ;Helms to Boots
  871.    Movsx Eax, [Edx].Item_SpecialNum
  872.    Mov [[Edx].Item_Special + Eax], 83 ;Special[SpecialNum] (array)  (SKILL = Bonus defense)
  873.    Mov Eax, Option3
  874.    Mov [Edx].Item_Option3, Al
  875.    And Eax, 0FFH ;To byte
  876.    Shl Eax, 2 ;*4
  877.    Add [Edx].Item_ReqStr, Ax
  878.  .ElseIf (ItemType == 13) && (ItemIndex == 24) ;Ring Of Magic
  879.    Movsx Eax, [Edx].Item_SpecialNum
  880.    Mov [[Edx].Item_Special + Eax], 172 ;Special[SpecialNum] (array)  (SKILL = Unknown)
  881.    Mov Eax, Option3
  882.    Mov [Edx].Item_Option3, Al
  883.  .ElseIf (ItemType == 13) && (ItemIndex == 28) ;Pendant of ability
  884.    Movsx Eax, [Edx].Item_SpecialNum
  885.    Mov [[Edx].Item_Special + Eax], 173 ;Special[SpecialNum] (array)  (SKILL = Unknown)
  886.    Mov Eax, Option3
  887.    Mov [Edx].Item_Option3, Al
  888.  .ElseIf (ItemType == 13) && (ItemIndex >= 20) && (ItemIndex <= 28)  ;From ring Wizardy to Pendant Ability, excluding the 2 that are up
  889.    Movsx Eax, [Edx].Item_SpecialNum
  890.    Mov [[Edx].Item_Special + Eax], 85 ;Special[SpecialNum] (array)  (SKILL = Unknown)
  891.    Mov Eax, Option3
  892.    Mov [Edx].Item_Option3, Al
  893.  .ElseIf (ItemType == 13) && (ItemIndex == 30) ;Cape of lord
  894.    Movsx Eax, [Edx].Item_SpecialNum
  895.    Mov [[Edx].Item_Special + Eax], 80 ;Special[SpecialNum] (array)  (SKILL = Unknown)
  896.    Mov Eax, Option3
  897.    Mov [Edx].Item_Option3, Al
  898.    And Eax, 0FFH ;To byte
  899.    Shl Eax, 2 ;*4
  900.    Add [Edx].Item_ReqStr, Ax
  901.  .ElseIf (ItemType == 12) && (ItemIndex == 0) ;Wing of elf
  902.    Movsx Eax, [Edx].Item_SpecialNum
  903.    Mov [[Edx].Item_Special + Eax], 85 ;Special[SpecialNum] (array)  (SKILL = Unknown)
  904.    Mov Eax, Option3
  905.    Mov [Edx].Item_Option3, Al
  906.  .ElseIf (ItemType == 12) && (ItemIndex == 1) ;Wing of Heaven
  907.    Movsx Eax, [Edx].Item_SpecialNum
  908.    Mov [[Edx].Item_Special + Eax], 81 ;Special[SpecialNum] (array)  (SKILL = Unknown)
  909.    Mov Eax, Option3
  910.    Mov [Edx].Item_Option3, Al
  911.    And Eax, 0FFH ;To byte
  912.    Shl Eax, 2 ;*4
  913.    Add [Edx].Item_ReqStr, Ax
  914.  .ElseIf (ItemType == 12) && (ItemIndex == 2) ;Wing of Satan
  915.    Movsx Eax, [Edx].Item_SpecialNum
  916.    Mov [[Edx].Item_Special + Eax], 80 ;Special[SpecialNum] (array)  (SKILL = Unknown)
  917.    Mov Eax, Option3
  918.    Mov [Edx].Item_Option3, Al
  919.    And Eax, 0FFH ;To byte
  920.    Shl Eax, 2 ;*4
  921.    Add [Edx].Item_ReqStr, Ax
  922.  .ElseIf (ItemType == 12) && (ItemIndex == 3) ;Wing of Spirits
  923.    Movsx Eax, [Edx].Item_SpecialNum
  924.    Mov [[Edx].Item_Special + Eax], 80 ;Special[SpecialNum] (array)  (SKILL = Unknown)
  925.    Mov Eax, Option3
  926.    Mov [Edx].Item_Option3, Al
  927.    And Eax, 0FFH ;To byte
  928.    Shl Eax, 2 ;*4
  929.    Add [Edx].Item_ReqStr, Ax
  930.    Movsx Eax, [Edx].Item_NewOption
  931.    And Eax, 32
  932.    .If ([Edx].Item_NewOption != 0)
  933.      Movsx Eax, [Edx].Item_SpecialNum
  934.      Mov [[Edx].Item_Special + Eax], 85 ;Special[SpecialNum] (array)  (SKILL = Unknown)
  935.    .EndIf
  936.  .ElseIf (ItemType == 12) && (ItemIndex == 4) ;Wings of Soul
  937.    Movsx Eax, [Edx].Item_SpecialNum
  938.    Mov [[Edx].Item_Special + Eax], 85 ;Special[SpecialNum] (array)  (SKILL = Unknown)
  939.    Mov Eax, Option3
  940.    Mov [Edx].Item_Option3, Al
  941.    And Eax, 0FFH ;To byte
  942.    Shl Eax, 2 ;*4
  943.    Add [Edx].Item_ReqStr, Ax
  944.    Movsx Eax, [Edx].Item_NewOption
  945.    And Eax, 32
  946.    .If ([Edx].Item_NewOption != 0)
  947.      Movsx Eax, [Edx].Item_SpecialNum
  948.      Mov [[Edx].Item_Special + Eax], 81 ;Special[SpecialNum] (array)  (SKILL = Unknown)
  949.    .EndIf
  950.  .ElseIf (ItemType == 12) && (ItemIndex == 5) ;Wings of Dragon
  951.    Movsx Eax, [Edx].Item_SpecialNum
  952.    Mov [[Edx].Item_Special + Eax], 85 ;Special[SpecialNum] (array)  (SKILL = Unknown)
  953.    Mov Eax, Option3
  954.    Mov [Edx].Item_Option3, Al
  955.    And Eax, 0FFH ;To byte
  956.    Shl Eax, 2 ;*4
  957.    Add [Edx].Item_ReqStr, Ax
  958.    Movsx Eax, [Edx].Item_NewOption
  959.    And Eax, 32
  960.    .If ([Edx].Item_NewOption != 0)
  961.      Movsx Eax, [Edx].Item_SpecialNum
  962.      Mov [[Edx].Item_Special + Eax], 80 ;Special[SpecialNum] (array)  (SKILL = Unknown)
  963.    .EndIf
  964.  .ElseIf (ItemType == 12) && (ItemIndex == 6) ;Wings of Darkness
  965.    Movsx Eax, [Edx].Item_SpecialNum
  966.    Mov [[Edx].Item_Special + Eax], 81 ;Special[SpecialNum] (array)  (SKILL = Unknown)
  967.    Mov Eax, Option3
  968.    Mov [Edx].Item_Option3, Al
  969.    And Eax, 0FFH ;To byte
  970.    Shl Eax, 2 ;*4
  971.    Add [Edx].Item_ReqStr, Ax
  972.    Movsx Eax, [Edx].Item_NewOption
  973.    And Eax, 32
  974.    .If ([Edx].Item_NewOption != 0)
  975.      Movsx Eax, [Edx].Item_SpecialNum
  976.      Mov [[Edx].Item_Special + Eax], 80 ;Special[SpecialNum] (array)  (SKILL = Bonus Dmg Min)
  977.    .EndIf
  978.  .ElseIf (ItemType == 13) && (ItemIndex == 3) ;Horn of Dinorant
  979.    Mov Eax, Option3
  980.    Mov [Edx].Item_Option3, Al
  981.    And Eax, 2
  982.    .If (Eax != 0)
  983.      Movsx Eax, [Edx].Item_SpecialNum
  984.      Mov [[Edx].Item_Special + Eax], 103 ;Special[SpecialNum] (array)  (SKILL = Unknown)
  985.      Add [Edx].Item_SpecialNum, 1
  986.    .EndIf
  987.    Mov Eax, Option3
  988.    And Eax, 4
  989.    .If (Eax != 0)
  990.      Movsx Eax, [Edx].Item_SpecialNum
  991.      Mov [[Edx].Item_Special + Eax], 97 ;Special[SpecialNum] (array)  (SKILL = Unknown)
  992.      Add [Edx].Item_SpecialNum, 1
  993.      Add [Edx].Item_AttackSpeed, 5
  994.    .EndIf
  995.    Mov Eax, Option3
  996.    And Eax, 1
  997.    .If (Eax != 0)
  998.      Movsx Eax, [Edx].Item_SpecialNum
  999.      Mov [[Edx].Item_Special + Eax], 104 ;Special[SpecialNum] (array)  (SKILL = Dinorant Reduce attack dmg)
  1000.    .EndIf
  1001.  .ElseIf (ItemType == 13) && (ItemIndex == 30) ;Cape of Lord
  1002.    Movsx Eax, [Edx].Item_SpecialNum
  1003.    Mov [[Edx].Item_Special + Eax], 80 ;Special[SpecialNum] (array)  (SKILL = Bonus Dmg Min)
  1004.    Mov Eax, Option3
  1005.    Mov [Edx].Item_Option3, Al
  1006.    And Eax, 0FFH ;To byte
  1007.    Shl Eax, 2 ;*4
  1008.    Add [Edx].Item_ReqStr, Ax
  1009.  .EndIf
  1010. .EndIf
  1011. assume edx:NOTHING
  1012. assume ecx:NOTHING
  1013. ret
  1014. V_CItem_SetOption3 EndP