Crear Torneo Automatico [APORTE]

Fecha de inscripción : 09/05/2011

No es el de saturos.
Como vi que muchos quieren uno y facil de hacer, acá se los vengo a aportar.

Buscar:

Código:
Case "/MEDITAR"
Abajo:

Código:
Case "/TORNEO" ' Torneo Automatico
' 6 = Mapa Torneo, 7 = Mapa espera, 8 = Mapa Ganadores
If MapInfo(UserList(UserIndex).Pos.Map).Pk = True Then
Call SendData(SendTarget.ToIndex, UserIndex, 0, " || Estas en zona insegura no puedes ingresar ala sala de torneo." & FONTTYPE_TORNEO)
Exit Sub
End If
If MapInfo(6).NumUsers = 2 Then
Call WarpUserChar(UserIndex, 7, 50, 50, True)
Exit Sub
End If

If UserList(UserIndex).Pos.Map = Prision.Map Then
Call SendData(SendTarget.ToIndex, UserIndex, 0, "|| No puedes ingresar al torneo desde la cárcel" & FONTTYPE_TORNEO)
Exit Sub
End If

If EsNewbie(UserIndex) Then
Call SendData(SendTarget.ToIndex, UserIndex, 0, "|| No puedes ingresar al torneo siendo menor de nivel 13" & FONTTYPE_TORNEO)
Exit Sub
End If

If UserList(UserIndex).flags.Muerto = 1 Then
Call SendData(SendTarget.ToIndex, UserIndex, 0, "|| Estas muerto, no puedes ingresar al torneo" & FONTTYPE_TORNEO)
Exit Sub
End If

If MapInfo(7).NumUsers = 6 Then
Call SendData(SendTarget.ToAll, 0, 0, " || Cupo lleno." & FONTTYPE_TORNEO)
Exit Sub
End If

Call WarpUserChar(6, 50, 50, True)
Call UserGana
Call SortearTornee
Call SortearTorne
Exit Sub

Buscar en el sub userdie abajo de:

Código:
UserList(UserIndex).flags.Muerto = 1
Poner:

Código:
If UserList(UserIndex).Pos.Map = 6 Then
Call SendData(SendTarget.ToAll, 0, 0, "||" & UserList(UserIndex).name & "ha perdido el torneo." & FONTTYPE_TORNEO)
Call WarpUserChar(UserIndex, 1, 50, 50, True)
End If
Buscar:

Código:
Sub UpdateUserMap(ByVal UserIndex As Integer)
Abajo:

Código:
Sub SortearTornee()
Dim sorteooo
sorteooo = RandomNumber(MapInfo(.NumUsers, MapInfo(.NumUsers) * 2
If UserList(sorteooo).Pos.Map = 8 Then
Call WarpUserChar(sorteooo, 6, 50, 50, True)
Exit Sub
End If
End Sub
Sub SortearTorne()
Dim sorteoo
sorteoo = RandomNumber(MapInfo(7).NumUsers, MapInfo(7).NumUsers) * 2
If UserList(sorteoo).Pos.Map = 7 Then
Call WarpUserChar(sorteoo, 6, 50, 50, True)
Exit Sub
End If
End Sub
Sub UserGana()
Dim UserIndex As Integer
If UserList(UserIndex).Pos.Map = 6 And MapInfo(6).NumUsers = 1 Then
Call WarpUserChar(UserIndex, 8, 50, 50, True)
Call SortearTorne
Exit Sub
End If
End Sub
Después en el frmmain crean un timer con el intervalo que quieran y adentro le ponen.

Código:
Call Senddata(Sendtarget.toall, 0, 0, "|| Hay un torneo automático tipea /TORNEO para participar" & FONTTYPE_TORNEO)

Buscar:

Código:
Public Const FONTTYPE_CENTINELA As String = "~0~255~0~1~0"

Abajo:

Código:
Public Const FONTTYPE_TORNEO As String = "~128~255~61~1~1"

Listo, ahí ya tienen su torneo automatico.

FUENTE! : http://www.servers-argentum.com/

Fecha de inscripción : 04/05/2011

Muy buen aporte agus te felicito! nunca lo vi .

Fecha de inscripción : 09/05/2011

Gracias puse fuente y todo

Fecha de inscripción : 08/05/2011

Tratá de disimular el Copy&Paste , por lo menos poné

Código:

CÓDIGO

Fecha de inscripción : 09/05/2011

lo que inporta es que aporte

» [APORTE] Crear un Golem de Hielo : VIDEO
» Estado del servidor Automatico
» Crear un iao 1.2
» Crear Ao mod 11.2
» [APORTE] /ALIMENTOS

Crear Torneo Automatico [APORTE]

Crear Torneo Automatico [APORTE]

Temas similares

Temas similares