[EO] change top pixel transparency to set color

[Mikekan13]

I am trying to add an option to switch between the top pixel being the transparent color and pure green. I tried this but it simply wont blt the image. How can I do this?

```
Public Sub Engine_BltFast(ByVal dx As Long, ByVal dy As Long, ByRef ddS As DirectDrawSurface7, srcRECT As RECT, trans As CONST_DDBLTFASTFLAGS, Optional greenTrans As Boolean)
    If greenTrans = True Then
        trans = RGB(0, 255, 0)
    End If

```

[Aydan]

why would you even want this feature?

it takes 3 seconds to make a tileset or w.e to be compatible and having the ability to choose any colour background makes life easier…

[Mikekan13]

Im not using it for a tileset Im using it like the way blood is used but my image is actually part of the top pixel

[Mikekan13]

Nm Ill just move it down.

[Helladen]

@'Aydan':

> why would you even want this feature?
>
> it takes 3 seconds to make a tileset or w.e to be compatible and having the ability to choose any colour background makes life easier…

Not the time it takes to do it. It looks like crude having a whole black row. Why not just fix the problem at the source rather than wasting the time to do it?

[Aydan]

riiight i gotcha!! well someone might be able to help here later. We'll see.

[Kimimaru]

You need to make a small modification to the **InitDDSurf Sub**.

[Robin]

Find

```
Call SetMaskColorFromPixel(Surf, 0, 0)
```
Comment it out. At the top of that sub add

```
Dim TmpColorKey As DDCOLORKEY
```
Above the commented out SetMaskColorFromPixel, add this:

```
' set mask colour
TmpColorKey.Low = &HFF00FF
TmpColorKey.High = TmpColorKey.Low
Call Surf.SetColorKey(DDCKEY_SRCBLT, TmpColorKey)

```
'&HFF00FF' is bright magenta. Change it to w/e you want.

[Mikekan13]

Thank You