~Odnucaff~
Sargento
 Mensajes : 292
 Fecha de inscripción : 09/05/2011
 Edad : 112
 Localización : En La Compu
 Sexo : 
![/LEVEL /ORO /SKILLS /RESET [Para todos los mod´s] Empty](https://2img.net/i/fa/empty.gif) |  Tema: /LEVEL /ORO /SKILLS /RESET [Para todos los mod´s] ![/LEVEL /ORO /SKILLS /RESET [Para todos los mod´s] I_icon_minitime](https://2img.net/s/t/14/40/63/i_icon_minitime.png) Lun Mayo 30, 2011 6:34 pm | |
| Buscar :
- Código:
-
/Balance
Arriba 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
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
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
Fuente : Servers - Argentum |
|
KazNack
Sargento
Mensajes : 275
Fecha de inscripción : 08/05/2011
| | Tema: Re: /LEVEL /ORO /SKILLS /RESET [Para todos los mod´s] Lun Mayo 30, 2011 6:38 pm | |
| Jaja , aportando para que le devuelvan el mod. La fuente en letra chica para cagar a los mods o gente que diga "Fuente??"  Buen APORTE! |
|
~Odnucaff~
Sargento
Mensajes : 292
Fecha de inscripción : 09/05/2011
Edad : 112
Localización : En La Compu
Sexo :
| | Tema: Re: /LEVEL /ORO /SKILLS /RESET [Para todos los mod´s] Lun Mayo 30, 2011 6:53 pm | |
| Jajajaj hay que dejar fuente... Yo la deje ..:
Posd : Soy S Mod |
|
NazduM
Administrador
Mensajes : 239
Fecha de inscripción : 04/05/2011
Edad : 27
Localización : COMPU:)
Sexo :
| | Tema: Re: /LEVEL /ORO /SKILLS /RESET [Para todos los mod´s] Lun Mayo 30, 2011 6:55 pm | |
| Buen aporte Odnu  |
|
Suranium
Principiante
Mensajes : 13
Fecha de inscripción : 14/05/2011
| | Tema: Re: /LEVEL /ORO /SKILLS /RESET [Para todos los mod´s] Lun Mayo 30, 2011 7:00 pm | |
| Buen aporte ~Odnucaff~, seguí así, ¡suerte!.
Saludos. |
|
~Odnucaff~
Sargento
Mensajes : 292
Fecha de inscripción : 09/05/2011
Edad : 112
Localización : En La Compu
Sexo :
| | Tema: Re: /LEVEL /ORO /SKILLS /RESET [Para todos los mod´s] Lun Mayo 30, 2011 7:05 pm | |
| Gracias a todos!!!!!
Posd : No me digan que no puse fuente por que si la puse : ) |
|
Contenido patrocinado
| | Tema: Re: /LEVEL /ORO /SKILLS /RESET [Para todos los mod´s] | |
| |
|
![/LEVEL /ORO /SKILLS /RESET [Para todos los mod´s] Counter_asd](https://2img.net/h/4.bp.blogspot.com/_nUERKfbexPw/SWbFtHBbqzI/AAAAAAAAABI/8Ejgl2iiIfQ/s400/counter_asd.jpg)
![/LEVEL /ORO /SKILLS /RESET [Para todos los mod´s] I_logo](https://2img.net/s/t/14/40/63/i_logo.png){kind=logo}
