/HOGAR (ERROR)

Estado
Cerrado para nuevas respuestas.
A

AzaGaL

Destructor Lvl 5
RE

Grefu dijo:
Compila ? Si no compila di donde te salta el error
Haz clic para expandir...


No... en compilar cero error pero el comando dentro del juego no funciona :? por que es?! no se ahy esta `para que vean como lo hago
 
Khalem

Khalem

Mica
Colaborador
Ex-Staff
De donde sacaste ese codigo?

Edit: No andaba xD

Espero te sirva ^^, fijate que a lo mejor tiene algun error tonto
 
A

AzaGaL

Destructor Lvl 5
RE

Voy a probar tu code
para ver si funciona.
el código que tenia yo lo saqué de desarrollos completados

cualquier duda posteo aca denuevo
 
Khalem

Khalem

Mica
Colaborador
Ex-Staff
Yo si ahora consigo el ao completo pruebo yo y te digo bien cual funciona correctamente.

Suerte

EDIT1:
Mira, probe el codigo que dejaste y me anda perfecto xD, el mio jajaja, iba para atras xD
 
A

AzaGaL

Destructor Lvl 5
RE

Khalem dijo:
Yo si ahora consigo el ao completo pruebo yo y te digo bien cual funciona correctamente.

Suerte

EDIT1:
Mira, probe el codigo que dejaste y me anda perfecto xD, el mio jajaja, iba para atras xD
Haz clic para expandir...

Que raro a mi no me anda :? que mierda pasara?
 
F

farensis

Newbie Lvl 2
m pone copile error :
1ºSeria Bnderbill en vex de Bnderbille no?:D
2ºMe pone copille error en "Case Ullathorpe" :S

Lo voy a mirar , si algien encuentra el error k lo ponga

EDIT: Me ekiboke xD
1ªSeria Banderbill en vex de banderbille
 
F

farensis

Newbie Lvl 2
tonxes kedaria asin no?
Codigo de Visual Basic:
If UCase$(rdata) = "/HOGAR" Then
If UserList(UserIndex).flags.Muerto = 0 Then
Call SendData(ToIndex, UserIndex, 0, "||¡¡Estas vivo!! Solo puedes ir a tu hogar si estas muerto. " & FONTTYPE_INFO)
Exit Sub
End If
Dim Hog
Dim DeDonde

Hog = UserList(UserIndex).Hogar

Select Case Hog

Case "Ullathorpe"
DeDonde = 1


Case "Nix"
DeDonde = 34



Case "Banderbill"
DeDonde = 61


Case "Lindos"
DeDonde = 62

Case Else
Call SendData(ToIndex, UserIndex, 0, "||Mapa de hogar inválido" & FONTTYPE_FIGHT)
Exit Sub
End Select

Call WarpUserChar(DeDonde, 50, 50, True)
Call SendData(ToIndex, UserIndex, 0, "||Has viajado con éxito a: " & Hog & FONTTYPE_FIGHT)

Call WarpUserChar(UserIndex, DeDonde.Map, DeDonde.X, DeDonde.Y, True)
End If
Exit Sub


Yo lo prove y no m da error al copilar ero una vez dentro pongo /HOGAR y lo va :S , si algien sabe
[/code]
 
Estado
Cerrado para nuevas respuestas.
Arriba