GS-Zone
Facebook Twitter

Codigos dx8 xd 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

10

Nota » 20 Dic 2011 14:40

bueno cmo soy medio queso para el engine este, me puse a geder é hice algunos códigos acá se los dejo :P

1º : se leen los nicks en barca

en el sub char_render buscamos

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1.        PixelOffsetX = PixelOffsetX + .MoveOffsetX
  2.         PixelOffsetY = PixelOffsetY + .MoveOffsetY


abajo ponemos

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1.        If .iBody = 395 Then
  2.        Pos = InStr(.Nombre, "<")
  3.        If Pos = 0 Then Pos = Len(.Nombre) + 2
  4.          
  5.          color = ARGB(230, 230, 0, 255)
  6.          
  7.            line = Left$(.Nombre, Pos - 2)
  8.            Call Text_Render(font_list(1), line, PixelOffsetY + 30, PixelOffsetX - 20, 72, 20, color, fa_center, True)
  9.                            
  10.                             'Clan
  11.            line = mid$(.Nombre, Pos)
  12.           Call Text_Render(font_list(1), line, PixelOffsetY + 45, PixelOffsetX + 21, 100, 20, color, fa_center, True)
  13.         End If


2º : tonalidad en la barca si es criminal/ciuda

buscamos

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Private Sub Draw_Grh


y antes del ")" ponemos

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. , optional BarcaFacc as byte = 0


en ese sub mas abajo buscamos

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1.    Device_Box_Textured_Render CurrentGrhIndex, _
  2.         X, Y, _
  3.         GrhData(CurrentGrhIndex).pixelWidth, GrhData(CurrentGrhIndex).pixelHeight, _
  4.         MapData(map_x, map_y).light_value, _
  5.         GrhData(CurrentGrhIndex).sX, GrhData(CurrentGrhIndex).sY, _
  6.         alpha _
  7.         , angle


arrba ponemos

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1.    If BarcaFacc <> 0 Then
  2.     Dim i As Long
  3.    
  4.     For i = 0 To 3
  5.     If BarcaFacc = 2 Then
  6.     MapData(map_x, map_y).light_value(i) = ARGB(255, 0, 0, 255)
  7.     Else
  8.     MapData(map_x, map_y).light_value(i) = ARGB(0, 25, 255, 255)
  9.     End If
  10.     Next i
  11.     End If


3º : Los techos se ven transparentes.

buscamos

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Private Sub Draw_Grh


y antes del ")" ponemos

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. , optional esTecho as boolean = false


mas abajo buscamos

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1.    Device_Box_Textured_Render CurrentGrhIndex, _
  2.         X, Y, _
  3.         GrhData(CurrentGrhIndex).pixelWidth, GrhData(CurrentGrhIndex).pixelHeight, _
  4.         MapData(map_x, map_y).light_value, _
  5.         GrhData(CurrentGrhIndex).sX, GrhData(CurrentGrhIndex).sY, _
  6.         alpha _
  7.         , angle


arriba ponemos

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1.    If esTecho Then
  2.      Dim j As Long
  3.      For j = 0 To 3
  4.      MapData(map_x, map_y).light_value(j) = ARGB(day_r_old, day_g_old, day_b_old, 180)
  5.      Next j
  6.     End If


por ultimo buscan donde dibujan la capa 4, en este cliente aparece así

abajo de

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1.                If MapData(X, Y).Graphic(4).grhindex Then


asi lo tengo yo

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1.                    Call Draw_Grh(MapData(X, Y).Graphic(4), _
  2.                         ScreenX * 32 + PixelOffsetX, _
  3.                         ScreenY * 32 + PixelOffsetY, _
  4.                         1, 1, , X, Y)


y como ultimo parámetro le pasan un "true"

ahora edito y dejo mas :P

EDIT : Caspers con tonalidad , si es ciuda/crimi :P

agregan a la clase clsDX8Engine


Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Private Sub Draw_Grh_Colour(ByRef Grh As Grh, ByRef Color() As Long, ByVal X As Integer, ByVal Y As Integer, ByVal center As Byte, ByVal Animate As Byte, Optional ByVal alpha As Boolean, Optional ByVal map_x As Byte = 1, Optional ByVal map_y As Byte = 1, Optional ByVal angle As Single)
  2.     Dim CurrentGrhIndex As Integer
  3.     If Grh.grhindex = 0 Then Exit Sub
  4.     If Animate Then
  5.         If Grh.Started = 1 Then
  6.             Grh.FrameCounter = Grh.FrameCounter + (timerElapsedTime * GrhData(Grh.grhindex).NumFrames / Grh.Speed)
  7.             If Grh.FrameCounter > GrhData(Grh.grhindex).NumFrames Then
  8.                 Grh.FrameCounter = (Grh.FrameCounter Mod GrhData(Grh.grhindex).NumFrames) + 1
  9.                
  10.                 If Grh.Loops <> -1 Then
  11.                     If Grh.Loops > 0 Then
  12.                         Grh.Loops = Grh.Loops - 1
  13.                     Else
  14.                         Grh.Started = 0
  15.                     End If
  16.                 End If
  17.             End If
  18.         End If
  19.     End If
  20.    
  21.     'Figure out what frame to draw (always 1 if not animated)
  22.     CurrentGrhIndex = GrhData(Grh.grhindex).Frames(Grh.FrameCounter)
  23.  
  24.     'Center Grh over X,Y pos
  25.     If center Then
  26.         If GrhData(CurrentGrhIndex).TileWidth <> 1 Then
  27.             X = X - Int(GrhData(CurrentGrhIndex).TileWidth * (32 \ 2)) + 32 \ 2
  28.         End If
  29.  
  30.         If GrhData(Grh.grhindex).TileHeight <> 1 Then
  31.             Y = Y - Int(GrhData(CurrentGrhIndex).TileHeight * 32) + 32
  32.         End If
  33.     End If
  34.    
  35.  
  36.     Device_Box_Textured_Render CurrentGrhIndex, _
  37.         X, Y, _
  38.         GrhData(CurrentGrhIndex).pixelWidth, GrhData(CurrentGrhIndex).pixelHeight, _
  39.         Color, _
  40.         GrhData(CurrentGrhIndex).sX, GrhData(CurrentGrhIndex).sY, _
  41.         alpha _
  42.         , angle
  43. 'exits:
  44.  
  45. End Sub


en el sub char_render buscan

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1.                            If .Body.Walk(.Heading).grhindex Then _
  2.                             Call Draw_Grh(.Body.Walk(.Heading), PixelOffsetX, PixelOffsetY, 1, 1, , X, Y)
  3.                              
  4.                             If .Head.Head(.Heading).grhindex Then
  5.                                 Call Draw_Grh(.Head.Head(.Heading), PixelOffsetX + .Body.HeadOffset.X, PixelOffsetY + .Body.HeadOffset.Y, 1, 0, , X, Y)
  6.  
  7. o como dibujen el cuerpo y la cabeza y lo ponen asi
  8.  
  9.                             If .Body.Walk(.Heading).grhindex Then
  10.                             If .iBody = 8 Then
  11.                              Draw_Grh_Colour .Head.Head(.Heading), ColorList, PixelOffsetX, PixelOffsetY, 1, 1
  12.                              Else
  13.                             Call Draw_Grh(.Body.Walk(.Heading), PixelOffsetX, PixelOffsetY, 1, 1, , X, Y)
  14.                              End If
  15.                              End If
  16.                              
  17.                             If .Head.Head(.Heading).grhindex Then
  18.                               If .iHead = 500 Then
  19.                                Draw_Grh_Colour .Head.Head(.Heading), ColorList, PixelOffsetX + .Body.HeadOffset.X, PixelOffsetY + .Body.HeadOffset.Y, 1, 0, False
  20.                                Else
  21.                                 Call Draw_Grh(.Head.Head(.Heading), PixelOffsetX + .Body.HeadOffset.X, PixelOffsetY + .Body.HeadOffset.Y, 1, 0, , X, Y)
  22.                               End If


voi a seguir editando desp :P
Última edición por maTih.- el 20 Dic 2011 21:04, editado 1 vez en total

LyRan escribió:Buenos Dias amigos y programadores de Gs Zone, Me gustaria pedirle la amabilidad de una ayuda con un cliente editado para mi Ao casero, Osea me explico, yo juego Ao con varios amigos y ellos todos usan cheat y no me gusta eso me gustaria que alguien me ayudara a crear un cliente editado con auto poteo de ambas potas a la ves ya sea que se alla gastado Mana lanzando algun hechis y comienze a potear solo hasta estar completamente el Mana, igual para la salud y poteo rapido para ambos.
maTih.-
mAnco programEr
794
Oraculo [5]
Registrado: Años de membresíaAños de membresía
Ubicación: Bolivia
Mensajes: 2289
Aportes: 109
Arriba

Nota » 20 Dic 2011 15:09

Groso que sos chabon. Lástima que me manejo con dx7 13.0.

Cuando tengas tiempo, y si querés hacete (para 13.0) una reforma al sistema de auras de dx7 que hiciste para npc y objetos, que el grafico que aparece atrás pueda definirse desde opciones si es transparente o no, gracias!

Master123500 escribió:Pero como tendria q buscarlo??? osea..prosediment Font_Create ??

miqueas150 dijo:
Es un sub :lol:


Chateando con LuuQ escribió:Anzhel dice:
franeg95_no_es_igual_a_tkF5-15.html
JAJAJAJAJAJAJAJAJAJAJ
MIRA ESO
' Simplemente Luuq dice:
el q canta
esta ardiente

Imagen
Mystery 8.0 - Anzhetra: The lost imperium
http://www.MysteryAO.tk
ZhtronG
MysteryAO Staff
338 (+3)
Destructor de Mentes [6]
Registrado: Años de membresía
Ubicación: En mi casa.
Mensajes: 796
Aportes: 20
Arriba

Nota » 20 Dic 2011 15:36

Por eso me tenes a mi matih si si (? jajaj,

Lindo code!
Dunkan
All we need is love
475
Oraculo [5]
Registrado: Años de membresíaAños de membresía
Ubicación: Mar del Plata
Mensajes: 2001
Aportes: 30
Premios: 1
Mister Programador AO (1)
Arriba

Nota » 20 Dic 2011 18:11

me gusto el de tonalidad de la barca :P

los otros no xD

crei q eran otras cosas jaja

suerte :P



Santty.- escribió:Si, soy hincha de tu padre, el que te gana cada vez que te cruza, el dueño del barrio, el orgullo nacional, rey de copas y el máximo ganador de copa libertadores

PROBLEM?





La gente que cuando camina mueve un poco los labios está practicando respuestas originales para discusiones que ya perdieron hace dos horas.
GoDKeR
YPF etatizada: -Hola q carga? -Deme Néstor Súper
681
Dragon Ancestral [4]
Registrado: Años de membresíaAños de membresía
Ubicación: Mendoza
Mensajes: 3545
Aportes: 40
Arriba

Nota » 20 Dic 2011 19:13

JAJ muy bueno maty el de los techos ya taba pero igual xD Me encanto el de la tonalidad en las barcas

Imagen
miqueas150
Ninja en progreso
914
Dragon Ancestral [5]
Registrado: Años de membresía
Ubicación: • olivos •
Mensajes: 4094
Aportes: 13
Arriba

Nota » 21 Dic 2011 07:09

grandes codigos, que grande como codeas al toke :P

Imagen
Dylan.-
Zaphir AO Staff - dylanalan
745
Dragon Ancestral [2]
Registrado: Años de membresíaAños de membresía
Ubicación: Pehuajó
Mensajes: 2788
Aportes: 27
Arriba

Nota » 21 Dic 2011 07:43

buen aporte mati :ok:

Imagen
Imagen
Imagen
Para mas información sobre los servidores , hacer link en las imágenes.
·Azkerth! escribió:Dale para adelanta , que estas criticas no te tiren abajo sino te motiven a mejorar.
·Azkerth!
Alexis Montalvan
642
Dragon Ancestral [1]
Registrado: Años de membresía
Ubicación: San Isidro
Mensajes: 2316
Aportes: 21
Arriba

Nota » 21 Dic 2011 09:12

ea q el de caspers tambien ta bueno :P



Santty.- escribió:Si, soy hincha de tu padre, el que te gana cada vez que te cruza, el dueño del barrio, el orgullo nacional, rey de copas y el máximo ganador de copa libertadores

PROBLEM?





La gente que cuando camina mueve un poco los labios está practicando respuestas originales para discusiones que ya perdieron hace dos horas.
GoDKeR
YPF etatizada: -Hola q carga? -Deme Néstor Súper
681
Dragon Ancestral [4]
Registrado: Años de membresíaAños de membresía
Ubicación: Mendoza
Mensajes: 3545
Aportes: 40
Arriba

Nota » 22 Dic 2011 01:17

Me mandan foto del de caspers plis xd
Mathyaas
Usuario Registrado
47
Aprendiz [5]
Registrado: Años de membresíaAños de membresía
Mensajes: 378
Aportes: 4
Arriba

Nota » 28 Dic 2011 01:50

Che porque en el 3 usas un long para un for de 4 ciclos?
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.11.5

¿Quién está conectado?

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