Viajar Castillo

» 20 Ene 2012 10:55

Hola yo quiero que cuando los castillos los tengas conquistados se pueda viajar Style Tpao.
Asi me parece que seria:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

If UCase$(Left$(rData, 10)) = "/CASTILLO " Then
        rData = Right$(rData, Len(rData) - 10)
      
      If UserList(UserIndex).GuildIndex > 0 Then
       
       Select Case UCase(rData)
       
       Case "SUR"
        If UserList(UserIndex).GuildIndex = GetVar(CastPath, "CASTILLOS", "IndexClanSur") Then
         WarpUserChar UserIndex, 10, 50, 58, True
         SendData SendTarget.ToIndex, UserIndex, 0, "||Has viajado al castillo sur!" & FONTTYPE_INFO
        Else
         SendData SendTarget.ToIndex, UserIndex, 0, "||Tu clan no tiene conquistado el castillo sur, por ende no puedes viajar a este." & FONTTYPE_INFO
        End If
       Case "NORTE"
        If UserList(UserIndex).GuildIndex = GetVar(CastPath, "CASTILLOS", "IndexClanNorte") Then
         WarpUserChar UserIndex, 12, 50, 58, True
         SendData SendTarget.ToIndex, UserIndex, 0, "||Has viajado al castillo norte!" & FONTTYPE_INFO
        Else
         SendData SendTarget.ToIndex, UserIndex, 0, "||Tu clan no tiene conquistado el castillo norte, por ende no puedes viajar a este." & FONTTYPE_INFO
        End If
       Case "ESTE"
        If UserList(UserIndex).GuildIndex = GetVar(CastPath, "CASTILLOS", "IndexClanEste") Then
         WarpUserChar UserIndex, 9, 50, 58, True
         SendData SendTarget.ToIndex, UserIndex, 0, "||Has viajado al castillo este!" & FONTTYPE_INFO
        Else
         SendData SendTarget.ToIndex, UserIndex, 0, "||Tu clan no tiene conquistado el castillo este, por ende no puedes viajar a este." & FONTTYPE_INFO
        End If
       Case "OESTE"
                If UserList(UserIndex).GuildIndex = GetVar(CastPath, "CASTILLOS", "IndexClanOeste") Then
         WarpUserChar UserIndex, 11, 50, 58, True
         SendData SendTarget.ToIndex, UserIndex, 0, "||Has viajado al castillo oeste!" & FONTTYPE_INFO
        Else
         SendData SendTarget.ToIndex, UserIndex, 0, "||Tu clan no tiene conquistado el castillo oeste, por ende no puedes viajar a este." & FONTTYPE_INFO
        End If
      End Select
      Else
      SendData SendTarget.ToIndex, UserIndex, 0, "||No perteneces a ningún clan." & FONTTYPE_INFO
    End If
    End If

Pero mi problema es COMO HAGO PARA QUE EN CLIENTE AL PONER /CASTILLO TE SALTE EL FORMULARIO,YO YA LO TENGO EL FORMULARIO ECHO.

» 20 Ene 2012 11:05

ELNOMBREDELFORM.SHOW

creo
no se si era para cerrarlo o abrirlo el show
creo que para abrir porque show es mostrar

Osea vos pones el comando y despues de eso pones ELNOMBREDELFORM.SHOW

Yo solo te dije como se abre el form

, xq lo del coamdno ni idea
Seguramente vas al CASE y abajo le pones ELNOMBREDELFORM.SHOW

» 20 Ene 2012 13:24

FrmCastillos.show , Frmmain (el FRRMAIN es para qeu no se cierre cada ves que clickias en otro lugar).

» 20 Ene 2012 13:34

Ilaisa escribió:FrmCastillos.show , Frmmain (el FRRMAIN es para qeu no se cierre cada ves que clickias en otro lugar).

Si esta bien pero ponele,QUE EN LA IMAGEN DIGA VIAJAR CASTILLO SUR VIAJAR CASTILLO NORTE ETC.
Que hago un Command Boton ? y que le pongo adentro para que abra lo que tiene que abrir.

» 20 Ene 2012 13:48

Mira facil , creas un frm en el cliente le pones 4 commands bottons o 4 labels cada uno que diga Viajar a x Casti.

Desp dentro del que dice castillo sur le pones dentro del code en esa parte.

call senddata("/CASTILLO SUR").

y asi con los demas entendes?.

Viajar Castillo

¿Quién está conectado?