[Aportes indexados] New* Elemental Dmg

  • Iniciador del tema Wolftein
  • Fecha de inicio
Estado
Cerrado para nuevas respuestas.
W

Wolftein

Invitado
Bueno Aca Esta El Codigo

MODULO DECLARES

[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"> </li><li style="" class="li1">---Agregan-- </li><li style="" class="li2"><span style="color: #b1b100;">Public</span> <span style="color: #b1b100;">Enum</span> ElemType</li><li style="" class="li1">    Agua = <span style="color: #cc66cc;">1</span></li><li style="" class="li1">    Fuego = <span style="color: #cc66cc;">2</span></li><li style="" class="li2">    Aire = <span style="color: #cc66cc;">3</span></li><li style="" class="li1">    Tierra = <span style="color: #cc66cc;">4</span></li><li style="" class="li1">    Oscuro = <span style="color: #cc66cc;">5</span></li><li style="" class="li2"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Enum</span></li><li style="" class="li1">---Buscar---</li><li style="" class="li1">    Target <span style="color: #b1b100;">As</span> Byte </li><li style="" class="li2">    NeedStaff <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li><li style="" class="li1">    StaffAffected <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Boolean</span></li><li style="" class="li1">---Agregar Debajo---</li><li style="" class="li2">    Elemental <span style="color: #b1b100;">As</span> ElemType</li><li style="" class="li1">---Buscar---</li><li style="" class="li1">    DefensaMagicaMin <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li><li style="" class="li2">    Refuerzo <span style="color: #b1b100;">As</span> Byte</li><li style="" class="li1">---Agregar Debajo--</li><li style="" class="li1">      Elemental <span style="color: #b1b100;">As</span> ElemType</li><li style="" class="li2">---Buscar---</li><li style="" class="li1">    PFINFO <span style="color: #b1b100;">As</span> NpcPathFindingInfo</li><li style="" class="li1">---Agregar Debajo---</li><li style="" class="li2">    Elemental <span style="color: #b1b100;">As</span> ElemType</li><li style="" class="li1"> </li></ol></div>[/vb]

FILEIO.BAS
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"> </li><li style="" class="li1">----Buscar----</li><li style="" class="li2">    Hechizos<span style="color: #66cc66;">(</span>Hechizo<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">StaffAffected</span> = <span style="color: #b1b100;">CBool</span><span style="color: #66cc66;">(</span><span style="color: #b1b100;">val</span><span style="color: #66cc66;">(</span>Leer.<span style="color: #66cc66;">DarValor</span><span style="color: #66cc66;">(</span><span style="color: #ffffff;">"Hechizo"</span> & Hechizo, <span style="color: #ffffff;">"StaffAffected"</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">---Agregar Debajo----</li><li style="" class="li1">    Hechizos<span style="color: #66cc66;">(</span>Hechizo<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Elemental</span> = <span style="color: #b1b100;">val</span><span style="color: #66cc66;">(</span><span style="color: #b1b100;">val</span><span style="color: #66cc66;">(</span>Leer.<span style="color: #66cc66;">DarValor</span><span style="color: #66cc66;">(</span><span style="color: #ffffff;">"Hechizo"</span> & Hechizo, <span style="color: #ffffff;">"Elemental"</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span></li><li style="" class="li2">---Buscar---</li><li style="" class="li1">    ObjData<span style="color: #66cc66;">(</span>Object<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">NoSeCae</span> = <span style="color: #b1b100;">val</span><span style="color: #66cc66;">(</span>Leer.<span style="color: #66cc66;">DarValor</span><span style="color: #66cc66;">(</span><span style="color: #ffffff;">"OBJ"</span> & Object, <span style="color: #ffffff;">"NoSeCae"</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">---Agregar Debajo---</li><li style="" class="li2">    ObjData<span style="color: #66cc66;">(</span>Object<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Elemental</span> = <span style="color: #b1b100;">val</span><span style="color: #66cc66;">(</span>Leer.<span style="color: #66cc66;">DarValor</span><span style="color: #66cc66;">(</span><span style="color: #ffffff;">"OBJ"</span> & Object, <span style="color: #ffffff;">"Elemental"</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">---Buscar---</li><li style="" class="li1">Npclist<span style="color: #66cc66;">(</span>NpcIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Inflacion</span> = <span style="color: #b1b100;">val</span><span style="color: #66cc66;">(</span>GetVar<span style="color: #66cc66;">(</span>npcfile, <span style="color: #ffffff;">"NPC"</span> & NpcNumber, <span style="color: #ffffff;">"Inflacion"</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span></li><li style="" class="li2">---Aregar Debajo---</li><li style="" class="li1">Npclist<span style="color: #66cc66;">(</span>NpcIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Elemental</span> = <span style="color: #b1b100;">val</span><span style="color: #66cc66;">(</span>GetVar<span style="color: #66cc66;">(</span>npcfile, <span style="color: #ffffff;">"NPC"</span> & NpcNumber, <span style="color: #ffffff;">"Elemental"</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"> </li></ol></div>[/vb]

Ahora SISTEMA DE COMBATE
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"> </li><li style="" class="li1"> </li><li style="" class="li2">     ----BUSCAR----</li><li style="" class="li1">    CalcularDaño = <span style="color: #b1b100;">CInt</span><span style="color: #66cc66;">(</span>UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Stats</span>.<span style="color: #66cc66;">MaxHIT</span> / <span style="color: #cc66cc;">5</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">    ----Agregar Debajo----</li><li style="" class="li2">     <span style="color: #b1b100;">If</span> NpcIndex <> <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1">      CalcularDaño = <span style="color: #66cc66;">(</span>CalcularDaño * ElementalModification<span style="color: #66cc66;">(</span>ObjData<span style="color: #66cc66;">(</span>UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Invent</span>.<span style="color: #66cc66;">WeaponEqpObjIndex</span><span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Elemental</span>, Npclist<span style="color: #66cc66;">(</span>NpcIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Elemental</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span> / <span style="color: #cc66cc;">100</span></li><li style="" class="li1">     <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li2"> </li><li style="" class="li1">----Buscar----</li><li style="" class="li1">           absorbido = absorbido + defbarco - Resist</li><li style="" class="li2">           daño = daño - absorbido</li><li style="" class="li1">----Agregar Debajo---</li><li style="" class="li1">           daño = <span style="color: #66cc66;">(</span>daño * ElementalModification<span style="color: #66cc66;">(</span>ObjData<span style="color: #66cc66;">(</span>UserList<span style="color: #66cc66;">(</span>AtacanteIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Invent</span>.<span style="color: #66cc66;">WeaponEqpObjIndex</span><span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Elemental</span>, Obj<span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span> / <span style="color: #cc66cc;">100</span></li><li style="" class="li2"> </li><li style="" class="li1">----Buscar----</li><li style="" class="li1">             absorbido = absorbido + defbarco - Resist</li><li style="" class="li2">           daño = daño - absorbido</li><li style="" class="li1">----Agregar Debajo----</li><li style="" class="li1">           daño = <span style="color: #66cc66;">(</span>daño * ElementalModification<span style="color: #66cc66;">(</span>ObjData<span style="color: #66cc66;">(</span>UserList<span style="color: #66cc66;">(</span>AtacanteIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Invent</span>.<span style="color: #66cc66;">WeaponEqpObjIndex</span><span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Elemental</span>, Obj<span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span> / <span style="color: #cc66cc;">100</span></li><li style="" class="li2"> </li><li style="" class="li1">-----AL FINAL AGREGAR------</li><li style="" class="li1"><span style="color: #b1b100;">Function</span> ElementalModification<span style="color: #66cc66;">(</span>ElementalAttacker <span style="color: #b1b100;">As</span> ElemType, ElementalDefender <span style="color: #b1b100;">As</span> ElemType<span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li><li style="" class="li2">Select <span style="color: #b1b100;">Case</span> ElementalAttacker</li><li style="" class="li1">             <span style="color: #b1b100;">Case</span> <span style="color: #cc66cc;">1</span></li><li style="" class="li1">                   <span style="color: #b1b100;">If</span> ElementalDefender = Fuego <span style="color: #b1b100;">Then</span></li><li style="" class="li2">                      ElementalModification = <span style="color: #cc66cc;">200</span></li><li style="" class="li1">                   <span style="color: #b1b100;">ElseIf</span> ElementalDefender = Tierra <span style="color: #b1b100;">Then</span></li><li style="" class="li1">                     ElementalModification = <span style="color: #cc66cc;">25</span></li><li style="" class="li2">                   <span style="color: #b1b100;">Else</span></li><li style="" class="li1">                     ElementalModification = <span style="color: #cc66cc;">100</span></li><li style="" class="li1">                   <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li2">             <span style="color: #b1b100;">Case</span> <span style="color: #cc66cc;">2</span></li><li style="" class="li1">                   <span style="color: #b1b100;">If</span> ElementalDefender = Tierra <span style="color: #b1b100;">Then</span></li><li style="" class="li1">                      ElementalModification = <span style="color: #cc66cc;">200</span></li><li style="" class="li2">                   <span style="color: #b1b100;">ElseIf</span> ElementalDefender = Agua <span style="color: #b1b100;">Then</span></li><li style="" class="li1">                     ElementalModification = <span style="color: #cc66cc;">25</span></li><li style="" class="li1">                   <span style="color: #b1b100;">Else</span></li><li style="" class="li2">                     ElementalModification = <span style="color: #cc66cc;">100</span></li><li style="" class="li1">                   <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li1">             <span style="color: #b1b100;">Case</span> <span style="color: #cc66cc;">3</span></li><li style="" class="li2">                   <span style="color: #b1b100;">If</span> ElementalDefender = Oscuro <span style="color: #b1b100;">Then</span></li><li style="" class="li1">                      ElementalModification = <span style="color: #cc66cc;">200</span></li><li style="" class="li1">                   <span style="color: #b1b100;">ElseIf</span> ElementalDefender = Tierra <span style="color: #b1b100;">Then</span></li><li style="" class="li2">                     ElementalModification = <span style="color: #cc66cc;">25</span></li><li style="" class="li1">                   <span style="color: #b1b100;">Else</span></li><li style="" class="li1">                     ElementalModification = <span style="color: #cc66cc;">100</span></li><li style="" class="li2">                   <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li1">             <span style="color: #b1b100;">Case</span> <span style="color: #cc66cc;">4</span></li><li style="" class="li1">                   <span style="color: #b1b100;">If</span> ElementalDefender = Aire <span style="color: #b1b100;">Then</span></li><li style="" class="li2">                      ElementalModification = <span style="color: #cc66cc;">200</span></li><li style="" class="li1">                   <span style="color: #b1b100;">ElseIf</span> ElementalDefender = Fuego <span style="color: #b1b100;">Then</span></li><li style="" class="li1">                     ElementalModification = <span style="color: #cc66cc;">25</span></li><li style="" class="li2">                   <span style="color: #b1b100;">Else</span></li><li style="" class="li1">                     ElementalModification = <span style="color: #cc66cc;">100</span></li><li style="" class="li1">                   <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li2">                 <span style="color: #b1b100;">Case</span> <span style="color: #cc66cc;">5</span></li><li style="" class="li1">                   <span style="color: #b1b100;">If</span> ElementalDefender = Aire <span style="color: #b1b100;">Then</span></li><li style="" class="li1">                      ElementalModification = <span style="color: #cc66cc;">200</span></li><li style="" class="li2">                   <span style="color: #b1b100;">ElseIf</span> ElementalDefender = Agua <span style="color: #b1b100;">Then</span></li><li style="" class="li1">                     ElementalModification = <span style="color: #cc66cc;">25</span></li><li style="" class="li1">                   <span style="color: #b1b100;">Else</span></li><li style="" class="li2">                     ElementalModification = <span style="color: #cc66cc;">100</span></li><li style="" class="li1">                   <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li1"> <span style="color: #b1b100;">End</span> Select</li><li style="" class="li2"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Function</span></li><li style="" class="li1"> </li></ol></div>[/vb]

EN LOS DATS DE LOS NPC,MAGIAS Y OBJ AGREGAR

ELEMENTAL = (Dpd 1 para agua,2 para fuego,3 para aire,4 para tierra,5 para oscuro)
EJ = ESPADA DE FUEGO
ELEMENTAL = 2
 
W

Wolftein

Invitado
Owangel dijo:
Hacemos una dupla re grosa, no? :p
Como te digo siempre, zarpados códigos, seguí asi! :D

Jeje Me Olvide La Idea De Hacer este codigo fue de Ownage :D
 

DarkMage

Destructor Lvl 1
Muy groso!!! MUY GROSO!!

Si podes, agrega comentarios en el codigo sobre ke hace cada cosa asi los ke no estan muy familiriaziados con VB pueden aprender ^^



DarkMage
 
Estado
Cerrado para nuevas respuestas.
Arriba