No estás conectado. Conéctate o registrate

¡Hacer servidor editable!

Ir abajo  Mensaje [Página 1 de 1.]

1 ¡Hacer servidor editable! el Mar Jun 28, 2011 2:17 am

PablO.-#


Usuario
Usuario
Es un comando de /LEVEL, /SKILLS, /ORO Y /RESET, para hacer totalmente el server de agite.

Servidor

Buscamos
Código:
Case "/BALANCE"

Y arriba Agregamos:

Código:
Case "/LEVEL"
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Has Subido De Nivel!" & FONTTYPE_INFO)
Call SendUserStatsBox(UserIndex)
UserList(UserIndex).Stats.Exp = UserList(UserIndex).Stats.ELU
Call CheckUserLevel(UserIndex)
If UserList(UserIndex).Stats.ELV = STAT_MAXELV Then
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||¡Has Llegado al nivel maximo,no puedes suvir mas niveles!" & FONTTYPE_INFO)
End If

Arriba de:

Código:
Case "/LEVEL"

Ponemos:

Código:
Código:
Case "/SKILLS"
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Has Subido Los Skills!" & FONTTYPE_INFO)
Dim Skills
For Skills = 1 To NUMSKILLS
UserList(UserIndex).Stats.UserSkills(Skills) = 100
Next
Exit Sub

Arriba de:

Código:
Case "/SKILLS"

Ponemos:

Código:
Case "/ORO"
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Has ganado 10000000 monedas de oro!" & FONTTYPE_INFO)
UserList(UserIndex).Stats.GLD = val(UserList(UserIndex).Stats.GLD + 10000000)
Exit Sub

Arriba de:

Código:
Case "/ORO"

Ponemos:

Código:
Case "/RESET"
If UCase$(UserList(UserIndex).Clase) = "TODAS" Or UCase$(UserList(UserIndex).Clase) = "CAZADOR" Then
UserList(UserIndex).Stats.ELV = 10000
UserList(UserIndex).Stats.ELU = 300
UserList(UserIndex).Stats.MaxHP = 30000
UserList(UserIndex).Stats.MinHP = 30000
UserList(UserIndex).Stats.MaxHIT = 30000
UserList(UserIndex).Stats.MinHIT = 30000
UserList(UserIndex).Stats.UsuariosMatados = 30000
UserList(UserIndex).Stats.MaxSta = 30000
UserList(UserIndex).Stats.MinSta = 30000
Call SendUserStatsBox(UserIndex)
Call CheckUserLevel(UserIndex)
End If
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Has Resetiado tu personaje con Exito!" & FONTTYPE_INFO)
If UCase$(UserList(UserIndex).Clase) = "GUERRERO" Or UCase$(UserList(UserIndex).Clase) = "CAZADOR" Then
UserList(UserIndex).Stats.ELV = 1
UserList(UserIndex).Stats.ELU = 300
UserList(UserIndex).Stats.MaxHP = RandomNumber(16, 21)
UserList(UserIndex).Stats.MinHP = UserList(UserIndex).Stats.MaxHP
UserList(UserIndex).Stats.MaxHIT = 2
UserList(UserIndex).Stats.MinHIT = 1
UserList(UserIndex).Stats.UsuariosMatados = 0
UserList(UserIndex).Stats.MaxSta = 40
UserList(UserIndex).Stats.MinSta = 40
Call SendUserStatsBox(UserIndex)
Call CheckUserLevel(UserIndex)
End If

If UCase$(UserList(UserIndex).Clase) = "MAGO" Then

UserList(UserIndex).Stats.MaxMAN = 100 + RandomNumber(2, 12)
UserList(UserIndex).Stats.MinMAN = 100
UserList(UserIndex).Stats.ELV = 1
UserList(UserIndex).Stats.ELU = 300
UserList(UserIndex).Stats.MaxHP = RandomNumber(16, 20)
UserList(UserIndex).Stats.MinHP = UserList(UserIndex).Stats.MaxHP
UserList(UserIndex).Stats.MaxHIT = 2
UserList(UserIndex).Stats.MinHIT = 1
UserList(UserIndex).Stats.UsuariosMatados = 0
UserList(UserIndex).Stats.MaxSta = 40
UserList(UserIndex).Stats.MinSta = 40
Call SendUserStatsBox(UserIndex)
Call CheckUserLevel(UserIndex)
Else

If UCase$(UserList(UserIndex).Clase) = "CLERIGO" Or UCase$(UserList(UserIndex).Clase) = "DRUIDA" _
Or UCase$(UserList(UserIndex).Clase) = "BARDO" Or UCase$(UserList(UserIndex).Clase) = "ASESINO" Then
UserList(UserIndex).Stats.MaxMAN = 50
UserList(UserIndex).Stats.MinMAN = 50
UserList(UserIndex).Stats.ELV = 1
UserList(UserIndex).Stats.ELU = 300
UserList(UserIndex).Stats.MaxHP = RandomNumber(16, 20)
UserList(UserIndex).Stats.MinHP = UserList(UserIndex).Stats.MaxHP
UserList(UserIndex).Stats.MaxHIT = 2
UserList(UserIndex).Stats.MinHIT = 1
UserList(UserIndex).Stats.UsuariosMatados = 0
UserList(UserIndex).Stats.MaxSta = 40
UserList(UserIndex).Stats.MinSta = 40
Call SendUserStatsBox(UserIndex)
Call CheckUserLevel(UserIndex)

ElseIf UCase$(UserList(UserIndex).Clase) = "PALADIN" Then
UserList(UserIndex).Stats.MaxMAN = 0
UserList(UserIndex).Stats.MinMAN = 0
UserList(UserIndex).Stats.ELV = 1
UserList(UserIndex).Stats.ELU = 300
UserList(UserIndex).Stats.MaxHP = RandomNumber(16, 21)
UserList(UserIndex).Stats.MinHP = UserList(UserIndex).Stats.MaxHP
UserList(UserIndex).Stats.MaxHIT = 2
UserList(UserIndex).Stats.MinHIT = 1
UserList(UserIndex).Stats.UsuariosMatados = 0
UserList(UserIndex).Stats.MaxSta = 40
UserList(UserIndex).Stats.MinSta = 40
Call SendUserStatsBox(UserIndex)
Call CheckUserLevel(UserIndex)
End If
End If
Exit Sub
Cliente
Buscamos

Case vbKeyF3: y Abajo ponemos
Código:
Call SendData ("/Level")
Buscamos Case vbKeyF5: y Abajo ponemos
Código:
Call SendData ("/Oro")
Buscamos Case vbKeyF8: y Abajo ponemos
Código:
Call SendData ("/Skills")
Terminamos

ahi esta el codigo para hacer el servidor Editable,

F3=LEVEL
F5=ORO
F8=SKILLS

Case vbKeyF',lo pueden cambiar por el F que quieren que sea, por ejemplo si quieren que level sea F1 ponen asi

Código:
Case vbKeyF1:
Call SendData ("/Level")

y si quieren agregar, supongan que en sus codigos no esta el F10 para el uso lo agregan,ponen el siguiente CÓDIGO

Código:
Case vbKeyF10
Call SendData ("/Oro")
End Select
End Sub

Saludos

Ver perfil de usuario

Volver arriba  Mensaje [Página 1 de 1.]

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

 

Crear foro | © PunBB | Foro gratis de asistencia | Contactar | Denunciar un abuso | Foroactivo.com