Dos scripts que nunca pude hacer andar

[jugito08]

Hola, aca yo estaba hoy intentando hacer funcionar dos scripts que nunca los pude arreglar, he podido arreglar todas las fallas pero el servidor mas alla de eso ,teniendo en cuenta no me salga ningun error, el script no funciona correctamente.

Este es un script para cambiar contraseña. El problema basicamente creo que es que no se puede usar un valor con letras, osea por ejemplo una contraseña solo con letras

Cita:Case "/cambiarcontraseña"
Vieja = TextSay(1)
Nueva = TextSay(2)
If GetVar("Cuentas/"& GetPlayerName(index) &".ini", "ACCESS", "Password") = Vieja Then
Call PutVar("Cuentas/"& GetPlayerName(index) &".ini", "ACCESS", "Password", ""& Nueva)
Call PlayerMSG(Index, "Su contraseña ha sido cambiada correctamente! su nueva contraseña es: "& Nueva, BRIGHTBLUE)
Else
Call PlayerMSG(Index, "Su contraseña no es valida!", BRIGHTRED)
End If
Exit Sub

_____________________________________
Y este scripts de mascota, que simplemente tiene las mismas funciones que la mascota creada desde item, pero aca el nombre no se puede seleccionar ni sprite, esa es la idea. Segun el servidor no hay ninguna falla pero hay algo que no esta correcto y por eso la mascota no "respawnea"

Cita:Case "/Mascota"
Call SetPlayerPetNAME(Index, "Perro de "& GetPlayerName(Index))
Call SetPlayerPetLevel(Index, 1)
Call SetPetLevel(Index, 1)
Call SetPlayerPetSprite(Index, 1)
Call SetPlayerPetMap(Index, GetPlayerMAP(Index))
Call SetPlayerPetX(Index, GetPlayerX(Index))
Call SetPlayerPetY(Index, GetPlayerY(Index))
Call SetPlayerPetMAXHP(Index, 200)
Call SetPlayerPetMAXMP(Index, 150)
Call SetPlayerPetMAXSP(Index, 120)
Call SetPlayerPetMAXFP(Index, 100)
Call SetPetHP(Index, 200)
Call SetPetMP(Index, 150)
Call SetPetSP(Index, 120)
Call SetPetFP(Index, 100)
Call SetPlayerPetHP(Index, 200)
Call SetPlayerPetMP(Index, 150)
Call SetPlayerPetSP(Index, 120)
Call SetPlayerPetFP(Index, 100)
Call SetPlayerPetSPEED(Index, 8)
Call SetPlayerPetMAGI(Index, 8)
Call SetPlayerPetDEF(Index, 8)
Call SetPlayerPetSTR(Index, 8)
Call SetPetSPEED(Index, 8)
Call SetPetMAGI(Index, 8)
Call SetPetDEF(Index, 8)
Call SetPetSTR(Index, 8)
Call PlayerMSG(Index, "Tu mascota ha sido adoptada correctamente y ahora obedece a tus ordenes!", brightblue)
Exit Sub

[Totolin]

EL primero es porque está itentando acceder a un archivo que no existe, el código correcto sería:

Código:

Case "/cambiarcontraseña"
Vieja = TextSay(1)
Nueva = TextSay(2)
If GetVar("Cuentas/"& GetPlayerLogin(index) &"_Info.ini", "ACCESS", "Password") = Vieja Then
Call PutVar("Cuentas/"& GetPlayerLogin(index) &"_Info.ini", "ACCESS", "Password", ""& Nueva)
Call PlayerMSG(Index, "Su contraseña ha sido cambiada correctamente! su nueva contraseña es: "& Nueva, BRIGHTBLUE)
Else
Call PlayerMSG(Index, "Su contraseña no es valida!", BRIGHTRED)
End If
Exit Sub

Igualmente no va a funcionar, ya que en cuanto sales del juego te devuelve la pass original, no se porque.

El segundo no se, porque todavía no me paré a mirar como funcionan las mascotas, así que cuando lo haga te comento, a no ser que alguien lo haga antes

Saludos !!

[canido]

los comands de mascotas no funcionan correctamente la mayoria no andan!

[piofran]

Fijate asi:

Case "/cambiarcontraseña"
Vieja = TextSay(1)
Nueva = TextSay(2)
If GetVar("Cuentas/"& GetPlayerName(index) &"_Info.ini", "ACCESS", "Password") = Vieja Then
Call PutVar("Cuentas/"& GetPlayerName(index) &"_Info.ini", "ACCESS", "Password", ""& Nueva)
Call PlayerMSG(Index, "Su contraseña ha sido cambiada correctamente! su nueva contraseña es: "& Nueva, BRIGHTBLUE)
Else
Call PlayerMSG(Index, "Su contraseña no es valida!", BRIGHTRED)
End If
Exit Sub

Porque los archivos de cuenta no se llaman por ejemplo: "piofran", sino "piofran_Info".

saludos


EDIT-----


Sory no me fije ya te lo habian arreglado arriba. eso me pasa por no leer el post entero-.

[jugito08]

Uhh que bolu yo jajaja gracias
PD: Que extraño que al deslogear vuelva el pass a la normalidad