AlterEngine » AlterEngine » Scripting v
[Script] Informacion de personaje V 3.0

Enviar respuesta 
 
Calificación:
  • 1 votos - 5 Media
  • 1
  • 2
  • 3
  • 4
  • 5
[Script] Informacion de personaje V 3.0
29-10-2010, 12:29 AM (Este mensaje fue modificado por última vez en: 11-02-2012 06:04 PM por Mr. Jeshuem.)
Mensaje: #1
Mr. Jeshuem Sin conexión
╭∩╮（︶︿︶）╭∩╮
******
Super Moderadores 		Mensajes: 1,064
Registro en: Nov 2009
Reputación: 33
AEPoints: 999826
Gracias: 61
106 agradecimientos en 4 posts
[Script] Informacion de personaje V 3.0

Despues de muchos errores y el trabajo con el foro de GDG que me tiene ocupado... me habia olvidado que habia terminado este script asi que lo libero tiene unas cuantas cosas nuevas ^^.
___________________________________________________________
Autor : Jeshuem
Dificultad : 5/10

Instalacion:

Poner esto al final del main:
[spoiler]
Cita:Sub Inf(Index)
Dim FileSystem
Set FileSystem = CreateObject("Scripting.FileSystemObject")

NameTarget= GetPlayerName(GetPlayerTarget(Index))
Name = GetPlayerName(Index)

Call CustomMenuShow(Index,"Menu","\GUI\Custom\menu.bmp",1)
Call CustomMenuPicture(Index,1,"\GUI\Custom\Datos.bmp",20,45)
Call BattleMsg(Index,"0",BrigthGreen,0)

If FileSystem.FolderExists("Scripts\Bloque\"&Name&"") = False Then
Call FileSystem.CreateFolder("Scripts\Bloque\"&Name&"")
Call BattleMsg(Index,"1",BrigthGreen,0)
End If
'*****************************************************************

'*****************************************************************
If FileSystem.FileExists("Scripts\Bloque\"&Name&"\"&NameTarget&".ini") = False Then
Call Putvar("Scripts\Bloque\"&Name&"\"&NameTarget&".ini","Bloqueo","Bloqueo",0)
Call BattleMsg(Index,"2",BrigthGreen,0)
End If

'*****************************************************************

If GetVar("Scripts\Bloque\"&Name&"\"&NameTarget&".ini","Bloqueo","Bloqueo") = 0 Then
Call CustomMenuPicture(Index,2,"\GUI\Custom\Bloquear.bmp",20,145)
Call Putvar("Scripts\Bloque\"&Name&".ini",""&Name&"",""&NameTarget&"",0)
Else
Call CustomMenuPicture(Index,2,"\GUI\Custom\DesBloquear.bmp",20,145)
End If
'*****************************************************************
Call CustomMenuPicture(Index,3,"\GUI\Custom\Cerrar.bmp",20,245)
Call CustomMenuPicture(Index,4,"\GUI\Custom\boton.bmp",999,999)
End Sub

Sub click(Index)
Clase = GetplayerClass(Index)
Select Case Clase
Case 0

Call CustomMenuShow(Index,"Menu","\GUI\Custom\clase0.bmp",1)
Call CustomMenuPicture(Index,1,"\GUI\Custom\Datos.bmp",999,999)
Call CustomMenuPicture(Index,2,"\GUI\Custom\Bloquear.bmp",999,999)
Call CustomMenuPicture(Index,3,"\GUI\Custom\Cerrar.bmp",999,999)
Call CustomMenuPicture(Index,4,"\GUI\Custom\boton.bmp",125,135)
Call CustomMenuLabel(Index, 5,""&GetPlayerName(GetPlayerTarget(Index))&"",0, 9, 12, 15, 1, 90, 20)
Call CustomMenuLabel(Index, 6,"Clase: "&GetPlayerClassName(GetPlayerTarget(Index))&"",5, 30, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 7,"Clan: "&GetPlayerGuild(GetPlayerTarget(Index))&"",5, 51, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 8,"Level: "&GetPlayerLevel(GetPlayerTarget(Index))&"",5, 72, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 9,"Exp: "&GetPlayerExp(GetPlayerTarget(Index))&"/"&GetPlayerNextLevel(GetPlayerTarget(Index)) - GetPlayerExp(GetPlayerTarget(Index))&"",5, 93, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 10,"HP: "&GetPlayerHP(GetPlayerTarget(Index))&"/"&GetPlayerMaxHP(GetPlayerTarget(Index))&"",5, 114, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 11,"MP: "&GetPlayerMP(GetPlayerTarget(Index))&"/"&GetPlayerMaxMP(GetPlayerTarget(Index))&"",5, 135, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 12,"Atake: "&GetPlayerSTR(GetPlayerTarget(Index))&"",5, 156, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 13,"Defensa: "&GetPlayerDEF(GetPlayerTarget(Index))&"",5, 177, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 14,"Velocidad: "&GetPlayerSPEED(GetPlayerTarget(Index))&"",5, 198, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 15,"Magia: "&GetPlayerMAGI(GetPlayerTarget(Index))&"",5, 219, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 16,"Reputacion: "&GetPlayerRep(GetPlayerTarget(Index))&"",5, 240, 9, 15, 0, 90, 20)
Call CustomMenuPicture(Index,17,"\GUI\Custom\+_rep.bmp",107,240)
Call CustomMenuPicture(Index,18,"\GUI\Custom\-_rep.bmp",127,240)
Call CustomMenuPicture(Index,28,"\GUI\Custom\juntar.bmp",999,999)
Exit Sub
Case 1

Call CustomMenuShow(Index,"Menu","\GUI\Custom\clase1.bmp",1)
Call CustomMenuPicture(Index,1,"\GUI\Custom\Datos.bmp",999,999)
Call CustomMenuPicture(Index,2,"\GUI\Custom\Bloquear.bmp",999,999)
Call CustomMenuPicture(Index,3,"\GUI\Custom\Cerrar.bmp",999,999)
Call CustomMenuPicture(Index,4,"\GUI\Custom\boton.bmp",125,135)
Call CustomMenuLabel(Index, 5,""&GetPlayerName(GetPlayerTarget(Index))&"",0, 9, 12, 15, 1, 90, 20)
Call CustomMenuLabel(Index, 6,"Clase: "&GetPlayerClassName(GetPlayerTarget(Index))&"",5, 30, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 7,"Clan: "&GetPlayerGuild(GetPlayerTarget(Index))&"",5, 51, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 8,"Level: "&GetPlayerLevel(GetPlayerTarget(Index))&"",5, 72, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 9,"Exp: "&GetPlayerExp(GetPlayerTarget(Index))&"/"&GetPlayerNextLevel(GetPlayerTarget(Index)) - GetPlayerExp(GetPlayerTarget(Index))&"",5, 93, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 10,"HP: "&GetPlayerHP(GetPlayerTarget(Index))&"/"&GetPlayerMaxHP(GetPlayerTarget(Index))&"",5, 114, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 11,"MP: "&GetPlayerMP(GetPlayerTarget(Index))&"/"&GetPlayerMaxMP(GetPlayerTarget(Index))&"",5, 135, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 12,"Atake: "&GetPlayerSTR(GetPlayerTarget(Index))&"",5, 156, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 13,"Defensa: "&GetPlayerDEF(GetPlayerTarget(Index))&"",5, 177, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 14,"Velocidad: "&GetPlayerSPEED(GetPlayerTarget(Index))&"",5, 198, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 15,"Magia: "&GetPlayerMAGI(GetPlayerTarget(Index))&"",5, 219, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 16,"Reputacion: "&GetPlayerRep(GetPlayerTarget(Index))&"",5, 240, 9, 15, 0, 90, 20)
Call CustomMenuPicture(Index,17,"\GUI\Custom\+_rep.bmp",107,240)
Call CustomMenuPicture(Index,18,"\GUI\Custom\-_rep.bmp",127,240)
Call CustomMenuPicture(Index,28,"\GUI\Custom\juntar.bmp",999,999)
Exit Sub
Case 2

Call CustomMenuShow(Index,"Menu","\GUI\Custom\clase2.bmp",1)
Call CustomMenuPicture(Index,1,"\GUI\Custom\Datos.bmp",999,999)
Call CustomMenuPicture(Index,2,"\GUI\Custom\Bloquear.bmp",999,999)
Call CustomMenuPicture(Index,3,"\GUI\Custom\Cerrar.bmp",999,999)
Call CustomMenuPicture(Index,4,"\GUI\Custom\boton.bmp",125,135)
Call CustomMenuLabel(Index, 5,""&GetPlayerName(GetPlayerTarget(Index))&"",0, 9, 12, 15, 1, 90, 20)
Call CustomMenuLabel(Index, 6,"Clase: "&GetPlayerClassName(GetPlayerTarget(Index))&"",5, 30, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 7,"Clan: "&GetPlayerGuild(GetPlayerTarget(Index))&"",5, 51, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 8,"Level: "&GetPlayerLevel(GetPlayerTarget(Index))&"",5, 72, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 9,"Exp: "&GetPlayerExp(GetPlayerTarget(Index))&"/"&GetPlayerNextLevel(GetPlayerTarget(Index)) - GetPlayerExp(GetPlayerTarget(Index))&"",5, 93, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 10,"HP: "&GetPlayerHP(GetPlayerTarget(Index))&"/"&GetPlayerMaxHP(GetPlayerTarget(Index))&"",5, 114, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 11,"MP: "&GetPlayerMP(GetPlayerTarget(Index))&"/"&GetPlayerMaxMP(GetPlayerTarget(Index))&"",5, 135, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 12,"Atake: "&GetPlayerSTR(GetPlayerTarget(Index))&"",5, 156, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 13,"Defensa: "&GetPlayerDEF(GetPlayerTarget(Index))&"",5, 177, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 14,"Velocidad: "&GetPlayerSPEED(GetPlayerTarget(Index))&"",5, 198, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 15,"Magia: "&GetPlayerMAGI(GetPlayerTarget(Index))&"",5, 219, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 16,"Reputacion: "&GetPlayerRep(GetPlayerTarget(Index))&"",5, 240, 9, 15, 0, 90, 20)
Call CustomMenuPicture(Index,17,"\GUI\Custom\+_rep.bmp",107,240)
Call CustomMenuPicture(Index,18,"\GUI\Custom\-_rep.bmp",127,240)
Call CustomMenuPicture(Index,28,"\GUI\Custom\juntar.bmp",999,999)
Exit Sub
Case 3

Call CustomMenuShow(Index,"Menu","\GUI\Custom\clase3.bmp",1)
Call CustomMenuPicture(Index,1,"\GUI\Custom\Datos.bmp",999,999)
Call CustomMenuPicture(Index,2,"\GUI\Custom\Bloquear.bmp",999,999)
Call CustomMenuPicture(Index,3,"\GUI\Custom\Cerrar.bmp",999,999)
Call CustomMenuPicture(Index,4,"\GUI\Custom\boton.bmp",125,135)
Call CustomMenuLabel(Index, 5,""&GetPlayerName(GetPlayerTarget(Index))&"",0, 9, 12, 15, 1, 90, 20)
Call CustomMenuLabel(Index, 6,"Clase: "&GetPlayerClassName(GetPlayerTarget(Index))&"",5, 30, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 7,"Clan: "&GetPlayerGuild(GetPlayerTarget(Index))&"",5, 51, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 8,"Level: "&GetPlayerLevel(GetPlayerTarget(Index))&"",5, 72, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 9,"Exp: "&GetPlayerExp(GetPlayerTarget(Index))&"/"&GetPlayerNextLevel(GetPlayerTarget(Index)) - GetPlayerExp(GetPlayerTarget(Index))&"",5, 93, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 10,"HP: "&GetPlayerHP(GetPlayerTarget(Index))&"/"&GetPlayerMaxHP(GetPlayerTarget(Index))&"",5, 114, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 11,"MP: "&GetPlayerMP(GetPlayerTarget(Index))&"/"&GetPlayerMaxMP(GetPlayerTarget(Index))&"",5, 135, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 12,"Atake: "&GetPlayerSTR(GetPlayerTarget(Index))&"",5, 156, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 13,"Defensa: "&GetPlayerDEF(GetPlayerTarget(Index))&"",5, 177, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 14,"Velocidad: "&GetPlayerSPEED(GetPlayerTarget(Index))&"",5, 198, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 15,"Magia: "&GetPlayerMAGI(GetPlayerTarget(Index))&"",5, 219, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 16,"Reputacion: "&GetPlayerRep(GetPlayerTarget(Index))&"",5, 240, 9, 15, 0, 90, 20)
Call CustomMenuPicture(Index,17,"\GUI\Custom\+_rep.bmp",107,240)
Call CustomMenuPicture(Index,18,"\GUI\Custom\-_rep.bmp",127,240)
Call CustomMenuPicture(Index,28,"\GUI\Custom\juntar.bmp",999,999)
Exit Sub
Case 4

Call CustomMenuShow(Index,"Menu","\GUI\Custom\clase4.bmp",1)
Call CustomMenuPicture(Index,1,"\GUI\Custom\Datos.bmp",999,999)
Call CustomMenuPicture(Index,2,"\GUI\Custom\Bloquear.bmp",999,999)
Call CustomMenuPicture(Index,3,"\GUI\Custom\Cerrar.bmp",999,999)
Call CustomMenuPicture(Index,4,"\GUI\Custom\boton.bmp",125,135)
Call CustomMenuLabel(Index, 5,""&GetPlayerName(GetPlayerTarget(Index))&"",0, 9, 12, 15, 1, 90, 20)
Call CustomMenuLabel(Index, 6,"Clase: "&GetPlayerClassName(GetPlayerTarget(Index))&"",5, 30, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 7,"Clan: "&GetPlayerGuild(GetPlayerTarget(Index))&"",5, 51, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 8,"Level: "&GetPlayerLevel(GetPlayerTarget(Index))&"",5, 72, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 9,"Exp: "&GetPlayerExp(GetPlayerTarget(Index))&"/"&GetPlayerNextLevel(GetPlayerTarget(Index)) - GetPlayerExp(GetPlayerTarget(Index))&"",5, 93, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 10,"HP: "&GetPlayerHP(GetPlayerTarget(Index))&"/"&GetPlayerMaxHP(GetPlayerTarget(Index))&"",5, 114, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 11,"MP: "&GetPlayerMP(GetPlayerTarget(Index))&"/"&GetPlayerMaxMP(GetPlayerTarget(Index))&"",5, 135, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 12,"Atake: "&GetPlayerSTR(GetPlayerTarget(Index))&"",5, 156, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 13,"Defensa: "&GetPlayerDEF(GetPlayerTarget(Index))&"",5, 177, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 14,"Velocidad: "&GetPlayerSPEED(GetPlayerTarget(Index))&"",5, 198, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 15,"Magia: "&GetPlayerMAGI(GetPlayerTarget(Index))&"",5, 219, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 16,"Reputacion: "&GetPlayerRep(GetPlayerTarget(Index))&"",5, 240, 9, 15, 0, 90, 20)
Call CustomMenuPicture(Index,17,"\GUI\Custom\+_rep.bmp",107,240)
Call CustomMenuPicture(Index,18,"\GUI\Custom\-_rep.bmp",127,240)
Call CustomMenuPicture(Index,28,"\GUI\Custom\juntar.bmp",999,999)
Exit Sub
Case 5

Call CustomMenuShow(Index,"Menu","\GUI\Custom\clase5.bmp",1)
Call CustomMenuPicture(Index,1,"\GUI\Custom\Datos.bmp",999,999)
Call CustomMenuPicture(Index,2,"\GUI\Custom\Bloquear.bmp",999,999)
Call CustomMenuPicture(Index,3,"\GUI\Custom\Cerrar.bmp",999,999)
Call CustomMenuPicture(Index,4,"\GUI\Custom\boton.bmp",125,135)
Call CustomMenuLabel(Index, 5,""&GetPlayerName(GetPlayerTarget(Index))&"",0, 9, 12, 15, 1, 90, 20)
Call CustomMenuLabel(Index, 6,"Clase: "&GetPlayerClassName(GetPlayerTarget(Index))&"",5, 30, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 7,"Clan: "&GetPlayerGuild(GetPlayerTarget(Index))&"",5, 51, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 8,"Level: "&GetPlayerLevel(GetPlayerTarget(Index))&"",5, 72, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 9,"Exp: "&GetPlayerExp(GetPlayerTarget(Index))&"/"&GetPlayerNextLevel(GetPlayerTarget(Index)) - GetPlayerExp(GetPlayerTarget(Index))&"",5, 93, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 10,"HP: "&GetPlayerHP(GetPlayerTarget(Index))&"/"&GetPlayerMaxHP(GetPlayerTarget(Index))&"",5, 114, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 11,"MP: "&GetPlayerMP(GetPlayerTarget(Index))&"/"&GetPlayerMaxMP(GetPlayerTarget(Index))&"",5, 135, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 12,"Atake: "&GetPlayerSTR(GetPlayerTarget(Index))&"",5, 156, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 13,"Defensa: "&GetPlayerDEF(GetPlayerTarget(Index))&"",5, 177, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 14,"Velocidad: "&GetPlayerSPEED(GetPlayerTarget(Index))&"",5, 198, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 15,"Magia: "&GetPlayerMAGI(GetPlayerTarget(Index))&"",5, 219, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 16,"Reputacion: "&GetPlayerRep(GetPlayerTarget(Index))&"",5, 240, 9, 15, 0, 90, 20)
Call CustomMenuPicture(Index,17,"\GUI\Custom\+_rep.bmp",107,240)
Call CustomMenuPicture(Index,18,"\GUI\Custom\-_rep.bmp",127,240)
Call CustomMenuPicture(Index,28,"\GUI\Custom\juntar.bmp",999,999)
Exit Sub
Case 6

Call CustomMenuShow(Index,"Menu","\GUI\Custom\clase6.bmp",1)
Call CustomMenuPicture(Index,1,"\GUI\Custom\Datos.bmp",999,999)
Call CustomMenuPicture(Index,2,"\GUI\Custom\Bloquear.bmp",999,999)
Call CustomMenuPicture(Index,3,"\GUI\Custom\Cerrar.bmp",999,999)
Call CustomMenuPicture(Index,4,"\GUI\Custom\boton.bmp",125,135)
Call CustomMenuLabel(Index, 5,""&GetPlayerName(GetPlayerTarget(Index))&"",0, 9, 12, 15, 1, 90, 20)
Call CustomMenuLabel(Index, 6,"Clase: "&GetPlayerClassName(GetPlayerTarget(Index))&"",5, 30, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 7,"Clan: "&GetPlayerGuild(GetPlayerTarget(Index))&"",5, 51, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 8,"Level: "&GetPlayerLevel(GetPlayerTarget(Index))&"",5, 72, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 9,"Exp: "&GetPlayerExp(GetPlayerTarget(Index))&"/"&GetPlayerNextLevel(GetPlayerTarget(Index)) - GetPlayerExp(GetPlayerTarget(Index))&"",5, 93, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 10,"HP: "&GetPlayerHP(GetPlayerTarget(Index))&"/"&GetPlayerMaxHP(GetPlayerTarget(Index))&"",5, 114, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 11,"MP: "&GetPlayerMP(GetPlayerTarget(Index))&"/"&GetPlayerMaxMP(GetPlayerTarget(Index))&"",5, 135, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 12,"Atake: "&GetPlayerSTR(GetPlayerTarget(Index))&"",5, 156, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 13,"Defensa: "&GetPlayerDEF(GetPlayerTarget(Index))&"",5, 177, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 14,"Velocidad: "&GetPlayerSPEED(GetPlayerTarget(Index))&"",5, 198, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 15,"Magia: "&GetPlayerMAGI(GetPlayerTarget(Index))&"",5, 219, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 16,"Reputacion: "&GetPlayerRep(GetPlayerTarget(Index))&"",5, 240, 9, 15, 0, 90, 20)
Call CustomMenuPicture(Index,17,"\GUI\Custom\+_rep.bmp",107,240)
Call CustomMenuPicture(Index,18,"\GUI\Custom\-_rep.bmp",127,240)
Call CustomMenuPicture(Index,28,"\GUI\Custom\juntar.bmp",999,999)
Exit Sub
Case 7

Call CustomMenuShow(Index,"Menu","\GUI\Custom\clase7.bmp",1)
Call CustomMenuPicture(Index,1,"\GUI\Custom\Datos.bmp",999,999)
Call CustomMenuPicture(Index,2,"\GUI\Custom\Bloquear.bmp",999,999)
Call CustomMenuPicture(Index,3,"\GUI\Custom\Cerrar.bmp",999,999)
Call CustomMenuPicture(Index,4,"\GUI\Custom\boton.bmp",125,135)
Call CustomMenuLabel(Index, 5,""&GetPlayerName(GetPlayerTarget(Index))&"",0, 9, 12, 15, 1, 90, 20)
Call CustomMenuLabel(Index, 6,"Clase: "&GetPlayerClassName(GetPlayerTarget(Index))&"",5, 30, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 7,"Clan: "&GetPlayerGuild(GetPlayerTarget(Index))&"",5, 51, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 8,"Level: "&GetPlayerLevel(GetPlayerTarget(Index))&"",5, 72, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 9,"Exp: "&GetPlayerExp(GetPlayerTarget(Index))&"/"&GetPlayerNextLevel(GetPlayerTarget(Index)) - GetPlayerExp(GetPlayerTarget(Index))&"",5, 93, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 10,"HP: "&GetPlayerHP(GetPlayerTarget(Index))&"/"&GetPlayerMaxHP(GetPlayerTarget(Index))&"",5, 114, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 11,"MP: "&GetPlayerMP(GetPlayerTarget(Index))&"/"&GetPlayerMaxMP(GetPlayerTarget(Index))&"",5, 135, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 12,"Atake: "&GetPlayerSTR(GetPlayerTarget(Index))&"",5, 156, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 13,"Defensa: "&GetPlayerDEF(GetPlayerTarget(Index))&"",5, 177, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 14,"Velocidad: "&GetPlayerSPEED(GetPlayerTarget(Index))&"",5, 198, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 15,"Magia: "&GetPlayerMAGI(GetPlayerTarget(Index))&"",5, 219, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 16,"Reputacion: "&GetPlayerRep(GetPlayerTarget(Index))&"",5, 240, 9, 15, 0, 90, 20)
Call CustomMenuPicture(Index,17,"\GUI\Custom\+_rep.bmp",107,240)
Call CustomMenuPicture(Index,18,"\GUI\Custom\-_rep.bmp",127,240)
Call CustomMenuPicture(Index,28,"\GUI\Custom\juntar.bmp",999,999)
Exit Sub
End Select
End Sub

Sub Click1(Index)
NameTarget= GetPlayerName(GetPlayerTarget(Index))
Name = GetPlayerName(Index)

Clase = GetplayerClass(Index)

Select Case Clase
Case 0

Call CustomMenuShow(Index,"Menu","\GUI\Custom\clase0_me.bmp",1)
Call CustomMenuLabel(Index, 5,""&GetPlayerName(GetPlayerTarget(Index))&"",0, 9, 12, 15, 1, 180, 20)
Call CustomMenuPicture(Index,1,"\GUI\Custom\Datos.bmp",999,999)
Call CustomMenuPicture(Index,2,"\GUI\Custom\Bloquear.bmp",999,999)
Call CustomMenuPicture(Index,3,"\GUI\Custom\Cerrar.bmp",999,999)
Call CustomMenuPicture(Index,4,"\GUI\Custom\boton.bmp",999,999)
Call CustomMenuPicture(Index,17,"\GUI\Custom\+_rep.bmp",999,999)
Call CustomMenuPicture(Index,18,"\GUI\Custom\-_rep.bmp",999,999)
If GetVar("Scripts\Inf.ini",""&Name,"Medalla1") = 1 Then
Call CustomMenuPicture(Index,19,"\GUI\Custom\award1.bmp",140,30)
End If
If GetVar("Scripts\Inf.ini",""&Name,"Medalla2") = 1 Then
Call CustomMenuPicture(Index,20,"\GUI\Custom\award2.bmp",220,30)
End If
If GetVar("Scripts\Inf.ini",""&Name,"Medalla3") = 1 Then
Call CustomMenuPicture(Index,21,"\GUI\Custom\award3.bmp",140,90)
End If
If GetVar("Scripts\Inf.ini",""&Name,"Medalla4") = 1 Then
Call CustomMenuPicture(Index,22,"\GUI\Custom\award4.bmp",220,90)
End If
If GetVar("Scripts\Inf.ini",""&Name,"Medalla5") = 1 Then
Call CustomMenuPicture(Index,23,"\GUI\Custom\award5.bmp",140,150)
End If
If GetVar("Scripts\Inf.ini",""&Name,"Medalla6") = 1 Then
Call CustomMenuPicture(Index,24,"\GUI\Custom\award6.bmp",220,150)
End If
If GetVar("Scripts\Inf.ini",""&Name,"Medalla7") = 1 Then
Call CustomMenuPicture(Index,25,"\GUI\Custom\award7.bmp",140,210)
End If
If GetVar("Scripts\Inf.ini",""&Name,"Medalla8") = 1 Then
Call CustomMenuPicture(Index,26,"\GUI\Custom\award8.bmp",220,210)
End If
Call CustomMenuPicture(Index,27,"\GUI\Custom\juntar.bmp",275,135)
Exit Sub

Case 1
Call CustomMenuShow(Index,"Menu","\GUI\Custom\clase1_me.bmp",1)
Call CustomMenuLabel(Index, 5,""&GetPlayerName(GetPlayerTarget(Index))&"",0, 9, 12, 15, 1, 180, 20)
Call CustomMenuPicture(Index,1,"\GUI\Custom\Datos.bmp",999,999)
Call CustomMenuPicture(Index,2,"\GUI\Custom\Bloquear.bmp",999,999)
Call CustomMenuPicture(Index,3,"\GUI\Custom\Cerrar.bmp",999,999)
Call CustomMenuPicture(Index,4,"\GUI\Custom\boton.bmp",999,999)
Call CustomMenuPicture(Index,17,"\GUI\Custom\+_rep.bmp",999,999)
Call CustomMenuPicture(Index,18,"\GUI\Custom\-_rep.bmp",999,999)
If GetVar("Scripts\Inf.ini",""&Name,"Medalla1") = 1 Then
Call CustomMenuPicture(Index,19,"\GUI\Custom\award1.bmp",140,30)
End If
If GetVar("Scripts\Inf.ini",""&Name,"Medalla2") = 1 Then
Call CustomMenuPicture(Index,20,"\GUI\Custom\award2.bmp",220,30)
End If
If GetVar("Scripts\Inf.ini",""&Name,"Medalla3") = 1 Then
Call CustomMenuPicture(Index,21,"\GUI\Custom\award3.bmp",140,90)
End If
If GetVar("Scripts\Inf.ini",""&Name,"Medalla4") = 1 Then
Call CustomMenuPicture(Index,22,"\GUI\Custom\award4.bmp",220,90)
End If
If GetVar("Scripts\Inf.ini",""&Name,"Medalla5") = 1 Then
Call CustomMenuPicture(Index,23,"\GUI\Custom\award5.bmp",140,150)
End If
If GetVar("Scripts\Inf.ini",""&Name,"Medalla6") = 1 Then
Call CustomMenuPicture(Index,24,"\GUI\Custom\award6.bmp",220,150)
End If
If GetVar("Scripts\Inf.ini",""&Name,"Medalla7") = 1 Then
Call CustomMenuPicture(Index,25,"\GUI\Custom\award7.bmp",140,210)
End If
If GetVar("Scripts\Inf.ini",""&Name,"Medalla8") = 1 Then
Call CustomMenuPicture(Index,26,"\GUI\Custom\award8.bmp",220,210)
End If

Call CustomMenuPicture(Index,27,"\GUI\Custom\juntar.bmp",275,135)
Exit Sub

Case 2
Call CustomMenuShow(Index,"Menu","\GUI\Custom\clase2_me.bmp",1)
Call CustomMenuLabel(Index, 5,""&GetPlayerName(GetPlayerTarget(Index))&"",0, 9, 12, 15, 1, 180, 20)
Call CustomMenuPicture(Index,1,"\GUI\Custom\Datos.bmp",999,999)
Call CustomMenuPicture(Index,2,"\GUI\Custom\Bloquear.bmp",999,999)
Call CustomMenuPicture(Index,3,"\GUI\Custom\Cerrar.bmp",999,999)
Call CustomMenuPicture(Index,4,"\GUI\Custom\boton.bmp",999,999)
Call CustomMenuPicture(Index,17,"\GUI\Custom\+_rep.bmp",999,999)
Call CustomMenuPicture(Index,18,"\GUI\Custom\-_rep.bmp",999,999)
If GetVar("Scripts\Inf.ini",""&Name,"Medalla1") = 1 Then
Call CustomMenuPicture(Index,19,"\GUI\Custom\award1.bmp",140,30)
End If
If GetVar("Scripts\Inf.ini",""&Name,"Medalla2") = 1 Then
Call CustomMenuPicture(Index,20,"\GUI\Custom\award2.bmp",220,30)
End If
If GetVar("Scripts\Inf.ini",""&Name,"Medalla3") = 1 Then
Call CustomMenuPicture(Index,21,"\GUI\Custom\award3.bmp",140,90)
End If
If GetVar("Scripts\Inf.ini",""&Name,"Medalla4") = 1 Then
Call CustomMenuPicture(Index,22,"\GUI\Custom\award4.bmp",220,90)
End If
If GetVar("Scripts\Inf.ini",""&Name,"Medalla5") = 1 Then
Call CustomMenuPicture(Index,23,"\GUI\Custom\award5.bmp",140,150)
End If
If GetVar("Scripts\Inf.ini",""&Name,"Medalla6") = 1 Then
Call CustomMenuPicture(Index,24,"\GUI\Custom\award6.bmp",220,150)
End If
If GetVar("Scripts\Inf.ini",""&Name,"Medalla7") = 1 Then
Call CustomMenuPicture(Index,25,"\GUI\Custom\award7.bmp",140,210)
End If
If GetVar("Scripts\Inf.ini",""&Name,"Medalla8") = 1 Then
Call CustomMenuPicture(Index,26,"\GUI\Custom\award8.bmp",220,210)
End If
Call CustomMenuPicture(Index,27,"\GUI\Custom\juntar.bmp",275,135)
Exit Sub

Case 3
Call CustomMenuShow(Index,"Menu","\GUI\Custom\clase3_me.bmp",1)
Call CustomMenuLabel(Index, 5,""&GetPlayerName(GetPlayerTarget(Index))&"",0, 9, 12, 15, 1, 180, 20)
Call CustomMenuPicture(Index,1,"\GUI\Custom\Datos.bmp",999,999)
Call CustomMenuPicture(Index,2,"\GUI\Custom\Bloquear.bmp",999,999)
Call CustomMenuPicture(Index,3,"\GUI\Custom\Cerrar.bmp",999,999)
Call CustomMenuPicture(Index,4,"\GUI\Custom\boton.bmp",999,999)
Call CustomMenuPicture(Index,17,"\GUI\Custom\+_rep.bmp",999,999)
Call CustomMenuPicture(Index,18,"\GUI\Custom\-_rep.bmp",999,999)
If GetVar("Scripts\Inf.ini",""&Name,"Medalla1") = 1 Then
Call CustomMenuPicture(Index,19,"\GUI\Custom\award1.bmp",140,30)
End If
If GetVar("Scripts\Inf.ini",""&Name,"Medalla2") = 1 Then
Call CustomMenuPicture(Index,20,"\GUI\Custom\award2.bmp",220,30)
End If
If GetVar("Scripts\Inf.ini",""&Name,"Medalla3") = 1 Then
Call CustomMenuPicture(Index,21,"\GUI\Custom\award3.bmp",140,90)
End If
If GetVar("Scripts\Inf.ini",""&Name,"Medalla4") = 1 Then
Call CustomMenuPicture(Index,22,"\GUI\Custom\award4.bmp",220,90)
End If
If GetVar("Scripts\Inf.ini",""&Name,"Medalla5") = 1 Then
Call CustomMenuPicture(Index,23,"\GUI\Custom\award5.bmp",140,150)
End If
If GetVar("Scripts\Inf.ini",""&Name,"Medalla6") = 1 Then
Call CustomMenuPicture(Index,24,"\GUI\Custom\award6.bmp",220,150)
End If
If GetVar("Scripts\Inf.ini",""&Name,"Medalla7") = 1 Then
Call CustomMenuPicture(Index,25,"\GUI\Custom\award7.bmp",140,210)
End If
If GetVar("Scripts\Inf.ini",""&Name,"Medalla8") = 1 Then
Call CustomMenuPicture(Index,26,"\GUI\Custom\award8.bmp",220,210)
End If
Call CustomMenuPicture(Index,27,"\GUI\Custom\juntar.bmp",275,135)
Exit Sub

Case 4
Call CustomMenuShow(Index,"Menu","\GUI\Custom\clase4_me.bmp",1)
Call CustomMenuLabel(Index, 5,""&GetPlayerName(GetPlayerTarget(Index))&"",0, 9, 12, 15, 1, 180, 20)
Call CustomMenuPicture(Index,1,"\GUI\Custom\Datos.bmp",999,999)
Call CustomMenuPicture(Index,2,"\GUI\Custom\Bloquear.bmp",999,999)
Call CustomMenuPicture(Index,3,"\GUI\Custom\Cerrar.bmp",999,999)
Call CustomMenuPicture(Index,4,"\GUI\Custom\boton.bmp",999,999)
Call CustomMenuPicture(Index,17,"\GUI\Custom\+_rep.bmp",999,999)
Call CustomMenuPicture(Index,18,"\GUI\Custom\-_rep.bmp",999,999)
If GetVar("Scripts\Inf.ini",""&Name,"Medalla1") = 1 Then
Call CustomMenuPicture(Index,19,"\GUI\Custom\award1.bmp",140,30)
End If
If GetVar("Scripts\Inf.ini",""&Name,"Medalla2") = 1 Then
Call CustomMenuPicture(Index,20,"\GUI\Custom\award2.bmp",220,30)
End If
If GetVar("Scripts\Inf.ini",""&Name,"Medalla3") = 1 Then
Call CustomMenuPicture(Index,21,"\GUI\Custom\award3.bmp",140,90)
End If
If GetVar("Scripts\Inf.ini",""&Name,"Medalla4") = 1 Then
Call CustomMenuPicture(Index,22,"\GUI\Custom\award4.bmp",220,90)
End If
If GetVar("Scripts\Inf.ini",""&Name,"Medalla5") = 1 Then
Call CustomMenuPicture(Index,23,"\GUI\Custom\award5.bmp",140,150)
End If
If GetVar("Scripts\Inf.ini",""&Name,"Medalla6") = 1 Then
Call CustomMenuPicture(Index,24,"\GUI\Custom\award6.bmp",220,150)
End If
If GetVar("Scripts\Inf.ini",""&Name,"Medalla7") = 1 Then
Call CustomMenuPicture(Index,25,"\GUI\Custom\award7.bmp",140,210)
End If
If GetVar("Scripts\Inf.ini",""&Name,"Medalla8") = 1 Then
Call CustomMenuPicture(Index,26,"\GUI\Custom\award8.bmp",220,210)
End If
Call CustomMenuPicture(Index,27,"\GUI\Custom\juntar.bmp",275,135)
Exit Sub

Case 5
Call CustomMenuShow(Index,"Menu","\GUI\Custom\clase0_me.bmp",1)
Call CustomMenuLabel(Index, 5,""&GetPlayerName(GetPlayerTarget(Index))&"",0, 9, 12, 15, 1, 180, 20)
Call CustomMenuPicture(Index,1,"\GUI\Custom\Datos.bmp",999,999)
Call CustomMenuPicture(Index,2,"\GUI\Custom\Bloquear.bmp",999,999)
Call CustomMenuPicture(Index,3,"\GUI\Custom\Cerrar.bmp",999,999)
Call CustomMenuPicture(Index,4,"\GUI\Custom\boton.bmp",999,999)
Call CustomMenuPicture(Index,17,"\GUI\Custom\+_rep.bmp",999,999)
Call CustomMenuPicture(Index,18,"\GUI\Custom\-_rep.bmp",999,999)
If GetVar("Scripts\Inf.ini",""&Name,"Medalla1") = 1 Then
Call CustomMenuPicture(Index,19,"\GUI\Custom\award1.bmp",140,30)
End If
If GetVar("Scripts\Inf.ini",""&Name,"Medalla2") = 1 Then
Call CustomMenuPicture(Index,20,"\GUI\Custom\award2.bmp",220,30)
End If
If GetVar("Scripts\Inf.ini",""&Name,"Medalla3") = 1 Then
Call CustomMenuPicture(Index,21,"\GUI\Custom\award3.bmp",140,90)
End If
If GetVar("Scripts\Inf.ini",""&Name,"Medalla4") = 1 Then
Call CustomMenuPicture(Index,22,"\GUI\Custom\award4.bmp",220,90)
End If
If GetVar("Scripts\Inf.ini",""&Name,"Medalla5") = 1 Then
Call CustomMenuPicture(Index,23,"\GUI\Custom\award5.bmp",140,150)
End If
If GetVar("Scripts\Inf.ini",""&Name,"Medalla6") = 1 Then
Call CustomMenuPicture(Index,24,"\GUI\Custom\award6.bmp",220,150)
End If
If GetVar("Scripts\Inf.ini",""&Name,"Medalla7") = 1 Then
Call CustomMenuPicture(Index,25,"\GUI\Custom\award7.bmp",140,210)
End If
If GetVar("Scripts\Inf.ini",""&Name,"Medalla8") = 1 Then
Call CustomMenuPicture(Index,26,"\GUI\Custom\award8.bmp",220,210)
End If
Call CustomMenuPicture(Index,27,"\GUI\Custom\juntar.bmp",275,135)
Exit Sub

Case 6
Call CustomMenuShow(Index,"Menu","\GUI\Custom\clase0_me.bmp",1)
Call CustomMenuLabel(Index, 5,""&GetPlayerName(GetPlayerTarget(Index))&"",0, 9, 12, 15, 1, 180, 20)
Call CustomMenuPicture(Index,1,"\GUI\Custom\Datos.bmp",999,999)
Call CustomMenuPicture(Index,2,"\GUI\Custom\Bloquear.bmp",999,999)
Call CustomMenuPicture(Index,3,"\GUI\Custom\Cerrar.bmp",999,999)
Call CustomMenuPicture(Index,4,"\GUI\Custom\boton.bmp",999,999)
Call CustomMenuPicture(Index,17,"\GUI\Custom\+_rep.bmp",999,999)
Call CustomMenuPicture(Index,18,"\GUI\Custom\-_rep.bmp",999,999)
If GetVar("Scripts\Inf.ini",""&Name,"Medalla1") = 1 Then
Call CustomMenuPicture(Index,19,"\GUI\Custom\award1.bmp",140,30)
End If
If GetVar("Scripts\Inf.ini",""&Name,"Medalla2") = 1 Then
Call CustomMenuPicture(Index,20,"\GUI\Custom\award2.bmp",220,30)
End If
If GetVar("Scripts\Inf.ini",""&Name,"Medalla3") = 1 Then
Call CustomMenuPicture(Index,21,"\GUI\Custom\award3.bmp",140,90)
End If
If GetVar("Scripts\Inf.ini",""&Name,"Medalla4") = 1 Then
Call CustomMenuPicture(Index,22,"\GUI\Custom\award4.bmp",220,90)
End If
If GetVar("Scripts\Inf.ini",""&Name,"Medalla5") = 1 Then
Call CustomMenuPicture(Index,23,"\GUI\Custom\award5.bmp",140,150)
End If
If GetVar("Scripts\Inf.ini",""&Name,"Medalla6") = 1 Then
Call CustomMenuPicture(Index,24,"\GUI\Custom\award6.bmp",220,150)
End If
If GetVar("Scripts\Inf.ini",""&Name,"Medalla7") = 1 Then
Call CustomMenuPicture(Index,25,"\GUI\Custom\award7.bmp",140,210)
End If
If GetVar("Scripts\Inf.ini",""&Name,"Medalla8") = 1 Then
Call CustomMenuPicture(Index,26,"\GUI\Custom\award8.bmp",220,210)
End If
Call CustomMenuPicture(Index,27,"\GUI\Custom\juntar.bmp",275,135)
Exit Sub

Case 7
Call CustomMenuShow(Index,"Menu","\GUI\Custom\clase0_me.bmp",1)
Call CustomMenuLabel(Index, 5,""&GetPlayerName(GetPlayerTarget(Index))&"",0, 9, 12, 15, 1, 180, 20)
Call CustomMenuPicture(Index,1,"\GUI\Custom\Datos.bmp",999,999)
Call CustomMenuPicture(Index,2,"\GUI\Custom\Bloquear.bmp",999,999)
Call CustomMenuPicture(Index,3,"\GUI\Custom\Cerrar.bmp",999,999)
Call CustomMenuPicture(Index,4,"\GUI\Custom\boton.bmp",999,999)
Call CustomMenuPicture(Index,17,"\GUI\Custom\+_rep.bmp",999,999)
Call CustomMenuPicture(Index,18,"\GUI\Custom\-_rep.bmp",999,999)
If GetVar("Scripts\Inf.ini",""&Name,"Medalla1") = 1 Then
Call CustomMenuPicture(Index,19,"\GUI\Custom\award1.bmp",140,30)
End If
If GetVar("Scripts\Inf.ini",""&Name,"Medalla2") = 1 Then
Call CustomMenuPicture(Index,20,"\GUI\Custom\award2.bmp",220,30)
End If
If GetVar("Scripts\Inf.ini",""&Name,"Medalla3") = 1 Then
Call CustomMenuPicture(Index,21,"\GUI\Custom\award3.bmp",140,90)
End If
If GetVar("Scripts\Inf.ini",""&Name,"Medalla4") = 1 Then
Call CustomMenuPicture(Index,22,"\GUI\Custom\award4.bmp",220,90)
End If
If GetVar("Scripts\Inf.ini",""&Name,"Medalla5") = 1 Then
Call CustomMenuPicture(Index,23,"\GUI\Custom\award5.bmp",140,150)
End If
If GetVar("Scripts\Inf.ini",""&Name,"Medalla6") = 1 Then
Call CustomMenuPicture(Index,24,"\GUI\Custom\award6.bmp",220,150)
End If
If GetVar("Scripts\Inf.ini",""&Name,"Medalla7") = 1 Then
Call CustomMenuPicture(Index,25,"\GUI\Custom\award7.bmp",140,210)
End If
If GetVar("Scripts\Inf.ini",""&Name,"Medalla8") = 1 Then
Call CustomMenuPicture(Index,26,"\GUI\Custom\award8.bmp",220,210)
End If
Call CustomMenuPicture(Index,27,"\GUI\Custom\juntar.bmp",275,135)
Exit Sub
End Select

End Sub

Sub Mute(Index)

NameTarget= GetPlayerName(GetPlayerTarget(Index))
Name = GetPlayerName(Index)

If GetVar("Scripts\Bloque\"&Name&"\"&NameTarget&".ini","Bloqueo","Bloqueo") = 0 Then

Call MutePlayer(GetPlayerTarget(Index))
Call PutVar("Scripts\Bloque\"&Name&"\"&NameTarget&".ini","Bloqueo","Bloqueo",1)
Call BattleMsg(Index,"Has bloqueado a " &NameTarget&".",BrigthRed,0)
Call CustomMenuClose(Index)

Else

Call UnMutePlayer(GetPlayerTarget(Index))
Call PutVar("Scripts\Bloque\"&Name&"\"&NameTarget&".ini","Bloqueo","Bloqueo",0)
Call BattleMsg(Index,"Has Desbloqueado a " &NameTarget&".",BrigthGreen,0)
Call CustomMenuClose(Index)
End IF
End Sub

Sub SetPlayerRep(Index, Valor)
Call PutVar("Scripts\Rep.ini", "Reputacion", GetPlayerName(Index), ""&Valor)
End Sub

Function GetPlayerRep(Index)
GetPlayerRep = GetVar("Scripts\Rep.ini", "Reputacion", GetPlayerName(Index))
End Function


Sub CreateInf(Index)
Dim FileSystem
Set FileSystem = CreateObject("Scripting.FileSystemObject")

'******Informacion********
If FileSystem.FileExists("Scripts\Inf"&GetPlayerName(Index)&".ini") = True Then

Else
Call PutVar("Scripts\Inf"&GetPlayerName(Index)&".ini","Yes",GetPlayerName(Index),1)
'******Reputacion********
Call PutVar("Scripts\Rep.ini","Reputacion",GetPlayerName(Index),0)
'******Medallas********
Call Putvar("Scripts\Inf.ini",GetPlayerName(Index),"Medalla1",0)
Call Putvar("Scripts\Inf.ini",GetPlayerName(Index),"Medalla2",0)
Call Putvar("Scripts\Inf.ini",GetPlayerName(Index),"Medalla3",0)
Call Putvar("Scripts\Inf.ini",GetPlayerName(Index),"Medalla4",0)
Call Putvar("Scripts\Inf.ini",GetPlayerName(Index),"Medalla5",0)
Call Putvar("Scripts\Inf.ini",GetPlayerName(Index),"Medalla6",0)
Call Putvar("Scripts\Inf.ini",GetPlayerName(Index),"Medalla7",0)
Call Putvar("Scripts\Inf.ini",GetPlayerName(Index),"Medalla8",0)

End If
End Sub
[/spoiler]

Poner esto en el Sub OnClickPlayer(Index):
Cita:Call Inf(Index)

Poner esto en el Sub JoinGame(Index) antes del End Sub:

Cita:Call CreateInf(Index)

Poner esto en el Sub MenuScripts despues de FieldMessage = GetPlayerMenuClickMsg(Index):

Cita:If MenuTitle = "Menu" Then
Select Case Clicked_Index

Case 1
Call Click(Index)
Exit Sub

Case 2
Call Mute(Index)
Exit Sub

Case 3
Call CustomMenuClose(Index)
Exit Sub

Case 4
Call Click1(Index)
Exit Sub

Case 17

If GetVar("Scripts\Rep.ini", GetPlayerName(GetPlayerTarget(Index)), "Rep_") = GetPlayerName(Index) Then
Call BattleMsg(Index, "Ya le diste reputacion -.-", BRIGHTRED, 0)
Else
Call SetPlayerRep(GetPlayerTarget(Index),GetPlayerRep(GetPlayerTarget(Index))+1)
Call PutVar("Scripts\Rep.ini", GetPlayerName(GetPlayerTarget(Index)), "Rep_", GetPlayerName(Index))
Call BattleMsg(Index, "Gracias por dar reputacion ^_^", BRIGHTGREEN, 0)
Call CustomMenuLabel(Index, 16,"Reputacion: "&GetPlayerRep(GetPlayerTarget(Index))&"",5, 240, 9, 15, 0, 90, 20)
End If

Exit Sub

Case 18

If GetVar("Scripts\Rep.ini", GetPlayerName(GetPlayerTarget(Index)), "Rep_") = GetPlayerName(Index) Then
Call SetPlayerRep(GetPlayerTarget(Index),GetPlayerRep(GetPlayerTarget(Index))-1)
Call PutVar("Scripts\Rep.ini", GetPlayerName(GetPlayerTarget(Index)), "Rep_", "")
Call BattleMsg(Index, "Le quitaste reputacion T_T", BRIGHTGREEN, 0)
Call CustomMenuLabel(Index, 16,"Reputacion: "&GetPlayerRep(GetPlayerTarget(Index))&"",5, 240, 9, 15, 0, 90, 20)
Else
Call BattleMsg(Index, "Tienes que dar antes de quitar ^_^", BRIGHTRED, 0)
End If

Case 27

Call Click(Index)

Exit Sub

End Select
End If

Archivos de descarga:

Mediafire: Los invitados no pueden ver los enlaces. Por favor registrate AQUI para ver los enlaces.
Megaupload:Los invitados no pueden ver los enlaces. Por favor registrate AQUI para ver los enlaces.
Sendspace:Los invitados no pueden ver los enlaces. Por favor registrate AQUI para ver los enlaces.

Pasos para la instalacion:

1.- Descomprimir los archivos dentro de Cliente/GUI/Custom
2.-Crear una carpeta llamada Bloque en Servidor/scripts

Cosas Agregadas en al script :
-Poder bloquear al jugador para no chatear
-Interfaz para cada clase editable
-Interfaz mas dinamica.
-Sistema de reputacion

Posteen sus dudas criticas inquietudes sugerencias sobre el script Tongue

Eso es todo Saludos

Aca dejo el Script ya puesto en el main (Agradecimiento a Iki)

Los invitados no pueden ver los enlaces. Por favor registrate AQUI para ver los enlaces.
[Imagen: ico_target5-big.png]
Los invitados no pueden ver los enlaces. Por favor registrate AQUI para ver los enlaces.
Ayudenme a llegar a Jedi con un clik
Visita su sitio web Encuentra todos sus mensajes
Cita este mensaje en tu respuesta
 Agradecimiento dado por Daemon Sasuke dato isaac nickitolas
29-10-2010, 12:35 AM (Este mensaje fue modificado por última vez en: 29-10-2010 12:51 AM por Daemon.)
Mensaje: #2
Daemon Sin conexión
Troll Oficial de Alter Engine
*****
 		Mensajes: 1,428
Registro en: Jan 2010
Reputación: 17
AEPoints: -4
Gracias: 138
18 agradecimientos en 2 posts
RE: [Script] Informacion de personaje V 3.0

lo probare Big Grin, se agradece
men instalo el script y todo bn pero cuando le doy a datos no pasa nada ni al os que clikeee tnego que kitarlo por la X
[Imagen: halo1rxr.jpg]
Encuentra todos sus mensajes
Cita este mensaje en tu respuesta
29-10-2010, 12:51 AM
Mensaje: #3
Mr. Jeshuem Sin conexión
╭∩╮（︶︿︶）╭∩╮
******
Super Moderadores 		Mensajes: 1,064
Registro en: Nov 2009
Reputación: 33
AEPoints: 999826
Gracias: 61
106 agradecimientos en 4 posts
RE: [Script] Informacion de personaje V 3.0

jaja Gracias
[Imagen: ico_target5-big.png]
Los invitados no pueden ver los enlaces. Por favor registrate AQUI para ver los enlaces.
Ayudenme a llegar a Jedi con un clik
Visita su sitio web Encuentra todos sus mensajes
Cita este mensaje en tu respuesta
29-10-2010, 01:37 AM
Mensaje: #4
dato Sin conexión
o ErDaTo :D!
**
 		Mensajes: 227
Registro en: Aug 2009
Reputación: 8
AEPoints: 80
Gracias: 81
29 agradecimientos en 0 posts
RE: [Script] Informacion de personaje V 3.0

Wow o.O GRACIAS
Visita su sitio web Encuentra todos sus mensajes
Cita este mensaje en tu respuesta
29-10-2010, 02:05 AM
Mensaje: #5
Mr. Jeshuem Sin conexión
╭∩╮（︶︿︶）╭∩╮
******
Super Moderadores 		Mensajes: 1,064
Registro en: Nov 2009
Reputación: 33
AEPoints: 999826
Gracias: 61
106 agradecimientos en 4 posts
RE: [Script] Informacion de personaje V 3.0

No se olviden de poner lo que esta en el Spoiler derrepente se les pasa desapercibido ^^.
[Imagen: ico_target5-big.png]
Los invitados no pueden ver los enlaces. Por favor registrate AQUI para ver los enlaces.
Ayudenme a llegar a Jedi con un clik
Visita su sitio web Encuentra todos sus mensajes
Cita este mensaje en tu respuesta
29-10-2010, 06:14 AM
Mensaje: #6
Mr. Jeshuem Sin conexión
╭∩╮（︶︿︶）╭∩╮
******
Super Moderadores 		Mensajes: 1,064
Registro en: Nov 2009
Reputación: 33
AEPoints: 999826
Gracias: 61
106 agradecimientos en 4 posts
RE: [Script] Informacion de personaje V 3.0

(29-10-2010 12:35 AM)Daemon escribió: Los invitados no pueden ver los enlaces. Por favor registrate AQUI para ver los enlaces.lo probare Big Grin, se agradece
men instalo el script y todo bn pero cuando le doy a datos no pasa nada ni al os que clikeee tnego que kitarlo por la X

Bueno disculpen por el doble post pero me eh dado cuenta que ese eroor se soluciona saliendo y entrando denuevo al juego. Voy a solucionarlo lo mas rapido posible^^
[Imagen: ico_target5-big.png]
Los invitados no pueden ver los enlaces. Por favor registrate AQUI para ver los enlaces.
Ayudenme a llegar a Jedi con un clik
Visita su sitio web Encuentra todos sus mensajes
Cita este mensaje en tu respuesta
29-10-2010, 09:14 PM
Mensaje: #7
Daemon Sin conexión
Troll Oficial de Alter Engine
*****
 		Mensajes: 1,428
Registro en: Jan 2010
Reputación: 17
AEPoints: -4
Gracias: 138
18 agradecimientos en 2 posts
RE: [Script] Informacion de personaje V 3.0

ok ne avisas cuando lo arregles
[Imagen: halo1rxr.jpg]
Encuentra todos sus mensajes
Cita este mensaje en tu respuesta
14-01-2011, 10:14 PM
Mensaje: #8
jugito08 En línea
Revolucionario de Alter Engine
****
 		Mensajes: 858
Registro en: Jan 2010
Reputación: 34
AEPoints: 314
Gracias: 29
44 agradecimientos en 15 posts
RE: [Script] Informacion de personaje V 3.0

Links de mediafire y sendspace rotos,buen script Tongue
[Imagen: theworld.png]
Visita su sitio web Encuentra todos sus mensajes
Cita este mensaje en tu respuesta
16-01-2011, 05:10 AM (Este mensaje fue modificado por última vez en: 16-01-2011 05:11 AM por 6Dragon6.)
Mensaje: #9
6Dragon6 Ausente
Programador Obsesivo Compulsivo
*******
Alter Engine Team 		Mensajes: 5,239
Registro en: Apr 2009
Reputación: 103
AEPoints: 999998743
Gracias: 253
1062 agradecimientos en 59 posts
RE: [Script] Informacion de personaje V 3.0

Menos mal que el Script ya es antiguo, porque tiene un error MUUUY gordo XD. De todas formas voy a aclararlo.

En el "Select Case Clase" repites cada Case para solo cambiar un número, pudiendo simplemente poner todo de una sola vez especificando directamente el número de la clase en el CustomMenuShow en lugar de hacerlo con Cases, de modo que tu Sub click(Index) queda reducido a:
Código:
Sub click(Index)
Call CustomMenuShow(Index,"Menu","\GUI\Custom\clase"&GetPlayerClass(Index)&".bmp",1)

Call CustomMenuPicture(Index,1,"\GUI\Custom\Datos.bmp",999,999)
Call CustomMenuPicture(Index,2,"\GUI\Custom\Bloquear.bmp",999,999)
Call CustomMenuPicture(Index,3,"\GUI\Custom\Cerrar.bmp",999,999)
Call CustomMenuPicture(Index,4,"\GUI\Custom\boton.bmp",125,135)
Call CustomMenuLabel(Index, 5,""&GetPlayerName(GetPlayerTarget(Index))&"",0, 9, 12, 15, 1, 90, 20)
Call CustomMenuLabel(Index, 6,"Clase: "&GetPlayerClassName(GetPlayerTarget(Index))&"",5, 30, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 7,"Clan: "&GetPlayerGuild(GetPlayerTarget(Index))&"",5, 51, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 8,"Level: "&GetPlayerLevel(GetPlayerTarget(Index))&"",5, 72, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 9,"Exp: "&GetPlayerExp(GetPlayerTarget(Index))&"/"&GetPlayerNextLevel(GetPlayerTarget(Index)) - GetPlayerExp(GetPlayerTarget(Index))&"",5, 93, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 10,"HP: "&GetPlayerHP(GetPlayerTarget(Index))&"/"&GetPlayerMaxHP(GetPlayerTarget(Index))&"",5, 114, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 11,"MP: "&GetPlayerMP(GetPlayerTarget(Index))&"/"&GetPlayerMaxMP(GetPlayerTarget(Index))&"",5, 135, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 12,"Atake: "&GetPlayerSTR(GetPlayerTarget(Index))&"",5, 156, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 13,"Defensa: "&GetPlayerDEF(GetPlayerTarget(Index))&"",5, 177, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 14,"Velocidad: "&GetPlayerSPEED(GetPlayerTarget(Index))&"",5, 198, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 15,"Magia: "&GetPlayerMAGI(GetPlayerTarget(Index))&"",5, 219, 9, 15, 0, 90, 20)
Call CustomMenuLabel(Index, 16,"Reputacion: "&GetPlayerRep(GetPlayerTarget(Index))&"",5, 240, 9, 15, 0, 90, 20)
Call CustomMenuPicture(Index,17,"\GUI\Custom\+_rep.bmp",107,240)
Call CustomMenuPicture(Index,18,"\GUI\Custom\-_rep.bmp",127,240)
Call CustomMenuPicture(Index,28,"\GUI\Custom\juntar.bmp",999,999)
Exit Sub
End Sub
Los invitados no pueden ver los enlaces. Por favor registrate AQUI para ver los enlaces.
Los invitados no pueden ver los enlaces. Por favor registrate AQUI para ver los enlaces.
Visita su sitio web Encuentra todos sus mensajes
Cita este mensaje en tu respuesta
16-01-2011, 05:18 AM
Mensaje: #10
Mr. Jeshuem Sin conexión
╭∩╮（︶︿︶）╭∩╮
******
Super Moderadores 		Mensajes: 1,064
Registro en: Nov 2009
Reputación: 33
AEPoints: 999826
Gracias: 61
106 agradecimientos en 4 posts
RE: [Script] Informacion de personaje V 3.0

PTMR xD jaja recien me di cuenta jaja asi te reduce medio main jaja bueno de un rato lo corrijo malditos Cases xD me defraudaron U.U
[Imagen: ico_target5-big.png]
Los invitados no pueden ver los enlaces. Por favor registrate AQUI para ver los enlaces.
Ayudenme a llegar a Jedi con un clik
Visita su sitio web Encuentra todos sus mensajes
Cita este mensaje en tu respuesta
Enviar respuesta 


Posibles temas similares...
Tema: Autor Respuestas: Vistas: Último mensaje
  [Script en proceso] Mapping automático (Autotiles) oxzatanxo 9 114 Hoy 02:57 AM
Último mensaje: oxzatanxo
  [Script]Invocar Monstruo Mejorado oty5198 16 2,555 19-05-2012 12:48 AM
Último mensaje: makone
  [Script] Lanzar Granadas (Animación/Exploción/Daño) oxzatanxo 11 256 18-05-2012 05:09 PM
Último mensaje: MalcoS
  [Script] Warpeo múltiple. oxzatanxo 4 98 16-05-2012 01:03 PM
Último mensaje: Sheyk87
  [Script] Patear Penales. oxzatanxo 6 125 15-05-2012 07:38 PM
Último mensaje: oxzatanxo

Salto de foro:


Usuario(s) navegando en este tema: 4 invitado(s)
ContáctanosAlterEngineVolver arribaVolver al contenidoArchivo (Modo simple)Sindicación RSS