[Codigo Completo] Mod Subastas
Comando /SUBASTAS
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
Comando /SUBASTAS
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