Nesesito una ayudita con lo siguiente porfavor aver si me pueden ayudar:

El nombre del usuario del tpao CLON se ve corrido .
Cuando se le da el poder a alguién Y el sistema de pareja Se cierra el servidor.

EDiT: Tengo otro problemas con el administrador pongo /buscar y no me aparese lo qe busco por ejemplo , tiene los hechisos del Tp y cuando los busco no estan pero en el dat HECHiSOS si estan Y en obj no ; intente pasar los hechisos al OBJ y tampoco

¿Alguna solución para los problemás?
Alguno Me podria Ayudar Porfavor le estaria Muy agradecido.

Em para el sistema de pareja en modo debug te tira algun error? y para lo de pasar de nivel remplaza todo este sub



por este



Lo del nick corrido espera que reviso el codigo y te digo como arreglarlo.

Storax escribió:Em para el sistema de pareja en modo debug te tira algun error? y para lo de pasar de nivel remplaza todo este sub

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

1. Sub CheckUserLevel(ByVal UserIndex As Integer)

por este

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

1. Sub CheckUserLevel(ByVal UserIndex As Integer)
2.  
3. On Error GoTo errhandler
4.  
5. Dim Pts As Integer
6. Dim AumentoHIT As Integer
7. Dim AumentoMANA As Integer
8. Dim AumentoSTA As Integer
9. Dim WasNewbie As Boolean
10. Dim AumentoHP As Integer
11. Dim s As Integer
12.  
13. '¿Alcanzo el maximo nivel?
14. If UserList(UserIndex).Stats.ELV = STAT_MAXELV Then
15.     UserList(UserIndex).Stats.Exp = 0
16.     UserList(UserIndex).Stats.ELU = 0
17.     Exit Sub
18. End If
19.  
20. WasNewbie = EsNewbie(UserIndex)
21.  
22. 'Si exp >= then Exp para subir de nivel entonce subimos el nivel
23. 'If UserList(UserIndex).Stats.Exp >= UserList(UserIndex).Stats.ELU Then
24. Do While UserList(UserIndex).Stats.Exp >= UserList(UserIndex).Stats.ELU
25.    
26.     Call SendData(SendTarget.ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "TW" & SND_NIVEL)
27.     Call SendData(SendTarget.ToIndex, UserIndex, 0, "||¡Has subido de nivel!" & FONTTYPE_INFO)
28.     AumentoHP = AumentoHP
29.     If InStr(AumentoHP, "°") Then
30.                 Exit Sub
31.             End If
32.       Dim ind As String
33.     ind = UserList(UserIndex).Char.CharIndex
34.    
35.  
36.     If UserList(UserIndex).Stats.ELV = 1 Then
37.         Pts = 10
38.     Else
39.         Pts = 5
40.     End If
41.    
42.     UserList(UserIndex).Stats.SkillPts = UserList(UserIndex).Stats.SkillPts + Pts
43.    
44.     Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Has ganado " & Pts & " skillpoints." & FONTTYPE_INFO)
45.        
46.     UserList(UserIndex).Stats.ELV = UserList(UserIndex).Stats.ELV + 1
47.    
48.     UserList(UserIndex).Stats.Exp = UserList(UserIndex).Stats.Exp - UserList(UserIndex).Stats.ELU
49.    
50.     If Not EsNewbie(UserIndex) And WasNewbie Then
51.         Call QuitarNewbieObj(UserIndex)
52.         If UCase$(MapInfo(UserList(UserIndex).Pos.Map).Restringir) = "SI" Then
53.             Call WarpUserChar(UserIndex, 1, 50, 50, True)
54.             Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Debes abandonar el Dungeon Newbie." & FONTTYPE_WARNING)
55.         End If
56.     End If
57.  
58.     If UserList(UserIndex).Stats.ELV < 11 Then
59.         UserList(UserIndex).Stats.ELU = UserList(UserIndex).Stats.ELU * 1.5
60.     ElseIf UserList(UserIndex).Stats.ELV < 25 Then
61.         UserList(UserIndex).Stats.ELU = UserList(UserIndex).Stats.ELU * 1.3
62.     Else
63.         UserList(UserIndex).Stats.ELU = UserList(UserIndex).Stats.ELU * 1.2
64.     End If
65.  
66.    
67.     Select Case UCase$(UserList(UserIndex).Clase)
68.         Case "GUERRERO"
69.             Select Case UserList(UserIndex).Stats.UserAtributos(eAtributos.Constitucion)
70.                 Case 21
71.                     AumentoHP = RandomNumber(9, 11)
72.                 Case 20
73.                     AumentoHP = RandomNumber(8, 11)
74.                 Case 19, 18
75.                     AumentoHP = RandomNumber(7, 11)
76.                 Case Else
77.                     AumentoHP = RandomNumber(6, UserList(UserIndex).Stats.UserAtributos(eAtributos.Constitucion) \ 2) + AdicionalHPGuerrero
78.             End Select
79.            
80.             AumentoHIT = IIf(UserList(UserIndex).Stats.ELV > 35, 2, 3)
81.             AumentoSTA = AumentoSTDef
82.        
83.         Case "CAZADOR"
84.             Select Case UserList(UserIndex).Stats.UserAtributos(eAtributos.Constitucion)
85.                 Case 21
86.                     AumentoHP = RandomNumber(8, 11)
87.                 Case 20
88.                     AumentoHP = RandomNumber(7, 11)
89.                 Case 19, 18
90.                     AumentoHP = RandomNumber(6, 11)
91.                 Case Else
92.                     AumentoHP = RandomNumber(6, UserList(UserIndex).Stats.UserAtributos(eAtributos.Constitucion) \ 2)
93.             End Select
94.  
95.             AumentoHIT = IIf(UserList(UserIndex).Stats.ELV > 35, 2, 3)
96.             AumentoSTA = AumentoSTDef
97.        
98.    
99.        
100.         Case "PALADIN"
101.             Select Case UserList(UserIndex).Stats.UserAtributos(eAtributos.Constitucion)
102.                 Case 21
103.                     AumentoHP = RandomNumber(8, 11)
104.                 Case 20
105.                     AumentoHP = RandomNumber(7, 11)
106.                 Case 19, 18
107.                     AumentoHP = RandomNumber(6, 11)
108.                 Case Else
109.                     AumentoHP = RandomNumber(4, UserList(UserIndex).Stats.UserAtributos(eAtributos.Constitucion) \ 2) + AdicionalHPCazador
110.             End Select
111.            
112.             AumentoHIT = IIf(UserList(UserIndex).Stats.ELV > 35, 1, 3)
113.             AumentoMANA = UserList(UserIndex).Stats.UserAtributos(eAtributos.Inteligencia)
114.             AumentoSTA = AumentoSTDef
115.        
116.         Case "LADRON"
117.             Select Case UserList(UserIndex).Stats.UserAtributos(eAtributos.Constitucion)
118.                 Case 21
119.                     AumentoHP = RandomNumber(7, 10)
120.                 Case 20
121.                     AumentoHP = RandomNumber(6, 10)
122.                 Case 19, 18
123.                     AumentoHP = RandomNumber(5, 9)
124.                 Case Else
125.                     AumentoHP = RandomNumber(4, UserList(UserIndex).Stats.UserAtributos(eAtributos.Constitucion) \ 2)
126.             End Select
127.            
128.             AumentoHIT = 1
129.             AumentoSTA = AumentoSTLadron
130.            
131.         Case "MAGO"
132.             Select Case UserList(UserIndex).Stats.UserAtributos(eAtributos.Constitucion)
133.                 Case 21
134.                     AumentoHP = RandomNumber(6, 8)
135.                 Case 20
136.                     AumentoHP = RandomNumber(4, 9)
137.                 Case 19, 18
138.                     AumentoHP = RandomNumber(4, 7)
139.                 Case Else
140.                     AumentoHP = RandomNumber(5, UserList(UserIndex).Stats.UserAtributos(eAtributos.Constitucion) \ 2) - AdicionalHPCazador
141.             End Select
142.             If AumentoHP < 1 Then AumentoHP = 4
143.            
144.             AumentoHIT = 1
145.             AumentoMANA = 3 * UserList(UserIndex).Stats.UserAtributos(eAtributos.Inteligencia)
146.             AumentoSTA = AumentoSTMago
147.        
148.    
149.        
150.        
151.         Case "CLERIGO"
152.             Select Case UserList(UserIndex).Stats.UserAtributos(eAtributos.Constitucion)
153.                 Case 21
154.                     AumentoHP = RandomNumber(8, 10)
155.                 Case 20
156.                     AumentoHP = RandomNumber(6, 10)
157.                 Case 19, 18
158.                     AumentoHP = RandomNumber(5, 9)
159.                 Case Else
160.                     AumentoHP = RandomNumber(4, UserList(UserIndex).Stats.UserAtributos(eAtributos.Constitucion) \ 2)
161.             End Select
162.            
163.             AumentoHIT = 2
164.             AumentoMANA = 2 * UserList(UserIndex).Stats.UserAtributos(eAtributos.Inteligencia)
165.             AumentoSTA = AumentoSTDef
166.        
167.         Case "DRUIDA"
168.             Select Case UserList(UserIndex).Stats.UserAtributos(eAtributos.Constitucion)
169.                 Case 21
170.                     AumentoHP = RandomNumber(7, 10)
171.                 Case 20
172.                     AumentoHP = RandomNumber(6, 9)
173.                 Case 19, 18
174.                     AumentoHP = RandomNumber(5, 9)
175.                 Case Else
176.                     AumentoHP = RandomNumber(4, UserList(UserIndex).Stats.UserAtributos(eAtributos.Constitucion) \ 2)
177.             End Select
178.            
179.             AumentoHIT = 2
180.             AumentoMANA = 2 * UserList(UserIndex).Stats.UserAtributos(eAtributos.Inteligencia)
181.             AumentoSTA = AumentoSTDef
182.        
183.         Case "ASESINO"
184.             Select Case UserList(UserIndex).Stats.UserAtributos(eAtributos.Constitucion)
185.                 Case 21
186.                     AumentoHP = RandomNumber(7, 10)
187.                 Case 20
188.                     AumentoHP = RandomNumber(6, 10)
189.                 Case 19, 18
190.                     AumentoHP = RandomNumber(5, 9)
191.                 Case Else
192.                     AumentoHP = RandomNumber(4, UserList(UserIndex).Stats.UserAtributos(eAtributos.Constitucion) \ 2)
193.             End Select
194.            
195.             AumentoHIT = IIf(UserList(UserIndex).Stats.ELV > 35, 1, 3)
196.             AumentoMANA = UserList(UserIndex).Stats.UserAtributos(eAtributos.Inteligencia)
197.             AumentoSTA = AumentoSTDef
198.        
199.         Case "BARDO"
200.             Select Case UserList(UserIndex).Stats.UserAtributos(eAtributos.Constitucion)
201.                 Case 21
202.                     AumentoHP = RandomNumber(7, 10)
203.                 Case 20
204.                     AumentoHP = RandomNumber(6, 10)
205.                 Case 19, 18
206.                     AumentoHP = RandomNumber(5, 9)
207.                 Case Else
208.                     AumentoHP = RandomNumber(4, UserList(UserIndex).Stats.UserAtributos(eAtributos.Constitucion) \ 2)
209.             End Select
210.            
211.             AumentoHIT = 2
212.             AumentoMANA = 2 * UserList(UserIndex).Stats.UserAtributos(eAtributos.Inteligencia)
213.             AumentoSTA = AumentoSTDef
214.        
215.         Case Else
216.             Select Case UserList(UserIndex).Stats.UserAtributos(eAtributos.Constitucion)
217.                 Case 21
218.                     AumentoHP = RandomNumber(6, 9)
219.                 Case 20
220.                     AumentoHP = RandomNumber(5, 9)
221.                 Case 19, 18
222.                     AumentoHP = RandomNumber(4, 8)
223.                 Case Else
224.                     AumentoHP = RandomNumber(5, UserList(UserIndex).Stats.UserAtributos(eAtributos.Constitucion) \ 2) - AdicionalHPCazador
225.             End Select
226.  
227.             AumentoHIT = 2
228.             AumentoSTA = AumentoSTDef
229.     End Select
230.    
231.     'Actualizamos HitPoints
232.     UserList(UserIndex).Stats.MaxHP = UserList(UserIndex).Stats.MaxHP + AumentoHP
233.     If UserList(UserIndex).Stats.MaxHP > STAT_MAXHP Then _
234.         UserList(UserIndex).Stats.MaxHP = STAT_MAXHP
235.     'Actualizamos Stamina
236.     UserList(UserIndex).Stats.MaxSta = UserList(UserIndex).Stats.MaxSta + AumentoSTA
237.     If UserList(UserIndex).Stats.MaxSta > STAT_MAXSTA Then _
238.         UserList(UserIndex).Stats.MaxSta = STAT_MAXSTA
239.     'Actualizamos Mana
240.     UserList(UserIndex).Stats.MaxMAN = UserList(UserIndex).Stats.MaxMAN + AumentoMANA
241.     If UserList(UserIndex).Stats.ELV < 36 Then
242.         If UserList(UserIndex).Stats.MaxMAN > STAT_MAXMAN Then _
243.             UserList(UserIndex).Stats.MaxMAN = STAT_MAXMAN
244.     Else
245.         If UserList(UserIndex).Stats.MaxMAN > 9999 Then _
246.             UserList(UserIndex).Stats.MaxMAN = 9999
247.     End If
248.    
249.     'Actualizamos Golpe Máximo
250.     UserList(UserIndex).Stats.MaxHIT = UserList(UserIndex).Stats.MaxHIT + AumentoHIT
251.     If UserList(UserIndex).Stats.ELV < 36 Then
252.         If UserList(UserIndex).Stats.MaxHIT > STAT_MAXHIT_UNDER36 Then _
253.             UserList(UserIndex).Stats.MaxHIT = STAT_MAXHIT_UNDER36
254.     Else
255.         If UserList(UserIndex).Stats.MaxHIT > STAT_MAXHIT_OVER36 Then _
256.             UserList(UserIndex).Stats.MaxHIT = STAT_MAXHIT_OVER36
257.     End If
258.    
259.     'Actualizamos Golpe Mínimo
260.     UserList(UserIndex).Stats.MinHIT = UserList(UserIndex).Stats.MinHIT + AumentoHIT
261.     If UserList(UserIndex).Stats.ELV < 36 Then
262.         If UserList(UserIndex).Stats.MinHIT > STAT_MAXHIT_UNDER36 Then _
263.             UserList(UserIndex).Stats.MinHIT = STAT_MAXHIT_UNDER36
264.     Else
265.         If UserList(UserIndex).Stats.MinHIT > STAT_MAXHIT_OVER36 Then _
266.             UserList(UserIndex).Stats.MinHIT = STAT_MAXHIT_OVER36
267.     End If
268.    
269.     'Notificamos al user
270.     If AumentoHP > 0 Then SendData SendTarget.ToIndex, UserIndex, 0, "||Has ganado " & AumentoHP & " puntos de vida." & FONTTYPE_INFO
271.     Call SendData(ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "||" & vbYellow & "°" & " Vida + " & AumentoHP & " Mana + " & AumentoMANA & " Golpe + " & AumentoHIT & "°" & str(ind))
272.     If AumentoSTA > 0 Then SendData SendTarget.ToIndex, UserIndex, 0, "||Has ganado " & AumentoSTA & " puntos de vitalidad." & FONTTYPE_INFO
273.     If AumentoMANA > 0 Then SendData SendTarget.ToIndex, UserIndex, 0, "||Has ganado " & AumentoMANA & " puntos de magia." & FONTTYPE_INFO
274.     If AumentoHIT > 0 Then
275.         SendData SendTarget.ToIndex, UserIndex, 0, "||Tu golpe maximo aumento en " & AumentoHIT & " puntos." & FONTTYPE_INFO
276.         SendData SendTarget.ToIndex, UserIndex, 0, "||Tu golpe minimo aumento en " & AumentoHIT & " puntos." & FONTTYPE_INFO
277.     End If
278.    
279.     Call LogDesarrollo(Date & " " & UserList(UserIndex).name & " paso a nivel " & UserList(UserIndex).Stats.ELV & " gano HP: " & AumentoHP)
280.    
281.     UserList(UserIndex).Stats.MinHP = UserList(UserIndex).Stats.MaxHP
282.    
283.     Call EnviarSkills(UserIndex)
284.     Call EnviarSubirNivel(UserIndex, Pts)
285.    
286.     SendUserStatsBox UserIndex
287.    
288. Loop
289. 'End If
290.  
291.  
292. Exit Sub
293.  
294. errhandler:
295.     LogError ("Error en la subrutina CheckUserLevel")
296. End Sub
297.  
298.  

Lo del nick corrido espera que reviso el codigo y te digo como arreglarlo.

El nivel no llega asta el +10 llega asta 50+100 y se pone devuelta 50 y cuando relogeo me dice nivel 156. y no tiene los bonus del tpao Algun Consejo ?
______________

Tengo otro problemas con el administrador pongo /buscar y no me aparese lo qe busco por ejemplo , tiene los hechisos del Tp y cuando los busco no estan pero en el dat HECHiSOS si estan Y en obj no ; intente pasar los hechisos al OBJ y tampoco

¿que modificaciones le agregaste?
¿sabes programar?¿o todo esta saliendo de milagro?

briancitooh escribió:El nivel no llega asta el +10 llega asta 50+100 y se pone devuelta 50 y cuando relogeo me dice nivel 156. y no tiene los bonus del tpao Algun Consejo ?
______________

Tengo otro problemas con el administrador pongo /buscar y no me aparese lo qe busco por ejemplo , tiene los hechisos del Tp y cuando los busco no estan pero en el dat HECHiSOS si estan Y en obj no ; intente pasar los hechisos al OBJ y tampoco

Sabes algo o solo estas tirando fruta y esperar todo servido ??

En el servidor modulo declaraciones busca STAT_MAXELV y hay fijate si dice 60

Lo del nombre corrido no

busca if nombres then y postemelo aca
osea todo el sub () Por que soy re incha

Y para los obj fijate de volver a implementar el codigo de buscar item y no es que te busca el hechiso te busca el pergamino del hechi y te da el numero de obj id eso + el comando /ci = gs casi te mato por que pense que taban atacando a gs-zone me asuste en un momento malito jum

Enteoria si haces esto dentro de los proximos 3 minutos te sigo ayudando si no me voy a dormir con un refriado de la conc.. de la lora

La verdad no se programar pero por eso pido ayuda, Si les molesta que pida ayuda diganmen. Perdonen por que recien dijieron qe qiero todo servido. es que no se pero si me prodrian ayudar estaria agradecido

briancitooh escribió:La verdad no se programar pero por eso pido ayuda, Si les molesta que pida ayuda diganmen. Perdonen por que recien dijieron qe qiero todo servido. es que no se pero si me prodrian ayudar estaria agradecido

hiciste lo que te dije ??

Aver anda al cliente y busca



y remplazalo por

Storax escribió:Aver anda al cliente y busca

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

1. line = Left$(.Nombre, Pos - 2)
2.                             Call DibujarTexto(line, PixelOffsetY + 30, PixelOffsetX - (Len(line) / 2) * 6 + 10, color)

y remplazalo por

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

1. line = Left$(.Nombre, Pos - 2)
2.                             Call Text_Render(font_list(1), line, PixelOffsetY + 30, PixelOffsetX - 20, 72, 20, color, fa_center, True)

Ves estas bardeando re piola flaco como vas a poner asi la cosa seria que lo centre y siga usando las letras por grh ya que es 564132132456321562453215634534534534 veces mejor que el renderizado de textos que trae el mz-engine
PixelOffsetY + 30 Anda centrandolo para tu gusto

Storax escribió:Aver anda al cliente y busca

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

1. line = Left$(.Nombre, Pos - 2)
2.                             Call DibujarTexto(line, PixelOffsetY + 30, PixelOffsetX - (Len(line) / 2) * 6 + 10, color)

y remplazalo por

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

1. line = Left$(.Nombre, Pos - 2)
2.                             Call Text_Render(font_list(1), line, PixelOffsetY + 30, PixelOffsetX - 20, 72, 20, color, fa_center, True)

NO ; cuando hago el codigo no me deja entrar despues.

Te dijo que busques

PixelOffsetY + 30

Y lo vallas centrando a tu gusto..

GRACIAS A TODOS. ARREIGLE TODOS LOS BUGS QE POSTIE MENOS EL DE PAREJA Y DON. NESESITO SABER SI ME PUEDEN AYUDAR CON ESTE :

no estan todos los OBJ, El manto , La apoca Todo eso donde esta? En el sevidor Dat Ahi una carpetita que tiene mas dats intente ponerle eso y tampoco , le puse el dat de todos los hechisos estaban ahi todos y tampoco aparese, AYUDENMEN