[Aportes indexados] Un código de Subastas

Estado
Cerrado para nuevas respuestas.

Pocho

Oráculo Lvl 3
este codigo NOOOOOO LO HISE YO, NO SE DE DONDE SALIO NI ME INTERESA, aca lo tineen

Código:
If UCase$(Left$(rdata, 11)) = "/FINSUBASTA" Then
    If Subastas.HaySubastas = 0 Then
        Call SendData(ToIndex, UserIndex, 0, "||No hay subastas pendientes" & FONTTYPE_INFO)
        Exit Sub
    End If
    
    Subastas.TiempoRestante = 3
    Call SendData(ToAll, 0, 0, "||" & UserList(UserIndex).Name & " aceleró la subasta" & FONTTYPE_BANEOS)
    Subastas.HaySubastas = 0
    Exit Sub
End If
 
 
 
 
minutos = minutos + 1
 
Call ModSubastas.PasarMinutoSubastas
 
 
 
 
     Case "/PASSWD "
 
ai por abajo
 
 
  Select Case UCase$(Left$(rdata, 9))
        Case "/OFRECER " 'MATIUS <- Ofrecer para la subasta ->
            rdata = Right(rdata, Len(rdata) - 9)
            tLong = CLng(val(rdata))
            N = tLong
            '¿Hay subastas?
            If Subastas.HaySubastas = 0 Then
                Call SendData(ToIndex, UserIndex, 0, "||No hay subastas" & FONTTYPE_INFO)
                Exit Sub
            End If
            '¿Ofrece mas cantidad?
            If tLong <= Subastas.Oferta Then
                Call SendData(ToIndex, UserIndex, 0, "||La última oferta fue " & Subastas.Oferta & ". Para ofrecer la oferta debes ingresar un número mayor" & FONTTYPE_INFO)
                Exit Sub
            End If
            
            Subastas.Oferta = N
            Subastas.UsuarioQueOferto = UserList(UserIndex).Name
        Exit Sub
 
 
 
 
 
   Select Case UCase$(Left$(rdata, 10))
    'MATIUS -> SISTEMA DE SUBASTAS <-
    '/subastar 1 10000
    '/subastar [email protected]
        Case "/SUBASTAR " 'REVISAR
            rdata = Right$(rdata, Len(rdata) - 10)
            tIndex = MapData(UserList(UserIndex).Pos.Map, X, Y).OBJInfo.ObjIndex 'objeto
            
            
            '¿Hay un objeto debajo de él para subastar?
            If Not MapData(UserList(UserIndex).Pos.Map, UserList(UserIndex).Pos.X, UserList(UserIndex).Pos.Y).OBJInfo.ObjIndex > 0 Then
                Call SendData(ToIndex, UserIndex, 0, "||Primero debes pararte arriva del objeto que quieres subastar!" & FONTTYPE_INFO)
                Exit Sub
            End If
 
            '¿El objeto sale mas de 1000?
            If ObjData(tIndex).Valor - 1000 Then
                Call SendData(ToIndex, UserIndex, 0, "||El objeto a subastar debe superar las mil monedas de oro" & FONTTYPE_INFO)
                Exit Sub
            End If
            
            '¿Hay subastas Pendientes?
            If HaySubastas = 1 Then
                Call SendData(ToIndex, UserIndex, 0, "||Ya hay una subasta. Espera a que éta termine" & FONTTYPE_INFO)
                Exit Sub
            End If
            
            Subastas.CantidadesSubastadas = ReadField(2, rdata, Asc("@")) 'CANTIDAD
            Subastas.ObjetoSubastado = tIndex
            Subastas.Oferta = ReadField(1, rdata, Asc("@")) ' OFERTA
            Subastas.UsuarioQueSubasto = UserList(UserIndex).Name
            
            Call SendData(ToAll, 0, 0, "||" & Subastas.UsuarioQueSubasto & " está subastando " & Subastas.CantidadesSubastadas & " " & Subastas.ObjetoSubastado & ". La oferta inicial es de " & Subastas.Oferta & ", escribe /OFRECER cant para hacer tu oferta" & FONTTYPE_GUILDMSG)
            Subastas.HaySubastas = 1
            Exit Sub
        'MATIUS -> SISTEMA DE SUBASTAS <-
 
 
 
 
 
 
 
declaraciones.. !
 
    'MATIUS -> SISTEMA DE SUBASTAS <-
    Public Type tSubastas
        TiempoRestante As Integer
        HaySubastas As Integer
        UsuarioQueSubasto As String
        ObjetoSubastado As Integer
        CantidadesSubastadas As Long
        UsuarioQueOferto As String
        Oferta As Long
    End Type
    '/MATIUS -> SISTEMA DE SUBASTAS <-
 
 
 
    Public Subastas As tSubastas
 
 
 
 
 

DarkThom

Oráculo Lvl 3
Bueno aca les dejo el /SALIR Para que el qeu gana la subasta o el que armo la subasta , No bugeen el Sistema de subastas

Buscan

[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;">"/SALIR"</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;">Paralizado</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;">"||No puedes salir estando paralizado."</span> & FONTTYPE_WARNING<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: #808080;">''mato los comercios seguros</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;">ComUsu</span>.<span style="color: #66cc66;">DestUsu</span> > <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li2">                <span style="color: #b1b100;">If</span> UserList<span style="color: #66cc66;">(</span>UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">ComUsu</span>.<span style="color: #66cc66;">DestUsu</span><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">                    <span style="color: #b1b100;">If</span> UserList<span style="color: #66cc66;">(</span>UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">ComUsu</span>.<span style="color: #66cc66;">DestUsu</span><span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">ComUsu</span>.<span style="color: #66cc66;">DestUsu</span> = UserIndex <span style="color: #b1b100;">Then</span></li><li style="" class="li1">                        <span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span>ToIndex, UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">ComUsu</span>.<span style="color: #66cc66;">DestUsu</span>, <span style="color: #cc66cc;">0</span>, <span style="color: #ffffff;">"||Comercio cancelado por el otro usuario"</span> & FONTTYPE_TALK<span style="color: #66cc66;">)</span></li><li style="" class="li2">                        <span style="color: #b1b100;">Call</span> FinComerciarUsu<span style="color: #66cc66;">(</span>UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">ComUsu</span>.<span style="color: #66cc66;">DestUsu</span><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="li1">                <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</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;">"||Comercio cancelado. "</span> & FONTTYPE_TALK<span style="color: #66cc66;">)</span></li><li style="" class="li1">                <span style="color: #b1b100;">Call</span> FinComerciarUsu<span style="color: #66cc66;">(</span>UserIndex<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">            Cerrar_Usuario <span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span></li><li style="" class="li1">            <span style="color: #b1b100;">Exit</span> <span style="color: #b1b100;">Sub</span></li></ol></div>[/vb]


Reemplazan Por

[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;">"/SALIR"</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;">Paralizado</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;">"||No puedes salir estando paralizado."</span> & FONTTYPE_WARNING<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> Subastas.<span style="color: #66cc66;">HaySubastas</span> = <span style="color: #cc66cc;">1</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1">             <span style="color: #b1b100;">ElseIf</span> UsuarioQueOferto = UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #b1b100;">Name</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 salir estando ganando en una subasta , Debes esperar a que termine u Ofrezcan mas que vos."</span> & FONTTYPE_WARNING<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> Subastas.<span style="color: #66cc66;">HaySubastas</span> = <span style="color: #cc66cc;">1</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1">             <span style="color: #b1b100;">ElseIf</span> Subastas.<span style="color: #66cc66;">UsuarioQueSubasto</span> = UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #b1b100;">Name</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 salir habiendo creado una subasta."</span> & FONTTYPE_WARNING<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: #808080;">''mato los comercios seguros</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;">ComUsu</span>.<span style="color: #66cc66;">DestUsu</span> > <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li2">                <span style="color: #b1b100;">If</span> UserList<span style="color: #66cc66;">(</span>UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">ComUsu</span>.<span style="color: #66cc66;">DestUsu</span><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">                    <span style="color: #b1b100;">If</span> UserList<span style="color: #66cc66;">(</span>UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">ComUsu</span>.<span style="color: #66cc66;">DestUsu</span><span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">ComUsu</span>.<span style="color: #66cc66;">DestUsu</span> = UserIndex <span style="color: #b1b100;">Then</span></li><li style="" class="li1">                        <span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span>ToIndex, UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">ComUsu</span>.<span style="color: #66cc66;">DestUsu</span>, <span style="color: #cc66cc;">0</span>, <span style="color: #ffffff;">"||Comercio cancelado por el otro usuario"</span> & FONTTYPE_TALK<span style="color: #66cc66;">)</span></li><li style="" class="li2">                        <span style="color: #b1b100;">Call</span> FinComerciarUsu<span style="color: #66cc66;">(</span>UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">ComUsu</span>.<span style="color: #66cc66;">DestUsu</span><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="li1">                <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</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;">"||Comercio cancelado. "</span> & FONTTYPE_TALK<span style="color: #66cc66;">)</span></li><li style="" class="li1">                <span style="color: #b1b100;">Call</span> FinComerciarUsu<span style="color: #66cc66;">(</span>UserIndex<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">            Cerrar_Usuario <span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span></li><li style="" class="li1">            <span style="color: #b1b100;">Exit</span> <span style="color: #b1b100;">Sub</span></li></ol></div>[/vb]

Lo hise yo recien nose si anda pero me base en las declaraciones
 

DarkThom

Oráculo Lvl 3
Anonymous dijo:
donde pongo el code ¬¬

todo abajo de
[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;">"/PASSWD "</span></li></ol></div>[/vb]

apartir de eso ahasta el

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

Abjo de eso lo pones si tenes aoready abajo de

[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1">    Select <span style="color: #b1b100;">Case</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;">8</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">        <span style="color: #b1b100;">Case</span> <span style="color: #ffffff;">"/PASSWD "</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;">8</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">            <span style="color: #808080;">'Cambia Pass Con Verificador</span></li><li style="" class="li1">            UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">PasswordCh</span> = rdata</li><li style="" class="li2">            rdata = RandomNumber<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">60000</span>, <span style="color: #cc66cc;">90000</span><span style="color: #66cc66;">)</span> & <span style="color: #b1b100;">Chr</span><span style="color: #66cc66;">(</span>RandomNumber<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">65</span>, <span style="color: #cc66cc;">90</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">            UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">PasswordCh</span> = UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">PasswordCh</span> & <span style="color: #ffffff;">"~"</span> & rdata</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;">"||Sistema Anti-Cambio de Password Inasistido: Porfavor Escribe /COMFIR "</span> & rdata & FONTTYPE_SERVER<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;">Case</span> <span style="color: #ffffff;">"/COMFIR "</span></li><li style="" class="li1">            rdata = <span style="color: #b1b100;">Right</span>$<span style="color: #66cc66;">(</span>rdata, <span style="color: #b1b100;">Len</span><span style="color: #66cc66;">(</span>rdata<span style="color: #66cc66;">)</span> - <span style="color: #cc66cc;">8</span><span style="color: #66cc66;">)</span></li><li style="" class="li2">            <span style="color: #808080;">' Veirficador</span></li><li style="" class="li1">            <span style="color: #b1b100;">If</span> <span style="color: #b1b100;">LenB</span><span style="color: #66cc66;">(</span>UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">PasswordCh</span><span style="color: #66cc66;">)</span> = <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span> <span style="color: #b1b100;">Exit</span> <span style="color: #b1b100;">Sub</span></li><li style="" class="li1">            <span style="color: #b1b100;">If</span> <span style="color: #b1b100;">UCase</span>$<span style="color: #66cc66;">(</span>rdata<span style="color: #66cc66;">)</span> = ReadField<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">2</span>, UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">PasswordCh</span>, <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: #b1b100;">Then</span></li><li style="" class="li2">                <span style="color: #808080;">' Veirificador</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;">"||El Password ha sido cambiado exitosamente."</span> & FONTTYPE_INFO<span style="color: #66cc66;">)</span></li><li style="" class="li1">                 UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Password</span> = ReadField<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span>, UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">PasswordCh</span>, <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></li><li style="" class="li2">                 UserList<span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">PasswordCh</span> = <span style="color: #b1b100;">vbNullString</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;">"||Sistema Anti-Cambio de Password Inasistido: Código no autorizado"</span> & FONTTYPE_SERVER<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">            <span style="color: #b1b100;">Exit</span> <span style="color: #b1b100;">Sub</span></li><li style="" class="li1">    <span style="color: #b1b100;">End</span> Select</li></ol></div>[/vb]
 
A

Anonymous

Invitado
un monton, variable not definied cuando compilo, pero lo peor es q la declare :S:_S::S:S:S:
 
Estado
Cerrado para nuevas respuestas.
Arriba