GS-Zone
Facebook Twitter

Contraseña con *, nombres de colores y más Ir al Indice

Reglas del Foro
* Por favor, lee las reglas de los foros de Programación antes de hacer un nuevo tema!

Moderadores: Moderadores de Argentum, Especialistas de Argentum, Especialistas de Programación

8
Este tema se encuentra cerrado.

Nota » 06 Oct 2010 14:52

Buenas tardes necesitaria los siguientes codigos :

1º CODIGO : En el FrmConecct cuando escribo la contraseña aparece en letras o numeros , quisiera que aparesca en *. Les dejo una foto :

Imagen

2º CODIGO : Estos codigos quisiera que aparescan en distintos colores.

A) Quisiera que aparesca en rojo !

Call SendData(ToIndex, UserIndex, 0, "||,'.-Has desactivado el Seguro de Clan-.',." & "~255~0~0~0~0")
Else
Call SendData(ToIndex, UserIndex, 0, "||,'.-Has Activado el Seguro de Clan-.'," & "~255~0~0~0~0")
End If

B) Quisiera que aparesca en rojo !

SendData ToIndex, UserIndex, 0, "||,'.-Has Entrado al Modo Combate-.', " & FONTTYPE_INFO

SendData ToIndex, UserIndex, 0, "||,'.-Has Salido del Modo Combate-.', " & FONTTYPE_INFO

C) Quisiera que aparesca en este color 185,185,0

Call SendData(ToIndex, UserIndex, 0, "||Se cerrará el juego en " & UserList(UserIndex).Counters.Salir & " ." & FONTTYPE_INFO)

3º CODIGO : Quisiera sacar del FrmCrearPersonaje el ElegirHogar. Y que solamente naciera en Ullathorpe.

4º CODIGO : Quisiera un launcher ya que busque busque y no encontre.

Version : 0.11.2

Por ahora son esos codigos, desde ya muchas gracias !.

Salu2
eL LevanTe
Usuario Registrado
40
Newbie [4]
Registrado: Años de membresíaAños de membresíaAños de membresíaAños de membresía
Mensajes: 99
Arriba

Nota » 06 Oct 2010 15:02

1-En las propiedades del textbox, hay una que se llama: Passwordchar, ahi ponele un "*"
2-
A)
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Call SendData(ToIndex, UserIndex, 0, "||,'.-Has desactivado el Seguro de Clan-.',." & "~255~0~0~0~0")
  2. Else
  3. Call SendData(ToIndex, UserIndex, 0, "||,'.-Has Activado el Seguro de Clan-.'," & "~255~0~0~0~0")
  4. End If

Ya tendria que aparecer en rojo.

B)
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. SendData ToIndex, UserIndex, 0, "||,'.-Has Entrado al Modo Combate-.', " & "~255~0~0~0~0"
  2.  
  3. SendData ToIndex, UserIndex, 0, "||,'.-Has Salido del Modo Combate-.', " & "~255~0~0~0~0"
  4.  


C)
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Call SendData(ToIndex, UserIndex, 0, "||Se cerrará el juego en " & UserList(UserIndex).Counters.Salir & " ." & "~185~185~0~0~0"


3-
Fijate en el listbox donde te da las opciones para crear personaje, que tiene varias, nix, bander etc.., borrales todas esas y dejale Ullathorpe ;)

4-Acá tenes los launchers:
http://www.gs-zone.org/ft49968_luncher_autoupdate_100_configurable.html
http://www.gs-zone.org/ft5006_mini_launchersito_fachero_p.html

Saludos.

PointMe. ¿Serás el más votado?
Imagen


Publica tu ao en Ranking AO!
Imagen

© PointMe y Ranking AO by Dex Systems

Seguinos en Facebook: https://www.facebook.com/RankingAo

Cliente y servidor Dx7/Dx8 Optimizados
Midraks
Programming my world
665
Moderador
Registrado: Años de membresíaAños de membresíaAños de membresía
Ubicación: Buenos Aires > Lanus Oeste
Mensajes: 3357
Aportes: 48
Premios: 2
Embajador (2)
Arriba

Nota » 06 Oct 2010 15:07

Osea borro esto ?


ReDim Ciudades(1 To NUMCIUDADES) As String
Ciudades(1) = "Ullathorpe"
Ciudades(2) = "Nix"
Ciudades(3) = "Banderbill"
eL LevanTe
Usuario Registrado
40
Newbie [4]
Registrado: Años de membresíaAños de membresíaAños de membresíaAños de membresía
Mensajes: 99
Arriba

Nota » 06 Oct 2010 15:21

eL LevanTe escribió:Osea borro esto ?


ReDim Ciudades(1 To NUMCIUDADES) As String
Ciudades(1) = "Ullathorpe"
Ciudades(2) = "Nix"
Ciudades(3) = "Banderbill"

Nono, lo que podes hacer es borrar el listbox donde aparecen las ciudades, despues en el codigo buscar:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. UserHogar = lstHogar.List(lstHogar.ListIndex)

Y borrarlo.

Y buscar:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. If UserHogar = "" Then
  2.     MsgBox "Seleccione el hogar del personaje."
  3.     Exit Function
  4. End If


Y borrarlo.

PointMe. ¿Serás el más votado?
Imagen


Publica tu ao en Ranking AO!
Imagen

© PointMe y Ranking AO by Dex Systems

Seguinos en Facebook: https://www.facebook.com/RankingAo

Cliente y servidor Dx7/Dx8 Optimizados
Midraks
Programming my world
665
Moderador
Registrado: Años de membresíaAños de membresíaAños de membresía
Ubicación: Buenos Aires > Lanus Oeste
Mensajes: 3357
Aportes: 48
Premios: 2
Embajador (2)
Arriba

Nota » 06 Oct 2010 15:31

Al crear el personaje, el usuario aparece sin cabeza. Es el error que tengo ahora.

Tambien quisiera hacer que al apretar la Cruz , te lleve al FrmConecct y que no te salga del juego.

Muchas Gracias !
eL LevanTe
Usuario Registrado
40
Newbie [4]
Registrado: Años de membresíaAños de membresíaAños de membresíaAños de membresía
Mensajes: 99
Arriba

Nota » 06 Oct 2010 15:36

eL LevanTe escribió:Al crear el personaje, el usuario aparece sin cabeza. Es el error que tengo ahora.

Tambien quisiera hacer que al apretar la Cruz , te lleve al FrmConecct y que no te salga del juego.

Muchas Gracias !


Pasame tu Sub ConnectUser ( está en el codigo del servidor ), otra cosa, antes de borrar lo que te dije yo, tambien te los creaba sin cabeza?

Para lo de la cruz, lo que tenes que hacer es , en el codigo remplazas lo que tenes por:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. unload frmCrearPersonaje

PointMe. ¿Serás el más votado?
Imagen


Publica tu ao en Ranking AO!
Imagen

© PointMe y Ranking AO by Dex Systems

Seguinos en Facebook: https://www.facebook.com/RankingAo

Cliente y servidor Dx7/Dx8 Optimizados
Midraks
Programming my world
665
Moderador
Registrado: Años de membresíaAños de membresíaAños de membresía
Ubicación: Buenos Aires > Lanus Oeste
Mensajes: 3357
Aportes: 48
Premios: 2
Embajador (2)
Arriba

Nota » 06 Oct 2010 15:42

Si antes de crearlo tambien me creaba sin cabezas.

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Sub ConnectUser(ByVal UserIndex As Integer, Name As String, Password As String)
  2. Dim N As Integer
  3.  
  4. '[Tavo]
  5.  
  6. 'Reseteamos los FLAGS
  7. UserList(UserIndex).flags.escondido = 0
  8. UserList(UserIndex).flags.TargetNPC = 0
  9. UserList(UserIndex).flags.TargetNpcTipo = 0
  10. UserList(UserIndex).flags.TargetObj = 0
  11. UserList(UserIndex).flags.TargetUser = 0
  12. UserList(UserIndex).Char.FX = 0
  13.  
  14.  
  15.  
  16. 'Controlamos no pasar el maximo de usuarios
  17. If NumUsers >= MaxUsers Then
  18.     Call SendData(ToIndex, UserIndex, 0, "ERREl servidor ha alcanzado el maximo de usuarios soportado, por favor vuelva a intertarlo mas tarde.")
  19.     Call CloseSocket(UserIndex)
  20.     Exit Sub
  21. End If
  22.  
  23. '¿Este IP ya esta conectado?
  24. If AllowMultiLogins = 0 Then
  25.     If CheckForSameIP(UserIndex, UserList(UserIndex).ip) = True Then
  26.         Call SendData(ToIndex, UserIndex, 0, "ERRNo es posible usar mas de un personaje al mismo tiempo.")
  27.         Call CloseSocket(UserIndex)
  28.         Exit Sub
  29.     End If
  30. End If
  31.  
  32.  
  33. '¿Existe el personaje?
  34. If FileExist(CharPath & UCase$(Name) & ".chr", vbNormal) = False Then
  35.     Call SendData(ToIndex, UserIndex, 0, "ERREl personaje no existe.")
  36.     Call CloseSocket(UserIndex)
  37.     Exit Sub
  38. End If
  39.  
  40. '¿Es el passwd valido?
  41. If UCase$(Password) <> UCase$(GetVar(CharPath & UCase$(Name) & ".chr", "INIT", "Password")) Then
  42.     Call SendData(ToIndex, UserIndex, 0, "ERRPassword incorrecto.")
  43.     'Call frmMain.Socket2(UserIndex).Disconnect
  44.     Call CloseSocket(UserIndex)
  45.     Exit Sub
  46. End If
  47.  
  48. '¿Ya esta conectado el personaje?
  49. If CheckForSameName(UserIndex, Name) = True Then
  50.     If UserList(NameIndex(Name)).Counters.Saliendo Then
  51.         Call SendData(ToIndex, UserIndex, 0, "ERREl usuario está saliendo.")
  52.     Else
  53.         Call SendData(ToIndex, UserIndex, 0, "ERRPerdon, un usuario con el mismo nombre se há logoeado.")
  54.     End If
  55.     Call CloseSocket(UserIndex)
  56.     Exit Sub
  57. End If
  58.  
  59. 'Cargamos los datos del personaje
  60. Call LoadUserInit(UserIndex, CharPath & UCase$(Name) & ".chr")
  61. Call LoadUserStats(UserIndex, CharPath & UCase$(Name) & ".chr")
  62. 'Call CorregirSkills(UserIndex)
  63.  
  64.  
  65.  
  66.  
  67.  
  68. If Not ValidateChr(UserIndex) Then
  69.     Call SendData(ToIndex, UserIndex, 0, "ERRError en el personaje.")
  70.     Call CloseSocket(UserIndex)
  71.     Exit Sub
  72. End If
  73.  
  74. Call LoadUserReputacion(UserIndex, CharPath & UCase$(Name) & ".chr")
  75.  
  76.  
  77. If UserList(UserIndex).Invent.EscudoEqpSlot = 0 Then UserList(UserIndex).Char.ShieldAnim = NingunEscudo
  78. If UserList(UserIndex).Invent.CascoEqpSlot = 0 Then UserList(UserIndex).Char.CascoAnim = NingunCasco
  79. If UserList(UserIndex).Invent.WeaponEqpSlot = 0 Then UserList(UserIndex).Char.WeaponAnim = NingunArma
  80.  
  81.  
  82. Call UpdateUserInv(True, UserIndex, 0)
  83. Call UpdateUserHechizos(True, UserIndex, 0)
  84.  
  85. If UserList(UserIndex).flags.navegando = 1 Then
  86.      UserList(UserIndex).Char.Body = ObjData(UserList(UserIndex).Invent.BarcoObjIndex).Ropaje
  87.      UserList(UserIndex).Char.Head = 0
  88.      UserList(UserIndex).Char.WeaponAnim = NingunArma
  89.      UserList(UserIndex).Char.ShieldAnim = NingunEscudo
  90.      UserList(UserIndex).Char.CascoAnim = NingunCasco
  91. End If
  92.  
  93.  
  94. If UserList(UserIndex).flags.Paralizado Then
  95.     Call SendData(ToIndex, UserIndex, 0, "PARADOK")
  96. End If
  97.  
  98. 'Feo, esto tiene que ser parche cliente
  99. If UserList(UserIndex).flags.Estupidez = 0 Then Call SendData(ToIndex, UserIndex, 0, "NESTUP")
  100. '
  101.  
  102.  
  103.  
  104. 'Posicion de comienzo
  105. If UserList(UserIndex).Pos.Map = 0 Then
  106.     If UCase$(UserList(UserIndex).Hogar) = "NIX" Then
  107.              UserList(UserIndex).Pos = Nix
  108.     ElseIf UCase$(UserList(UserIndex).Hogar) = "ULLATHORPE" Then
  109.              UserList(UserIndex).Pos = Ullathorpe
  110.     ElseIf UCase$(UserList(UserIndex).Hogar) = "BANDERBILL" Then
  111.              UserList(UserIndex).Pos = Banderbill
  112.     ElseIf UCase$(UserList(UserIndex).Hogar) = "LINDOS" Then
  113.              UserList(UserIndex).Pos = Lindos
  114.     Else
  115.         UserList(UserIndex).Hogar = "ULLATHORPE"
  116.         UserList(UserIndex).Pos = Ullathorpe
  117.     End If
  118. Else
  119.  
  120.    ''TELEFRAG
  121.     If MapData(UserList(UserIndex).Pos.Map, UserList(UserIndex).Pos.X, UserList(UserIndex).Pos.Y).UserIndex <> 0 Then
  122.         ''si estaba en comercio seguro...
  123.         If UserList(MapData(UserList(UserIndex).Pos.Map, UserList(UserIndex).Pos.X, UserList(UserIndex).Pos.Y).UserIndex).ComUsu.DestUsu > 0 Then
  124.             If UserList(UserList(MapData(UserList(UserIndex).Pos.Map, UserList(UserIndex).Pos.X, UserList(UserIndex).Pos.Y).UserIndex).ComUsu.DestUsu).flags.UserLogged Then
  125.                 Call FinComerciarUsu(UserList(MapData(UserList(UserIndex).Pos.Map, UserList(UserIndex).Pos.X, UserList(UserIndex).Pos.Y).UserIndex).ComUsu.DestUsu)
  126.                 Call SendData(ToIndex, UserList(MapData(UserList(UserIndex).Pos.Map, UserList(UserIndex).Pos.X, UserList(UserIndex).Pos.Y).UserIndex).ComUsu.DestUsu, 0, "||Comercio cancelado. El otro usuario se ha desconectado." & FONTTYPE_TALK)
  127.             End If
  128.             If UserList(MapData(UserList(UserIndex).Pos.Map, UserList(UserIndex).Pos.X, UserList(UserIndex).Pos.Y).UserIndex).flags.UserLogged Then
  129.                 Call FinComerciarUsu(MapData(UserList(UserIndex).Pos.Map, UserList(UserIndex).Pos.X, UserList(UserIndex).Pos.Y).UserIndex)
  130.                 Call SendData(ToIndex, MapData(UserList(UserIndex).Pos.Map, UserList(UserIndex).Pos.X, UserList(UserIndex).Pos.Y).UserIndex, 0, "ERRAlguien se ha conectado donde te encontrabas, por favor reconéctate...")
  131.             End If
  132.         End If
  133.         Call CloseSocket(MapData(UserList(UserIndex).Pos.Map, UserList(UserIndex).Pos.X, UserList(UserIndex).Pos.Y).UserIndex)
  134.     End If
  135.    
  136.    
  137.     If UserList(UserIndex).flags.Muerto = 1 Then
  138.         Call Empollando(UserIndex)
  139.     End If
  140. End If
  141.  
  142. If Not MapaValido(UserList(UserIndex).Pos.Map) Then
  143.     Call SendData(ToIndex, UserIndex, 0, "ERREL PJ se encuenta en un mapa invalido.")
  144.     Call CloseSocket(UserIndex)
  145.     Exit Sub
  146. End If
  147.  
  148. 'Nombre de sistema
  149. UserList(UserIndex).Name = Name
  150.  
  151. UserList(UserIndex).Password = Password
  152. 'UserList(UserIndex).ip = frmMain.Socket2(UserIndex).PeerAddress
  153.  
  154. 'Info
  155. Call SendData(ToIndex, UserIndex, 0, "IU" & UserIndex) 'Enviamos el User index
  156.  
  157. Call SendData(ToIndex, UserIndex, 0, "CM" & UserList(UserIndex).Pos.Map & "," & MapInfo(UserList(UserIndex).Pos.Map).MapVersion) 'Carga el mapa
  158. Call SendData(ToIndex, UserIndex, 0, "TM" & MapInfo(UserList(UserIndex).Pos.Map).Music)
  159.  
  160. ''[EL OSO]: TRAIGO ESTO ACA ARRIBA PARA DARLE EL IP!
  161. Set UserList(UserIndex).GuildRef = FetchGuild(UserList(UserIndex).GuildInfo.GuildName)
  162. UserList(UserIndex).Counters.IdleCount = 0
  163. 'Crea  el personaje del usuario
  164. Call MakeUserChar(ToMap, 0, UserList(UserIndex).Pos.Map, UserIndex, UserList(UserIndex).Pos.Map, UserList(UserIndex).Pos.X, UserList(UserIndex).Pos.Y)
  165. Call SendData(ToIndex, UserIndex, 0, "IP" & UserList(UserIndex).Char.charindex)
  166. ''[/el oso]
  167.  
  168. Call UpdateUserMap(UserIndex)
  169. Call SendUserStatsBox(UserIndex)
  170. Call EnviarHambreYsed(UserIndex)
  171.  
  172. Call SendMOTD(UserIndex)
  173.  
  174. If haciendoBK Then
  175.     Call SendData(ToIndex, UserIndex, 0, "BKW")
  176.     Call SendData(ToIndex, UserIndex, 0, "||Servidor> Por favor espera algunos segundos, WorldSave esta ejecutandose." & FONTTYPE_SERVER)
  177. End If
  178.  
  179. If EnPausa Then
  180.     Call SendData(ToIndex, UserIndex, 0, "BKW")
  181.     Call SendData(ToIndex, UserIndex, 0, "||Servidor> Lo sentimos mucho pero el servidor se encuentra actualmente detenido. Intenta ingresar más tarde." & FONTTYPE_SERVER)
  182. End If
  183.  
  184. If EnTesting And UserList(UserIndex).Stats.ELV >= 18 Then
  185.     Call SendData(ToIndex, UserIndex, 0, "ERRServidor en Testing por unos minutos, conectese con PJs de nivel menor a 18. No se conecte con Pjs que puedan resultar importantes por ahora pues pueden arruinarse.")
  186.     Call CloseSocket(UserIndex)
  187.     Exit Sub
  188. End If
  189.  
  190. 'Actualiza el Num de usuarios
  191. 'DE ACA EN ADELANTE GRABA EL CHARFILE, OJO!
  192. NumUsers = NumUsers + 1
  193. UserList(UserIndex).flags.UserLogged = True
  194.  
  195. 'usado para borrar Pjs
  196. Call WriteVar(CharPath & UserList(UserIndex).Name & ".chr", "INIT", "Logged", "1")
  197.  
  198.  
  199. Call EstadisticasWeb.Informar(CANTIDAD_ONLINE, NumUsers)
  200.  
  201. MapInfo(UserList(UserIndex).Pos.Map).NumUsers = MapInfo(UserList(UserIndex).Pos.Map).NumUsers + 1
  202.  
  203. If UserList(UserIndex).Stats.SkillPts > 0 Then
  204.     Call EnviarSkills(UserIndex)
  205.     Call EnviarSubirNivel(UserIndex, UserList(UserIndex).Stats.SkillPts)
  206. End If
  207.  
  208. If NumUsers > DayStats.MaxUsuarios Then DayStats.MaxUsuarios = NumUsers
  209.  
  210. If NumUsers > recordusuarios Then
  211.     Call SendData(ToAll, 0, 0, "||Record de usuarios conectados simultaniamente." & "Hay " & NumUsers & " usuarios." & FONTTYPE_INFO)
  212.     recordusuarios = NumUsers
  213.     Call WriteVar(IniPath & "Server.ini", "INIT", "Record", str(recordusuarios))
  214.    
  215.     Call EstadisticasWeb.Informar(RECORD_USUARIOS, recordusuarios)
  216. End If
  217.  
  218. UserList(UserIndex).flags.EsRolesMaster = EsRolesMaster(Name)
  219. If EsAdmin(Name) Then
  220.     UserList(UserIndex).flags.Privilegios = 4
  221.     Call LogGM(UserList(UserIndex).Name, "Se conecto con ip:" & UserList(UserIndex).ip, False)
  222. ElseIf EsDios(Name) Then
  223.     UserList(UserIndex).flags.Privilegios = 3
  224.     Call LogGM(UserList(UserIndex).Name, "Se conecto con ip:" & UserList(UserIndex).ip, False)
  225. ElseIf EsSemiDios(Name) Then
  226.     UserList(UserIndex).flags.Privilegios = 2
  227.     Call LogGM(UserList(UserIndex).Name, "Se conecto con ip:" & UserList(UserIndex).ip, False)
  228. ElseIf EsConsejero(Name) Then
  229.     UserList(UserIndex).flags.Privilegios = 1
  230.     Call LogGM(UserList(UserIndex).Name, "Se conecto con ip:" & UserList(UserIndex).ip, True)
  231. Else
  232.     UserList(UserIndex).flags.Privilegios = 0
  233. End If
  234.  
  235. If UserList(UserIndex).NroMacotas > 0 Then
  236.     Dim i As Integer
  237.     For i = 1 To MAXMASCOTAS
  238.         If UserList(UserIndex).MascotasType(i) > 0 Then
  239.             UserList(UserIndex).MascotasIndex(i) = SpawnNpc(UserList(UserIndex).MascotasType(i), UserList(UserIndex).Pos, True, True)
  240.            
  241.             If UserList(UserIndex).MascotasIndex(i) <= MAXNPCS Then
  242.                   Npclist(UserList(UserIndex).MascotasIndex(i)).MaestroUser = UserIndex
  243.                   Call FollowAmo(UserList(UserIndex).MascotasIndex(i))
  244.             Else
  245.                   UserList(UserIndex).MascotasIndex(i) = 0
  246.             End If
  247.         End If
  248.     Next i
  249. End If
  250.  
  251.  
  252. If UserList(UserIndex).flags.navegando = 1 Then Call SendData(ToIndex, UserIndex, 0, "NAVEG")
  253.  
  254. If Criminal(UserIndex) Then
  255.     'Call SendData(ToIndex, UserIndex, 0, "||Miembro de las fuerzas del caos ,'.-Has Desactivado el Seguro-.'," & FONTTYPE_FIGHT)
  256.     Call SendData(ToIndex, UserIndex, 0, "SEGOFF")
  257.     UserList(UserIndex).flags.Seguro = False
  258. Else
  259.     UserList(UserIndex).flags.Seguro = True
  260.     Call SendData(ToIndex, UserIndex, 0, "SEGON")
  261. End If
  262.  
  263. If ServerSoloGMs > 0 Then
  264.     If UserList(UserIndex).flags.Privilegios < ServerSoloGMs Then
  265.         Call SendData(ToIndex, UserIndex, 0, "ERRServidor restringido a administradores de jerarquia mayor o igual a: " & ServerSoloGMs & ". Por favor intente en unos momentos.")
  266.         Call CloseSocket(UserIndex)
  267.         Exit Sub
  268.     End If
  269. End If
  270.  
  271. Call SendData(ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "CFX" & UserList(UserIndex).Char.charindex & "," & FXWARP & "," & 0)
  272. ' [GS] Un apoyo, para que no se buegen los mapas  pero por que se bugean
  273. Call WarpUserChar(UserIndex, UserList(UserIndex).Pos.Map, UserList(UserIndex).Pos.X, UserList(UserIndex).Pos.Y, False)
  274. ' [/GS]
  275. Call SendData(ToIndex, UserIndex, 0, "LOGGED")
  276.  
  277.  
  278. Call SendGuildNews(UserIndex)
  279.  
  280. If UserList(UserIndex).flags.NoActualizado Then
  281.     Call SendData(ToIndex, UserIndex, 0, "REAU")
  282. End If
  283.  
  284.  
  285. If Lloviendo Then Call SendData(ToIndex, UserIndex, 0, "LLU")
  286.  
  287. Call MostrarNumUsers
  288.  
  289. N = FreeFile
  290. Open App.Path & "\logs\numusers.log" For Output As N
  291. Print #N, NumUsers
  292. Close #N
  293.  
  294. N = FreeFile
  295. 'Log
  296. Open App.Path & "\logs\Connect.log" For Append Shared As #N
  297. Print #N, UserList(UserIndex).Name & " ha entrado al juego. UserIndex:" & UserIndex & " " & Time & " " & Date
  298. Close #N
  299.  
  300.  
  301. End Sub






Y Lo de : unload frmCrearPersonaje ( NO FUNCIONA )
Última edición por Franeg95 el 06 Oct 2010 16:19, editado 1 vez en total
Razón: Utiliza los BBCODE
eL LevanTe
Usuario Registrado
40
Newbie [4]
Registrado: Años de membresíaAños de membresíaAños de membresíaAños de membresía
Mensajes: 99
Arriba

Nota » 08 Oct 2010 14:13

Al parecer solucionaste el tema ya que aca pusiste nuevos problemas:

ft50951_codigos.html

Cierro este.

Cualquier cosa MP.
Franeg95
Aguante River Plate ! ! !
909
Moderador
Registrado: Años de membresíaAños de membresíaAños de membresía
Ubicación: Villa adelina, Vicente Lopez.
Mensajes: 14427
Aportes: 305
Premios: 10
Señor Moderador (3) Señor Reglamento (1) Aportes (2) Embajador (3) Detector de Bugs (1)
Arriba
Este tema se encuentra cerrado.

Volver a AO 0.11.2 / AOReady

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados