[Aportes indexados] Mod Subastas

Cavallero · Mar 4, 2007

[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">Dim LagaHubOfertaB</li><li style="" class="li1">LagaHubOfertaB = GetVar(App.Path & "\Dat\" & "Subasta.ini", "Subasta", "Ofertaron")</li><li style="" class="li2">If LagaHubOfertaB = 0 Then</li><li style="" class="li1">'Call SendData(ToAll, 0, 0, "||Si nadie hace una oferta, la subasta se cierra en " & frmMain.SubastaLabel.Caption & " Segundos." & FONTTYPE_INFO)</li><li style="" class="li1"> </li><li style="" class="li2">If frmMain.SubastaLabel > 0 Then</li><li style="" class="li1"> 'If frmMain.SubastaLabel = 240 Then</li><li style="" class="li1"> 'Call SendData(ToAll, 0, 0, "||La subasta terminara en 4 minutos." & FONTTYPE_SUBASTA)</li><li style="" class="li2"> 'ElseIf frmMain.SubastaLabel = 180 Then</li><li style="" class="li1"> 'Call SendData(ToAll, 0, 0, "||La subasta terminara en 3 minutos." & FONTTYPE_SUBASTA)</li><li style="" class="li1"> If frmMain.SubastaLabel = 120 Then</li><li style="" class="li2"> Call SendData(ToAll, 0, 0, "||La subasta terminara en 2 minutos." & FONTTYPE_SUBASTA)</li><li style="" class="li1"> ElseIf frmMain.SubastaLabel = 60 Then</li><li style="" class="li1"> Call SendData(ToAll, 0, 0, "||La subasta terminara en 1 minuto." & FONTTYPE_SUBASTA)</li><li style="" class="li2"> End If</li><li style="" class="li1">frmMain.SubastaLabel = frmMain.SubastaLabel - 1</li><li style="" class="li1">Else</li><li style="" class="li2">Call SendData(ToAll, 0, 0, "||La subasta se a cerrado, disculpen las molestias." & FONTTYPE_SUBASTA)</li><li style="" class="li1">Call WriteVar(App.Path & "\Dat\" & "Subasta.ini", "Subasta", "Activa", "0")</li><li style="" class="li1">frmMain.SubastaTIMER.Enabled = False</li><li style="" class="li2">End If</li><li style="" class="li1"> </li><li style="" class="li1">Else</li><li style="" class="li2"> </li><li style="" class="li1">Dim LagaNombreA</li><li style="" class="li1">LagaNombreA = GetVar(App.Path & "\Dat\" & "Subasta.ini", "Subasta", "Comprador")</li><li style="" class="li2">Dim LagaNombreB</li><li style="" class="li1">LagaNombreB = GetVar(App.Path & "\Dat\" & "Subasta.ini", "Subasta", "Vendedor")</li><li style="" class="li1"> </li><li style="" class="li2">Dim LagaCompradorB</li><li style="" class="li1">LagaCompradorB = NameIndex(LagaNombreA)</li><li style="" class="li1">Dim LagaVendedorB</li><li style="" class="li2">LagaVendedorB = NameIndex(LagaNombreB)</li><li style="" class="li1"> </li><li style="" class="li1">Dim LagaValorFinalB</li><li style="" class="li2">LagaValorFinalB = GetVar(App.Path & "\Dat\" & "Subasta.ini", "Subasta", "Valor")</li><li style="" class="li1"> </li><li style="" class="li1">If frmMain.SubastaLabel > 0 Then</li><li style="" class="li2"> If frmMain.SubastaLabel = 240 Then</li><li style="" class="li1"> Call SendData(ToAll, 0, 0, "||La subasta terminara en 4 minutos." & FONTTYPE_SUBASTA)</li><li style="" class="li1"> 'ElseIf frmMain.SubastaLabel = 180 Then</li><li style="" class="li2"> 'Call SendData(ToAll, 0, 0, "||La subasta terminara en 3 minutos." & FONTTYPE_SUBASTA)</li><li style="" class="li1"> ElseIf frmMain.SubastaLabel = 120 Then</li><li style="" class="li1"> Call SendData(ToAll, 0, 0, "||La subasta terminara en 2 minutos." & FONTTYPE_SUBASTA)</li><li style="" class="li2"> ElseIf frmMain.SubastaLabel = 60 Then</li><li style="" class="li1"> Call SendData(ToAll, 0, 0, "||La subasta terminara en 1 minuto." & FONTTYPE_SUBASTA)</li><li style="" class="li1"> End If</li><li style="" class="li2">frmMain.SubastaLabel = frmMain.SubastaLabel - 1</li><li style="" class="li1">Else</li><li style="" class="li1"> </li><li style="" class="li2">If EstaConectado(LagaVendedorB) And EstaConectado(LagaCompradorB) Then</li><li style="" class="li1">If TieneObjetos(LagaObj.ObjIndex, LagaObj.Amount, LagaVendedorB) Then</li><li style="" class="li1">If TieneOro(LagaCompradorB, LagaValorFinalB) Then</li><li style="" class="li2"> </li><li style="" class="li1">'Call SendData(ToAll, 0, 0, "||Se esta transferiendo el item y el oro." & FONTTYPE_SUBASTA)</li><li style="" class="li1">Call PasarItemsyOro(LagaCompradorB, LagaVendedorB, LagaValorFinalB)</li><li style="" class="li2"> </li><li style="" class="li1">Else</li><li style="" class="li1"> Call SendData(ToAll, 0, 0, "||La subasta se a cancelado debido a que el usuario " & LagaNombreA & " ya no posee las " & LagaValorFinalB & " Monedas de oro acordadas para esta venta." & FONTTYPE_SUBASTA)</li><li style="" class="li2"> Call WriteVar(App.Path & "\Dat\" & "Subasta.ini", "Subasta", "Activa", "0")</li><li style="" class="li1">frmMain.SubastaTIMER.Enabled = False</li><li style="" class="li1"> Exit Sub</li><li style="" class="li2">End If</li><li style="" class="li1"> </li><li style="" class="li1">Else</li><li style="" class="li2"> Call SendData(ToAll, 0, 0, "||La subasta se a cancelado debido a que el usuario " & LagaNombreB & " ya no posee los Items acordados para esta venta." & FONTTYPE_SUBASTA)</li><li style="" class="li1"> Call WriteVar(App.Path & "\Dat\" & "Subasta.ini", "Subasta", "Activa", "0")</li><li style="" class="li1">frmMain.SubastaTIMER.Enabled = False</li><li style="" class="li2"> Exit Sub</li><li style="" class="li1">End If</li><li style="" class="li1"> </li><li style="" class="li2">Else</li><li style="" class="li1"> Call SendData(ToAll, 0, 0, "||La subasta se a cancelado debido a el o los usuarios que acordaron la venta se han desconectado." & FONTTYPE_SUBASTA)</li><li style="" class="li1"> Call WriteVar(App.Path & "\Dat\" & "Subasta.ini", "Subasta", "Activa", "0")</li><li style="" class="li2">frmMain.SubastaTIMER.Enabled = False</li><li style="" class="li1"> Exit Sub</li><li style="" class="li1">End If</li><li style="" class="li2"> </li><li style="" class="li1"> </li><li style="" class="li1">Call WriteVar(App.Path & "\Dat\" & "Subasta.ini", "Subasta", "Activa", "0")</li><li style="" class="li2">frmMain.SubastaTIMER.Enabled = False</li><li style="" class="li1"> </li><li style="" class="li1"> </li><li style="" class="li2">End If</li><li style="" class="li1"> </li><li style="" class="li1">End If</li><li style="" class="li2">End Sub</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">Function EstaConectado(ByVal User As Integer) As Boolean</li><li style="" class="li1"> </li><li style="" class="li2">If UserList(User).ConnID <> -1 And UserList(User).flags.UserLogged Then</li><li style="" class="li1">EstaConectado = True</li><li style="" class="li1">Exit Function</li><li style="" class="li2">End If</li><li style="" class="li1"> </li><li style="" class="li1">EstaConectado = False</li><li style="" class="li2">End Function</li><li style="" class="li1"> </li><li style="" class="li1">Function TieneOro(ByVal User As Integer, ByVal oro As Long) As Boolean</li><li style="" class="li2"> </li><li style="" class="li1">If UserList(User).Stats.GLD >= oro Then</li><li style="" class="li1">TieneOro = True</li><li style="" class="li2">Exit Function</li><li style="" class="li1">End If</li><li style="" class="li1"> </li><li style="" class="li2">TieneOro = False</li><li style="" class="li1">End Function</li><li style="" class="li1"> </li><li style="" class="li2">Sub PasarItemsyOro(ByVal Comprador As Integer, ByVal Vendedor As Integer, ByVal oro As Long)</li><li style="" class="li1"> </li><li style="" class="li1">Dim LagaObjB As Obj</li><li style="" class="li2">LagaObjB.ObjIndex = GetVar(App.Path & "\Dat\" & "Subasta.ini", "Subasta", "Objeto")</li><li style="" class="li1">LagaObjB.Amount = GetVar(App.Path & "\Dat\" & "Subasta.ini", "Subasta", "Cantidad")</li><li style="" class="li1"> </li><li style="" class="li2"> UserList(Comprador).Stats.GLD = UserList(Comprador).Stats.GLD - oro</li><li style="" class="li1"> UserList(Vendedor).Stats.GLD = UserList(Vendedor).Stats.GLD + oro</li><li style="" class="li1"> Call MeterItemEnInventario(Comprador, LagaObjB)</li><li style="" class="li2"> Call QuitarObjetos(LagaObjB.ObjIndex, LagaObjB.Amount, Vendedor)</li><li style="" class="li1"> Call SendData(ToAll, 0, 0, "||El usuario " & UserList(Comprador).Name & " a comprado " & LagaObjB.Amount & " " & ObjData(LagaObjB.ObjIndex).Name & " a " & oro & " Monedas de oro!!!" & FONTTYPE_SUBASTA)</li><li style="" class="li1"> Call SendUserStatsBox(Comprador)</li><li style="" class="li2"> Call SendUserStatsBox(Vendedor)</li><li style="" class="li1"> Call UpdateUserInv(True, Vendedor, 0)</li><li style="" class="li1">Exit Sub</li><li style="" class="li2"> </li><li style="" class="li1">End Sub</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">Case "/INFOSUBASTA"</li><li style="" class="li1"> Dim LagaSubActivaC</li><li style="" class="li2"> LagaSubActivaC = GetVar(App.Path & "\Dat\" & "Subasta.ini", "Subasta", "Activa")</li><li style="" class="li1"> If LagaSubActivaC = 0 Then</li><li style="" class="li1"> Call SendData(ToIndex, UserIndex, 0, "||No hay ninguna subasta activa!." & FONTTYPE_INFO)</li><li style="" class="li2"> Exit Sub</li><li style="" class="li1"> End If</li><li style="" class="li1">Dim LagaPrecioC</li><li style="" class="li2">Dim LagaObjC As Obj</li><li style="" class="li1">Dim LagaCompradorC</li><li style="" class="li1">Dim LagaVendedorC</li><li style="" class="li2">LagaObjC.ObjIndex = GetVar(App.Path & "\Dat\" & "Subasta.ini", "Subasta", "Objeto")</li><li style="" class="li1">LagaObjC.Amount = GetVar(App.Path & "\Dat\" & "Subasta.ini", "Subasta", "Cantidad")</li><li style="" class="li1">LagaPrecioC = GetVar(App.Path & "\Dat\" & "Subasta.ini", "Subasta", "Valor")</li><li style="" class="li2">LagaVendedorC = GetVar(App.Path & "\Dat\" & "Subasta.ini", "Subasta", "Vendedor")</li><li style="" class="li1">LagaCompradorC = GetVar(App.Path & "\Dat\" & "Subasta.ini", "Subasta", "Comprador")</li><li style="" class="li1">Call SendData(ToIndex, UserIndex, 0, "||" & LagaVendedorC & " esta vendiendo " & LagaObj.Amount & " " & ObjData(LagaObj.ObjIndex).Name & "" & FONTTYPE_SUBASTA)</li><li style="" class="li2">Call SendData(ToIndex, UserIndex, 0, "||Hasta ahora " & LagaCompradorC & " lidera la subasta ofertando " & LagaPrecioC & " Monedas de oro" & FONTTYPE_SUBASTA)</li><li style="" class="li1">Call SendData(ToIndex, UserIndex, 0, "||Para ofertar escribe /Cantidad." & FONTTYPE_SUBASTA)</li><li style="" class="li1"> Exit Sub</li><li style="" class="li2"> Case "/CERRARSUBASTA"</li><li style="" class="li1"> If UserList(UserIndex).flags.Privilegios < 2 Then</li><li style="" class="li1"> If Not UserList(UserIndex).Name = GetVar(App.Path & "\Dat\" & "Subasta.ini", "Subasta", "Vendedor") Then</li><li style="" class="li2"> Call SendData(ToIndex, UserIndex, 0, "||No puedes cerrar la subasta si no eres el creador de la misma." & FONTTYPE_SUBASTA)</li><li style="" class="li1"> Else</li><li style="" class="li1"> Call SendData(ToIndex, UserIndex, 0, "||La subasta se a cerrado debido a la descicion de su creador." & FONTTYPE_SUBASTA)</li><li style="" class="li2"> Call WriteVar(App.Path & "\Dat\" & "Subasta.ini", "Subasta", "Activa", "0")</li><li style="" class="li1"> frmMain.SubastaTIMER.Enabled = False</li><li style="" class="li1"> End If</li><li style="" class="li2"> Else</li><li style="" class="li1"> Call SendData(ToIndex, UserIndex, 0, "||La subasta se a cerrado debido a la descicion de " & UserList(UserIndex).Name & "." & FONTTYPE_SUBASTA)</li><li style="" class="li1"> Call WriteVar(App.Path & "\Dat\" & "Subasta.ini", "Subasta", "Activa", "0")</li><li style="" class="li2"> frmMain.SubastaTIMER.Enabled = False</li><li style="" class="li1"> End If</li><li style="" class="li1"> Exit Sub</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">If UCase$(Left$(rdata, 6)) = "/PMSG " Then</li><li style="" class="li1"> Call mdParty.BroadCastParty(UserIndex, Mid$(rdata, 7))</li><li style="" class="li2"> Exit Sub</li><li style="" class="li1"> End If</li></ol></div>[/vb]

Ponemos:

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

Buscamos:

[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1">Public Const FONTTYPE_SERVER = "~0~185~0~0~0"</li></ol></div>[/vb]

y Abajo Ponemos:

[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1">Public Const FONTTYPE_SUBASTA = "~255~255~0~1~1"</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">Public LagaObj as 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(Object).Newbie = val(Leer.DarValor("OBJ" & Object, "Newbie"))</li></ol></div>[/vb]

Ponemos :

[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1">ObjData(Object).Subastable = val(Leer.DarValor("OBJ" & Object, "Subastable"))</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 As Integer</li></ol></div>[/vb]

Abajo Ponemos:

[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1">Subastable As Integer</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

DarkThom · Mar 4, 2007

Muy weno pero deberias hacer que todo sea subastable ¬¬

Cavallero · Mar 4, 2007

no viste?

en obj.dat pones a los objetos :

subastable=1

1, si
0, no

osea no se subasta cuando esta el 0

Shed · Mar 4, 2007

cuando qres crear la subasta dice:
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"> If UserList(UserIndex).Stats.ELV < 15 Then</li><li style="" class="li1"> Call SendData(ToIndex, UserIndex, 0, "||Nesesitas nivel 25 para organizar una subasta." & FONTTYPE_INFO)</li><li style="" class="li2"> Exit Sub</li><li style="" class="li1"> End If</li></ol></div>[/vb]

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

Cavallero · Mar 4, 2007

Shed Gracias Por Avisarme fallo mio

ya lo cambie min lvl 15.

DarkThom · Mar 4, 2007

Cavallero dijo:
no viste?

en obj.dat pones a los objetos :

subastable=1

1, si
0, no

osea no se subasta cuando esta el 0

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

tas loco

ta weno el code exepto x eso

Pocho · Mar 4, 2007

lo mejor seria que si dice

Subastable = 0 entonces no lo subaste, de lo contrario si

elnick · Mar 4, 2007

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

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

Dark asi te queda

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

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

foxvon · Mar 4, 2007

A MI ME HUELE Q ESTE CODIGO LO HIZO "LAGALOT"

busquen: subastas lagalot

Shed · Mar 5, 2007

foxvon dijo:
A MI ME HUELE Q ESTE CODIGO LO HIZO "LAGALOT"

busquen: subastas lagalot

hay mano de lagalot por las nombres de sus variables XD, pero por ahi él mejoro el code.

zapato · Mar 5, 2007

A todo lo q hace, le mete un [Cavallero] [Cavallero/]. Dudo q halla modificado algo

facundo · Mar 5, 2007

:roll: Creo que este codigo esta todo echo por Lagalot..Al menos las primeras linesas son iguales.. Si es el mismo no hacia falta postearlo de nuevo..

Subastas por Lagalot

Cavallero · Mar 5, 2007

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

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

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

Aqui Esta El Link:

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

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

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

Es Del Usuario : ThunderBolt

zapato · Mar 5, 2007

Cavallero dijo:
Shed Gracias Por Avisarme fallo mio

ya lo cambie min lvl 15.

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

Saludos

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

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

foxvon · Mar 5, 2007

thunderbolt = lagalot

Cavallero · Mar 5, 2007

zapato dijo:
Cavallero dijo:

Shed Gracias Por Avisarme fallo mio

ya lo cambie min lvl 15.

Haz clic para expandir...

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

Saludos

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

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

El Fallo Verdadero Es Mio Porque?

Me Tenia Que Haber dado Cuenta Del Fallo.

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

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

thunderbolt = lagalot eso no lo sabia

zapato · Mar 5, 2007

Algo q no me quedo claro, es cual es mi fallo, yo mire bien, y dije todo bien. :?

Anonymous · Sep 29, 2007

Lo puse todo y no tiro errores...
pero no entiendo esto..
[email protected]@PRECIO

que hay que poner en slot?
[email protected]@100 ???

Cronos · Sep 29, 2007

1º no revivas
2º viste el panel de objetos, son como cuadraditos, el slot es el numero de cuadrado de izq a der de arriba a abajo...

Anonymous · Sep 29, 2007

no entiendo
tengo la daga en el slot 2
esta en subastable=1
(no es daga new)
pongo /SUBASTAR [email protected]@100 y no pasa nada :S

[Aportes indexados] Mod Subastas

Destructor Lvl 5

Oráculo Lvl 3

Destructor Lvl 5

128bpm

Destructor Lvl 5

Oráculo Lvl 3

Oráculo Lvl 3

Newbie Lvl 3

Newbie Lvl 2

128bpm

STAND BY!

Oráculo Lvl 3

Destructor Lvl 5

STAND BY!

Newbie Lvl 2

Destructor Lvl 5

STAND BY!

Anonymous

Invitado

Oráculo Lvl 1

Anonymous

Invitado