GS-Zone
Facebook Twitter

Barritas desactulizadas 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

2

Nota » 05 Mar 2011 19:45

fiuuf dios.. necesito una mano gente ! toy hace mas de 1 año con esta mierd :@

cundo sos nivel maximo SE dejan de actulizar las barritas de estado el oro y el label de nivel :@

ejenplo:


logeas un pj lv 10.. con 0/100 de vida.. osea MUERTO

logeas el pj lv maximo y tiene 300/300 de vida... PERO...

1. el label dice 10

2.el oro dice : "lo mismo q tenia el lv 10" ( hastas q tiras 1 moneda )

3.la barrita MANSHP.. el shape.. se qda vacio..

4. la mana pasa igual

5. por mas q potees la barrita sigue igual (la vida si cambia pero no la shp )

6. MEDITANDO SI SUBE LA BARRITA DE LA MADNA

7. si tu otr pj estaba muerto y en el lv maximo tenes la shp en VACIO.. te dice EESTAS MUERTO -.-" osea q no podes jugar

mmmmmmmm

es bastante tedioso para los users :S me pide nq lo arregle urgente u.u.

y el tema es que intente de TODO.. lo unico que se refiere al LEVEL MAX ES

"MAX_ELV" y se usa en solo 2 cosas.. :S en el CHECKUSERLVL

q dice IF MAX ELV THEN EXP = 0 .. ELU = 0

(simplificado xd )

intente poniendo el MAX ELV.. en 50

y en donde decia MAX ELV PUSE 49...

osea para que no tenga nada qver el MAX ELV..

pero bueno tmp funciona u.u !!

asi que buenooo por ahora lo unico que se

es que cuando la
EXP SE PONE EN = 0 Y LA ELU EN = 0 Y EL LABEL DE EXP EN "NIVELMAXIMO" ahi es cuando se caga todo :S

por q si yo pongo MAX _ELV 100 .. hasta el lv 100 no se caga :S
FlashBang
Usuario re mankeado xd
81
Aprendiz [1]
Registrado: Años de membresíaAños de membresía
Ubicación: CABA
Mensajes: 204
Aportes: 4
Premios: 1
Embajador (1)
Arriba

Nota » 20 Mar 2011 20:37

Usa este sub:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Sub ConnectUser(ByVal UserIndex As Integer, ByRef name As String, ByRef Password As String)
  2. '***************************************************
  3. 'Autor: Unknown (orginal version)
  4. 'Last Modification: 12/06/2009
  5. '26/03/2009: ZaMa - Agrego por default que el color de dialogo de los dioses, sea como el de su nick.
  6. '12/06/2009: ZaMa - Agrego chequeo de nivel al loguear
  7. '***************************************************
  8. Dim N As Integer
  9. Dim tStr As String
  10.  
  11. If UserList(UserIndex).flags.UserLogged Then
  12.     Call LogCheating("El usuario " & UserList(UserIndex).name & " ha intentado loguear a " & name & " desde la IP " & UserList(UserIndex).ip)
  13.    
  14.     'Kick player ( and leave character inside :D )!
  15.     Call CloseSocketSL(UserIndex)
  16.     Call Cerrar_Usuario(UserIndex)
  17.    
  18.     Exit Sub
  19. End If
  20.  
  21. 'Reseteamos los FLAGS
  22. UserList(UserIndex).flags.Escondido = 0
  23. UserList(UserIndex).flags.TargetNPC = 0
  24. UserList(UserIndex).flags.TargetNpcTipo = eNPCType.Comun
  25. UserList(UserIndex).flags.TargetObj = 0
  26. UserList(UserIndex).flags.TargetUser = 0
  27. UserList(UserIndex).Char.FX = 0
  28.  
  29. 'Controlamos no pasar el maximo de usuarios
  30. If NumUsers >= MaxUsers Then
  31.     Call WriteErrorMsg(UserIndex, "El servidor ha alcanzado el maximo de usuarios soportado, por favor vuelva a intertarlo mas tarde.")
  32.     Call FlushBuffer(UserIndex)
  33.     Call CloseSocket(UserIndex)
  34.     Exit Sub
  35. End If
  36.  
  37. '¿Este IP ya esta conectado?
  38. If AllowMultiLogins = 0 Then
  39.     If CheckForSameIP(UserIndex, UserList(UserIndex).ip) = True Then
  40.         Call WriteErrorMsg(UserIndex, "No es posible usar mas de un personaje al mismo tiempo.")
  41.         Call FlushBuffer(UserIndex)
  42.         Call CloseSocket(UserIndex)
  43.         Exit Sub
  44.     End If
  45. End If
  46.  
  47. '¿Existe el personaje?
  48. If Not FileExist(CharPath & UCase$(name) & ".chr", vbNormal) Then
  49.     Call WriteErrorMsg(UserIndex, "El personaje no existe.")
  50.     Call FlushBuffer(UserIndex)
  51.     Call CloseSocket(UserIndex)
  52.     Exit Sub
  53. End If
  54.  
  55. '¿Es el passwd valido?
  56. If UCase$(Password) <> UCase$(GetVar(CharPath & UCase$(name) & ".chr", "INIT", "Password")) Then
  57.     Call WriteErrorMsg(UserIndex, "Password incorrecto.")
  58.     Call FlushBuffer(UserIndex)
  59.     Call CloseSocket(UserIndex)
  60.     Exit Sub
  61. End If
  62.  
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1.  
  2. '¿Ya esta conectado el personaje?
  3. If CheckForSameName(name) Then
  4.     If UserList(NameIndex(name)).Counters.Saliendo Then
  5.         Call WriteErrorMsg(UserIndex, "El usuario está saliendo.")
  6.     Else
  7.         Call WriteErrorMsg(UserIndex, "Perdón, un usuario con el mismo nombre se ha logueado.")
  8.     End If
  9.     Call FlushBuffer(UserIndex)
  10.     Call CloseSocket(UserIndex)
  11.     Exit Sub
  12. End If
  13.  
  14. 'Reseteamos los privilegios
  15. UserList(UserIndex).flags.Privilegios = 0
  16.  
  17. 'Vemos que clase de user es (se lo usa para setear los privilegios al loguear el PJ)
  18. If EsAdmin(name) Then
  19.     UserList(UserIndex).flags.Privilegios = UserList(UserIndex).flags.Privilegios Or PlayerType.Admin
  20.     Call LogGM(name, "Se conecto con ip:" & UserList(UserIndex).ip)
  21. ElseIf EsDios(name) Then
  22.     UserList(UserIndex).flags.Privilegios = UserList(UserIndex).flags.Privilegios Or PlayerType.Dios
  23.     Call LogGM(name, "Se conecto con ip:" & UserList(UserIndex).ip)
  24. ElseIf EsSemiDios(name) Then
  25.     UserList(UserIndex).flags.Privilegios = UserList(UserIndex).flags.Privilegios Or PlayerType.SemiDios
  26.     Call LogGM(name, "Se conecto con ip:" & UserList(UserIndex).ip)
  27. ElseIf EsConsejero(name) Then
  28.     UserList(UserIndex).flags.Privilegios = UserList(UserIndex).flags.Privilegios Or PlayerType.Consejero
  29.     Call LogGM(name, "Se conecto con ip:" & UserList(UserIndex).ip)
  30. Else
  31.     UserList(UserIndex).flags.Privilegios = UserList(UserIndex).flags.Privilegios Or PlayerType.User
  32.     UserList(UserIndex).flags.AdminPerseguible = True
  33. End If
  34.  
  35. 'Add RM flag if needed
  36. If EsRolesMaster(name) Then
  37.     UserList(UserIndex).flags.Privilegios = UserList(UserIndex).flags.Privilegios Or PlayerType.RoleMaster
  38. End If
  39.  
  40. If ServerSoloGMs > 0 Then
  41.     If (UserList(UserIndex).flags.Privilegios And (PlayerType.Admin Or PlayerType.Dios Or PlayerType.SemiDios Or PlayerType.Consejero)) = 0 Then
  42.         Call WriteErrorMsg(UserIndex, "Servidor restringido a administradores. Por favor reintente en unos momentos.")
  43.         Call FlushBuffer(UserIndex)
  44.         Call CloseSocket(UserIndex)
  45.         Exit Sub
  46.     End If
  47. End If
  48.  
  49. 'Cargamos el personaje
  50. Dim Leer As New clsIniReader
  51.  
  52. Call Leer.Initialize(CharPath & UCase$(name) & ".chr")
  53.  
  54. 'Cargamos los datos del personaje
  55. Call LoadUserInit(UserIndex, Leer)
  56.  
  57. Call LoadUserStats(UserIndex, Leer)
  58.  
  59. If Not ValidateChr(UserIndex) Then
  60.     Call WriteErrorMsg(UserIndex, "Error en el personaje.")
  61.     Call CloseSocket(UserIndex)
  62.     Exit Sub
  63. End If
  64.  
  65. Call LoadUserReputacion(UserIndex, Leer)
  66.  
  67. Set Leer = Nothing
  68.  
  69. If UserList(UserIndex).Invent.EscudoEqpSlot = 0 Then UserList(UserIndex).Char.ShieldAnim = NingunEscudo
  70. If UserList(UserIndex).Invent.CascoEqpSlot = 0 Then UserList(UserIndex).Char.CascoAnim = NingunCasco
  71. If UserList(UserIndex).Invent.WeaponEqpSlot = 0 Then UserList(UserIndex).Char.WeaponAnim = NingunArma
  72.  
  73. If (UserList(UserIndex).flags.Muerto = 0) Then
  74.     UserList(UserIndex).flags.SeguroResu = False
  75.     Call WriteResuscitationSafeOff(UserIndex)
  76. Else
  77.     UserList(UserIndex).flags.SeguroResu = True
  78.     Call WriteResuscitationSafeOn(UserIndex)
  79. End If
  80.  
  81. Call UpdateUserInv(True, UserIndex, 0)
  82. Call UpdateUserHechizos(True, UserIndex, 0)
  83.  
  84. If UserList(UserIndex).flags.Paralizado Then
  85.     Call WriteParalizeOK(UserIndex)
  86. End If
  87.  
  88. ''
  89. 'TODO : Feo, esto tiene que ser parche cliente
  90. If UserList(UserIndex).flags.Estupidez = 0 Then
  91.     Call WriteDumbNoMore(UserIndex)
  92. End If
  93.  
  94. 'Posicion de comienzo
  95. If UserList(UserIndex).Pos.map = 0 Then
  96.     Select Case UserList(UserIndex).Hogar
  97.         Case eCiudad.cNix
  98.             UserList(UserIndex).Pos = Nix
  99.         Case eCiudad.cUllathorpe
  100.             UserList(UserIndex).Pos = Ullathorpe
  101.         Case eCiudad.cBanderbill
  102.             UserList(UserIndex).Pos = Banderbill
  103.         Case eCiudad.cLindos
  104.             UserList(UserIndex).Pos = Lindos
  105.         Case eCiudad.cArghal
  106.             UserList(UserIndex).Pos = Arghal
  107.         Case Else
  108.             UserList(UserIndex).Hogar = eCiudad.cUllathorpe
  109.             UserList(UserIndex).Pos = Ullathorpe
  110.     End Select
  111. Else
  112.     If Not MapaValido(UserList(UserIndex).Pos.map) Then
  113.         Call WriteErrorMsg(UserIndex, "EL PJ se encuenta en un mapa invalido.")
  114.         Call FlushBuffer(UserIndex)
  115.         Call CloseSocket(UserIndex)
  116.         Exit Sub
  117.     End If
  118. End If
  119.  
  120. 'Tratamos de evitar en lo posible el "Telefrag". Solo 1 intento de loguear en pos adjacentes.
  121. 'Codigo por Pablo (ToxicWaste) y revisado por Nacho (Integer), corregido para que realmetne ande y no tire el server por Juan Martín Sotuyo Dodero (Maraxus)
  122. If MapData(UserList(UserIndex).Pos.map, UserList(UserIndex).Pos.X, UserList(UserIndex).Pos.Y).UserIndex <> 0 Or MapData(UserList(UserIndex).Pos.map, UserList(UserIndex).Pos.X, UserList(UserIndex).Pos.Y).NpcIndex <> 0 Then
  123.     Dim FoundPlace As Boolean
  124.     Dim esAgua As Boolean
  125.     Dim tX As Long
  126.     Dim tY As Long
  127.    
  128.     FoundPlace = False
  129.     esAgua = HayAgua(UserList(UserIndex).Pos.map, UserList(UserIndex).Pos.X, UserList(UserIndex).Pos.Y)
  130.    
  131.     For tY = UserList(UserIndex).Pos.Y - 1 To UserList(UserIndex).Pos.Y + 1
  132.         For tX = UserList(UserIndex).Pos.X - 1 To UserList(UserIndex).Pos.X + 1
  133.             If esAgua Then
  134.                 'reviso que sea pos legal en agua, que no haya User ni NPC para poder loguear.
  135.                 If LegalPos(UserList(UserIndex).Pos.map, tX, tY, True, False) Then
  136.                     FoundPlace = True
  137.                     Exit For
  138.                 End If
  139.             Else
  140.                 'reviso que sea pos legal en tierra, que no haya User ni NPC para poder loguear.
  141.                 If LegalPos(UserList(UserIndex).Pos.map, tX, tY, False, True) Then
  142.                     FoundPlace = True
  143.                     Exit For
  144.                 End If
  145.             End If
  146.         Next tX
  147.        
  148.         If FoundPlace Then _
  149.             Exit For
  150.     Next tY
  151.    
  152.     If FoundPlace Then 'Si encontramos un lugar, listo, nos quedamos ahi
  153.         UserList(UserIndex).Pos.X = tX
  154.         UserList(UserIndex).Pos.Y = tY
  155.     Else
  156.         'Si no encontramos un lugar, sacamos al usuario que tenemos abajo, y si es un NPC, lo pisamos.
  157.         If MapData(UserList(UserIndex).Pos.map, UserList(UserIndex).Pos.X, UserList(UserIndex).Pos.Y).UserIndex <> 0 Then
  158.             'Si no encontramos lugar, y abajo teniamos a un usuario, lo pisamos y cerramos su comercio seguro
  159.             If UserList(MapData(UserList(UserIndex).Pos.map, UserList(UserIndex).Pos.X, UserList(UserIndex).Pos.Y).UserIndex).ComUsu.DestUsu > 0 Then
  160.                 'Le avisamos al que estaba comerciando que se tuvo que ir.
  161.                 If UserList(UserList(MapData(UserList(UserIndex).Pos.map, UserList(UserIndex).Pos.X, UserList(UserIndex).Pos.Y).UserIndex).ComUsu.DestUsu).flags.UserLogged Then
  162.                     Call FinComerciarUsu(UserList(MapData(UserList(UserIndex).Pos.map, UserList(UserIndex).Pos.X, UserList(UserIndex).Pos.Y).UserIndex).ComUsu.DestUsu)
  163.                     Call WriteConsoleMsg(UserList(MapData(UserList(UserIndex).Pos.map, UserList(UserIndex).Pos.X, UserList(UserIndex).Pos.Y).UserIndex).ComUsu.DestUsu, "Comercio cancelado. El otro usuario se ha desconectado.", FontTypeNames.FONTTYPE_TALK)
  164.                     Call FlushBuffer(UserList(MapData(UserList(UserIndex).Pos.map, UserList(UserIndex).Pos.X, UserList(UserIndex).Pos.Y).UserIndex).ComUsu.DestUsu)
  165.                 End If
  166.                 'Lo sacamos.
  167.                 If UserList(MapData(UserList(UserIndex).Pos.map, UserList(UserIndex).Pos.X, UserList(UserIndex).Pos.Y).UserIndex).flags.UserLogged Then
  168.                     Call FinComerciarUsu(MapData(UserList(UserIndex).Pos.map, UserList(UserIndex).Pos.X, UserList(UserIndex).Pos.Y).UserIndex)
  169.                     Call WriteErrorMsg(MapData(UserList(UserIndex).Pos.map, UserList(UserIndex).Pos.X, UserList(UserIndex).Pos.Y).UserIndex, "Alguien se ha conectado donde te encontrabas, por favor reconéctate...")
  170.                     Call FlushBuffer(MapData(UserList(UserIndex).Pos.map, UserList(UserIndex).Pos.X, UserList(UserIndex).Pos.Y).UserIndex)
  171.                 End If
  172.             End If
  173.            
  174.             Call CloseSocket(MapData(UserList(UserIndex).Pos.map, UserList(UserIndex).Pos.X, UserList(UserIndex).Pos.Y).UserIndex)
  175.         End If
  176.     End If
  177. End If
  178.  
  179. 'Nombre de sistema
  180. UserList(UserIndex).name = name
  181.  
  182. UserList(UserIndex).showName = True 'Por default los nombres son visibles
  183.  
  184. 'If in the water, and has a boat, equip it!
  185. If UserList(UserIndex).Invent.BarcoObjIndex > 0 And _
  186.         (HayAgua(UserList(UserIndex).Pos.map, UserList(UserIndex).Pos.X, UserList(UserIndex).Pos.Y) Or BodyIsBoat(UserList(UserIndex).Char.body)) Then
  187.     Dim Barco As ObjData
  188.     Barco = ObjData(UserList(UserIndex).Invent.BarcoObjIndex)
  189.     UserList(UserIndex).Char.Head = 0
  190.     If UserList(UserIndex).flags.Muerto = 0 Then
  191.  
  192.         If UserList(UserIndex).Faccion.ArmadaReal = 1 Then
  193.             UserList(UserIndex).Char.body = iFragataReal
  194.         ElseIf UserList(UserIndex).Faccion.FuerzasCaos = 1 Then
  195.             UserList(UserIndex).Char.body = iFragataCaos
  196.         Else
  197.             If criminal(UserIndex) Then
  198.                 If Barco.Ropaje = iBarca Then UserList(UserIndex).Char.body = iBarcaPk
  199.                 If Barco.Ropaje = iGalera Then UserList(UserIndex).Char.body = iGaleraPk
  200.                 If Barco.Ropaje = iGaleon Then UserList(UserIndex).Char.body = iGaleonPk
  201.             Else
  202.                 If Barco.Ropaje = iBarca Then UserList(UserIndex).Char.body = iBarcaCiuda
  203.                 If Barco.Ropaje = iGalera Then UserList(UserIndex).Char.body = iGaleraCiuda
  204.                 If Barco.Ropaje = iGaleon Then UserList(UserIndex).Char.body = iGaleonCiuda
  205.             End If
  206.         End If
  207.     Else
  208.         UserList(UserIndex).Char.body = iFragataFantasmal
  209.     End If
  210.  
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1.  
  2.     UserList(UserIndex).Char.ShieldAnim = NingunEscudo
  3.     UserList(UserIndex).Char.WeaponAnim = NingunArma
  4.     UserList(UserIndex).Char.CascoAnim = NingunCasco
  5.     UserList(UserIndex).flags.Navegando = 1
  6. End If
  7.  
  8.  
  9. 'Info
  10. Call WriteUserIndexInServer(UserIndex) 'Enviamos el User index
  11. Call WriteChangeMap(UserIndex, UserList(UserIndex).Pos.map, MapInfo(UserList(UserIndex).Pos.map).MapVersion) 'Carga el mapa
  12. Call WritePlayMidi(UserIndex, val(ReadField(1, MapInfo(UserList(UserIndex).Pos.map).Music, 45)))
  13.  
  14. If UserList(UserIndex).flags.Privilegios = PlayerType.Dios Then
  15.     UserList(UserIndex).flags.ChatColor = RGB(250, 250, 150)
  16. ElseIf UserList(UserIndex).flags.Privilegios <> PlayerType.User And UserList(UserIndex).flags.Privilegios <> (PlayerType.User Or PlayerType.ChaosCouncil) And UserList(UserIndex).flags.Privilegios <> (PlayerType.User Or PlayerType.RoyalCouncil) Then
  17.     UserList(UserIndex).flags.ChatColor = RGB(0, 255, 0)
  18. ElseIf UserList(UserIndex).flags.Privilegios = (PlayerType.User Or PlayerType.RoyalCouncil) Then
  19.     UserList(UserIndex).flags.ChatColor = RGB(0, 255, 255)
  20. ElseIf UserList(UserIndex).flags.Privilegios = (PlayerType.User Or PlayerType.ChaosCouncil) Then
  21.     UserList(UserIndex).flags.ChatColor = RGB(255, 128, 64)
  22. Else
  23.     UserList(UserIndex).flags.ChatColor = vbWhite
  24. End If
  25.  
  26.  
  27. ''[EL OSO]: TRAIGO ESTO ACA ARRIBA PARA DARLE EL IP!
  28. #If ConUpTime Then
  29.     UserList(UserIndex).LogOnTime = Now
  30. #End If
  31.  
  32. 'Crea  el personaje del usuario
  33. Call MakeUserChar(True, UserList(UserIndex).Pos.map, UserIndex, UserList(UserIndex).Pos.map, UserList(UserIndex).Pos.X, UserList(UserIndex).Pos.Y)
  34.  
  35. Call WriteUserCharIndexInServer(UserIndex)
  36. ''[/el oso]
  37.  
  38. Call CheckUserLevel(UserIndex)
  39. Call WriteUpdateUserStats(UserIndex)
  40.  
  41. Call WriteUpdateHungerAndThirst(UserIndex)
  42.  
  43. Call SendMOTD(UserIndex)
  44.  
  45. If haciendoBK Then
  46.     Call WritePauseToggle(UserIndex)
  47.     Call WriteConsoleMsg(UserIndex, "Servidor> Por favor espera algunos segundos, WorldSave esta ejecutandose.", FontTypeNames.FONTTYPE_SERVER)
  48. End If
  49.  
  50. If EnPausa Then
  51.     Call WritePauseToggle(UserIndex)
  52.     Call WriteConsoleMsg(UserIndex, "Servidor> Lo sentimos mucho pero el servidor se encuentra actualmente detenido. Intenta ingresar más tarde.", FontTypeNames.FONTTYPE_SERVER)
  53. End If
  54.  
  55. If EnTesting And UserList(UserIndex).Stats.ELV >= 18 Then
  56.     Call WriteErrorMsg(UserIndex, "Servidor 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.")
  57.     Call FlushBuffer(UserIndex)
  58.     Call CloseSocket(UserIndex)
  59.     Exit Sub
  60. End If
  61.  
  62. 'Actualiza el Num de usuarios
  63. 'DE ACA EN ADELANTE GRABA EL CHARFILE, OJO!
  64. NumUsers = NumUsers + 1
  65. UserList(UserIndex).flags.UserLogged = True
  66.  
  67. 'usado para borrar Pjs
  68. Call WriteVar(CharPath & UserList(UserIndex).name & ".chr", "INIT", "Logged", "1")
  69.  
  70. Call EstadisticasWeb.Informar(CANTIDAD_ONLINE, NumUsers)
  71.  
  72. MapInfo(UserList(UserIndex).Pos.map).NumUsers = MapInfo(UserList(UserIndex).Pos.map).NumUsers + 1
  73.  
  74. If UserList(UserIndex).Stats.SkillPts > 0 Then
  75.     Call WriteSendSkills(UserIndex)
  76.     Call WriteLevelUp(UserIndex, UserList(UserIndex).Stats.SkillPts)
  77. End If
  78.  
  79. If NumUsers > recordusuarios Then
  80.     Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg("Record de usuarios conectados simultaneamente." & "Hay " & NumUsers & " usuarios.", FontTypeNames.FONTTYPE_INFO))
  81.     recordusuarios = NumUsers
  82.     Call WriteVar(IniPath & "Server.ini", "INIT", "Record", str(recordusuarios))
  83.    
  84.     Call EstadisticasWeb.Informar(RECORD_USUARIOS, recordusuarios)
  85. End If
  86.  
  87. If UserList(UserIndex).NroMascotas > 0 And MapInfo(UserList(UserIndex).Pos.map).Pk Then
  88.     Dim i As Integer
  89.     For i = 1 To MAXMASCOTAS
  90.         If UserList(UserIndex).MascotasType(i) > 0 Then
  91.             UserList(UserIndex).MascotasIndex(i) = SpawnNpc(UserList(UserIndex).MascotasType(i), UserList(UserIndex).Pos, True, True)
  92.            
  93.             If UserList(UserIndex).MascotasIndex(i) > 0 Then
  94.                 Npclist(UserList(UserIndex).MascotasIndex(i)).MaestroUser = UserIndex
  95.                 Call FollowAmo(UserList(UserIndex).MascotasIndex(i))
  96.             Else
  97.                 UserList(UserIndex).MascotasIndex(i) = 0
  98.             End If
  99.         End If
  100.     Next i
  101. End If
  102.  
  103. If UserList(UserIndex).flags.Navegando = 1 Then
  104.     Call WriteNavigateToggle(UserIndex)
  105. End If
  106.  
  107. If criminal(UserIndex) Then
  108.     Call WriteSafeModeOff(UserIndex)
  109.     UserList(UserIndex).flags.Seguro = False
  110. Else
  111.     UserList(UserIndex).flags.Seguro = True
  112.     Call WriteSafeModeOn(UserIndex)
  113. End If
  114.  
  115. If UserList(UserIndex).GuildIndex > 0 Then
  116.     'welcome to the show baby...
  117.     If Not modGuilds.m_ConectarMiembroAClan(UserIndex, UserList(UserIndex).GuildIndex) Then
  118.         Call WriteConsoleMsg(UserIndex, "Tu estado no te permite entrar al clan.", FontTypeNames.FONTTYPE_GUILD)
  119.     End If
  120. End If
  121.  
  122. Call SendData(SendTarget.ToPCArea, UserIndex, PrepareMessageCreateFX(UserList(UserIndex).Char.CharIndex, FXIDs.FXWARP, 0))
  123.  
  124. Call WriteLoggedMessage(UserIndex)
  125.  
  126. Call modGuilds.SendGuildNews(UserIndex)
  127.  
  128. If UserList(UserIndex).flags.NoActualizado Then
  129.     Call WriteUpdateNeeded(UserIndex)
  130. End If
  131.  
  132. If Lloviendo Then
  133.     Call WriteRainToggle(UserIndex)
  134. End If
  135.  
  136. tStr = modGuilds.a_ObtenerRechazoDeChar(UserList(UserIndex).name)
  137.  
  138. If LenB(tStr) <> 0 Then
  139.     Call WriteShowMessageBox(UserIndex, "Tu solicitud de ingreso al clan ha sido rechazada. El clan te explica que: " & tStr)
  140. End If
  141.  
  142. 'Load the user statistics
  143. Call Statistics.UserConnected(UserIndex)
  144.  
  145. Call MostrarNumUsers
  146.  
  147. #If SeguridadAlkon Then
  148.     Call Security.UserConnected(UserIndex)
  149. #End If
  150.  
  151. N = FreeFile
  152. Open App.Path & "\logs\numusers.log" For Output As N
  153. Print #N, NumUsers
  154. Close #N
  155.  
  156. N = FreeFile
  157. 'Log
  158. Open App.Path & "\logs\Connect.log" For Append Shared As #N
  159. Print #N, UserList(UserIndex).name & " ha entrado al juego. UserIndex:" & UserIndex & " " & time & " " & Date
  160. Close #N
  161.  
  162. End Sub
Franeg95
Aguante River Plate ! ! !
902
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

Volver a AO 0.12.x

¿Quién está conectado?

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