Sistema de duelos (Style MU) (BASE)

Ver el tema anterior Ver el tema siguiente Ir abajo

Sistema de duelos (Style MU) (BASE)

Mensaje por Feer~ el 5/3/2013, 9:46 pm

Bueno es un sistema de duelos comun y corriente pero tiene un par de cosas que lo hacen unico (?):
-El que gana 10 duelos gana todo..
-Hay 4 arenas para jugar diferentes duelos.
-Hay un NPC que te muestra los duelos en curso y podes entrar a mirarlos.
-Cuando entras a mirar el duelo te aparece un form con los stats de los 2 pjs.


Tiene cosas que estan incompletas como que los espectadores puedan salir del duelo (facilisimo), pero lo mas dificil esta echo..



Arriba del /PENAS:

Código:
If UCase$(Left$(rData, 7)) = "/DUELO " Then
 
    dMap = 5 'Mapa de duelos, cambienlo
    rData = Right$(rData, Len(rData) - 7)
    dUser = ReadField(1, rData, Asc("@"))
 
    If NameIndex(dUser) = 0 Then
        Call SendData(ToIndex, UserIndex, 0, "||Usuario offline." & FONTTYPE_INFO)
        Exit Sub
    Else
        dIndex = NameIndex(dUser)
    End If
 
    dMoney = ReadField(2, rData, Asc("@"))
   
    If ArenaDuelo1 = True And ArenaDuelo2 = True And ArenaDuelo3 = True And ArenaDuelo4 = True Then
        Call SendData(ToIndex, UserIndex, 0, "||Todas las arenas estan ocupadas en este momento, espéra a que alguna se desocupe." & FONTTYPE_INFO)
    Exit Sub
    End If
   
    If dIndex = UserIndex Then
      Call SendData(ToIndex, UserIndex, 0, "||No podes dueliar contra vos mismo." & FONTTYPE_INFO)
        Exit Sub
    End If
    If UserList(UserIndex).Stats.GLD < val(dMoney) Then
      Call SendData(ToIndex, UserIndex, 0, "||No tenes esa cantidad de oro." & FONTTYPE_INFO)
        Exit Sub
    End If
 
    If UserList(dIndex).Stats.GLD < val(dMoney) Then
      Call SendData(ToIndex, UserIndex, 0, "||El usuario no tiene esa cantidad de oro." & FONTTYPE_INFO)
        Exit Sub
    End If
 
    If UserList(UserIndex).flags.Muerto Then
      Call SendData(ToIndex, UserIndex, 0, "||Estas muerto!!." & FONTTYPE_INFO)
        Exit Sub
    End If
 
    If UserList(dIndex).flags.Muerto Then
      Call SendData(ToIndex, UserIndex, 0, "||El usuario està muerto." & FONTTYPE_INFO)
        Exit Sub
    End If
 
    If val(dMoney) < 100000 Then
      Call SendData(ToIndex, UserIndex, 0, "||El minimo de oro para duelear es de 100.000 monedas de oro." & FONTTYPE_INFO)
      Exit Sub
    End If
 
    UserList(dIndex).flags.LeMandaronDuelo = True
    UserList(dIndex).flags.UltimoEnMandarDuelo = UserList(UserIndex).name
  Call SendData(ToIndex, (dIndex), 0, "||" & UserList(UserIndex).name & " [" & UserList(UserIndex).Clase & " - " & UserList(UserIndex).Stats.ELV & "] - te està desafiando en un duelo por " & PonerPuntos(val(dMoney)) & " monedas de oro, para aceptar escribi /SIDUELO." & "~124~124~124~1~0")
 
End If
 
 
    If UCase$(Left$(rData, 8)) = "/SIDUELO" Then
 
     
        If UserList(UserIndex).flags.LeMandaronDuelo = False Then
          Call SendData(ToIndex, UserIndex, 0, "||Nadie te ofreciò duelo." & FONTTYPE_INFO)
            Exit Sub
        Else
     
        If UserList(UserIndex).flags.Muerto Then
          Call SendData(ToIndex, UserIndex, 0, "||Estas muerto!!." & FONTTYPE_INFO)
            Exit Sub
        End If
 
        If UserList(UserIndex).Stats.GLD < val(dMoney) Then
          Call SendData(ToIndex, UserIndex, 0, "||No tenes " & PonerPuntos(val(dMoney)) & " monedas de oro para aceptar el duelo." & FONTTYPE_INFO)
            Exit Sub
        End If
   
        If ArenaDuelo1 = True And ArenaDuelo2 = True And ArenaDuelo3 = True And ArenaDuelo4 = True Then
          Call SendData(ToIndex, UserIndex, 0, "||Todas las arenas estan ocupadas en este momento, espéra a que alguna se desocupe." & FONTTYPE_INFO)
            Exit Sub
        End If
     
        If UserList(NameIndex(UserList(UserIndex).flags.UltimoEnMandarDuelo)).flags.Muerto Then
          Call SendData(ToIndex, UserIndex, 0, "||El usuario està muerto." & FONTTYPE_INFO)
            Exit Sub
        End If
     
        If UserList(NameIndex(UserList(UserIndex).flags.UltimoEnMandarDuelo)).Stats.GLD < val(dMoney) Then
          Call SendData(ToIndex, UserIndex, 0, "||El usuario no tiene el oro suficiente para hacer el duelo." & FONTTYPE_INFO)
            Exit Sub
        End If
     
        If NameIndex(UserList(UserIndex).flags.UltimoEnMandarDuelo) = 0 Then
            Call SendData(ToIndex, UserIndex, 0, "||El usuario que te mandò duelo, està offline." & FONTTYPE_INFO)
            Exit Sub
        End If
     
    End If
 
    Dim el As Integer
    el = NameIndex(UserList(UserIndex).flags.UltimoEnMandarDuelo)
 
  'ARENAS!!! - Feer~
 
  If ArenaDuelo1 = False Then 'Arena1
    UserList(el).flags.LeMandaronDuelo = False
    UserList(el).flags.Endueloo = True
    UserList(UserIndex).flags.LeMandaronDuelo = False
    UserList(UserIndex).flags.Endueloo = True
   
    UserList(UserIndex).flags.DuelosGanados = 0
    UserList(el).flags.DuelosGanados = 0
   
    UserList(el).flags.PlayerArena1 = True
    UserList(UserIndex).flags.PlayerArena1 = True
    Nick1PlayerArena1 = UserList(UserIndex).name
    Nick2PlayerArena1 = UserList(el).name
       
    UserList(el).flags.DueliandoContra = UserList(UserIndex).name
    UserList(UserIndex).flags.DueliandoContra = UserList(el).name
    SendData ToAll, UserIndex, 0, "||Arena de duelos Nº 1: " & UserList(UserIndex).name & " y " & UserList(NameIndex(UserList(UserIndex).flags.UltimoEnMandarDuelo)).name & " van a combatir en un duelo por " & PonerPuntos(val(dMoney)) & " monedas de oro." & FONTTYPE_TALK
 
    UserList(UserIndex).Stats.GLD = UserList(UserIndex).Stats.GLD - val(dMoney)
    UserList(el).Stats.GLD = UserList(el).Stats.GLD - val(dMoney)
    Call WarpUserChar(el, 150, 19, 69, True)
    Call WarpUserChar(UserIndex, 150, 42, 88, True)
    Call SendUserStatsBox(UserIndex)
    Call SendUserStatsBox(el)
   
    ArenaDuelo1 = True
   
  ElseIf ArenaDuelo2 = False Then 'Arena2
    UserList(el).flags.LeMandaronDuelo = False
    UserList(el).flags.Endueloo = True
    UserList(UserIndex).flags.LeMandaronDuelo = False
    UserList(UserIndex).flags.Endueloo = True
   
    UserList(UserIndex).flags.DuelosGanados = 0
    UserList(el).flags.DuelosGanados = 0
   
    UserList(el).flags.PlayerArena2 = True
    UserList(UserIndex).flags.PlayerArena2 = True
    Nick1PlayerArena2 = UserList(UserIndex).name
    Nick2PlayerArena2 = UserList(el).name
   
    UserList(el).flags.DueliandoContra = UserList(UserIndex).name
    UserList(UserIndex).flags.DueliandoContra = UserList(el).name
    SendData ToAll, UserIndex, 0, "||Arena de duelos Nº 2: " & UserList(UserIndex).name & " y " & UserList(NameIndex(UserList(UserIndex).flags.UltimoEnMandarDuelo)).name & " van a combatir en un duelo por " & PonerPuntos(val(dMoney)) & " monedas de oro." & FONTTYPE_TALK
 
    UserList(UserIndex).Stats.GLD = UserList(UserIndex).Stats.GLD - val(dMoney)
    UserList(el).Stats.GLD = UserList(el).Stats.GLD - val(dMoney)
    Call WarpUserChar(el, 150, 53, 70, True)
    Call WarpUserChar(UserIndex, 150, 75, 88, True)
    Call SendUserStatsBox(UserIndex)
    Call SendUserStatsBox(el)
   
    ArenaDuelo2 = True
   
  ElseIf ArenaDuelo3 = False Then 'Arena3
    UserList(el).flags.LeMandaronDuelo = False
    UserList(el).flags.Endueloo = True
    UserList(UserIndex).flags.LeMandaronDuelo = False
    UserList(UserIndex).flags.Endueloo = True
   
    UserList(el).flags.PlayerArena3 = True
    UserList(UserIndex).flags.PlayerArena3 = True
    Nick1PlayerArena3 = UserList(UserIndex).name
    Nick2PlayerArena3 = UserList(el).name
   
    UserList(UserIndex).flags.DuelosGanados = 0
    UserList(el).flags.DuelosGanados = 0
   
    UserList(el).flags.DueliandoContra = UserList(UserIndex).name
    UserList(UserIndex).flags.DueliandoContra = UserList(el).name
    SendData ToAll, UserIndex, 0, "||Arena de duelos Nº 3: " & UserList(UserIndex).name & " y " & UserList(NameIndex(UserList(UserIndex).flags.UltimoEnMandarDuelo)).name & " van a combatir en un duelo por " & PonerPuntos(val(dMoney)) & " monedas de oro." & FONTTYPE_TALK
 
    UserList(UserIndex).Stats.GLD = UserList(UserIndex).Stats.GLD - val(dMoney)
    UserList(el).Stats.GLD = UserList(el).Stats.GLD - val(dMoney)
    Call WarpUserChar(el, 5, 64, 38, True)
    Call WarpUserChar(UserIndex, 5, 40, 56, True)
    Call SendUserStatsBox(UserIndex)
    Call SendUserStatsBox(el)
   
    ArenaDuelo3 = True
   
  ElseIf ArenaDuelo4 = False Then 'Arena4
    UserList(el).flags.LeMandaronDuelo = False
    UserList(el).flags.Endueloo = True
    UserList(UserIndex).flags.LeMandaronDuelo = False
    UserList(UserIndex).flags.Endueloo = True
   
    UserList(UserIndex).flags.DuelosGanados = 0
    UserList(el).flags.DuelosGanados = 0
   
    UserList(el).flags.PlayerArena4 = True
    UserList(UserIndex).flags.PlayerArena4 = True
    Nick1PlayerArena4 = UserList(UserIndex).name
    Nick2PlayerArena4 = UserList(el).name
   
    UserList(el).flags.DueliandoContra = UserList(UserIndex).name
    UserList(UserIndex).flags.DueliandoContra = UserList(el).name
    SendData ToAll, UserIndex, 0, "||Arena de duelos Nº 4: " & UserList(UserIndex).name & " y " & UserList(NameIndex(UserList(UserIndex).flags.UltimoEnMandarDuelo)).name & " van a combatir en un duelo por " & PonerPuntos(val(dMoney)) & " monedas de oro." & FONTTYPE_TALK
 
    UserList(UserIndex).Stats.GLD = UserList(UserIndex).Stats.GLD - val(dMoney)
    UserList(el).Stats.GLD = UserList(el).Stats.GLD - val(dMoney)
    Call WarpUserChar(el, 5, 64, 38, True)
    Call WarpUserChar(UserIndex, 5, 40, 56, True)
    Call SendUserStatsBox(UserIndex)
    Call SendUserStatsBox(el)
   
    ArenaDuelo4 = True
   
  End If
   
    End If


arriba de /ONLINE:

Código:
        Case "/MIRARARENA1"
        If ArenaDuelo1 = False Or UserList(UserIndex).flags.EspectadorArena1 = 1 Or UserList(UserIndex).flags.EspectadorArena1 = 2 Or UserList(UserIndex).flags.EspectadorArena1 = 3 Or UserList(UserIndex).flags.EspectadorArena1 = 4 Then Exit Sub
        Call WarpUserChar(UserIndex, 150, 28, 76, False)
        UserList(UserIndex).flags.EspectadorArena1 = 1
        Call SendData(SendTarget.ToIndex, UserIndex, 0, "MDL" & UserList(NameIndex(Nick1PlayerArena1)).Stats.MaxHP & "," & UserList(NameIndex(Nick1PlayerArena1)).Stats.MinHP & "," & UserList(NameIndex(Nick1PlayerArena1)).flags.DuelosGanados & "," & UserList(NameIndex(Nick1PlayerArena1)).Stats.MaxMAN & "," & UserList(NameIndex(Nick1PlayerArena1)).Stats.MinMAN & "," & Nick1PlayerArena1 & "," & UserList(NameIndex(Nick2PlayerArena1)).Stats.MaxHP & "," & UserList(NameIndex(Nick2PlayerArena1)).Stats.MinHP & "," & UserList(NameIndex(Nick2PlayerArena1)).flags.DuelosGanados & "," & UserList(NameIndex(Nick2PlayerArena1)).Stats.MaxMAN & "," & UserList(NameIndex(Nick2PlayerArena1)).Stats.MinMAN & "," & Nick2PlayerArena1)
        Exit Sub
       
        Case "/MIRARARENA2"
        If ArenaDuelo2 = False Or UserList(UserIndex).flags.EspectadorArena1 = 1 Or UserList(UserIndex).flags.EspectadorArena1 = 2 Or UserList(UserIndex).flags.EspectadorArena1 = 3 Or UserList(UserIndex).flags.EspectadorArena1 = 4 Then Exit Sub
        Call WarpUserChar(UserIndex, 150, 28, 76, False)
        UserList(UserIndex).flags.EspectadorArena1 = 1
        Call SendData(SendTarget.ToIndex, UserIndex, 0, "MDL" & UserList(NameIndex(Nick1PlayerArena2)).Stats.MaxHP & "," & UserList(NameIndex(Nick1PlayerArena2)).Stats.MinHP & "," & UserList(NameIndex(Nick1PlayerArena2)).flags.DuelosGanados & "," & UserList(NameIndex(Nick1PlayerArena2)).Stats.MaxMAN & "," & UserList(NameIndex(Nick1PlayerArena2)).Stats.MinMAN & "," & Nick1PlayerArena2 & "," & UserList(NameIndex(Nick2PlayerArena2)).Stats.MaxHP & "," & UserList(NameIndex(Nick2PlayerArena2)).Stats.MinHP & "," & UserList(NameIndex(Nick2PlayerArena2)).flags.DuelosGanados & "," & UserList(NameIndex(Nick2PlayerArena2)).Stats.MaxMAN & "," & UserList(NameIndex(Nick2PlayerArena2)).Stats.MinMAN & "," & Nick2PlayerArena2)
        Exit Sub
       
        Case "/MIRARARENA3"
        If ArenaDuelo3 = False Or UserList(UserIndex).flags.EspectadorArena1 = 1 Or UserList(UserIndex).flags.EspectadorArena1 = 2 Or UserList(UserIndex).flags.EspectadorArena1 = 3 Or UserList(UserIndex).flags.EspectadorArena1 = 4 Then Exit Sub
        Call WarpUserChar(UserIndex, 150, 28, 76, False)
        UserList(UserIndex).flags.EspectadorArena1 = 1
        Call SendData(SendTarget.ToIndex, UserIndex, 0, "MDL" & UserList(NameIndex(Nick1PlayerArena3)).Stats.MaxHP & "," & UserList(NameIndex(Nick1PlayerArena3)).Stats.MinHP & "," & UserList(NameIndex(Nick1PlayerArena3)).flags.DuelosGanados & "," & UserList(NameIndex(Nick1PlayerArena3)).Stats.MaxMAN & "," & UserList(NameIndex(Nick1PlayerArena3)).Stats.MinMAN & "," & Nick1PlayerArena3 & "," & UserList(NameIndex(Nick2PlayerArena3)).Stats.MaxHP & "," & UserList(NameIndex(Nick2PlayerArena3)).Stats.MinHP & "," & UserList(NameIndex(Nick2PlayerArena3)).flags.DuelosGanados & "," & UserList(NameIndex(Nick2PlayerArena3)).Stats.MaxMAN & "," & UserList(NameIndex(Nick2PlayerArena3)).Stats.MinMAN & "," & Nick2PlayerArena3)
        Exit Sub
       
        Case "/MIRARARENA4"
        If ArenaDuelo4 = False Or UserList(UserIndex).flags.EspectadorArena1 = 1 Or UserList(UserIndex).flags.EspectadorArena1 = 2 Or UserList(UserIndex).flags.EspectadorArena1 = 3 Or UserList(UserIndex).flags.EspectadorArena1 = 4 Then Exit Sub
        Call WarpUserChar(UserIndex, 150, 28, 76, False)
        UserList(UserIndex).flags.EspectadorArena1 = 1
        Call SendData(SendTarget.ToIndex, UserIndex, 0, "MDL" & UserList(NameIndex(Nick1PlayerArena4)).Stats.MaxHP & "," & UserList(NameIndex(Nick1PlayerArena4)).Stats.MinHP & "," & UserList(NameIndex(Nick1PlayerArena4)).flags.DuelosGanados & "," & UserList(NameIndex(Nick1PlayerArena4)).Stats.MaxMAN & "," & UserList(NameIndex(Nick1PlayerArena4)).Stats.MinMAN & "," & Nick1PlayerArena4 & "," & UserList(NameIndex(Nick2PlayerArena4)).Stats.MaxHP & "," & UserList(NameIndex(Nick2PlayerArena4)).Stats.MinHP & "," & UserList(NameIndex(Nick2PlayerArena4)).flags.DuelosGanados & "," & UserList(NameIndex(Nick2PlayerArena4)).Stats.MaxMAN & "," & UserList(NameIndex(Nick2PlayerArena4)).Stats.MinMAN & "," & Nick2PlayerArena4)
        Exit Sub


declaran:

Código:
Public ArenaDuelo1 As Boolean
Public ArenaDuelo2 As Boolean
Public ArenaDuelo3 As Boolean
Public ArenaDuelo4 As Boolean
 
Public Nick1PlayerArena1 As String
Public Nick2PlayerArena1 As String
Public Nick1PlayerArena2 As String
Public Nick2PlayerArena2 As String
Public Nick1PlayerArena3 As String
Public Nick2PlayerArena3 As String
Public Nick1PlayerArena4 As String
Public Nick2PlayerArena4 As String


en el type userflags:

Código:
    EspectadorArena1 As Byte
    EspectadorArena2 As Byte
    EspectadorArena3 As Byte
    EspectadorArena4 As Byte
    DueliandoContra As String
    LeMandaronDuelo As Boolean
    UltimoEnMandarDuelo As String
    Endueloo As Boolean
    PlayerArena1 As Boolean
    PlayerArena2 As Boolean
    PlayerArena3 As Boolean
    PlayerArena4 As Boolean
    DuelosGanados As Byte


en el Sub SendUserStatsBox:

Código:
If UserList(UserIndex).flags.PlayerArena1 = True Then
    Dim weqwd As Integer
    For weqwd = 1 To LastUser
        If UserList(weqwd).flags.EspectadorArena1 = 1 Then
            Call SendData(SendTarget.ToIndex, weqwd, 0, "ADL" & UserList(NameIndex(Nick1PlayerArena1)).Stats.MaxHP & "," & UserList(NameIndex(Nick1PlayerArena1)).Stats.MinHP & "," & UserList(NameIndex(Nick1PlayerArena1)).flags.DuelosGanados & "," & UserList(NameIndex(Nick1PlayerArena1)).Stats.MaxMAN & "," & UserList(NameIndex(Nick1PlayerArena1)).Stats.MinMAN & "," & Nick1PlayerArena1 & "," & UserList(NameIndex(Nick2PlayerArena1)).Stats.MaxHP & "," & UserList(NameIndex(Nick2PlayerArena1)).Stats.MinHP & "," & UserList(NameIndex(Nick2PlayerArena1)).flags.DuelosGanados & "," & UserList(NameIndex(Nick2PlayerArena1)).Stats.MaxMAN & "," & UserList(NameIndex(Nick2PlayerArena1)).Stats.MinMAN & "," & Nick2PlayerArena1)
        End If
    Next weqwd
ElseIf UserList(UserIndex).flags.PlayerArena2 = True Then
    For weqwd = 1 To LastUser
        If UserList(weqwd).flags.EspectadorArena2 = 1 Then
            Call SendData(SendTarget.ToIndex, weqwd, 0, "ADL" & UserList(NameIndex(Nick1PlayerArena2)).Stats.MaxHP & "," & UserList(NameIndex(Nick1PlayerArena2)).Stats.MinHP & "," & UserList(NameIndex(Nick1PlayerArena2)).flags.DuelosGanados & "," & UserList(NameIndex(Nick1PlayerArena2)).Stats.MaxMAN & "," & UserList(NameIndex(Nick1PlayerArena2)).Stats.MinMAN & "," & Nick1PlayerArena2 & "," & UserList(NameIndex(Nick2PlayerArena2)).Stats.MaxHP & "," & UserList(NameIndex(Nick2PlayerArena2)).Stats.MinHP & "," & UserList(NameIndex(Nick2PlayerArena2)).flags.DuelosGanados & "," & UserList(NameIndex(Nick2PlayerArena2)).Stats.MaxMAN & "," & UserList(NameIndex(Nick2PlayerArena2)).Stats.MinMAN & "," & Nick2PlayerArena2)
        End If
    Next weqwd
ElseIf UserList(UserIndex).flags.PlayerArena3 = True Then
    For weqwd = 1 To LastUser
        If UserList(weqwd).flags.EspectadorArena3 = 1 Then
            Call SendData(SendTarget.ToIndex, UserIndex, 0, "ADL" & UserList(NameIndex(Nick1PlayerArena3)).Stats.MaxHP & "," & UserList(NameIndex(Nick1PlayerArena3)).Stats.MinHP & "," & UserList(NameIndex(Nick1PlayerArena3)).flags.DuelosGanados & "," & UserList(NameIndex(Nick1PlayerArena3)).Stats.MaxMAN & "," & UserList(NameIndex(Nick1PlayerArena3)).Stats.MinMAN & "," & Nick1PlayerArena3 & "," & UserList(NameIndex(Nick2PlayerArena3)).Stats.MaxHP & "," & UserList(NameIndex(Nick2PlayerArena3)).Stats.MinHP & "," & UserList(NameIndex(Nick2PlayerArena3)).flags.DuelosGanados & "," & UserList(NameIndex(Nick2PlayerArena3)).Stats.MaxMAN & "," & UserList(NameIndex(Nick2PlayerArena3)).Stats.MinMAN & "," & Nick2PlayerArena3)
        End If
    Next weqwd
ElseIf UserList(UserIndex).flags.PlayerArena4 = True Then
    For weqwd = 1 To LastUser
        If UserList(weqwd).flags.EspectadorArena4 = 1 Then
            Call SendData(SendTarget.ToIndex, UserIndex, 0, "ADL" & UserList(NameIndex(Nick1PlayerArena4)).Stats.MaxHP & "," & UserList(NameIndex(Nick1PlayerArena4)).Stats.MinHP & "," & UserList(NameIndex(Nick1PlayerArena4)).flags.DuelosGanados & "," & UserList(NameIndex(Nick1PlayerArena4)).Stats.MaxMAN & "," & UserList(NameIndex(Nick1PlayerArena4)).Stats.MinMAN & "," & Nick1PlayerArena4 & "," & UserList(NameIndex(Nick2PlayerArena4)).Stats.MaxHP & "," & UserList(NameIndex(Nick2PlayerArena4)).Stats.MinHP & "," & UserList(NameIndex(Nick2PlayerArena4)).flags.DuelosGanados & "," & UserList(NameIndex(Nick2PlayerArena4)).Stats.MaxMAN & "," & UserList(NameIndex(Nick2PlayerArena4)).Stats.MinMAN & "," & Nick2PlayerArena4)
        End If
    Next weqwd
End If


al final del sub userdie:

Código:
    'duelos 1vs1
If UserList(UserIndex).flags.Endueloo = True Then
    If UserList(UserIndex).flags.DuelosGanados < 10 Then
   
    Dim uDuelo1    As Integer
    Dim uDuelo2    As Integer
    uDuelo2 = NameIndex(UserList(UserIndex).flags.DueliandoContra)
    uDuelo1 = UserIndex
   
    UserList(uDuelo2).flags.DuelosGanados = UserList(uDuelo2).flags.DuelosGanados + 1
    Call WarpUserChar(uDuelo1, 150, 19, 69, True)
    Call WarpUserChar(uDuelo2, 150, 42, 88, True)
   
    Call RevivirUsuario(uDuelo1)
   
    'Llenamos vida y mana de cada uno..
    UserList(uDuelo1).Stats.MinHP = UserList(uDuelo1).Stats.MaxHP
    UserList(uDuelo1).Stats.MinMAN = UserList(uDuelo1).Stats.MaxMAN
    UserList(uDuelo2).Stats.MinHP = UserList(uDuelo2).Stats.MaxHP
    UserList(uDuelo2).Stats.MinMAN = UserList(uDuelo2).Stats.MaxMAN
   
    Else
       
        If UserList(UserIndex).flags.PlayerArena1 = True Or UserList(UserIndex).flags.PlayerArena1 = True Then
            ArenaDuelo1 = False
            UserList(uDuelo1).flags.PlayerArena1 = False
            UserList(uDuelo2).flags.PlayerArena1 = False
        ElseIf UserList(UserIndex).flags.PlayerArena2 = True Or UserList(UserIndex).flags.PlayerArena2 = True Then
            ArenaDuelo2 = False
            UserList(uDuelo1).flags.PlayerArena2 = False
            UserList(uDuelo2).flags.PlayerArena2 = False
        ElseIf UserList(UserIndex).flags.PlayerArena3 = True Or UserList(UserIndex).flags.PlayerArena3 = True Then
            ArenaDuelo3 = False
            UserList(uDuelo1).flags.PlayerArena3 = False
            UserList(uDuelo2).flags.PlayerArena3 = False
        ElseIf UserList(UserIndex).flags.PlayerArena4 = True Or UserList(UserIndex).flags.PlayerArena4 = True Then
            ArenaDuelo4 = False
            UserList(uDuelo1).flags.PlayerArena4 = False
            UserList(uDuelo2).flags.PlayerArena4 = False
        End If
     
        'Reset Duelo Usuario Perdedor
        UserList(uDuelo1).flags.Endueloo = False
        UserList(uDuelo1).flags.DueliandoContra = ""
        UserList(uDuelo1).flags.LeMandaronDuelo = False
        UserList(uDuelo1).flags.UltimoEnMandarDuelo = ""
        'Reset Duelo Usuario Perdedor
        'Set Usuario Ganador
        UserList(uDuelo2).flags.Endueloo = False
        UserList(uDuelo2).flags.DueliandoContra = ""
        'Set Usuario Ganador
        'Set Todo
 
        'UserList(uDuelo2).DuelosGanados = UserList(uDuelo2).DuelosGanados + 1
        'UserList(uDuelo1).DuelosPerdidos =UserList(uDuelo1).DuelosPerdidos + 1
        Call SendData(ToAll, 0, 0, "||" & UserList(uDuelo2).name & " venció en duelo a " & UserList(uDuelo1).name & " por " & PonerPuntos(val(dMoney)) & " monedas de oro." & "~255~255~255~0~1")
                UserList(uDuelo2).Stats.GLD = UserList(uDuelo2).Stats.GLD + (val(dMoney))
        dMoney = ""
      Call WarpUserChar(uDuelo1, 1, 51, 50, True)
      Call WarpUserChar(uDuelo2, 1, 50, 50, True)
    End If
  End If


al final del Public Enum eNPCType:

Código:
ShowDuelos = 12


arriba de:

Código:
ElseIf Npclist(MapData(Map, X, Y).NpcIndex).NPCtype = eNPCType.Revividor Then


ponen:

Código:
        ElseIf Npclist(MapData(Map, X, Y).NpcIndex).NPCtype = eNPCType.ShowDuelos Then
            Call SendData(SendTarget.ToIndex, UserIndex, 0, "FSD" & ArenaDuelo1 & "," & ArenaDuelo2 & "," & ArenaDuelo3 & "," & ArenaDuelo4 & "," & Nick1PlayerArena1 & "," & Nick2PlayerArena1 & "," & Nick1PlayerArena2 & "," & Nick2PlayerArena2 & "," & Nick1PlayerArena3 & "," & Nick2PlayerArena3 & "," & Nick1PlayerArena4 & "," & Nick2PlayerArena4)



CLIENTE:

Agregan todo esto a su cliente (form y graficos):

4shared.com/rar/42Q0IgT1/frm.html


abajo de:

Código:
Select Case Left$(sData, 3)

ponen (esto esta muy muy negro lose, pero no tenia ganas de pensar):

Código:
        Case "MDL"
            Rdata = Right$(Rdata, Len(Rdata) - 3)
            VidaMaxUser1 = ReadField(1, Rdata, 44)
            VidaMinUser1 = ReadField(2, Rdata, 44)
            DuelosGanados1 = ReadField(3, Rdata, 44)
            ManaMaxUser1 = ReadField(4, Rdata, 44)
            ManaMinUser1 = ReadField(5, Rdata, 44)
            NickPlayer1 = ReadField(6, Rdata, 44)
            VidaMaxUser2 = ReadField(7, Rdata, 44)
            VidaMinUser2 = ReadField(8, Rdata, 44)
            DuelosGanados2 = ReadField(9, Rdata, 44)
            ManaMaxUser2 = ReadField(10, Rdata, 44)
            ManaMinUser2 = ReadField(11, Rdata, 44)
            NickPlayer2 = ReadField(12, Rdata, 44)
           
            'Seteamos todos los datos del user 1
            Form1.Vida1.width = (((VidaMinUser1 / 100) / (VidaMaxUser1 / 100)) * 4485)
            Form1.Mana1.width = (((ManaMinUser1 + 1 / 100) / (ManaMaxUser1 + 1 / 100)) * 2925)
            Form1.Puntos1.Picture = LoadPicture(App.path & "\Graficos\frm\user1\" & DuelosGanados1 & ".jpg")
            Form1.Nick1.Caption = NickPlayer1
           
            'Seteamos todos los datos del user2
            Form1.Vida2.width = (((VidaMinUser2 / 100) / (VidaMaxUser2 / 100)) * 4485)
            Form1.Mana2.width = (((ManaMinUser2 + 1 / 100) / (ManaMaxUser2 + 1 / 100)) * 2925)
            Form1.Puntos2.Picture = LoadPicture(App.path & "\Graficos\frm\user2\" & DuelosGanados2 & ".jpg")
            Form1.Nick2.Caption = NickPlayer2
           
            Form1.Show
           
        Exit Sub
       
        Case "ADL" 'Este actualiza, lo hice asi porque tuve muchos problemas -.-
            Rdata = Right$(Rdata, Len(Rdata) - 3)
            VidaMaxUser1 = ReadField(1, Rdata, 44)
            VidaMinUser1 = ReadField(2, Rdata, 44)
            DuelosGanados1 = ReadField(3, Rdata, 44)
            ManaMaxUser1 = ReadField(4, Rdata, 44)
            ManaMinUser1 = ReadField(5, Rdata, 44)
            NickPlayer1 = ReadField(6, Rdata, 44)
            VidaMaxUser2 = ReadField(7, Rdata, 44)
            VidaMinUser2 = ReadField(8, Rdata, 44)
            DuelosGanados2 = ReadField(9, Rdata, 44)
            ManaMaxUser2 = ReadField(10, Rdata, 44)
            ManaMinUser2 = ReadField(11, Rdata, 44)
            NickPlayer2 = ReadField(12, Rdata, 44)
           
            'Seteamos todos los datos del user 1
            Form1.Vida1.width = (((VidaMinUser1 / 100) / (VidaMaxUser1 / 100)) * 4485)
            Form1.Mana1.width = (((ManaMinUser1 + 1 / 100) / (ManaMaxUser1 + 1 / 100)) * 2925)
            Form1.Puntos1.Picture = LoadPicture(App.path & "\Graficos\frm\user1\" & DuelosGanados1 & ".jpg")
            Form1.Nick1.Caption = NickPlayer1
           
            'Seteamos todos los datos del user2
            Form1.Vida2.width = (((VidaMinUser2 / 100) / (VidaMaxUser2 / 100)) * 4485)
            Form1.Mana2.width = (((ManaMinUser2 + 1 / 100) / (ManaMaxUser2 + 1 / 100)) * 2925)
            Form1.Puntos2.Picture = LoadPicture(App.path & "\Graficos\frm\user2\" & DuelosGanados2 & ".jpg")
            Form1.Nick2.Caption = NickPlayer2
        Exit Sub
   
        Case "FSD"
            Rdata = Right$(Rdata, Len(Rdata) - 3)
            Arena1 = ReadField(1, Rdata, 44)
            Arena2 = ReadField(2, Rdata, 44)
            Arena3 = ReadField(3, Rdata, 44)
            Arena4 = ReadField(4, Rdata, 44)
            Player1Arena1 = ReadField(5, Rdata, 44)
            Player2Arena1 = ReadField(6, Rdata, 44)
            Player1Arena2 = ReadField(7, Rdata, 44)
            Player2Arena2 = ReadField(8, Rdata, 44)
            Player1Arena3 = ReadField(9, Rdata, 44)
            Player2Arena3 = ReadField(10, Rdata, 44)
            Player1Arena4 = ReadField(11, Rdata, 44)
            Player2Arena4 = ReadField(12, Rdata, 44)
           
            If Arena1 = False And Arena2 = False And Arena3 = False And Arena4 = False Then
                frmDuelos.Picture = LoadPicture(App.path & "\Graficos\frm\MirarSINPJS.jpg")
               
                frmDuelos.P1Arena1.Visible = False
                frmDuelos.P2Arena1.Visible = False
                frmDuelos.P1Arena2.Visible = False
                frmDuelos.P2Arena2.Visible = False
                frmDuelos.P1Arena3.Visible = False
                frmDuelos.P2Arena3.Visible = False
                frmDuelos.P1Arena4.Visible = False
                frmDuelos.P2Arena4.Visible = False
               
            End If
           
            If Arena1 = True And Arena2 = False And Arena3 = False And Arena4 = False Then
                frmDuelos.Picture = LoadPicture(App.path & "\Graficos\frm\MirarPJS con 1PJ.jpg")
               
                frmDuelos.P1Arena2.Visible = False
                frmDuelos.P2Arena2.Visible = False
                frmDuelos.P1Arena3.Visible = False
                frmDuelos.P2Arena3.Visible = False
                frmDuelos.P1Arena4.Visible = False
                frmDuelos.P2Arena4.Visible = False
               
                frmDuelos.P1Arena1.Visible = True
                frmDuelos.P2Arena1.Visible = True
                frmDuelos.P1Arena1.Caption = Player1Arena1
                frmDuelos.P2Arena1.Caption = Player2Arena1
            ElseIf Arena1 = True And Arena2 = True And Arena3 = False And Arena4 = False Then
                frmDuelos.Picture = LoadPicture(App.path & "\Graficos\frm\MirarPJS con 2PJS.jpg")
               
                frmDuelos.P1Arena3.Visible = False
                frmDuelos.P2Arena3.Visible = False
                frmDuelos.P1Arena4.Visible = False
                frmDuelos.P2Arena4.Visible = False
               
                frmDuelos.P1Arena1.Visible = True
                frmDuelos.P2Arena1.Visible = True
                frmDuelos.P1Arena2.Visible = True
                frmDuelos.P2Arena2.Visible = True
                frmDuelos.P1Arena1.Caption = Player1Arena1
                frmDuelos.P2Arena1.Caption = Player2Arena1
                frmDuelos.P1Arena2.Caption = Player1Arena2
                frmDuelos.P2Arena2.Caption = Player2Arena2
            ElseIf Arena1 = True And Arena2 = True And Arena3 = True And Arena4 = False Then
                frmDuelos.Picture = LoadPicture(App.path & "\Graficos\frm\MirarPJS con 3PJS.jpg")
               
                frmDuelos.P1Arena4.Visible = False
                frmDuelos.P2Arena4.Visible = False
               
                frmDuelos.P1Arena1.Visible = True
                frmDuelos.P2Arena1.Visible = True
                frmDuelos.P1Arena2.Visible = True
                frmDuelos.P2Arena2.Visible = True
                frmDuelos.P1Arena3.Visible = True
                frmDuelos.P2Arena3.Visible = True
                frmDuelos.P1Arena1.Caption = Player1Arena1
                frmDuelos.P2Arena1.Caption = Player2Arena1
                frmDuelos.P1Arena2.Caption = Player1Arena2
                frmDuelos.P2Arena2.Caption = Player2Arena2
                frmDuelos.P1Arena3.Caption = Player1Arena3
                frmDuelos.P2Arena3.Caption = Player1Arena3
            ElseIf Arena1 = True And Arena2 = True And Arena3 = True And Arena4 = True Then
                frmDuelos.Picture = LoadPicture(App.path & "\Graficos\frm\MirarPJS con 4PJS.jpg")
               
                frmDuelos.P1Arena1.Visible = True
                frmDuelos.P2Arena1.Visible = True
                frmDuelos.P1Arena2.Visible = True
                frmDuelos.P2Arena2.Visible = True
                frmDuelos.P1Arena3.Visible = True
                frmDuelos.P2Arena3.Visible = True
                frmDuelos.P1Arena4.Visible = True
                frmDuelos.P2Arena4.Visible = True
                frmDuelos.P1Arena1.Caption = Player1Arena1
                frmDuelos.P2Arena1.Caption = Player2Arena1
                frmDuelos.P1Arena2.Caption = Player1Arena2
                frmDuelos.P2Arena2.Caption = Player2Arena2
                frmDuelos.P1Arena3.Caption = Player1Arena3
                frmDuelos.P2Arena3.Caption = Player2Arena3
                frmDuelos.P1Arena4.Caption = Player1Arena4
                frmDuelos.P2Arena4.Caption = Player2Arena4
            ElseIf Arena1 = True And Arena2 = False And Arena3 = True And Arena4 = False Then
                frmDuelos.Picture = LoadPicture(App.path & "\Graficos\frm\Mirar PJ 1 y 3!.jpg")
               
                frmDuelos.P1Arena2.Visible = False
                frmDuelos.P2Arena2.Visible = False
                frmDuelos.P1Arena4.Visible = False
                frmDuelos.P2Arena4.Visible = False
               
                frmDuelos.P1Arena1.Visible = True
                frmDuelos.P2Arena1.Visible = True
                frmDuelos.P1Arena3.Visible = True
                frmDuelos.P2Arena3.Visible = True
                frmDuelos.P1Arena1.Caption = Player1Arena1
                frmDuelos.P2Arena1.Caption = Player2Arena1
                frmDuelos.P1Arena3.Caption = Player1Arena3
                frmDuelos.P2Arena3.Caption = Player2Arena3
               
            ElseIf Arena1 = True And Arena2 = False And Arena3 = False And Arena4 = True Then
                frmDuelos.Picture = LoadPicture(App.path & "\Graficos\frm\Mirar PJ 1 y 4!.jpg")
               
                frmDuelos.P1Arena2.Visible = False
                frmDuelos.P2Arena2.Visible = False
                frmDuelos.P1Arena3.Visible = False
                frmDuelos.P2Arena3.Visible = False
               
                frmDuelos.P1Arena1.Visible = True
                frmDuelos.P2Arena1.Visible = True
                frmDuelos.P1Arena4.Visible = True
                frmDuelos.P2Arena4.Visible = True
                frmDuelos.P1Arena1.Caption = Player1Arena1
                frmDuelos.P2Arena1.Caption = Player2Arena1
                frmDuelos.P1Arena4.Caption = Player1Arena4
                frmDuelos.P2Arena4.Caption = Player2Arena4
               
            ElseIf Arena1 = False And Arena2 = True And Arena3 = True And Arena4 = False Then
                frmDuelos.Picture = LoadPicture(App.path & "\Graficos\frm\Mirar PJ 2 y 3!.jpg")
               
                frmDuelos.P1Arena4.Visible = False
                frmDuelos.P2Arena4.Visible = False
                frmDuelos.P1Arena1.Visible = False
                frmDuelos.P2Arena1.Visible = False
               
                frmDuelos.P1Arena2.Visible = True
                frmDuelos.P2Arena2.Visible = True
                frmDuelos.P1Arena3.Visible = True
                frmDuelos.P2Arena3.Visible = True
                frmDuelos.P1Arena2.Caption = Player1Arena2
                frmDuelos.P2Arena2.Caption = Player2Arena2
                frmDuelos.P1Arena3.Caption = Player1Arena3
                frmDuelos.P2Arena3.Caption = Player2Arena3
               
            ElseIf Arena1 = False And Arena2 = True And Arena3 = False And Arena4 = True Then
                frmDuelos.Picture = LoadPicture(App.path & "\Graficos\frm\Mirar PJ 2 y 4!.jpg")
               
                frmDuelos.P1Arena3.Visible = False
                frmDuelos.P2Arena3.Visible = False
                frmDuelos.P1Arena1.Visible = False
                frmDuelos.P2Arena1.Visible = False
               
                frmDuelos.P1Arena2.Visible = True
                frmDuelos.P2Arena2.Visible = True
                frmDuelos.P1Arena4.Visible = True
                frmDuelos.P2Arena4.Visible = True
                frmDuelos.P1Arena2.Caption = Player1Arena2
                frmDuelos.P2Arena2.Caption = Player2Arena2
                frmDuelos.P1Arena4.Caption = Player1Arena4
                frmDuelos.P2Arena4.Caption = Player2Arena4
               
            ElseIf Arena1 = False And Arena2 = True And Arena3 = True And Arena4 = True Then
              frmDuelos.Picture = LoadPicture(App.path & "\Graficos\frm\Mirar PJ 2 y 3 y 4!.jpg")
               
                frmDuelos.P1Arena1.Visible = False
                frmDuelos.P2Arena1.Visible = False
               
                frmDuelos.P1Arena2.Visible = True
                frmDuelos.P2Arena2.Visible = True
                frmDuelos.P1Arena3.Visible = True
                frmDuelos.P2Arena3.Visible = True
                frmDuelos.P1Arena4.Visible = True
                frmDuelos.P2Arena4.Visible = True
                frmDuelos.P1Arena2.Caption = Player1Arena2
                frmDuelos.P2Arena2.Caption = Player2Arena2
                frmDuelos.P1Arena3.Caption = Player1Arena3
                frmDuelos.P2Arena3.Caption = Player2Arena3
                frmDuelos.P1Arena4.Caption = Player1Arena4
                frmDuelos.P2Arena4.Caption = Player2Arena4
           
            ElseIf Arena1 = False And Arena2 = True And Arena3 = False And Arena4 = False Then
                frmDuelos.Picture = LoadPicture(App.path & "\Graficos\frm\Mirar PJ 2.jpg")
               
                frmDuelos.P1Arena1.Visible = False
                frmDuelos.P2Arena1.Visible = False
                frmDuelos.P1Arena3.Visible = False
                frmDuelos.P2Arena3.Visible = False
                frmDuelos.P1Arena4.Visible = False
                frmDuelos.P2Arena4.Visible = False
               
                frmDuelos.P1Arena2.Visible = True
                frmDuelos.P2Arena2.Visible = True
                frmDuelos.P1Arena2.Caption = Player1Arena2
                frmDuelos.P2Arena2.Caption = Player2Arena2
               
            ElseIf Arena1 = False And Arena2 = False And Arena3 = True And Arena4 = False Then
                frmDuelos.Picture = LoadPicture(App.path & "\Graficos\frm\duelo solo 3.jpg")
               
                frmDuelos.P1Arena1.Visible = False
                frmDuelos.P2Arena1.Visible = False
                frmDuelos.P1Arena2.Visible = False
                frmDuelos.P2Arena2.Visible = False
                frmDuelos.P1Arena4.Visible = False
                frmDuelos.P2Arena4.Visible = False
               
                frmDuelos.P1Arena3.Visible = True
                frmDuelos.P2Arena3.Visible = True
                frmDuelos.P1Arena3.Caption = Player1Arena3
                frmDuelos.P2Arena3.Caption = Player2Arena3
               
            ElseIf Arena1 = False And Arena2 = False And Arena3 = False And Arena4 = True Then
                frmDuelos.Picture = LoadPicture(App.path & "\Graficos\frm\Mirar PJ 4!.jpg")
               
                frmDuelos.P1Arena1.Visible = False
                frmDuelos.P2Arena1.Visible = False
                frmDuelos.P1Arena2.Visible = False
                frmDuelos.P2Arena2.Visible = False
                frmDuelos.P1Arena3.Visible = False
                frmDuelos.P2Arena3.Visible = False
               
                frmDuelos.P1Arena4.Visible = True
                frmDuelos.P2Arena4.Visible = True
                frmDuelos.P1Arena4.Caption = Player1Arena4
                frmDuelos.P2Arena4.Caption = Player2Arena4
               
            ElseIf Arena1 = True And Arena2 = False And Arena3 = True And Arena4 = True Then
                frmDuelos.Picture = LoadPicture(App.path & "\Graficos\frm\Mirar PJ 1 y 3 y 4!.jpg")
 
                frmDuelos.P1Arena2.Visible = False
                frmDuelos.P2Arena2.Visible = False
               
                frmDuelos.P1Arena1.Visible = True
                frmDuelos.P2Arena1.Visible = True
                frmDuelos.P1Arena3.Visible = True
                frmDuelos.P2Arena3.Visible = True
                frmDuelos.P1Arena4.Visible = True
                frmDuelos.P2Arena4.Visible = True
                frmDuelos.P1Arena1.Caption = Player1Arena1
                frmDuelos.P2Arena1.Caption = Player2Arena1
                frmDuelos.P1Arena3.Caption = Player1Arena3
                frmDuelos.P2Arena3.Caption = Player2Arena3
                frmDuelos.P1Arena4.Caption = Player1Arena4
                frmDuelos.P2Arena4.Caption = Player2Arena4
               
            ElseIf Arena1 = True And Arena2 = True And Arena3 = False And Arena4 = True Then
                frmDuelos.Picture = LoadPicture(App.path & "\Graficos\frm\Mirar PJ 1 y 2 y 4!.jpg")
 
                frmDuelos.P1Arena3.Visible = False
                frmDuelos.P2Arena3.Visible = False
               
                frmDuelos.P1Arena1.Visible = True
                frmDuelos.P2Arena1.Visible = True
                frmDuelos.P1Arena2.Visible = True
                frmDuelos.P2Arena2.Visible = True
                frmDuelos.P1Arena4.Visible = True
                frmDuelos.P2Arena4.Visible = True
                frmDuelos.P1Arena1.Caption = Player1Arena1
                frmDuelos.P2Arena1.Caption = Player2Arena1
                frmDuelos.P1Arena2.Caption = Player1Arena2
                frmDuelos.P2Arena2.Caption = Player2Arena2
                frmDuelos.P1Arena4.Caption = Player1Arena4
                frmDuelos.P2Arena4.Caption = Player2Arena4
               
            ElseIf Arena1 = False And Arena2 = False And Arena3 = True And Arena4 = True Then
                frmDuelos.Picture = LoadPicture(App.path & "\Graficos\frm\Mirar PJ 3 y 4!.jpg")
 
                frmDuelos.P1Arena1.Visible = False
                frmDuelos.P2Arena1.Visible = False
                frmDuelos.P1Arena2.Visible = False
                frmDuelos.P2Arena2.Visible = False
               
                frmDuelos.P1Arena3.Visible = True
                frmDuelos.P2Arena3.Visible = True
                frmDuelos.P1Arena4.Visible = True
                frmDuelos.P2Arena4.Visible = True
                frmDuelos.P1Arena3.Caption = Player1Arena3
                frmDuelos.P2Arena3.Caption = Player2Arena3
                frmDuelos.P1Arena4.Caption = Player1Arena4
                frmDuelos.P2Arena4.Caption = Player2Arena4
            End If
           
            frmDuelos.Show , frmMain
           
        Exit Sub


declaran:

Código:
Public Arena1 As Boolean
Public Arena2 As Boolean
Public Arena3 As Boolean
Public Arena4 As Boolean
Public Player1Arena1 As String
Public Player2Arena1 As String
Public Player1Arena2 As String
Public Player2Arena2 As String
Public Player1Arena3 As String
Public Player2Arena3 As String
Public Player1Arena4 As String
Public Player2Arena4 As String
Public VidaMaxUser1 As Integer
Public VidaMinUser1 As Integer
Public VidaMaxUser2 As Integer
Public VidaMinUser2 As Integer
Public ManaMaxUser1 As Integer
Public ManaMinUser1 As Integer
Public ManaMaxUser2 As Integer
Public ManaMinUser2 As Integer
Public DuelosGanados1 As Integer
Public DuelosGanados2 As Integer
Public NickPlayer1 As String
Public NickPlayer2 As String

Le dedico este code al tranza drogon de luciano.

CREO que no me olvide nada, cualquier cosa me avisan..
Suerte.


Última edición por Feer~ el 5/3/2013, 10:40 pm, editado 1 vez

Feer~
Sub oficial
Sub oficial

¿BANEADO?: Si, BAN PERMANENTE.
Premios: Ninguno.
Cantidad de envíos: 2387
Fecha de inscripción: 24/05/2011

Ver perfil de usuario

Volver arriba Ir abajo

Re: Sistema de duelos (Style MU) (BASE)

Mensaje por FalDraiD el 5/3/2013, 9:53 pm

Esta Bueno :d

FalDraiD
Mayor de Guerra
Mayor de Guerra

¿BANEADO?: No.
Premios: Ninguno.
Cantidad de envíos: 160
Edad: 13
Localización: Tanaris
Fecha de inscripción: 14/05/2012

Ver perfil de usuario http://Www.Facebook.Com

Volver arriba Ir abajo

Re: Sistema de duelos (Style MU) (BASE)

Mensaje por Lekasak el 6/3/2013, 1:40 pm

NANANANA Te fuiste a la mierda con este código, sos un idolo.

Pero igual sos pete, si yo no tuviera paja y poca imaginación haría sistemas mejores .l.

Lekasak
Yisus HardCore
Yisus HardCore

¿BANEADO?: No.
Premios: Ninguno.
Cantidad de envíos: 5587
Edad: 16
Localización: villa maipu
Fecha de inscripción: 02/02/2011

Ver perfil de usuario

Volver arriba Ir abajo

Re: Sistema de duelos (Style MU) (BASE)

Mensaje por Feer~ el 6/3/2013, 5:23 pm

que imaginacion? yo saco cosas de otros juegos JAJAJAJA

Feer~
Sub oficial
Sub oficial

¿BANEADO?: Si, BAN PERMANENTE.
Premios: Ninguno.
Cantidad de envíos: 2387
Fecha de inscripción: 24/05/2011

Ver perfil de usuario

Volver arriba Ir abajo

Re: Sistema de duelos (Style MU) (BASE)

Mensaje por Kheyler el 7/3/2013, 9:41 am

MUY BUENO RECOMENDADO AL 100%

Kheyler
Inicial
Inicial

¿BANEADO?: No.
Premios: Ninguno.
Cantidad de envíos: 12
Localización: Buenos aires
Fecha de inscripción: 04/03/2013

Ver perfil de usuario

Volver arriba Ir abajo

Re: Sistema de duelos (Style MU) (BASE)

Mensaje por Lahom el 18/3/2013, 6:59 pm

Buen Aporte, Solamente una pregunta. Que es eso de "ACLARAN" no entiendo, Porque dice.
ACLARAN:
Spoiler:
Public Arena1 As Boolean
Public Arena2 As Boolean
Public Arena3 As Boolean
Public Arena4 As Boolean
Public Player1Arena1 As String
Public Player2Arena1 As String
Public Player1Arena2 As String
Public Player2Arena2 As String
Public Player1Arena3 As String
Public Player2Arena3 As String
Public Player1Arena4 As String
Public Player2Arena4 As String
Public VidaMaxUser1 As Integer
Public VidaMinUser1 As Integer
Public VidaMaxUser2 As Integer
Public VidaMinUser2 As Integer
Public ManaMaxUser1 As Integer
Public ManaMinUser1 As Integer
Public ManaMaxUser2 As Integer
Public ManaMinUser2 As Integer
Public DuelosGanados1 As Integer
Public DuelosGanados2 As Integer
Public NickPlayer1 As String
Public NickPlayer2 As String

y Eso no se donde ponerlo..

Espero su Ayuda por favor

Lahom
Capitan Segundo
Capitan Segundo

¿BANEADO?: No.
Premios: Ninguno.
Cantidad de envíos: 105
Localización: Pehuajo
Fecha de inscripción: 09/03/2013

Ver perfil de usuario http://www.reclipsium-ao.com.ar

Volver arriba Ir abajo

Re: Sistema de duelos (Style MU) (BASE)

Mensaje por kHALED el 18/3/2013, 7:15 pm

Lahom escribió:Buen Aporte, Solamente una pregunta. Que es eso de "ACLARAN" no entiendo, Porque dice.
ACLARAN:
Spoiler:
Public Arena1 As Boolean
Public Arena2 As Boolean
Public Arena3 As Boolean
Public Arena4 As Boolean
Public Player1Arena1 As String
Public Player2Arena1 As String
Public Player1Arena2 As String
Public Player2Arena2 As String
Public Player1Arena3 As String
Public Player2Arena3 As String
Public Player1Arena4 As String
Public Player2Arena4 As String
Public VidaMaxUser1 As Integer
Public VidaMinUser1 As Integer
Public VidaMaxUser2 As Integer
Public VidaMinUser2 As Integer
Public ManaMaxUser1 As Integer
Public ManaMinUser1 As Integer
Public ManaMaxUser2 As Integer
Public ManaMinUser2 As Integer
Public DuelosGanados1 As Integer
Public DuelosGanados2 As Integer
Public NickPlayer1 As String
Public NickPlayer2 As String

y Eso no se donde ponerlo..

Espero su Ayuda por favor

Lahom, son declaraciones.


Buen aporte fer.

kHALED
Maximus ROBA POST
Maximus ROBA POST

Premios:
[1º P]Diseñador gráfico.
[1º P]Concurso de físico.
[1º P]Diseño de interfaces.
[1º P]Gráfica Manual Sketch.
[1º P]Diseñador gráfico manual.
[1º P]Torneo de LoL por equipos.
[2ºP]Torneo 1vs1 [LoL]
[1ºP]Concurso banner Halloween 2014
Cantidad de envíos: 9827
Edad: 16
Localización: Valhala
Fecha de inscripción: 09/03/2012

Ver perfil de usuario http://www.servers-argentum.org

Volver arriba Ir abajo

Re: Sistema de duelos (Style MU) (BASE)

Mensaje por Lahom el 18/3/2013, 7:18 pm

kHALED escribió:
Lahom escribió:Buen Aporte, Solamente una pregunta. Que es eso de "ACLARAN" no entiendo, Porque dice.
ACLARAN:
Spoiler:
Public Arena1 As Boolean
Public Arena2 As Boolean
Public Arena3 As Boolean
Public Arena4 As Boolean
Public Player1Arena1 As String
Public Player2Arena1 As String
Public Player1Arena2 As String
Public Player2Arena2 As String
Public Player1Arena3 As String
Public Player2Arena3 As String
Public Player1Arena4 As String
Public Player2Arena4 As String
Public VidaMaxUser1 As Integer
Public VidaMinUser1 As Integer
Public VidaMaxUser2 As Integer
Public VidaMinUser2 As Integer
Public ManaMaxUser1 As Integer
Public ManaMinUser1 As Integer
Public ManaMaxUser2 As Integer
Public ManaMinUser2 As Integer
Public DuelosGanados1 As Integer
Public DuelosGanados2 As Integer
Public NickPlayer1 As String
Public NickPlayer2 As String

y Eso no se donde ponerlo..

Espero su Ayuda por favor

Lahom, son declaraciones.


Buen aporte fer.

Pero eso Lo tengo que poner o no.. Nunca me paso-.

Lahom
Capitan Segundo
Capitan Segundo

¿BANEADO?: No.
Premios: Ninguno.
Cantidad de envíos: 105
Localización: Pehuajo
Fecha de inscripción: 09/03/2013

Ver perfil de usuario http://www.reclipsium-ao.com.ar

Volver arriba Ir abajo

Re: Sistema de duelos (Style MU) (BASE)

Mensaje por nicolas Ruiz el 19/3/2013, 12:28 am

TAs Pasado Feer Very Happy

nicolas Ruiz
Coronel
Coronel

¿BANEADO?: No.
Premios: Ninguno.
Cantidad de envíos: 186
Edad: 17
Localización: Pehuajo
Fecha de inscripción: 12/02/2012

Ver perfil de usuario

Volver arriba Ir abajo

Re: Sistema de duelos (Style MU) (BASE)

Mensaje por Feer~ el 19/3/2013, 12:30 am

Lahom escribió:
kHALED escribió:
Lahom escribió:Buen Aporte, Solamente una pregunta. Que es eso de "ACLARAN" no entiendo, Porque dice.
ACLARAN:
Spoiler:
Public Arena1 As Boolean
Public Arena2 As Boolean
Public Arena3 As Boolean
Public Arena4 As Boolean
Public Player1Arena1 As String
Public Player2Arena1 As String
Public Player1Arena2 As String
Public Player2Arena2 As String
Public Player1Arena3 As String
Public Player2Arena3 As String
Public Player1Arena4 As String
Public Player2Arena4 As String
Public VidaMaxUser1 As Integer
Public VidaMinUser1 As Integer
Public VidaMaxUser2 As Integer
Public VidaMinUser2 As Integer
Public ManaMaxUser1 As Integer
Public ManaMinUser1 As Integer
Public ManaMaxUser2 As Integer
Public ManaMinUser2 As Integer
Public DuelosGanados1 As Integer
Public DuelosGanados2 As Integer
Public NickPlayer1 As String
Public NickPlayer2 As String

y Eso no se donde ponerlo..

Espero su Ayuda por favor

Lahom, son declaraciones.


Buen aporte fer.

Pero eso Lo tengo que poner o no.. Nunca me paso-.



se ponen en el mod declaraciones abajo del option explicit

Feer~
Sub oficial
Sub oficial

¿BANEADO?: Si, BAN PERMANENTE.
Premios: Ninguno.
Cantidad de envíos: 2387
Fecha de inscripción: 24/05/2011

Ver perfil de usuario

Volver arriba Ir abajo

Re: Sistema de duelos (Style MU) (BASE)

Mensaje por ShAP el 19/3/2013, 10:33 am

Muy buen codigo che! Re jugas 10 rondas y te pajias xd.

ShAP
Vice-jefe de la Mafia
Vice-jefe de la Mafia

¿BANEADO?: Si, BAN PERMANENTE.
Premios: Ninguno.
Cantidad de envíos: 679
Localización: ShAP .-
Fecha de inscripción: 22/11/2012

Ver perfil de usuario

Volver arriba Ir abajo

Re: Sistema de duelos (Style MU) (BASE)

Mensaje por Axters el 19/3/2013, 3:09 pm

Alto pajero este shap asjdajsdjsajdsa

Buen aporte man xD

Axters
Vice-jefe de la Mafia
Vice-jefe de la Mafia

¿BANEADO?: No.
Premios: Ninguno.
Cantidad de envíos: 660
Edad: 15
Localización: Adrogue
Fecha de inscripción: 19/05/2012

Ver perfil de usuario

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


Permisos de este foro:
No puedes responder a temas en este foro.