[Aportes indexados] Mod Subastas

Estado
Cerrado para nuevas respuestas.

Cavallero

Destructor Lvl 5
[Codigo Completo] Mod Subastas

Comando /SUBASTAS :p

En el frmmain creamos un timer de nombre:

[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1">SubastaTIMER</li></ol></div>[/vb]

En El Intervalo Ponemos: 1500

de codigo le ponemos:

[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #b1b100;">Dim</span> LagaHubOfertaB</li><li style="" class="li1">LagaHubOfertaB = GetVar<span style="color: #66cc66;">(</span>App.<span style="color: #66cc66;">Path</span> & <span style="color: #ffffff;">"\Dat\"</span> & <span style="color: #ffffff;">"Subasta.ini"</span>, <span style="color: #ffffff;">"Subasta"</span>, <span style="color: #ffffff;">"Ofertaron"</span><span style="color: #66cc66;">)</span></li><li style="" class="li2"><span style="color: #b1b100;">If</span> LagaHubOfertaB = <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1"><span style="color: #808080;">'Call SendData(ToAll, 0, 0, "||Si nadie hace una oferta, la subasta se cierra en " & frmMain.SubastaLabel.Caption & " Segundos." & FONTTYPE_INFO)</span></li><li style="" class="li1"> </li><li style="" class="li2"><span style="color: #b1b100;">If</span> frmMain.<span style="color: #66cc66;">SubastaLabel</span> > <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1">    <span style="color: #808080;">'If frmMain.SubastaLabel = 240 Then</span></li><li style="" class="li1">        <span style="color: #808080;">'Call SendData(ToAll, 0, 0, "||La subasta terminara en 4 minutos." & FONTTYPE_SUBASTA)</span></li><li style="" class="li2">    <span style="color: #808080;">'ElseIf frmMain.SubastaLabel = 180 Then</span></li><li style="" class="li1">        <span style="color: #808080;">'Call SendData(ToAll, 0, 0, "||La subasta terminara en 3 minutos." & FONTTYPE_SUBASTA)</span></li><li style="" class="li1">    <span style="color: #b1b100;">If</span> frmMain.<span style="color: #66cc66;">SubastaLabel</span> = <span style="color: #cc66cc;">120</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li2">        <span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span>ToAll, <span style="color: #cc66cc;">0</span>, <span style="color: #cc66cc;">0</span>, <span style="color: #ffffff;">"||La subasta terminara en 2 minutos."</span> & FONTTYPE_SUBASTA<span style="color: #66cc66;">)</span></li><li style="" class="li1">    <span style="color: #b1b100;">ElseIf</span> frmMain.<span style="color: #66cc66;">SubastaLabel</span> = <span style="color: #cc66cc;">60</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1">        <span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span>ToAll, <span style="color: #cc66cc;">0</span>, <span style="color: #cc66cc;">0</span>, <span style="color: #ffffff;">"||La subasta terminara en 1 minuto."</span> & FONTTYPE_SUBASTA<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">frmMain.<span style="color: #66cc66;">SubastaLabel</span> = frmMain.<span style="color: #66cc66;">SubastaLabel</span> - <span style="color: #cc66cc;">1</span></li><li style="" class="li1"><span style="color: #b1b100;">Else</span></li><li style="" class="li2"><span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span>ToAll, <span style="color: #cc66cc;">0</span>, <span style="color: #cc66cc;">0</span>, <span style="color: #ffffff;">"||La subasta se a cerrado, disculpen las molestias."</span> & FONTTYPE_SUBASTA<span style="color: #66cc66;">)</span></li><li style="" class="li1"><span style="color: #b1b100;">Call</span> WriteVar<span style="color: #66cc66;">(</span>App.<span style="color: #66cc66;">Path</span> & <span style="color: #ffffff;">"\Dat\"</span> & <span style="color: #ffffff;">"Subasta.ini"</span>, <span style="color: #ffffff;">"Subasta"</span>, <span style="color: #ffffff;">"Activa"</span>, <span style="color: #ffffff;">"0"</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">frmMain.<span style="color: #66cc66;">SubastaTIMER</span>.<span style="color: #66cc66;">Enabled</span> = <span style="color: #b1b100;">False</span></li><li style="" class="li2"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li1"> </li><li style="" class="li1"><span style="color: #b1b100;">Else</span></li><li style="" class="li2"> </li><li style="" class="li1"><span style="color: #b1b100;">Dim</span> LagaNombreA</li><li style="" class="li1">LagaNombreA = GetVar<span style="color: #66cc66;">(</span>App.<span style="color: #66cc66;">Path</span> & <span style="color: #ffffff;">"\Dat\"</span> & <span style="color: #ffffff;">"Subasta.ini"</span>, <span style="color: #ffffff;">"Subasta"</span>, <span style="color: #ffffff;">"Comprador"</span><span style="color: #66cc66;">)</span></li><li style="" class="li2"><span style="color: #b1b100;">Dim</span> LagaNombreB</li><li style="" class="li1">LagaNombreB = GetVar<span style="color: #66cc66;">(</span>App.<span style="color: #66cc66;">Path</span> & <span style="color: #ffffff;">"\Dat\"</span> & <span style="color: #ffffff;">"Subasta.ini"</span>, <span style="color: #ffffff;">"Subasta"</span>, <span style="color: #ffffff;">"Vendedor"</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"> </li><li style="" class="li2"><span style="color: #b1b100;">Dim</span> LagaCompradorB</li><li style="" class="li1">LagaCompradorB = NameIndex<span style="color: #66cc66;">(</span>LagaNombreA<span style="color: #66cc66;">)</span></li><li style="" class="li1"><span style="color: #b1b100;">Dim</span> LagaVendedorB</li><li style="" class="li2">LagaVendedorB = NameIndex<span style="color: #66cc66;">(</span>LagaNombreB<span style="color: #66cc66;">)</span></li><li style="" class="li1"> </li><li style="" class="li1"><span style="color: #b1b100;">Dim</span> LagaValorFinalB</li><li style="" class="li2">LagaValorFinalB = GetVar<span style="color: #66cc66;">(</span>App.<span style="color: #66cc66;">Path</span> & <span style="color: #ffffff;">"\Dat\"</span> & <span style="color: #ffffff;">"Subasta.ini"</span>, <span style="color: #ffffff;">"Subasta"</span>, <span style="color: #ffffff;">"Valor"</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"> </li><li style="" class="li1"><span style="color: #b1b100;">If</span> frmMain.<span style="color: #66cc66;">SubastaLabel</span> > <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li2">    <span style="color: #b1b100;">If</span> frmMain.<span style="color: #66cc66;">SubastaLabel</span> = <span style="color: #cc66cc;">240</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1">        <span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span>ToAll, <span style="color: #cc66cc;">0</span>, <span style="color: #cc66cc;">0</span>, <span style="color: #ffffff;">"||La subasta terminara en 4 minutos."</span> & FONTTYPE_SUBASTA<span style="color: #66cc66;">)</span></li><li style="" class="li1">    <span style="color: #808080;">'ElseIf frmMain.SubastaLabel = 180 Then</span></li><li style="" class="li2">        <span style="color: #808080;">'Call SendData(ToAll, 0, 0, "||La subasta terminara en 3 minutos." & FONTTYPE_SUBASTA)</span></li><li style="" class="li1">    <span style="color: #b1b100;">ElseIf</span> frmMain.<span style="color: #66cc66;">SubastaLabel</span> = <span style="color: #cc66cc;">120</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1">        <span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span>ToAll, <span style="color: #cc66cc;">0</span>, <span style="color: #cc66cc;">0</span>, <span style="color: #ffffff;">"||La subasta terminara en 2 minutos."</span> & FONTTYPE_SUBASTA<span style="color: #66cc66;">)</span></li><li style="" class="li2">    <span style="color: #b1b100;">ElseIf</span> frmMain.<span style="color: #66cc66;">SubastaLabel</span> = <span style="color: #cc66cc;">60</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1">        <span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span>ToAll, <span style="color: #cc66cc;">0</span>, <span style="color: #cc66cc;">0</span>, <span style="color: #ffffff;">"||La subasta terminara en 1 minuto."</span> & FONTTYPE_SUBASTA<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">frmMain.<span style="color: #66cc66;">SubastaLabel</span> = frmMain.<span style="color: #66cc66;">SubastaLabel</span> - <span style="color: #cc66cc;">1</span></li><li style="" class="li1"><span style="color: #b1b100;">Else</span></li><li style="" class="li1"> </li><li style="" class="li2"><span style="color: #b1b100;">If</span> EstaConectado<span style="color: #66cc66;">(</span>LagaVendedorB<span style="color: #66cc66;">)</span> <span style="color: #b1b100;">And</span> EstaConectado<span style="color: #66cc66;">(</span>LagaCompradorB<span style="color: #66cc66;">)</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1"><span style="color: #b1b100;">If</span> TieneObjetos<span style="color: #66cc66;">(</span>LagaObj.<span style="color: #66cc66;">ObjIndex</span>, LagaObj.<span style="color: #66cc66;">Amount</span>, LagaVendedorB<span style="color: #66cc66;">)</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1"><span style="color: #b1b100;">If</span> TieneOro<span style="color: #66cc66;">(</span>LagaCompradorB, LagaValorFinalB<span style="color: #66cc66;">)</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li2"> </li><li style="" class="li1"><span style="color: #808080;">'Call SendData(ToAll, 0, 0, "||Se esta transferiendo el item y el oro." & FONTTYPE_SUBASTA)</span></li><li style="" class="li1"><span style="color: #b1b100;">Call</span> PasarItemsyOro<span style="color: #66cc66;">(</span>LagaCompradorB, LagaVendedorB, LagaValorFinalB<span style="color: #66cc66;">)</span></li><li style="" class="li2">        </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>ToAll, <span style="color: #cc66cc;">0</span>, <span style="color: #cc66cc;">0</span>, <span style="color: #ffffff;">"||La subasta se a cancelado debido a que el usuario "</span> & LagaNombreA & <span style="color: #ffffff;">" ya no posee las "</span> & LagaValorFinalB & <span style="color: #ffffff;">" Monedas de oro acordadas para esta venta."</span> & FONTTYPE_SUBASTA<span style="color: #66cc66;">)</span></li><li style="" class="li2">    <span style="color: #b1b100;">Call</span> WriteVar<span style="color: #66cc66;">(</span>App.<span style="color: #66cc66;">Path</span> & <span style="color: #ffffff;">"\Dat\"</span> & <span style="color: #ffffff;">"Subasta.ini"</span>, <span style="color: #ffffff;">"Subasta"</span>, <span style="color: #ffffff;">"Activa"</span>, <span style="color: #ffffff;">"0"</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">frmMain.<span style="color: #66cc66;">SubastaTIMER</span>.<span style="color: #66cc66;">Enabled</span> = <span style="color: #b1b100;">False</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"> </li><li style="" class="li1"><span style="color: #b1b100;">Else</span></li><li style="" class="li2">    <span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span>ToAll, <span style="color: #cc66cc;">0</span>, <span style="color: #cc66cc;">0</span>, <span style="color: #ffffff;">"||La subasta se a cancelado debido a que el usuario "</span> & LagaNombreB & <span style="color: #ffffff;">" ya no posee los Items acordados para esta venta."</span> & FONTTYPE_SUBASTA<span style="color: #66cc66;">)</span></li><li style="" class="li1">    <span style="color: #b1b100;">Call</span> WriteVar<span style="color: #66cc66;">(</span>App.<span style="color: #66cc66;">Path</span> & <span style="color: #ffffff;">"\Dat\"</span> & <span style="color: #ffffff;">"Subasta.ini"</span>, <span style="color: #ffffff;">"Subasta"</span>, <span style="color: #ffffff;">"Activa"</span>, <span style="color: #ffffff;">"0"</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">frmMain.<span style="color: #66cc66;">SubastaTIMER</span>.<span style="color: #66cc66;">Enabled</span> = <span style="color: #b1b100;">False</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"> </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>ToAll, <span style="color: #cc66cc;">0</span>, <span style="color: #cc66cc;">0</span>, <span style="color: #ffffff;">"||La subasta se a cancelado debido a el o los usuarios que acordaron la venta se han desconectado."</span> & FONTTYPE_SUBASTA<span style="color: #66cc66;">)</span></li><li style="" class="li1">    <span style="color: #b1b100;">Call</span> WriteVar<span style="color: #66cc66;">(</span>App.<span style="color: #66cc66;">Path</span> & <span style="color: #ffffff;">"\Dat\"</span> & <span style="color: #ffffff;">"Subasta.ini"</span>, <span style="color: #ffffff;">"Subasta"</span>, <span style="color: #ffffff;">"Activa"</span>, <span style="color: #ffffff;">"0"</span><span style="color: #66cc66;">)</span></li><li style="" class="li2">frmMain.<span style="color: #66cc66;">SubastaTIMER</span>.<span style="color: #66cc66;">Enabled</span> = <span style="color: #b1b100;">False</span></li><li style="" class="li1">    <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="li2"> </li><li style="" class="li1"> </li><li style="" class="li1"><span style="color: #b1b100;">Call</span> WriteVar<span style="color: #66cc66;">(</span>App.<span style="color: #66cc66;">Path</span> & <span style="color: #ffffff;">"\Dat\"</span> & <span style="color: #ffffff;">"Subasta.ini"</span>, <span style="color: #ffffff;">"Subasta"</span>, <span style="color: #ffffff;">"Activa"</span>, <span style="color: #ffffff;">"0"</span><span style="color: #66cc66;">)</span></li><li style="" class="li2">frmMain.<span style="color: #66cc66;">SubastaTIMER</span>.<span style="color: #66cc66;">Enabled</span> = <span style="color: #b1b100;">False</span></li><li style="" class="li1"> </li><li style="" class="li1">        </li><li style="" class="li2"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li1"> </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></ol></div>[/vb]

Creamos Un Modulo.bas Llamado "SUBASTAS" Ponemos:

[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #b1b100;">Function</span> EstaConectado<span style="color: #66cc66;">(</span>ByVal User <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;">Boolean</span></li><li style="" class="li1"> </li><li style="" class="li2"><span style="color: #b1b100;">If</span> UserList<span style="color: #66cc66;">(</span>User<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">ConnID</span> <> <span style="color: #cc66cc;">-1</span> <span style="color: #b1b100;">And</span> UserList<span style="color: #66cc66;">(</span>User<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">flags</span>.<span style="color: #66cc66;">UserLogged</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1">EstaConectado = <span style="color: #b1b100;">True</span></li><li style="" class="li1"><span style="color: #b1b100;">Exit</span> <span style="color: #b1b100;">Function</span></li><li style="" class="li2"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li1"> </li><li style="" class="li1">EstaConectado = <span style="color: #b1b100;">False</span></li><li style="" class="li2"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Function</span></li><li style="" class="li1"> </li><li style="" class="li1"><span style="color: #b1b100;">Function</span> TieneOro<span style="color: #66cc66;">(</span>ByVal User <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span>, ByVal oro <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Boolean</span></li><li style="" class="li2"> </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;">Stats</span>.<span style="color: #66cc66;">GLD</span> >= oro <span style="color: #b1b100;">Then</span></li><li style="" class="li1">TieneOro = <span style="color: #b1b100;">True</span></li><li style="" class="li2"><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="li1"> </li><li style="" class="li2">TieneOro = <span style="color: #b1b100;">False</span></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"><span style="color: #b1b100;">Sub</span> PasarItemsyOro<span style="color: #66cc66;">(</span>ByVal Comprador <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span>, ByVal Vendedor <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span>, ByVal oro <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"> </li><li style="" class="li1"><span style="color: #b1b100;">Dim</span> LagaObjB <span style="color: #b1b100;">As</span> Obj</li><li style="" class="li2">LagaObjB.<span style="color: #66cc66;">ObjIndex</span> = GetVar<span style="color: #66cc66;">(</span>App.<span style="color: #66cc66;">Path</span> & <span style="color: #ffffff;">"\Dat\"</span> & <span style="color: #ffffff;">"Subasta.ini"</span>, <span style="color: #ffffff;">"Subasta"</span>, <span style="color: #ffffff;">"Objeto"</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">LagaObjB.<span style="color: #66cc66;">Amount</span> = GetVar<span style="color: #66cc66;">(</span>App.<span style="color: #66cc66;">Path</span> & <span style="color: #ffffff;">"\Dat\"</span> & <span style="color: #ffffff;">"Subasta.ini"</span>, <span style="color: #ffffff;">"Subasta"</span>, <span style="color: #ffffff;">"Cantidad"</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"> </li><li style="" class="li2">    UserList<span style="color: #66cc66;">(</span>Comprador<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Stats</span>.<span style="color: #66cc66;">GLD</span> = UserList<span style="color: #66cc66;">(</span>Comprador<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Stats</span>.<span style="color: #66cc66;">GLD</span> - oro</li><li style="" class="li1">    UserList<span style="color: #66cc66;">(</span>Vendedor<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Stats</span>.<span style="color: #66cc66;">GLD</span> = UserList<span style="color: #66cc66;">(</span>Vendedor<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Stats</span>.<span style="color: #66cc66;">GLD</span> + oro</li><li style="" class="li1">    <span style="color: #b1b100;">Call</span> MeterItemEnInventario<span style="color: #66cc66;">(</span>Comprador, LagaObjB<span style="color: #66cc66;">)</span></li><li style="" class="li2">    <span style="color: #b1b100;">Call</span> QuitarObjetos<span style="color: #66cc66;">(</span>LagaObjB.<span style="color: #66cc66;">ObjIndex</span>, LagaObjB.<span style="color: #66cc66;">Amount</span>, Vendedor<span style="color: #66cc66;">)</span></li><li style="" class="li1">    <span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span>ToAll, <span style="color: #cc66cc;">0</span>, <span style="color: #cc66cc;">0</span>, <span style="color: #ffffff;">"||El usuario "</span> & UserList<span style="color: #66cc66;">(</span>Comprador<span style="color: #66cc66;">)</span>.<span style="color: #b1b100;">Name</span> & <span style="color: #ffffff;">" a comprado "</span> & LagaObjB.<span style="color: #66cc66;">Amount</span> & <span style="color: #ffffff;">" "</span> & ObjData<span style="color: #66cc66;">(</span>LagaObjB.<span style="color: #66cc66;">ObjIndex</span><span style="color: #66cc66;">)</span>.<span style="color: #b1b100;">Name</span> & <span style="color: #ffffff;">" a "</span> & oro & <span style="color: #ffffff;">" Monedas de oro!!!"</span> & FONTTYPE_SUBASTA<span style="color: #66cc66;">)</span></li><li style="" class="li1">    <span style="color: #b1b100;">Call</span> SendUserStatsBox<span style="color: #66cc66;">(</span>Comprador<span style="color: #66cc66;">)</span></li><li style="" class="li2">    <span style="color: #b1b100;">Call</span> SendUserStatsBox<span style="color: #66cc66;">(</span>Vendedor<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>, Vendedor, <span style="color: #cc66cc;">0</span><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"> </li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span></li></ol></div>[/vb]

Luego cuando termina el

"Case Boveda"

Ponemos esto:

[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;">"/INFOSUBASTA"</span></li><li style="" class="li1">            <span style="color: #b1b100;">Dim</span> LagaSubActivaC</li><li style="" class="li2">        LagaSubActivaC = GetVar<span style="color: #66cc66;">(</span>App.<span style="color: #66cc66;">Path</span> & <span style="color: #ffffff;">"\Dat\"</span> & <span style="color: #ffffff;">"Subasta.ini"</span>, <span style="color: #ffffff;">"Subasta"</span>, <span style="color: #ffffff;">"Activa"</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">    <span style="color: #b1b100;">If</span> LagaSubActivaC = <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 hay ninguna subasta activa!."</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;">Dim</span> LagaPrecioC</li><li style="" class="li2"><span style="color: #b1b100;">Dim</span> LagaObjC <span style="color: #b1b100;">As</span> Obj</li><li style="" class="li1"><span style="color: #b1b100;">Dim</span> LagaCompradorC</li><li style="" class="li1"><span style="color: #b1b100;">Dim</span> LagaVendedorC</li><li style="" class="li2">LagaObjC.<span style="color: #66cc66;">ObjIndex</span> = GetVar<span style="color: #66cc66;">(</span>App.<span style="color: #66cc66;">Path</span> & <span style="color: #ffffff;">"\Dat\"</span> & <span style="color: #ffffff;">"Subasta.ini"</span>, <span style="color: #ffffff;">"Subasta"</span>, <span style="color: #ffffff;">"Objeto"</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">LagaObjC.<span style="color: #66cc66;">Amount</span> = GetVar<span style="color: #66cc66;">(</span>App.<span style="color: #66cc66;">Path</span> & <span style="color: #ffffff;">"\Dat\"</span> & <span style="color: #ffffff;">"Subasta.ini"</span>, <span style="color: #ffffff;">"Subasta"</span>, <span style="color: #ffffff;">"Cantidad"</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">LagaPrecioC = GetVar<span style="color: #66cc66;">(</span>App.<span style="color: #66cc66;">Path</span> & <span style="color: #ffffff;">"\Dat\"</span> & <span style="color: #ffffff;">"Subasta.ini"</span>, <span style="color: #ffffff;">"Subasta"</span>, <span style="color: #ffffff;">"Valor"</span><span style="color: #66cc66;">)</span></li><li style="" class="li2">LagaVendedorC = GetVar<span style="color: #66cc66;">(</span>App.<span style="color: #66cc66;">Path</span> & <span style="color: #ffffff;">"\Dat\"</span> & <span style="color: #ffffff;">"Subasta.ini"</span>, <span style="color: #ffffff;">"Subasta"</span>, <span style="color: #ffffff;">"Vendedor"</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">LagaCompradorC = GetVar<span style="color: #66cc66;">(</span>App.<span style="color: #66cc66;">Path</span> & <span style="color: #ffffff;">"\Dat\"</span> & <span style="color: #ffffff;">"Subasta.ini"</span>, <span style="color: #ffffff;">"Subasta"</span>, <span style="color: #ffffff;">"Comprador"</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;">"||"</span> & LagaVendedorC & <span style="color: #ffffff;">" esta vendiendo "</span> & LagaObj.<span style="color: #66cc66;">Amount</span> & <span style="color: #ffffff;">" "</span> & ObjData<span style="color: #66cc66;">(</span>LagaObj.<span style="color: #66cc66;">ObjIndex</span><span style="color: #66cc66;">)</span>.<span style="color: #b1b100;">Name</span> & <span style="color: #ffffff;">""</span> & FONTTYPE_SUBASTA<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;">"||Hasta ahora "</span> & LagaCompradorC & <span style="color: #ffffff;">" lidera la subasta ofertando "</span> & LagaPrecioC & <span style="color: #ffffff;">" Monedas de oro"</span> & FONTTYPE_SUBASTA<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;">"||Para ofertar escribe /Cantidad."</span> & FONTTYPE_SUBASTA<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;">Case</span> <span style="color: #ffffff;">"/CERRARSUBASTA"</span></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;">Privilegios</span> < <span style="color: #cc66cc;">2</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1">                <span style="color: #b1b100;">If</span> <span style="color: #b1b100;">Not</span> UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #b1b100;">Name</span> = GetVar<span style="color: #66cc66;">(</span>App.<span style="color: #66cc66;">Path</span> & <span style="color: #ffffff;">"\Dat\"</span> & <span style="color: #ffffff;">"Subasta.ini"</span>, <span style="color: #ffffff;">"Subasta"</span>, <span style="color: #ffffff;">"Vendedor"</span><span style="color: #66cc66;">)</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;">"||No puedes cerrar la subasta si no eres el creador de la misma."</span> & FONTTYPE_SUBASTA<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;">"||La subasta se a cerrado debido a la descicion de su creador."</span> & FONTTYPE_SUBASTA<span style="color: #66cc66;">)</span></li><li style="" class="li2">                    <span style="color: #b1b100;">Call</span> WriteVar<span style="color: #66cc66;">(</span>App.<span style="color: #66cc66;">Path</span> & <span style="color: #ffffff;">"\Dat\"</span> & <span style="color: #ffffff;">"Subasta.ini"</span>, <span style="color: #ffffff;">"Subasta"</span>, <span style="color: #ffffff;">"Activa"</span>, <span style="color: #ffffff;">"0"</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">                    frmMain.<span style="color: #66cc66;">SubastaTIMER</span>.<span style="color: #66cc66;">Enabled</span> = <span style="color: #b1b100;">False</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;">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;">"||La subasta se a cerrado debido a la descicion de "</span> & UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #b1b100;">Name</span> & <span style="color: #ffffff;">"."</span> & FONTTYPE_SUBASTA<span style="color: #66cc66;">)</span></li><li style="" class="li1">                <span style="color: #b1b100;">Call</span> WriteVar<span style="color: #66cc66;">(</span>App.<span style="color: #66cc66;">Path</span> & <span style="color: #ffffff;">"\Dat\"</span> & <span style="color: #ffffff;">"Subasta.ini"</span>, <span style="color: #ffffff;">"Subasta"</span>, <span style="color: #ffffff;">"Activa"</span>, <span style="color: #ffffff;">"0"</span><span style="color: #66cc66;">)</span></li><li style="" class="li2">                frmMain.<span style="color: #66cc66;">SubastaTIMER</span>.<span style="color: #66cc66;">Enabled</span> = <span style="color: #b1b100;">False</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;">Exit</span> <span style="color: #b1b100;">Sub</span></li></ol></div>[/vb]

Esto lo que hace es cerrar la subasta si sos el dueño, o brindar informacion de la misma a los posibles compradores

Ahora hay que hacer lo siguente
1* Al SubastaTimer ponerle de propiedad:

Enabled = False

Crear un label "SubastaActivada" con caption "1"

Crear un label "SubastaLabel" con caption "180"

Crear un label "SubastaLabel2" con caption "180"

Creamos un .ini que contenga esta informacion:

[Subasta]
Activa=0
Ofertaron=0
Valor=0
Vendedor=0
Comprador=0
Objeto=0
Cantidad=0

Abajo De:
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #b1b100;">If</span> <span style="color: #b1b100;">UCase</span>$<span style="color: #66cc66;">(</span><span style="color: #b1b100;">Left</span>$<span style="color: #66cc66;">(</span>rdata, <span style="color: #cc66cc;">6</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span> = <span style="color: #ffffff;">"/PMSG "</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1">        <span style="color: #b1b100;">Call</span> mdParty.<span style="color: #66cc66;">BroadCastParty</span><span style="color: #66cc66;">(</span>UserIndex, <span style="color: #b1b100;">Mid</span>$<span style="color: #66cc66;">(</span>rdata, <span style="color: #cc66cc;">7</span><span style="color: #66cc66;">)</span><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></ol></div>[/vb]

Ponemos:

[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #808080;">'Subastar</span></li><li style="" class="li1"><span style="color: #b1b100;">If</span> <span style="color: #b1b100;">UCase</span>$<span style="color: #66cc66;">(</span><span style="color: #b1b100;">Left</span>$<span style="color: #66cc66;">(</span>rdata, <span style="color: #cc66cc;">10</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span> = <span style="color: #ffffff;">"/SUBASTAR "</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li2">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;">10</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"> </li><li style="" class="li1">    <span style="color: #b1b100;">If</span> <span style="color: #b1b100;">Not</span> UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Stats</span>.<span style="color: #66cc66;">UserSkills</span><span style="color: #66cc66;">(</span>Comerciar<span style="color: #66cc66;">)</span> >= <span style="color: #cc66cc;">50</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;">"||Nesesitas almenos 50 puntos en comercio para poder subastar."</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="li1">    <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li2"> </li><li style="" class="li1">    <span style="color: #b1b100;">If</span> frmMain.<span style="color: #66cc66;">subastaActivada</span>.<span style="color: #66cc66;">Caption</span> = <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;">"||Los gms han desactivado el sistema de subastas, porfavor espera un rato y vuelve a intentar."</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">    </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;">15</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;">"||Nesesitas nivel 15 para organizar una subasta."</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"> </li><li style="" class="li1"><span style="color: #808080;">'Gracias gs por la ayuda con algunos parametros.</span></li><li style="" class="li2"><span style="color: #808080;">' [GS]</span></li><li style="" class="li1">    <span style="color: #b1b100;">If</span> <span style="color: #b1b100;">InStr</span><span style="color: #66cc66;">(</span>rdata, <span style="color: #ffffff;">"@"</span><span style="color: #66cc66;">)</span> = <span style="color: #b1b100;">False</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;">"||Debes usar @ para separar los terminos."</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;">If</span> Numeric<span style="color: #66cc66;">(</span>ReadField<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span>, rdata, <span style="color: #b1b100;">Asc</span><span style="color: #66cc66;">(</span><span style="color: #ffffff;">"@"</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span> = <span style="color: #b1b100;">False</span> <span style="color: #b1b100;">Or</span> Numeric<span style="color: #66cc66;">(</span>ReadField<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">2</span>, rdata, <span style="color: #b1b100;">Asc</span><span style="color: #66cc66;">(</span><span style="color: #ffffff;">"@"</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span> = <span style="color: #b1b100;">False</span> <span style="color: #b1b100;">Or</span> Numeric<span style="color: #66cc66;">(</span>ReadField<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">3</span>, rdata, <span style="color: #b1b100;">Asc</span><span style="color: #66cc66;">(</span><span style="color: #ffffff;">"@"</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span> = <span style="color: #b1b100;">False</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;">"||Uno de tus parametros no es numericos."</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="li1">    <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li2">    <span style="color: #b1b100;">If</span> ReadField<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span>, rdata, <span style="color: #b1b100;">Asc</span><span style="color: #66cc66;">(</span><span style="color: #ffffff;">"@"</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span> < <span style="color: #cc66cc;">1</span> <span style="color: #b1b100;">Or</span> ReadField<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span>, rdata, <span style="color: #b1b100;">Asc</span><span style="color: #66cc66;">(</span><span style="color: #ffffff;">"@"</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span> > <span style="color: #cc66cc;">20</span> <span style="color: #b1b100;">Or</span> ReadField<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">2</span>, rdata, <span style="color: #b1b100;">Asc</span><span style="color: #66cc66;">(</span><span style="color: #ffffff;">"@"</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span> < <span style="color: #cc66cc;">1</span> <span style="color: #b1b100;">Or</span> ReadField<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">2</span>, rdata, <span style="color: #b1b100;">Asc</span><span style="color: #66cc66;">(</span><span style="color: #ffffff;">"@"</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span> > <span style="color: #cc66cc;">10000</span> <span style="color: #b1b100;">Or</span> ReadField<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">3</span>, rdata, <span style="color: #b1b100;">Asc</span><span style="color: #66cc66;">(</span><span style="color: #ffffff;">"@"</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span> < <span style="color: #cc66cc;">1</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;">"||Uno de tus parametros es invalido."</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"><span style="color: #808080;">' [/GS]</span></li><li style="" class="li1"> </li><li style="" class="li2"> </li><li style="" class="li1">    <span style="color: #b1b100;">Dim</span> LagaIndex</li><li style="" class="li1">    LagaIndex = ReadField<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span>, rdata, <span style="color: #b1b100;">Asc</span><span style="color: #66cc66;">(</span><span style="color: #ffffff;">"@"</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span> <span style="color: #808080;">' SLOT</span></li><li style="" class="li2">    </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;">Invent</span>.<span style="color: #66cc66;">Object</span><span style="color: #66cc66;">(</span>LagaIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Amoun</span>  t > <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1">        LagaObj.<span style="color: #66cc66;">ObjIndex</span> = 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>LagaIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">ObjIn</span>  dex</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;">"||No hay ningun item en ese slot!."</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">    </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;">Invent</span>.<span style="color: #66cc66;">Object</span><span style="color: #66cc66;">(</span>LagaIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Equip</span>  ped > <span style="color: #cc66cc;">0</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;">"||No puedes subastar ese item porque lo estas usando!."</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="li1">    <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li2">        </li><li style="" class="li1">    LagaObj.<span style="color: #66cc66;">Amount</span> = ReadField<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">2</span>, rdata, <span style="color: #b1b100;">Asc</span><span style="color: #66cc66;">(</span><span style="color: #ffffff;">"@"</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span> <span style="color: #808080;">' CANTIDAD</span></li><li style="" class="li1">    </li><li style="" class="li2">    <span style="color: #b1b100;">Dim</span> LagaInicial</li><li style="" class="li1">    LagaInicial = ReadField<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">3</span>, rdata, <span style="color: #b1b100;">Asc</span><span style="color: #66cc66;">(</span><span style="color: #ffffff;">"@"</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span> <span style="color: #808080;">' VALOR INICIAL</span></li><li style="" class="li1"> </li><li style="" class="li2"> </li><li style="" class="li1"><span style="color: #808080;">'If (Not IsNumeric(ReadField(1, rdata, Asc("@")))) Or LagaObj.Amount = "" Or LagaInicial = "" Then</span></li><li style="" class="li1"><span style="color: #808080;">'       Call SendData(ToIndex, UserIndex, 0, "||Utilice /Subastar [email protected]@Precio" & FONTTYPE_INFO)</span></li><li style="" class="li2"><span style="color: #808080;">'       Exit Sub</span></li><li style="" class="li1"><span style="color: #808080;">'   End If</span></li><li style="" class="li1"> </li><li style="" class="li2"><span style="color: #b1b100;">Dim</span> LagaSubActivaA</li><li style="" class="li1">LagaSubActivaA = GetVar<span style="color: #66cc66;">(</span>App.<span style="color: #66cc66;">Path</span> & <span style="color: #ffffff;">"\Dat\"</span> & <span style="color: #ffffff;">"Subasta.ini"</span>, <span style="color: #ffffff;">"Subasta"</span>, <span style="color: #ffffff;">"Activa"</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"> </li><li style="" class="li2"><span style="color: #b1b100;">If</span> LagaSubActivaA = <span style="color: #cc66cc;">1</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;">"||Ya hay una subasta activa en estos momentos!."</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"> </li><li style="" class="li1"><span style="color: #b1b100;">If</span> <span style="color: #b1b100;">Not</span> ObjData<span style="color: #66cc66;">(</span>LagaObj.<span style="color: #66cc66;">ObjIndex</span><span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Subastable</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;">"||Este objeto no puede ser subastado!."</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="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: #b1b100;">Not</span> TieneObjetos<span style="color: #66cc66;">(</span>LagaObj.<span style="color: #66cc66;">ObjIndex</span>, LagaObj.<span style="color: #66cc66;">Amount</span>, UserIndex<span style="color: #66cc66;">)</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 posees el objeto o la cantidad que deseas subastar."</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">    </li><li style="" class="li1"><span style="color: #b1b100;">Dim</span> LagaNombre</li><li style="" class="li2">    LagaNombre = ObjData<span style="color: #66cc66;">(</span>LagaObj.<span style="color: #66cc66;">ObjIndex</span><span style="color: #66cc66;">)</span>.<span style="color: #b1b100;">Name</span></li><li style="" class="li1"> </li><li style="" class="li1">frmMain.<span style="color: #66cc66;">SubastaLabel2</span> = <span style="color: #cc66cc;">180</span></li><li style="" class="li2">frmMain.<span style="color: #66cc66;">SubastaLabel</span> = <span style="color: #cc66cc;">180</span></li><li style="" class="li1"> </li><li style="" class="li1"><span style="color: #b1b100;">Call</span> WriteVar<span style="color: #66cc66;">(</span>App.<span style="color: #66cc66;">Path</span> & <span style="color: #ffffff;">"\Dat\"</span> & <span style="color: #ffffff;">"Subasta.ini"</span>, <span style="color: #ffffff;">"Subasta"</span>, <span style="color: #ffffff;">"Activa"</span>, <span style="color: #ffffff;">"1"</span><span style="color: #66cc66;">)</span></li><li style="" class="li2"><span style="color: #b1b100;">Call</span> WriteVar<span style="color: #66cc66;">(</span>App.<span style="color: #66cc66;">Path</span> & <span style="color: #ffffff;">"\Dat\"</span> & <span style="color: #ffffff;">"Subasta.ini"</span>, <span style="color: #ffffff;">"Subasta"</span>, <span style="color: #ffffff;">"Ofertaron"</span>, <span style="color: #ffffff;">"0"</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"><span style="color: #b1b100;">Call</span> WriteVar<span style="color: #66cc66;">(</span>App.<span style="color: #66cc66;">Path</span> & <span style="color: #ffffff;">"\Dat\"</span> & <span style="color: #ffffff;">"Subasta.ini"</span>, <span style="color: #ffffff;">"Subasta"</span>, <span style="color: #ffffff;">"Valor"</span>, <span style="color: #ffffff;">""</span> & LagaInicial & <span style="color: #ffffff;">""</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"><span style="color: #b1b100;">Call</span> WriteVar<span style="color: #66cc66;">(</span>App.<span style="color: #66cc66;">Path</span> & <span style="color: #ffffff;">"\Dat\"</span> & <span style="color: #ffffff;">"Subasta.ini"</span>, <span style="color: #ffffff;">"Subasta"</span>, <span style="color: #ffffff;">"Vendedor"</span>, <span style="color: #ffffff;">""</span> & UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #b1b100;">Name</span> & <span style="color: #ffffff;">""</span><span style="color: #66cc66;">)</span></li><li style="" class="li2"><span style="color: #b1b100;">Call</span> WriteVar<span style="color: #66cc66;">(</span>App.<span style="color: #66cc66;">Path</span> & <span style="color: #ffffff;">"\Dat\"</span> & <span style="color: #ffffff;">"Subasta.ini"</span>, <span style="color: #ffffff;">"Subasta"</span>, <span style="color: #ffffff;">"Comprador"</span>, <span style="color: #ffffff;">"0"</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"><span style="color: #b1b100;">Call</span> WriteVar<span style="color: #66cc66;">(</span>App.<span style="color: #66cc66;">Path</span> & <span style="color: #ffffff;">"\Dat\"</span> & <span style="color: #ffffff;">"Subasta.ini"</span>, <span style="color: #ffffff;">"Subasta"</span>, <span style="color: #ffffff;">"Objeto"</span>, <span style="color: #ffffff;">""</span> & LagaObj.<span style="color: #66cc66;">ObjIndex</span> & <span style="color: #ffffff;">""</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"><span style="color: #b1b100;">Call</span> WriteVar<span style="color: #66cc66;">(</span>App.<span style="color: #66cc66;">Path</span> & <span style="color: #ffffff;">"\Dat\"</span> & <span style="color: #ffffff;">"Subasta.ini"</span>, <span style="color: #ffffff;">"Subasta"</span>, <span style="color: #ffffff;">"Cantidad"</span>, <span style="color: #ffffff;">""</span> & LagaObj.<span style="color: #66cc66;">Amount</span> & <span style="color: #ffffff;">""</span><span style="color: #66cc66;">)</span></li><li style="" class="li2"> </li><li style="" class="li1"><span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span>ToAll, <span style="color: #cc66cc;">0</span>, <span style="color: #cc66cc;">0</span>, <span style="color: #ffffff;">"||"</span> & UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #b1b100;">Name</span> & <span style="color: #ffffff;">" esta subastando "</span> & LagaObj.<span style="color: #66cc66;">Amount</span> & <span style="color: #ffffff;">" "</span> & LagaNombre & <span style="color: #ffffff;">" con un valor inicial de "</span> & LagaInicial & <span style="color: #ffffff;">" monedas de oro, Para participar escribe /Ofertar Cantidad, les recuerdo que solamente tienen 5 minuto para ofertar."</span> & FONTTYPE_SUBASTA<span style="color: #66cc66;">)</span></li><li style="" class="li1">frmMain.<span style="color: #66cc66;">SubastaTIMER</span>.<span style="color: #66cc66;">Enabled</span> = <span style="color: #b1b100;">True</span></li><li style="" class="li2"> </li><li style="" class="li1"><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="li2"> </li><li style="" class="li1"><span style="color: #b1b100;">If</span> <span style="color: #b1b100;">UCase</span>$<span style="color: #66cc66;">(</span><span style="color: #b1b100;">Left</span>$<span style="color: #66cc66;">(</span>rdata, <span style="color: #cc66cc;">9</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span> = <span style="color: #ffffff;">"/OFERTAR "</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1">    <span style="color: #b1b100;">Dim</span> LagaOro <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span></li><li style="" class="li2">        LagaOro = <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;">9</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">    </li><li style="" class="li1">    <span style="color: #b1b100;">Dim</span> LagaSubActiva</li><li style="" class="li2">        LagaSubActiva = GetVar<span style="color: #66cc66;">(</span>App.<span style="color: #66cc66;">Path</span> & <span style="color: #ffffff;">"\Dat\"</span> & <span style="color: #ffffff;">"Subasta.ini"</span>, <span style="color: #ffffff;">"Subasta"</span>, <span style="color: #ffffff;">"Activa"</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">    <span style="color: #b1b100;">Dim</span> LagaValorFinalXI <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span></li><li style="" class="li1">        LagaValorFinalXI = GetVar<span style="color: #66cc66;">(</span>App.<span style="color: #66cc66;">Path</span> & <span style="color: #ffffff;">"\Dat\"</span> & <span style="color: #ffffff;">"Subasta.ini"</span>, <span style="color: #ffffff;">"Subasta"</span>, <span style="color: #ffffff;">"Valor"</span><span style="color: #66cc66;">)</span></li><li style="" class="li2">    </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;">Stats</span>.<span style="color: #66cc66;">ELV</span> < <span style="color: #cc66cc;">15</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;">"||Nesesitas almenos tener nivel 15 para poder participar en una subasta."</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">    </li><li style="" class="li2">    <span style="color: #b1b100;">If</span> <span style="color: #b1b100;">Not</span> UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Stats</span>.<span style="color: #66cc66;">UserSkills</span><span style="color: #66cc66;">(</span>Comerciar<span style="color: #66cc66;">)</span> >= <span style="color: #cc66cc;">20</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;">"||Nesesitas tener almenos 20 puntos en comercio para poder participar en una subasta."</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"> </li><li style="" class="li1">    <span style="color: #b1b100;">If</span> LagaSubActiva = <span style="color: #cc66cc;">0</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;">"||No hay ninguna subasta activa!."</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="li1">    <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li2">    </li><li style="" class="li1">    <span style="color: #b1b100;">If</span> LagaOro > UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Stats</span>.<span style="color: #66cc66;">GLD</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 posees esa cantidad de oro."</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">    </li><li style="" class="li2">    <span style="color: #b1b100;">If</span> <span style="color: #b1b100;">Not</span> LagaOro > LagaValorFinalXI + <span style="color: #cc66cc;">499</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;">"||Debe haber almenos una diferencia de 500 monedas a la ultima oferta!."</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">    </li><li style="" class="li1">    <span style="color: #b1b100;">If</span> LagaOro > LagaValorFinalXI <span style="color: #b1b100;">Then</span></li><li style="" class="li2"> </li><li style="" class="li1">    </li><li style="" class="li1">    LagaValorFinalXI = LagaOro</li><li style="" class="li2">    <span style="color: #b1b100;">Call</span> WriteVar<span style="color: #66cc66;">(</span>App.<span style="color: #66cc66;">Path</span> & <span style="color: #ffffff;">"\Dat\"</span> & <span style="color: #ffffff;">"Subasta.ini"</span>, <span style="color: #ffffff;">"Subasta"</span>, <span style="color: #ffffff;">"Valor"</span>, <span style="color: #ffffff;">""</span> & LagaValorFinalXI & <span style="color: #ffffff;">""</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">    </li><li style="" class="li1">    <span style="color: #b1b100;">Call</span> WriteVar<span style="color: #66cc66;">(</span>App.<span style="color: #66cc66;">Path</span> & <span style="color: #ffffff;">"\Dat\"</span> & <span style="color: #ffffff;">"Subasta.ini"</span>, <span style="color: #ffffff;">"Subasta"</span>, <span style="color: #ffffff;">"Comprador"</span>, <span style="color: #ffffff;">""</span> & UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #b1b100;">Name</span> & <span style="color: #ffffff;">""</span><span style="color: #66cc66;">)</span></li><li style="" class="li2">    </li><li style="" class="li1">    <span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span>ToAll, <span style="color: #cc66cc;">0</span>, <span style="color: #cc66cc;">0</span>, <span style="color: #ffffff;">"||"</span> & UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #b1b100;">Name</span> & <span style="color: #ffffff;">" a superado la oferta anterior ofreciendo "</span> & LagaValorFinalXI & <span style="color: #ffffff;">" Monedas de oro, Para participar escribe /Ofertar Cantidad."</span> & FONTTYPE_SUBASTA<span style="color: #66cc66;">)</span></li><li style="" class="li1"> </li><li style="" class="li2">    <span style="color: #b1b100;">Call</span> WriteVar<span style="color: #66cc66;">(</span>App.<span style="color: #66cc66;">Path</span> & <span style="color: #ffffff;">"\Dat\"</span> & <span style="color: #ffffff;">"Subasta.ini"</span>, <span style="color: #ffffff;">"Subasta"</span>, <span style="color: #ffffff;">"Ofertaron"</span>, <span style="color: #ffffff;">"1"</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">    </li><li style="" class="li1">    <span style="color: #b1b100;">Else</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;">"||Losiento, ya hay una oferta mayor o igual a la tuya."</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="li1">    <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li2">    </li><li style="" class="li1"><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></ol></div>[/vb]

Buscamos:

[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> FONTTYPE_SERVER = <span style="color: #ffffff;">"~0~185~0~0~0"</span></li></ol></div>[/vb]

y Abajo Ponemos:

[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> FONTTYPE_SUBASTA = <span style="color: #ffffff;">"~255~255~0~1~1"</span></li></ol></div>[/vb]

Vamos a modulo Declaraciones y ponemos:

[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #b1b100;">Public</span> LagaObj <span style="color: #b1b100;">as</span> obj</li></ol></div>[/vb]

y luego vamos al sub LoadObjData y abajo de:

[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1">ObjData<span style="color: #66cc66;">(</span>Object<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Newbie</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;">"Newbie"</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span></li></ol></div>[/vb]

Ponemos :

[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1">ObjData<span style="color: #66cc66;">(</span>Object<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Subastable</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;">"Subastable"</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span></li></ol></div>[/vb]


Nota: el obj tiene que tener subastable=1 para poder ser subastado.

En Declaraciones:
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1">Newbie <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li></ol></div>[/vb]

Abajo Ponemos:

[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1">Subastable <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li></ol></div>[/vb]

Listo "Comandos"

Para subastar se hace /Subastar [email protected]@PRECIO
Para ofertar /Ofertar CANTIDAD
Para ver informacion /Infosubasta
Para cerrar la subasta /CerrarSubasta
 

Cavallero

Destructor Lvl 5
no viste?

en obj.dat pones a los objetos :

subastable=1

1, si
0, no

osea no se subasta cuando esta el 0
:p
 

Shed

128bpm
Ex-Staff
cuando qres crear la subasta dice:
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><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;">Stats</span>.<span style="color: #66cc66;">ELV</span> < <span style="color: #cc66cc;">15</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;">"||Nesesitas nivel 25 para organizar una subasta."</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></ol></div>[/vb]

Te equivocaste ahi, dice que si no sos lvl 15 o mas le dice q necesita ser lvl 25.
 

DarkThom

Oráculo Lvl 3
Cavallero dijo:
no viste?

en obj.dat pones a los objetos :

subastable=1

1, si
0, no

osea no se subasta cuando esta el 0
:p

si pero yo quiero que todos los objetos se subastan te pensas que le voy a estar poniendo a los 803 objetos de mi server Subastable=1 :S

tas loco

ta weno el code exepto x eso
 

elnick

Newbie Lvl 3
Alreves, si es subastable = 0 significa que todos los items por defectos van a ser subastables porque si el getvar lee subastable y no existe, le da valor 0.

Entonces lo obj que no queres que sean subastables le pones = 1 y listo.

Dark asi te queda

[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"> </li><li style="" class="li1"><span style="color: #b1b100;">If</span> <span style="color: #b1b100;">Not</span> ObjData<span style="color: #66cc66;">(</span>LagaObj.<span style="color: #66cc66;">ObjIndex</span><span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Subastable</span> = <span style="color: #cc66cc;">1</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li2">  </li></ol></div>[/vb]

[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"> </li><li style="" class="li1"><span style="color: #b1b100;">If</span> ObjData<span style="color: #66cc66;">(</span>LagaObj.<span style="color: #66cc66;">ObjIndex</span><span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Subastable</span> = <span style="color: #cc66cc;">1</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li2"> </li></ol></div>[/vb]
 

Cavallero

Destructor Lvl 5
zapato dijo:
A todo lo q hace, le mete un [Cavallero] [Cavallero/]. Dudo q halla modificado algo :p

lo que tu digas pero yo no veo eso de Cavallero :S 2. El Codigo lo Extrai De CodigosAO.

Eh Dicho Que Es Por Mi? A Que no :S? puse "Mod Subastas"

Aqui Esta El Link:

<a href="http://www.slkgames.com/foro/showthread" class="postlink" rel="nofollow" onClick="window.open(this.href);return false;">http://www.slkgames.com/foro/showthread</a> ... t=Subastas

pense que no estaba aki :S i pa eso lo publice...

Que Desconfiada Es La gente :S no vi que estaba el de Lagalot pero =

Es Del Usuario : ThunderBolt
 

zapato

STAND BY!
Cavallero dijo:
Shed Gracias Por Avisarme fallo mio :(

ya lo cambie min lvl 15.


Tonces porq afirmas q fue tu fallo, si no lo hiciste vos....

Saludos

Edit: Por eso dije q no lo hiciste vos, porq no estaba lo de [Cavallero]...

Ahmm, podrias haber puesto el autor del codigo al final del primer post.
 

Cavallero

Destructor Lvl 5
zapato dijo:
Cavallero dijo:
Shed Gracias Por Avisarme fallo mio :(

ya lo cambie min lvl 15.


Tonces porq afirmas q fue tu fallo, si no lo hiciste vos....

Saludos

Edit: Por eso dije q no lo hiciste vos, porq no estaba lo de [Cavallero]...

Ahmm, podrias haber puesto el autor del codigo al final del primer post.

El Fallo Verdadero Es Mio Porque?

Me Tenia Que Haber dado Cuenta Del Fallo.

Igual Que Modifican El Aoready, i dices ke el server es Tal Nombre,

i lo pusistes tu i te equivocaste es fallo tuio por no mirar

thunderbolt = lagalot eso no lo sabia xD :p
 

Cronos

Oráculo Lvl 1
1º no revivas
2º viste el panel de objetos, son como cuadraditos, el slot es el numero de cuadrado de izq a der de arriba a abajo...
 
Estado
Cerrado para nuevas respuestas.
Arriba