Mensajes

[Hola a todos mi duda es esta quisiera saber si para conectar 2 pc por winsock este necesita de hamachi, y si es haci quisiera saber como no hacerlo ya que necesito conectar mas del limite de PCs que permite hamachi.Saludos!]

Hola a todos mi duda es esta quisiera saber si para conectar 2 pc por winsock este necesita de hamachi, y si es haci quisiera saber como no hacerlo ya que necesito conectar mas del limite de PCs que permite hamachi.

Saludos!

Hola que tal.

Quisas el titulo les confunda un poco, pero les explicare que es lo que necesito.

Bueno estoy en la creacion de un juego multijugador, donde los datos se guardan en una BD, entonces quisiera saber como podria hacer para guardar los items comprados por el usuario es decir con el monto de objetos tambien.

Ejemplo grafico:

Código [Seleccionar] Expandir


[center]
============================
======= TIENDA VIRTUAL =========
============================
Objeto #1  Objeto #2
┌────┐    ┌────┐
│┌──┐│    │┌──┐│
││    ││    ││    ││
│└──┘│    │└──┘│
└────┘    └────┘               
[/center]
Si compra el Objeto 1 como hago para guardar la cantidad de objetos que tiene y la id del objeto, es decir me gustaria hacer una lista en la bd pero no se si es buena idea ya que se mu poco de BD.

Mi otra idea seria crear los objetos por archivos es decir en una carpeta crear todos los objetos disponibles y que estos tenga la info del objeto y la cantidad que el jugador tenga, pero esta idea es muy mala ya que el juego estaria muy vulnerable a hacks! :/

Espero me hayan entendido y me puedan ayudar a resolver este dilema que me come el cerebro! xD

~Saludos!

Bueno por el momento programo en VB6 ya que se me hace muy facil hacer la comunicacion del servidor y el cliente, pero quisas cambie de lengueje nadie sabe xD.

Y solo sera para Windows[XP, Vista, 7].

Muchas gracias amigo, tomare en cuenta todas tus opiniones y sugerencias, muchas gracias por comentar, y la verdad es que si tratare de hacerles muchos Plus al proyecto y dare lo mejor de mi .

Saludos!~

[Hola amigos de ElHacker.Bueno estoy creando un juego masivo multijugador en vb6 llamado BrainMind, un juego para demostrar que tanto sabes y echarselo en cara a otros jugadores del mundo, en si el juego es bastanstante entretenido y adictivo, aun no esta publicado por que aun esta en desarollo.Mi petición en esta categoria, es la siguiente; Busco personas que les gustaria apoyarme con el proyecto, es decir en la parte grafica ya que el juego aun no tiene una buen interfaz grafica.Aqui podras tener mas informacion del proyectohttp://foro.elhacker.net/juegos_y_consolas/desarollando_brainmind_iquestque_tanto_sabes-t430091.0.htmlSi te interesa enviame un mensaje privado por aqui o por mi correocensuradoAdemas de eso me gustaria que solo me enviaces tu mensaje si tienes una buena experiencia con diseno grafico.Gracias por su antención y espero verlos pronto en BrainMind]

Hola amigos de ElHacker.


Bueno estoy creando un juego masivo multijugador en vb6 llamado BrainMind, un juego para demostrar que tanto sabes y echarselo en cara a otros jugadores del mundo, en si el juego es bastanstante entretenido y adictivo, aun no esta publicado por que aun esta en desarollo.

Mi petición en esta categoria, es la siguiente; Busco personas que les gustaria apoyarme con el proyecto, es decir en la parte grafica ya que el juego aun no tiene una buen interfaz grafica.

Aqui podras tener mas informacion del proyecto

http://foro.elhacker.net/juegos_y_consolas/desarollando_brainmind_iquestque_tanto_sabes-t430091.0.html

Si te interesa enviame un mensaje privado por aqui o por mi correo
censurado

Ademas de eso me gustaria que solo me enviaces tu mensaje si tienes una buena experiencia con diseno grafico.

Gracias por su antención y espero verlos pronto en BrainMind


Mod: Prohibido poner correos en posts.

Te recomiendo usar el Control FlexGrid puedes controlar mejor el listado, con columnas y tambien puedes guardar y cargar los datos a este FlexGrid!.

Si aun quieres usar el List, te recomiendo que separes la los datos para que al cargarlos no tengas problemas en este!

Y como dice nuestro amigo seba123neo para recorrer los items de un ListBox usa este simple codigo

Código (vb) [Seleccionar] Expandir



Sub LoadList(List As ListBox, FileName As String)
Dim LineaTexto As String
Open App.Path & "\" & FileName For Input As #1

While Not EOF(1)
Line Input #1, LineaTexto
List.AddItems LineaTexto, 0
Wend

Close #1
End Sub

Sub SaveList(List As ListBox, FileName As String)
Dim i As Integer
Open App.Path & "\" & FileName For Output As #1

For i = 0 To List.ListCount
Print #1, List.Selected
Next i
Close #1
End Sub



Pega este Codigo donde quieras:

Para llamarlos sera alo como esto:

Para Guardar usa este:
Call SaveList(ListBox1,"archivo.txt") o SaveList ListBox1, "archivo.txt"



Para Cargar usa este:
Call LoadList(ListBox1,"archivo.txt") o LoadSaveList ListBox1, "archivo.txt"

Espero que te sirva como ami

[Post Oficial de BrainMind]

Post Oficial de BrainMind

BrainMind es un juego de estrategias multijugador, en este modo de juego deberas ir contestando preguntas de diferentes temas demostrando tu capacidad y tu sabiduria de las cosas.
Actualmente el juego consta con las siguientes caracteristicas destacables:

-Niveles: Que aumentan por tus partidas ganadas.
-Sistema de puntos: Acumula puntos en el juego para comprar cosas en la tienda.
-Tienda: Donde encontraras diversas cosas para el juego, tanto ventajas, como avatares para personalizar tu perfil.
-Sistema de Usuarios: Cada jugador tiene su propio perfil, y puede ver los perfiles de otros usuarios conectados.
-Agrega amigos para mejorar tu experiencia como conocedor de temas en general.
-Crea clanes para batallar en competencia de clanes.
-Chatea en tiempo real con amigos y en el chat global.

Este juego te permite combatir con amigos y usuarios demostrando tus habilidades de conocimientos en bastos temas que el juego predefina!.

Estas son algunas de las muchas caracteristicas que BrainMind ofrece. Este es un juego gratuito y facil de manejar a la hora de ejecutarse.

ScreenShots

Formulario de Inicio:

Descarga

Proximamente...

Creadores Por El Momento:

• brian1511[Zodius] (PROGRAMACIÓN)
  

Notas:

Espero que les motive a apoyarme a terminar este proyecto que estoy realizando en Visual Basic 6. Me gustaria mucho que me apoyacen con ayuda en la parte grafica del juego [strike](ya que soy bueno haciendo el juego pero no haciendolo bonito)[/strike], estoy abierto a sugerencias y solicitudes de ayuda.

Hola amigo bueno esto es lo que uso yo y me funciona a la prefeccion espero que te sirva

Puedes ponerlo en un modulo.bas o en el mismo codigo del form

Código [Seleccionar] Expandir


Sub AbrirLista(List As ListBox, FileName As String)
Dim LineaTexto As String
Open FileName For Input As #1

While Not EOF(1)
Line Input #1, LineaTexto
List.AddItem LineaTexto, 0
Wend

Close #1
End Sub


Para usarlo solo haces la llamada de la funcion ejemplo:

Código [Seleccionar] Expandir

Call AbrirLista(ListBox1,App.Path & "\archivo.txt"

Donde Dice "ListBox1" es donde tienes que poner le nombre del List que quieres que se carge el Archivo txt!

Y donde dice App.Path & "\archivo.txt" es donde pondras donde se encuentra el txt
recuerda que App.Path significa a la locacion de donde se encuentre el Programa es decir que si el Programa se encuentra en el escritorio dentro de una carperta llamada "Programa" App.Path tendria como valor = "C:\Desktop\Programa" por eso se pone primero App.Path para indicar la locacion del EXE y despues el "\archivo.txt", si el archivo.txt estubiece en una sub-carpeta dentro de la Carpteta Programa solo tendrias que poner "\SubCarpeta\archivo.txt".

Espero haberte ayudado y que pudices comprender como es que se carga una lista de texto .txt al ListBox

Bueno eso es lo que se me envia a los 2 chats el del Servidor y al del Cliente un codigo parecido a ese!,

Este es el codigo que ise para hacer lo de los colores pero no me funciona:

[spoiler]

Código (vb) [Seleccionar] Expandir


Public Sub Global_Chat(Level As String, User As String, Msg As String)
Dim Color As Long
Dim Text As String

Select Case Level

Case "0":
Color = RGB(0, 0, 0)
Case "1":
Color = RGB(128, 128, 128)
Case "2":
Color = RGB(30, 144, 255)
Case "3":
Color = RGB(255, 69, 0)
Case "4":
Color = RGB(0, 128, 0)
Case "5":
Color = RGB(255, 255, 0)
End Select

frmServer.txtRTF.Text = User & " : " & Msg

With frmServer.txtRTF
    'Selecciona todo
    .SelStart = .Find(User)
    .SelLength = Len(User)
    .SelColor = Color
    .Font.Bold = True
End With

frmServer.txtChat.TextRTF = frmServer.txtChat.TextRTF & frmServer.txtRTF.TextRTF & vbNewLine

For i% = 1 To frmServer.Winsock1().UBound
        Select Case frmServer.Winsock1(i%).State
            Case Is = sckConnected
                frmServer.Winsock1(i%).SendData "GCHAT||" & frmServer.txtChat.TextRTF
                DoEvents%
            Case Else
        End Select
    Next i%

End Sub

[/spoiler]

Y lo que resivo es un codigo del color que se supone que deberia de ir solo el user y el mensaje

[brian1511]

Lo que quiero es que al servidor recibir los datos, si el usuario que envio el mensaje es digamos de rango 1 pues el color de su user sera de color Gris pero si es 2 seria de color rojo y haci sucesivamente, entonces quiero que el servidor envie a todos los chats el color del usuario mas su mensaje, ejemplo:

brian1511 : Este es mi mensaje!!

Gracias por responder tan rapido