[Aportes indexados] Lvl Up Items (Mu Style)

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

Wolftein

Invitado
Bueno Che Me Doy Credito A Mi Mismo Por Este Codigo >D..SE Me Ocurrio 1 Dia y Lo Puse En Marcha Haci Q Para Toda La Comunidad De Gs-Zone Aca Lo Tienen

CLIENTE]

BUSCAR
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1">        <span style="color: #b1b100;">Public</span> <span style="color: #b1b100;">Const</span> Navegacion = <span style="color: #cc66cc;">21</span> <span style="color: #808080;">'Mod_declaraciones</span></li><li style="" class="li1"> </li></ol></div>[/vb]
AGREGAR
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #b1b100;">Public</span> <span style="color: #b1b100;">Const</span> LevelUpItem = <span style="color: #cc66cc;">101</span> <span style="color: #808080;">'Mod_declaraciones</span></li><li style="" class="li1"> </li></ol></div>[/vb]
-------------------------------
BUSCAR
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1">                <span style="color: #b1b100;">Case</span> <span style="color: #ffffff;">"T01"</span>                  <span style="color: #808080;">' >>>>> TRABAJANDO :: TRA</span></li><li style="" class="li1">            Rdata = <span style="color: #b1b100;">Right</span>$<span style="color: #66cc66;">(</span>Rdata, <span style="color: #b1b100;">Len</span><span style="color: #66cc66;">(</span>Rdata<span style="color: #66cc66;">)</span> - <span style="color: #cc66cc;">3</span><span style="color: #66cc66;">)</span></li><li style="" class="li2">            UsingSkill = <span style="color: #b1b100;">Val</span><span style="color: #66cc66;">(</span>Rdata<span style="color: #66cc66;">)</span></li><li style="" class="li1">            frmMain.<span style="color: #66cc66;">MousePointer</span> = <span style="color: #cc66cc;">2</span></li><li style="" class="li1">            Select <span style="color: #b1b100;">Case</span> UsingSkill <span style="color: #808080;">'TCP</span></li><li style="" class="li2"> </li></ol></div>[/vb]
AGREGAR
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1">                <span style="color: #b1b100;">Case</span> LevelUpItem</li><li style="" class="li1">                    <span style="color: #b1b100;">Call</span> FrmWorkShop.<span style="color: #66cc66;">UpdateList</span></li><li style="" class="li2">                    FrmWorkShop.<span style="color: #66cc66;">Show</span> , frmMain</li><li style="" class="li1">                    <span style="color: #b1b100;">Exit</span> <span style="color: #b1b100;">Sub</span>  <span style="color: #808080;">'TCP</span></li><li style="" class="li1"> </li></ol></div>[/vb]
------------------------------
AGREGAR
Un Frm Llamado FrmWorkShop
En El Frm Argregar Un
ListBox Llamado Litems
2 Buttons LLamados CmdSalir Y CmdUpgrate
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #b1b100;">Public</span> <span style="color: #b1b100;">Sub</span> UpdateList<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"><span style="color: #b1b100;">Dim</span> I <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li><li style="" class="li2"> </li><li style="" class="li1">  <span style="color: #b1b100;">For</span> I = <span style="color: #cc66cc;">1</span> <span style="color: #b1b100;">To</span> MAX_INVENTORY_SLOTS</li><li style="" class="li1">          LItems.<span style="color: #66cc66;">AddItem</span> UserInventory<span style="color: #66cc66;">(</span>I<span style="color: #66cc66;">)</span>.<span style="color: #b1b100;">Name</span></li><li style="" class="li2">  <span style="color: #b1b100;">Next</span> I</li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span></li><li style="" class="li1"> </li><li style="" class="li2"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Sub</span> CmdUpgrate_Click<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"> SendData <span style="color: #66cc66;">(</span><span style="color: #ffffff;">"ITU"</span> & LItems.<span style="color: #66cc66;">ListIndex</span> + <span style="color: #cc66cc;">1</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"> <span style="color: #b1b100;">Unload</span> <span style="color: #b1b100;">Me</span></li><li style="" class="li2"> <span style="color: #b1b100;">Me</span>.<span style="color: #66cc66;">Hide</span></li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span></li><li style="" class="li1"> </li><li style="" class="li2"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Sub</span> CmdSalir_Click<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"><span style="color: #b1b100;">Me</span>.<span style="color: #66cc66;">Hide</span></li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span></li><li style="" class="li2"> </li></ol></div>[/vb][/vb]

SERVER]

Buscar

[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1">        <span style="color: #b1b100;">Case</span> <span style="color: #ffffff;">"CNS"</span> <span style="color: #808080;">' Construye herreria  'Handdle1</span></li><li style="" class="li1">            rdata = <span style="color: #b1b100;">Right</span>$<span style="color: #66cc66;">(</span>rdata, <span style="color: #b1b100;">Len</span><span style="color: #66cc66;">(</span>rdata<span style="color: #66cc66;">)</span> - <span style="color: #cc66cc;">3</span><span style="color: #66cc66;">)</span></li><li style="" class="li2">            X = <span style="color: #b1b100;">CInt</span><span style="color: #66cc66;">(</span>rdata<span style="color: #66cc66;">)</span></li><li style="" class="li1">            <span style="color: #b1b100;">If</span> X < <span style="color: #cc66cc;">1</span> <span style="color: #b1b100;">Then</span> <span style="color: #b1b100;">Exit</span> <span style="color: #b1b100;">Sub</span></li><li style="" class="li1">            <span style="color: #b1b100;">If</span> ObjData<span style="color: #66cc66;">(</span>X<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">SkHerreria</span> = <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span> <span style="color: #b1b100;">Exit</span> <span style="color: #b1b100;">Sub</span></li><li style="" class="li2">            <span style="color: #b1b100;">Call</span> HerreroConstruirItem<span style="color: #66cc66;">(</span>UserIndex, X<span style="color: #66cc66;">)</span></li><li style="" class="li1">            <span style="color: #b1b100;">Exit</span> <span style="color: #b1b100;">Sub</span></li><li style="" class="li1"> </li></ol></div>[/vb]

Agregar

[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1">        <span style="color: #b1b100;">Case</span> <span style="color: #ffffff;">"ITU"</span> <span style="color: #808080;">' ItemLevelUp</span></li><li style="" class="li1">            rdata = <span style="color: #b1b100;">Right</span>$<span style="color: #66cc66;">(</span>rdata, <span style="color: #b1b100;">Len</span><span style="color: #66cc66;">(</span>rdata<span style="color: #66cc66;">)</span> - <span style="color: #cc66cc;">3</span><span style="color: #66cc66;">)</span></li><li style="" class="li2">            X = <span style="color: #b1b100;">CInt</span><span style="color: #66cc66;">(</span>rdata<span style="color: #66cc66;">)</span></li><li style="" class="li1">            <span style="color: #b1b100;">If</span> X < <span style="color: #cc66cc;">1</span> <span style="color: #b1b100;">Then</span> <span style="color: #b1b100;">Exit</span> <span style="color: #b1b100;">Sub</span></li><li style="" class="li1">            <span style="color: #b1b100;">Call</span> SubirItemLevel<span style="color: #66cc66;">(</span>UserIndex, X<span style="color: #66cc66;">)</span></li><li style="" class="li2">            <span style="color: #b1b100;">Exit</span> <span style="color: #b1b100;">Sub</span></li><li style="" class="li1"> </li></ol></div>[/vb]

Buscar
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #b1b100;">ReDim</span> Preserve ObjData<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span> <span style="color: #b1b100;">To</span> NumObjDatas<span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> ObjData</li><li style="" class="li1">  </li><li style="" class="li2"><span style="color: #808080;">'Llena la lista</span></li><li style="" class="li1"><span style="color: #b1b100;">For</span> Object = <span style="color: #cc66cc;">1</span> <span style="color: #b1b100;">To</span> NumObjDatas</li><li style="" class="li1">        </li><li style="" class="li2">    ObjData<span style="color: #66cc66;">(</span>Object<span style="color: #66cc66;">)</span>.<span style="color: #b1b100;">Name</span> = Leer.<span style="color: #66cc66;">DarValor</span><span style="color: #66cc66;">(</span><span style="color: #ffffff;">"OBJ"</span> & Object,  <span style="color: #ffffff;">"Name"</span><span style="color: #66cc66;">)</span> <span style="color: #808080;">'FILEIO</span></li><li style="" class="li1"> </li></ol></div>[/vb]

Agregar
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"> </li><li style="" class="li1">    ObjData<span style="color: #66cc66;">(</span>Object<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">level</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;">"Level"</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span> <span style="color: #808080;">'LvUpMethod</span></li><li style="" class="li2">    ObjData<span style="color: #66cc66;">(</span>Object<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Upgredeable</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;">"Upgredeable"</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span> <span style="color: #808080;">'LvUpMethod</span></li><li style="" class="li1">    ObjData<span style="color: #66cc66;">(</span>Object<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">UpgreateItem</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;">"UpgratedItem"</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span> <span style="color: #808080;">'LvUpMethod</span></li><li style="" class="li1"> </li></ol></div>[/vb]

Buscar
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"> </li><li style="" class="li1"><span style="color: #b1b100;">Public</span> <span style="color: #b1b100;">Const</span> FundirMetal = <span style="color: #cc66cc;">88</span> <span style="color: #808080;">'Declares</span></li><li style="" class="li2"> </li></ol></div>[/vb]

Agregar
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"> </li><li style="" class="li1"><span style="color: #b1b100;">Public</span> <span style="color: #b1b100;">Const</span> LevelUpItem = <span style="color: #cc66cc;">101</span> <span style="color: #808080;">'Declares</span></li><li style="" class="li2"> </li></ol></div>[/vb]


Buscar
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #b1b100;">Public</span> <span style="color: #b1b100;">Const</span> OBJTYPE_MANCHAS = <span style="color: #cc66cc;">35</span> <span style="color: #808080;">'Declares</span></li><li style="" class="li1"> </li></ol></div>[/vb]

Agregar
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"> <span style="color: #b1b100;">Public</span> <span style="color: #b1b100;">Const</span> OBJTYPE_RISELEVEL = <span style="color: #cc66cc;">36</span> <span style="color: #808080;">'Declares</span></li><li style="" class="li1"> </li></ol></div>[/vb]


Buscar
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #b1b100;">Public</span> <span style="color: #b1b100;">Type</span> ObjData</li><li style="" class="li1">    <span style="color: #b1b100;">Name</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span> <span style="color: #808080;">'Nombre del obj 'Declares</span></li><li style="" class="li2"> </li></ol></div>[/vb]

Agregar
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"> </li><li style="" class="li1">    Level <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span> <span style="color: #808080;">'Level Del Item</span></li><li style="" class="li2">    Upgredeable <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span> <span style="color: #808080;">'Es Upgredeable?</span></li><li style="" class="li1">    UpgreateItem <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span> <span style="color: #808080;">'Transforma Al Siguiente item 'Declares</span></li><li style="" class="li1"> </li></ol></div>[/vb]

En InvUsuario Agregar Al Final
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"> </li><li style="" class="li1"><span style="color: #b1b100;">Public</span> <span style="color: #b1b100;">Function</span> FindJewel<span style="color: #66cc66;">(</span>User <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span>, Jewel <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li><li style="" class="li2"><span style="color: #b1b100;">Dim</span> i <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li><li style="" class="li1">  <span style="color: #b1b100;">For</span> i = <span style="color: #cc66cc;">1</span> <span style="color: #b1b100;">To</span> MAX_INVENTORY_SLOTS</li><li style="" class="li1">      <span style="color: #b1b100;">If</span> UserList<span style="color: #66cc66;">(</span>User<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Invent</span>.<span style="color: #66cc66;">Object</span><span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">ObjIndex</span> = Jewel <span style="color: #b1b100;">Then</span></li><li style="" class="li2">      FindJewel = i</li><li style="" class="li1">      <span style="color: #b1b100;">Exit</span> <span style="color: #b1b100;">Function</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;">Next</span> i</li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Function</span></li><li style="" class="li1"> </li><li style="" class="li2"> </li><li style="" class="li1"><span style="color: #b1b100;">Public</span> <span style="color: #b1b100;">Sub</span> SubirItemLevel<span style="color: #66cc66;">(</span>UserIndex <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span>, InventorySlot <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"><span style="color: #b1b100;">Dim</span> ItemIndex <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li><li style="" class="li2"><span style="color: #b1b100;">Dim</span> Item <span style="color: #b1b100;">As</span> ObjData</li><li style="" class="li1"><span style="color: #b1b100;">Dim</span> ItemUp <span style="color: #b1b100;">As</span> ObjData</li><li style="" class="li1"><span style="color: #b1b100;">Dim</span> ItemUp2 <span style="color: #b1b100;">As</span> Obj</li><li style="" class="li2"><span style="color: #b1b100;">Dim</span> Jewel <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li><li style="" class="li1"> </li><li style="" class="li1">ItemIndex = UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Invent</span>.<span style="color: #66cc66;">Object</span><span style="color: #66cc66;">(</span>InventorySlot<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">ObjIndex</span></li><li style="" class="li2">Item = ObjData<span style="color: #66cc66;">(</span>ItemIndex<span style="color: #66cc66;">)</span></li><li style="" class="li1"> <span style="color: #b1b100;">If</span> Item.<span style="color: #66cc66;">Upgredeable</span> = <span style="color: #cc66cc;">1</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1">    <span style="color: #b1b100;">If</span> Item.<span style="color: #66cc66;">level</span> > <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">And</span> Item.<span style="color: #66cc66;">level</span> < <span style="color: #cc66cc;">6</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li2">            Jewel = FindJewel<span style="color: #66cc66;">(</span>UserIndex, <span style="color: #cc66cc;">735</span><span style="color: #66cc66;">)</span><span style="color: #808080;">'LEAN EN EL NUMERO 735 CAMBIENLO POR EL NUMERO DE ITEM DE SU BLESS</span></li><li style="" class="li1">              <span style="color: #b1b100;">If</span> Jewel = <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1">                <span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span>ToIndex, UserIndex, <span style="color: #cc66cc;">0</span>, <span style="color: #ffffff;">"||No Se Encontro Las Bless."</span> & FONTTYPE_INFO<span style="color: #66cc66;">)</span></li><li style="" class="li2">                <span style="color: #b1b100;">Exit</span> <span style="color: #b1b100;">Sub</span></li><li style="" class="li1">              <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li1">            ItemUp = ObjData<span style="color: #66cc66;">(</span>Item.<span style="color: #66cc66;">UpgreateItem</span><span style="color: #66cc66;">)</span></li><li style="" class="li2">            ItemUp2.<span style="color: #66cc66;">Amount</span> = <span style="color: #cc66cc;">1</span></li><li style="" class="li1">            ItemUp2.<span style="color: #66cc66;">ObjIndex</span> = Item.<span style="color: #66cc66;">UpgreateItem</span></li><li style="" class="li1">            <span style="color: #b1b100;">Call</span> QuitarUserInvItem<span style="color: #66cc66;">(</span>UserIndex, Jewel, <span style="color: #cc66cc;">1</span><span style="color: #66cc66;">)</span></li><li style="" class="li2">            <span style="color: #b1b100;">Call</span> QuitarUserInvItem<span style="color: #66cc66;">(</span>UserIndex, InventorySlot, <span style="color: #cc66cc;">1</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">            <span style="color: #b1b100;">Call</span> MeterItemEnInventario<span style="color: #66cc66;">(</span>UserIndex, ItemUp2<span style="color: #66cc66;">)</span></li><li style="" class="li1">            <span style="color: #b1b100;">Call</span> UpdateUserInv<span style="color: #66cc66;">(</span><span style="color: #b1b100;">True</span>, UserIndex, <span style="color: #cc66cc;">0</span><span style="color: #66cc66;">)</span></li><li style="" class="li2">            <span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span>ToIndex, UserIndex, <span style="color: #cc66cc;">0</span>, <span style="color: #ffffff;">"||Lv Up Item"</span> & FONTTYPE_INFO<span style="color: #66cc66;">)</span></li><li style="" class="li1">    <span style="color: #b1b100;">ElseIf</span> Item.<span style="color: #66cc66;">level</span> >= <span style="color: #cc66cc;">6</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1">        Jewel = FindJewel<span style="color: #66cc66;">(</span>UserIndex, <span style="color: #cc66cc;">737</span><span style="color: #66cc66;">)</span> <span style="color: #808080;">'LEAN EN EL NUMERO 737 CAMBIENLO POR EL NUMERO DE ITEM DE SU SOUL</span></li><li style="" class="li2">              <span style="color: #b1b100;">If</span> Jewel = <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1">                <span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span>ToIndex, UserIndex, <span style="color: #cc66cc;">0</span>, <span style="color: #ffffff;">"||No Se Encontro Las Souls."</span> & FONTTYPE_INFO<span style="color: #66cc66;">)</span></li><li style="" class="li1">                <span style="color: #b1b100;">Exit</span> <span style="color: #b1b100;">Sub</span></li><li style="" class="li2">              <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li1">            ItemUp = ObjData<span style="color: #66cc66;">(</span>Item.<span style="color: #66cc66;">UpgreateItem</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">            ItemUp2.<span style="color: #66cc66;">Amount</span> = <span style="color: #cc66cc;">1</span></li><li style="" class="li2">            ItemUp2.<span style="color: #66cc66;">ObjIndex</span> = Item.<span style="color: #66cc66;">UpgreateItem</span></li><li style="" class="li1">            <span style="color: #b1b100;">Call</span> QuitarUserInvItem<span style="color: #66cc66;">(</span>UserIndex, Jewel, <span style="color: #cc66cc;">1</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">            <span style="color: #b1b100;">Call</span> QuitarUserInvItem<span style="color: #66cc66;">(</span>UserIndex, InventorySlot, <span style="color: #cc66cc;">1</span><span style="color: #66cc66;">)</span></li><li style="" class="li2">            <span style="color: #b1b100;">Call</span> MeterItemEnInventario<span style="color: #66cc66;">(</span>UserIndex, ItemUp2<span style="color: #66cc66;">)</span></li><li style="" class="li1">            <span style="color: #b1b100;">Call</span> UpdateUserInv<span style="color: #66cc66;">(</span><span style="color: #b1b100;">True</span>, UserIndex, <span style="color: #cc66cc;">0</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">            <span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span>ToIndex, UserIndex, <span style="color: #cc66cc;">0</span>, <span style="color: #ffffff;">"||Lv Up Item"</span> & FONTTYPE_INFO<span style="color: #66cc66;">)</span></li><li style="" class="li2">  <span style="color: #b1b100;">Else</span></li><li style="" class="li1">              <span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span>ToIndex, UserIndex, <span style="color: #cc66cc;">0</span>, <span style="color: #ffffff;">"||Este Item No Es Upgredeable."</span> & FONTTYPE_INFO<span style="color: #66cc66;">)</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;">End</span> <span style="color: #b1b100;">Sub</span></li><li style="" class="li1"> </li></ol></div>[/vb]

Buscar
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1">       <span style="color: #b1b100;">Case</span> OBJTYPE_BARCOS</li><li style="" class="li1">    <span style="color: #808080;">'Verifica si esta aproximado al agua antes de permitirle navegar</span></li><li style="" class="li2">        <span style="color: #b1b100;">If</span> UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Stats</span>.<span style="color: #66cc66;">ELV</span> < <span style="color: #cc66cc;">25</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1">            <span style="color: #b1b100;">If</span> <span style="color: #b1b100;">UCase</span>$<span style="color: #66cc66;">(</span>UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Clase</span><span style="color: #66cc66;">)</span> <> <span style="color: #ffffff;">"PESCADOR"</span> <span style="color: #b1b100;">And</span> <span style="color: #b1b100;">UCase</span>$<span style="color: #66cc66;">(</span>UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Clase</span><span style="color: #66cc66;">)</span> <> <span style="color: #ffffff;">"PIRATA"</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1">                <span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span>ToIndex, UserIndex, <span style="color: #cc66cc;">0</span>, <span style="color: #ffffff;">"||Para recorrer los mares debes ser nivel 25 o superior."</span> & FONTTYPE_INFO<span style="color: #66cc66;">)</span></li><li style="" class="li2">                <span style="color: #b1b100;">Exit</span> <span style="color: #b1b100;">Sub</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> <span style="color: #b1b100;">If</span></li><li style="" class="li2">        <span style="color: #b1b100;">If</span> <span style="color: #66cc66;">(</span><span style="color: #66cc66;">(</span>LegalPos<span style="color: #66cc66;">(</span>UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Pos</span>.<span style="color: #66cc66;">Map</span>, UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Pos</span>.<span style="color: #66cc66;">X</span> - <span style="color: #cc66cc;">1</span>, UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Pos</span>.<span style="color: #66cc66;">Y</span>, <span style="color: #b1b100;">True</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">Or</span> _</li><li style="" class="li1">            LegalPos<span style="color: #66cc66;">(</span>UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Pos</span>.<span style="color: #66cc66;">Map</span>, UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Pos</span>.<span style="color: #66cc66;">X</span>, UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Pos</span>.<span style="color: #66cc66;">Y</span> - <span style="color: #cc66cc;">1</span>, <span style="color: #b1b100;">True</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">Or</span> _</li><li style="" class="li1">            LegalPos<span style="color: #66cc66;">(</span>UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Pos</span>.<span style="color: #66cc66;">Map</span>, UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Pos</span>.<span style="color: #66cc66;">X</span> + <span style="color: #cc66cc;">1</span>, UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Pos</span>.<span style="color: #66cc66;">Y</span>, <span style="color: #b1b100;">True</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">Or</span> _</li><li style="" class="li2">            LegalPos<span style="color: #66cc66;">(</span>UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Pos</span>.<span style="color: #66cc66;">Map</span>, UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Pos</span>.<span style="color: #66cc66;">X</span>, UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Pos</span>.<span style="color: #66cc66;">Y</span> + <span style="color: #cc66cc;">1</span>, <span style="color: #b1b100;">True</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">And</span> _</li><li style="" class="li1">            UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">Navegando</span> = <span style="color: #cc66cc;">0</span><span style="color: #66cc66;">)</span> _</li><li style="" class="li1">            <span style="color: #b1b100;">Or</span> UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">Navegando</span> = <span style="color: #cc66cc;">1</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li2">           <span style="color: #b1b100;">Call</span> DoNavega<span style="color: #66cc66;">(</span>UserIndex, Obj, Slot<span style="color: #66cc66;">)</span></li><li style="" class="li1">        <span style="color: #b1b100;">Else</span></li><li style="" class="li1">            <span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span>ToIndex, UserIndex, <span style="color: #cc66cc;">0</span>, <span style="color: #ffffff;">"||¡Debes aproximarte al agua para usar el barco!"</span> & FONTTYPE_INFO<span style="color: #66cc66;">)</span></li><li style="" class="li2">        <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li1"> </li></ol></div>[/vb]

AGREGAR
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1">        <span style="color: #b1b100;">Case</span> OBJTYPE_RISELEVEL</li><li style="" class="li1">         <span style="color: #b1b100;">If</span> UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">Muerto</span> = <span style="color: #cc66cc;">1</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li2">            <span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span>ToIndex, UserIndex, <span style="color: #cc66cc;">0</span>, <span style="color: #ffffff;">"||Debes Estar Vivo Para Poder Upgretear Los Items."</span> & FONTTYPE_INFO<span style="color: #66cc66;">)</span></li><li style="" class="li1">           <span style="color: #b1b100;">Else</span></li><li style="" class="li1">            <span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span>ToIndex, UserIndex, <span style="color: #cc66cc;">0</span>, <span style="color: #ffffff;">"T01"</span> & LevelUpItem<span style="color: #66cc66;">)</span></li><li style="" class="li2">        <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li1"> </li></ol></div>[/vb][/vb]


Bueno En La Parte Obj Dats
[OBJ(Num)]
Name=Bless
GrhIndex=700
Valor=0
Objtype=36

[OBJ(Num)]
Name=Soul
GrhIndex=700
Valor=0
Objtype=36

A Los items q quieran subir de Lvl Le Agregan

Level=1 'lv del item
Upgredeable=1 'si es Upgredeable
UpgratedItem=736 'numero del item al q se va a upgredear

Solo se los pone a los q quieran

Suerte!
 

Tavo

[color=#BF0000]Lucha por tus ideales![/color]
El codigo en si es insteresante, no te molestaria que AoR lo usara?
 

Owangel

Delirando
Me encantan la idea y el código!
Lo único es que hay algo que no tengo muy claro... Eso lo haría el herrero únicamente?
 
A

Anonymous

Invitado
La verdad muy buen codigo, si no te importa ya lo estoy incluyendo para el proxima verrcion del AoR.

Atte. Tales
 

zapato

STAND BY!
Owangel dijo:
Me encantan la idea y el código!
Lo único es que hay algo que no tengo muy claro... Eso lo haría el herrero únicamente?

Se elige el item q puede tener esa propiedad.
Luego, cada uno define, si ese item, puede ser fabricado por el herrero :wink:
 
W

Wolftein

Invitado
>P

En Verdad Tarde 1 Hs En Hacer El Codigo...

El Codigo Fue Un Aporte Para Gs-Zone.. Sientanse Libre De Implementarlo Y Mejorarlo >D... Lo Unico q Pido q me den algo de los Credits >P
 

facundo

Oráculo Lvl 3
Tavo dijo:
a) Ideas que ya existen y fueron codeadas, si son buenas seran puestas en la proxima version con los respectivos creditos del autor

En la nueva version que va a salir del Aoready (0.7) todos los codigos van con los creditos del autor.

Muy bueno el code :p
 
W

Wolftein

Invitado
Nop Esta hecho Q lo Haga El User.... Sin Depender De Un Herrero U Otra Cosa...
 

DarkBlood

DarkBlood
que buen trabajo loco, felicitaciones.

---
tu nick no deberia ser Wolfenstein? <a href="http://www.activision.com/games/wolfenstein/" class="postlink" rel="nofollow" onClick="window.open(this.href);return false;">http://www.activision.com/games/wolfenstein/</a>

36ed8e5308.jpg
 
W

Wolftein

Invitado
Nop.. Mi nick Es Wolftein

Wolfenstein ==> Es 1 Juego >P...

Si Me Pondria ese Nombre No Seria original >P
 
A

Anonymous

Invitado
Yo tengo una pregunta, he puedo el codigo todo com es debido (creo que lo puse bien), pero cuando tengo las bless y los souls en el inventario, le doy doble click a una de las gemas y me sale la tipica crucesita de argentum, y ya no se ke hacer.... doy click sobre el item a upgradear en el ekipo y no hace nada, luego tb tiro el objeto al suelo y lo intento.. y tmp me sale nada :S

En resumen, com funciona el sistema??

Pd: perdon por la ignorancia, se lo agradecere mucho a quien me ayude :).
 

Owangel

Delirando
Anonymous dijo:
Yo tengo una pregunta, he puedo el codigo todo com es debido (creo que lo puse bien), pero cuando tengo las bless y los souls en el inventario, le doy doble click a una de las gemas y me sale la tipica crucesita de argentum, y ya no se ke hacer.... doy click sobre el item a upgradear en el ekipo y no hace nada, luego tb tiro el objeto al suelo y lo intento.. y tmp me sale nada :S

En resumen, com funciona el sistema??

Pd: perdon por la ignorancia, se lo agradecere mucho a quien me ayude :).

Agregaste el tipo de objeto al OBJ.dat?
Te explico este sistema: No es que le agrega a un mismo item un "upgrade", sino que cambia un item por otro, es decir:

Tengo dos items en el obj.dat: Armadura y Armadura+1
Lo que hace el código es reemplazar un item por otro.
Revisá eso, por ahí ese es el problema.
Saludos!
 
A

Anonymous

Invitado
Si si, eso hice, es decir, donde tengo que poner el item al cual se va a upgradear le pongo el num del objeto, y luego lo intento probar y nada.

Es decir, pillo gemas, y cuando las uso me sale la crucecita para seleccionar algo, selecciono la espada del inventario y no pasa nada, no se abre nada ni nada por el estilo, repito esto pero tirando la espada al suelo y tmp...

No entiendo como usarlo, creo que está binen puesto el codigo pero no me carrula o no se hacerlo carrular :S

Me ayudan plzzz??

Acias.
 

Owangel

Delirando
Anonymous dijo:
Si si, eso hice, es decir, donde tengo que poner el item al cual se va a upgradear le pongo el num del objeto, y luego lo intento probar y nada.

Es decir, pillo gemas, y cuando las uso me sale la crucecita para seleccionar algo, selecciono la espada del inventario y no pasa nada, no se abre nada ni nada por el estilo, repito esto pero tirando la espada al suelo y tmp...

No entiendo como usarlo, creo que está binen puesto el codigo pero no me carrula o no se hacerlo carrular :S

Me ayudan plzzz??

Acias.

Lo que hace el código es abrirte un formulario. Fijate si tenés esta línea:

[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #b1b100;">Case</span> LevelUpItem</li><li style="" class="li1">                    <span style="color: #b1b100;">Call</span> FrmWorkShop.<span style="color: #66cc66;">UpdateList</span></li><li style="" class="li2">                    FrmWorkShop.<span style="color: #66cc66;">Show</span> , frmMain</li><li style="" class="li1">                    <span style="color: #b1b100;">Exit</span> <span style="color: #b1b100;">Sub</span>  <span style="color: #808080;">'TCP</span></li></ol></div>[/vb]

Y si creaste el Formulario con el nombre FrmWorkShop (el nombre tiene que estar así) y si le agregaste los componentes que dijo Wolf.

Esto es lo que tenés que agregar:

Un Formulario llamado FrmWorkShop
En el FrmWorkShop, agregar un ListBox llamado Litems, 2 CommandButtons llamados CmdSalir Y CmdUpgrate.
 

Owangel

Delirando
Entonces te recomiendo revisar todo, eliminar el código (por eso recomiendo probar este tipo de códigos con una copia del cliente/servidor) y volver a instalarlo paso por paso, teniendo cuidado de los errores ortográficos en los nombres de los Command, ListBox, etc.
Saludos!
 

ignax

Newbie Lvl 2
una pregunta de ignorante, como se hace para q cuando subas de lvl, o cuando seas lvl 25 o algo, te den algo, y te aparesca en el inventorio?
 
Estado
Cerrado para nuevas respuestas.
Arriba