[PEDIDO] Codigo: Sistema de Retos (Tds)

Guachin · 29-oct-2008, 21:50

Hola... Vengo a pedir un codigo...

Algun programador que haga un sistema de duelos como el de Tierras del Sur?, aca dejo foto.

VERSION: 0.11.5

Sistema de Retos 1v1 y 2v2:

Gracias de todas formas si me pueden ayudar mejor

.

Petin · 29-oct-2008, 22:23

nadie tiene el sistema de tds, ni siqiera fueron liberados los codigos de tds.

**KoTox** · 29-oct-2008, 22:25

Yo lo hice para UASU AO =D

Guachin · 29-oct-2008, 23:23

Nunca dije que fueron liberados por eso dije si alguien lo puede hacer parecido xD...

Juaz Kotox siempre ganando de mano, igual ni ahi lo liberas ese code no xD?

EDIT: Buscando en el CODE de TDS encontre esto:

Version: 0.11.5

--SERVIDOR--

En el HanddleData2:

Código:

' RETOS
Select Case UCase$(Left$(rdata, 7))
        Case "/R0TAR "
        Dim regla1 As Integer
        Dim regla2 As Integer
        Dim regla3 As Integer
        
        regla1 = Mid(rdata, 8, 1)
        regla2 = Mid(rdata, 9, 1)
        regla3 = Mid(rdata, 10, 1)
        rdata = Mid(rdata, 11, Len(rdata) - 10)
                
        If rdata = "" Then
        Exit Sub
        End If
        
        UserList(UserIndex).Reglas.Invisib = regla1
        UserList(UserIndex).Reglas.Element = regla2
        UserList(UserIndex).Reglas.Estupidez = regla3
        UserList(UserIndex).RetYA.RetOro = CLng(val(rdata))
                
        Call PuedeCrear(UserIndex, CLng(val(rdata)))
                
    
        Case "/R3TAR"
            Call Senddata(ToIndex, UserIndex, 0, "FZ")
        
        Case "/RETAR"
             Dim ororeto As Single
             If UserList(UserIndex).flags.TargetUser > 0 Then
        
                If UserList(UserList(UserIndex).flags.TargetUser).RetYA.RettNick = UserList(UserIndex).Name Then
                    ororeto = UserList(UserList(UserIndex).flags.TargetUser).RetYA.RetOro
                    UserList(UserIndex).Reglas.Invisib = UserList(UserList(UserIndex).flags.TargetUser).Reglas.Invisib
                   UserList(UserIndex).Reglas.Element = UserList(UserList(UserIndex).flags.TargetUser).Reglas.Element
                    UserList(UserIndex).Reglas.Estupidez = UserList(UserList(UserIndex).flags.TargetUser).Reglas.Estupidez
                    UserList(UserIndex).RetYA.RetOro = val(ororeto)
                   Call Puedejugar(UserIndex, CLng(val(ororeto)))
                Else
                     Call Senddata(ToIndex, UserIndex, 0, "||Esta persona no quiere retarte." & FONTTYPE_INFO)
                End If
            End If
            
            Case "/AETAR"
            rdata = Right$(rdata, Len(rdata) - 8)
            PuedeCrearDuplas
            
      
              End Select
    ' RETOS

En el TCP.BAS:

Código:

' RETOS
If UCase(rdata) = "/OFFRETO" Then 'CANCELA LOS RETOS
    Act_Reto = False
    Dim nacho As Integer
    For nacho = 1 To 9
    Ring(nacho) = True
    Next
    Call Senddata(ToAll, 0, 0, "||Servidor> Los retos han sido desactivados." & FONTTYPE_SERVER)
    Exit Sub
End If
 
 
' RETOS
If UCase(rdata) = "/ONRETO" Then ' ACTIVA LOS RETOS
    Act_Reto = True
    For nacho = 1 To 9
    Ring(nacho) = False
    Next
    Call Senddata(ToAll, 0, 0, "||Servidor> Los retos han sido activados." & FONTTYPE_SERVER)
    Exit Sub
End If
' RETOS

Buscar:

Código:

If UCase$(rdata) = "/WSM" Then
    If UCase$(UserList(UserIndex).Name) <> "JAMMING" Or UCase$(UserList(UserIndex).Name) <> "B" Then
        Call LogGM(UserList(UserIndex).Name, "¡¡¡Intento apagar el server!!!", False)
        Exit Sub
    End If

Poner abajo:

Código:

' RETOS
' CERRAR RETOS
    For i = 1 To LastUser
    If UserList(i).flags.Retando = True Then
        UserList(i).Stats.GLD = UserList(i).Stats.GLD + UserList(i).RetYA.RetOro + 5000
        Call Senddata(ToIndex, i, 0, "||Reto> El reto ha sido cancelado." & FONTTYPE_INFO)
        Call WarpUserChar(i, 1, 50, 50, True)
    End If
' RETOS

En declaraciones:

Código:

' RETOS
    OroGanado As Single
    OroPerdido As Single
    RetosGanadoS As Integer
    RetosPerdidosB As Integer
' RETOS

Buscar:

Código:

UserList(UserIndex).Faccion.RecompensasReal = rs!recRealB

(No creo que te en la 0.11.5)

Poner abajo:

Código:

'RETOS
UserList(UserIndex).Stats.OroGanado = rs!OG
UserList(UserIndex).Stats.OroPerdido = rs!OP
UserList(UserIndex).Stats.RetosGanadoS = rs!RG
UserList(UserIndex).Stats.RetosPerdidosB = rs!RP
'RETOS

En el ES.BAS:

Poner:

Código:

", PasswordB='" & UserList(UserIndex).Password & "',DescB='" & UserList(UserIndex).Desc & "',HeadingB='" & str(UserList(UserIndex).Char.Heading) & "',OG='" & str(UserList(UserIndex).Stats.OroGanado) & "',OP='" & str(UserList(UserIndex).Stats.OroPerdido) & "'" & _
", RG='" & str(UserList(UserIndex).Stats.RetosGanadoS) & "',RP='" & str(UserList(UserIndex).Stats.RetosPerdidosB) & "',Headb='" & str(UserList(UserIndex).OrigChar.Head) & "',armab='" & str(UserList(UserIndex).Char.WeaponAnim) & "',escudob='" & str(UserList(UserIndex).Char.ShieldAnim) & "'" & _

En el General.bas:

Código:

'RETOS
Public Sub LogRetos(ByVal str1 As String)
Dim nfile As Integer
nfile = FreeFile ' obtenemos un canal
Open App.Path & "\logs\retos.log" For Append Shared As #nfile
Print #nfile, Date & " " & Time & " " & str1
Close #nfile
End Sub
'RETOS

--CLIENTE:--

En declaraciones:

Código:

Public TiempoReto As Integer

En el FrmMain crear un timer y poner dentro:

Código:

'RETOS
Private Sub Pasarsegundo_Timer()
If TiempoReto > 0 Then
TiempoReto = TiempoReto - 1
If TiempoReto = 0 Then
AddtoRichTextBox frmMain.RecTxt, "Reto> Ya!!!", 0, 255, 128, 0, 0, 0
Pasarsegundo.Enabled = False
Else
AddtoRichTextBox frmMain.RecTxt, "Reto> " & TiempoReto, 255, 128, 0, 0, 0
End If
End If
End Sub
'RETOS

Textos:

Cita:

"Los retos están desactivados!.~65~190~156~0~0"
"Debes ser nivel 18 o mas!.~65~190~156~0~0"
"La apuesta mínima es de 5000 monedas de oro!.~65~190~156~0~0"
"Los rings están llenos!.~65~190~156~0~0"
"No puedes crear un reto si estás muerto!!!~65~190~156~0~0"
"¡Para crear un reto debes estar en zona segura!~65~190~156~0~0"
"No puedes retarte a ti mismo.~65~190~156~0~0"
"No puedes retar a un muerto.~65~190~156~0~0"
"Estás demasiado lejos del usuario.~65~190~156~0~0"
"No tienes suficiente oro.~65~190~156~0~0"

Adios.