SoloCodigo

Un procedimiento que elaboré q permite hacer blt con alpha del 50%, ideal para objetos semi-transparentes. Está optimizado para modo 16bits (5-6-5).

Noten q el efecto de transparencia se obtiene con dos operadores lógicos y un desplazamiento. El efecto es visualmente muy bueno una transparencia del 50% perfecta para los ojos.

Notas:

* SuperficieRender es una variable global.
* El color transparente es el 0,0,0 =$0000

Espejo: en el eje vertical.




procedure BltTrans(const DestR:Trect;SuperficieDD:IDirectDrawSurface7;const OrigR:Trect;espejo:bytebool);
const mskTrans=$F7DF;
var x,y,anchoFaltante,anchoFaltanteOrig,ancho:integer;
    conta,contaOrig:pointer;
    dato2:integer;
    lpDDSurfaceDesc:TDDSurfaceDesc2;
begin
  FillChar(lpDDSurfaceDesc, SizeOf(lpDDSurfaceDesc),#0);//Llena de ceros.
  lpDDSurfaceDesc.dwSize := sizeof(lpDDSurfaceDesc);
  lpDDSurfaceDesc.dwFlags := DDSD_CAPS or DDSD_LPSURFACE or DDSD_PITCH;
//SuperficieRender
  if SuperficieRender.lock(@DestR,lpDDSurfaceDesc,DDLOCK_WAIT,0)=DD_OK then
  begin
    conta:=lpDDSurfaceDesc.lpSurface;
    anchoFaltante:=lpDDSurfaceDesc.lPitch-(DestR.Right-DestR.Left) shl 1;
//SuperficieTransparente
    FillChar(lpDDSurfaceDesc, SizeOf(lpDDSurfaceDesc),#0);//Llena de ceros.
    lpDDSurfaceDesc.dwSize := sizeof(lpDDSurfaceDesc);
    lpDDSurfaceDesc.dwFlags := DDSD_CAPS or DDSD_LPSURFACE or DDSD_PITCH;
    if SuperficieDD.lock(@OrigR,lpDDSurfaceDesc,DDLOCK_WAIT,0)=DD_OK then
    begin
      if espejo then
      begin
        contaOrig:=Pointer(integer(lpDDSurfaceDesc.lpSurface)+(origR.Right-origR.Left) shl 1);
        anchoFaltanteOrig:=lpDDSurfaceDesc.lPitch+(origR.Right-origR.Left) shl 1;
        ancho:=lpDDSurfaceDesc.lPitch;
        x:=integer(lpDDSurfaceDesc.lpSurface);//!
        for y:=origR.top to origR.Bottom-1 do//-1
        begin
          while integer(contaOrig)>x do
          begin
            dec(integer(contaOrig),2);
            dato2:=word(contaOrig^);
            if dato2<>0 then
              word(conta^):=((dato2 and mskTrans)+(word(conta^) and mskTrans)) shr 1;
            inc(integer(conta),2);
          end;
          inc(integer(conta),anchoFaltante);
          inc(integer(contaOrig),anchoFaltanteOrig);
          inc(x,ancho);//!
        end;
      end
      else
      begin
        contaOrig:=lpDDSurfaceDesc.lpSurface;
        anchoFaltanteOrig:=lpDDSurfaceDesc.lPitch-(origR.Right-origR.Left) shl 1;
        ancho:=lpDDSurfaceDesc.lPitch;
        x:=integer(lpDDSurfaceDesc.lpSurface)+(origR.Right-origR.Left) shl 1;;//!
        for y:=origR.top to origR.Bottom-1 do
        begin
          while integer(contaOrig)<x do
          begin
            dato2:=word(contaOrig^);
            if dato2<>0 then
              word(conta^):=((dato2 and mskTrans)+(word(conta^) and mskTrans)) shr 1;
            inc(integer(conta),2);
            inc(integer(contaOrig),2);
          end;
          inc(integer(conta),anchoFaltante);
          inc(integer(contaOrig),anchoFaltanteOrig);
          inc(x,ancho);//!
        end;
      end;
      SuperficieDD.unlock(@OrigR);
    end;
    SuperficieRender.unlock(@DestR);
  end;
end;

por lo que veo usas Visual Basic, y direct X al parecer inferior al 9 managed...

en direct x managed , existen superficies alpha, que hacen todo lo que tu has hecho y con mas cositas por ahi...
De todos modos te felicito por lo que hiciste ya que casi nadie se le mide a la programacion grafica en ninguna plataforma.

Espero que no te haya parecido odioso el comentario..no es la intencion.

Ahh si para lo de los tabuladores debes utilizar la opcion de insertar codigo cuadndo estes postenado el mensaje, de esta forma , conservara el formato. ejemplo:

 
Juank

todo lo que te mencione en 2d se hace a travez de directDraw o sea solo 2D.
No se las  ersiones anteriores de Directx pero la 9, tanto la managed, como la normal, poseen la capacidad de trabajar casi todos estos efectos tanto por hardware, por hardware emulation y por software emulation.

Todos los efectos 2d de directx son soportados por sw y hw, no se si con los 3D hayan muchos que solo soporten por hardware.

Creo que la emulacion por software, alcanza a ser mas lenta que si usas las superficies 3d por hardware... seria bueno consultar con algun experto.. esto generalmente es asi pero depende de las maquina donde lo ejecutes.
La implementacion por hardware de cosas como el alfa blending es igual en 2d que en 3D, lo que realmente afecta el rendimiento en este caso no es la propia implementacion del efecto sino los calculos pertinentes al 3D, y al  zbuffer de las superficies, y por supuesto todo lo que esto conlleva, generalmente si trabajas con superficies 2D con librerias 3D que ejecuten rutinas implementadas por hw, no habra diferencia entre manejar rutinas 2D o 3D, desde que manejes tan sololos recursos necesarios.

En las maquinas más modernas, es decir digamos que desde un pentium de 1000 mhz, es practicamente transparente las implementaciones 2D por emulacion por sw o el trabajo por hw, ya que la velocidad de procesamiento, en general es muchisimas veces mayor a la velocidad de procesamiento de las propias tarjetas.


Juank


Ahh si note lo delphi por las minusculas pero igual eso gfue ayer enla noche.

A fin de mes mandaré una versión beta para test a todos los q se apunten y dejen su email en este foro (Un email con 4 megas libres como mínimo). Lo mandaré por partes (a lo sumo 4 correos de 1mega c/u).

Incluirá el cliente y el servidor para funcionar sobre TCP/IP.

Tendrá varios comandos de test "cheats" para subir de nivel, viajar a otros mapas, crear artefactos, etc.

Excelente realmente.
Eso que dice Zoltrakk, se llama Macreo Desatendido, lo dejas subiendo cierta habilidad.
Hace un par de anios que juego al UO (Ultima Online), siempre me gusto este tipo de juegos, pero lo que realmente, no me atrae mucho, es el tema de las experiencias, eso lo hace mas "limitado' al juego, con esto quiero decir, que uno llega al tope de experiencia y que pasa??.
En cambio el UO, es por subidas de skills, Necromancer, Magery, Sword, Fencing, Cooking, Mining, etc, etc y unas 100 habilidades mas.
De todas formas, excelente el juego, apenas lo tengas avisame, que me anoto para probarlo.
Salu2 y espero qeu sigas asi.
Hernan

Respecto a lo del macreo y experiencia:

Si el jugador tiene que macrear es que el juego es aburrido, es una de las cosas que quiero evitar. No será tan difícil y moroso conseguir recursos (si tienes la pericia adecuada) Y será también fácil perder lo que conseguiste.

El juego no está orientado en el sentido de que el jugador más poderoso es el que tiene más experiencia. El jugador más poderoso será el que se prepare para el combate con alguna estrategia bien pensada para acabar con el enemigo. Será vital la coordinación de magos y guerreros. Casi todos los conjuros afectan también a los monstruos. Puedes conjurar guerreros esqueleto, darles armaduras mágicas, acelerarlos, darles meyor fuerza, hacerlos invisibles, hacer que vean a invisibles, curarlos ,etc. Igual puedes ayudar a tus guerreros en el combate. Puedes atacar al adversario reduciendo su capacidad de ataque al mínimo, paralizándolo, maldiciendo sus armas/armaduras, quemándolo, congelándolo, etc. El guerrero puede tener la pericia de Ira Tenax que le permitirá duplicar el daño que haga a costa de perder capacidad de defensa. Los magos pueden crear armas/armaduras/vestimentas mágicas de todo tipo ya sea con gemas como el rubí o con aleaciones como el oricalco que es elaborado por los alquimistas. Y muchas cosas más que ya están implementadas.

El comercio aún no está implementado, pero tendrá el concepto de "libre oferta y demanda" para que el juego se auto-balancee, pero poniendo límites para evitar que los jugadores hagan lo que algunos tipos hacen en wall street.

Los precios podrán incrementarse hasta CASI 4 veces el precio "normal", al mismo tiempo podrás vender tus objetos a medio uso por 1/4 del precio de venta del objeto nuevo. Esto es para fomentar el comercio entre jugadores y la fabricación propia de artefactos.

aún no lo descargo, lo haré en cuanto esté el server;).

Escribo para comentar que me gustaría que se mantuviera en pedir pocos recursos de máquina, para que la mayoría lo pueda disfrutar sin tener que hacerse de un 'maquinón'. Es lo que se hace normalmente con los juegos 'shareware' ¿no?

En realidad será un juego "freeware" y se podrá jugar como mínimo en una Pentium 100 de 32 RAM y 1mega de video (a 9 FPS). Si tienes una máquina más rápida el juego irá a 18,27 y hasta 36 FPS. De forma que si tienes una máquina lenta lo jugarás como si fuera ajedrez donde vez tus fichas moverse de casilla en casilla, pero si tienes una máquina rápida verás a tu personaje y a los monstruos delplazándose más suavemente por la pantalla.

Además:

- Auras para ver los hechizos que afectan a monstruos y jugadores
-Nuevas animaciones para personajes
- El aspecto de tu personaje cambia dependiendo de la vestimente, por el momento sólo existen dos a tres variaciones dependiendo de la clase y raza, pero el sistema ya está hecho y "sólo" es cuestión de diseñar más animaciones sin modificar código.
- 6 mapas para jugar, un calabozo y diversos terrenos y sonidos ambientales.

Pueden bajarse el juego completo de:

http://groups.msn.com/Legadodelasartesarcanas