color key help - GameCreators Forum

Author

Message

Black Shadow

21

Years of Service

User Offline

Joined: 14th Oct 2004

Location:

Posted: 6th Dec 2004 10:15

Link

anyone know how to set the color key to more than one color?

Back to top

Profile PM

dark coder

23

Years of Service

User Offline

Joined: 6th Oct 2002

Location: Japan

Posted: 13th Dec 2004 06:39

Link

no

Back to top

Profile PM Email

dj chainz

21

Years of Service

User Offline

Joined: 25th Sep 2004

Location: England

Posted: 14th Dec 2004 02:00

Link

u cant

but u cud use memblock editing to change the colors to the 'colorkey' colour, so it wud be in effect the same

I am the lead programmer at red spark studios
I also have a blog on how to make a game engine
http://www.dbgame.blogspot.com

Back to top

Profile PM Website

wmf

21

Years of Service

User Offline

Joined: 6th Nov 2004

Location:

Posted: 14th Dec 2004 22:39

Link

if background is black set image colorkey 255,0,0
load some images - red
set image colorkey 0,0,255
load more images - blue but they have red
set image colorkey 0,0,0
load more images - black is transparent so they look normal

i tested the above and it works

during the game - delete image - change colorkey - reload image

that should work too

Back to top

Profile PM

dark coder

23

Years of Service

User Offline

Joined: 6th Oct 2002

Location: Japan

Posted: 14th Dec 2004 23:33

Link

he means removing multiple colours from the specified object/image

Back to top

Profile PM Email

wmf

21

Years of Service

User Offline

Joined: 6th Nov 2004

Location:

Posted: 15th Dec 2004 00:55

Link

ok, my mistake.
just a thought, if you load image minus blue and green
paste image
get image minus red and green
would the image be missing cyan and yellow
I don't want to check it out tho

Back to top

Profile PM

wmf

21

Years of Service

User Offline

Joined: 6th Nov 2004

Location:

Posted: 15th Dec 2004 01:03

Link

too many years in the printing business i think

Back to top

Profile PM

Black Shadow

21

Years of Service

User Offline

Joined: 14th Oct 2004

Location:

Posted: 4th Jan 2005 05:55

Link

I tried the set image color key command but it didn't work I think it is only for DB-Pro. (I Have DBC)

Back to top

Profile PM

dj chainz

21

Years of Service

User Offline

Joined: 25th Sep 2004

Location: England

Posted: 4th Jan 2005 16:23

Link

its a DBP only command.

I am the lead programmer at red spark studios
I also have a blog on how to make a game engine
http://www.dbgame.blogspot.com

Back to top

Profile PM Website

Black Shadow

21

Years of Service

User Offline

Joined: 14th Oct 2004

Location:

Posted: 5th Jan 2005 07:07

Link

I know but does anyone know how to make a function that can act like changing the color key?

Back to top

Profile PM

BlinkOk

22

Years of Service

User Offline

Joined: 22nd Oct 2003

Location:

Posted: 6th Jan 2005 04:49

Link

in this thread the guy is trying to set colors to transparent using memblock;
http://forum.thegamecreators.com/?m=forum_view&t=33270&b=4
he doesn't get an answer to his question which is unfortunate coz i'd really like to know how to do it as well.

P4 2.8Ghz, 2Gb, 128Mb Radeon Pro, Dark Basic PRO

Back to top

Profile PM

wmf

21

Years of Service

User Offline

Joined: 6th Nov 2004

Location:

Posted: 6th Jan 2005 09:14

Link

Quote: "I tried the set image color key command but it didn't work I think it is only for DB-Pro. (I Have DBC) "

you can try this, I don't know if it will work in dbc tho. use any image you have.the colorscale.bmp is one I made 100x450. you can change it to get the screen image or any part of it. make sure the final paste image is at the correct x,y values.

+ Code Snippet

tc as dword
tc = rgb(0,0,0,) ` transparent color

changecolor(tc)

wait key

function changecolor(ftc)
load image "colorscale.bmp", 1, 1 ` this could be get image 0,0,screen width()-1,screen width-1,1
make memblock from image 1, 1
paste image 1,0,0 ` this is for colorscale.bmp
p as dword
rem click on the image and this loop will get the pixel to change
do
if mouseclick()
x= mousex()
y= mousey()
repeat:until mouseclick()= 0:p = point(x,y):exit
endif
loop
rp = rgbr(p):gp = rgbg(p):bp = rgbb(p)
c = get memblock size(1)
a as dword
for i = 12 to c-1 step 4
a = memblock dword(1,i)
r=rgbr(a):g=rgbg(a):b=rgbb(a)
if rgb(r,g,b) = rgb(rp,gp,bp) then write memblock dword 1, i, ftc
next i
make image from memblock 2, 1
paste image 2,0,125 ` for colorscale.bmp - for screen image paste image 2,0,0
endfunction

Back to top

Profile PM

pizzaman

22

Years of Service

User Offline

Joined: 18th Feb 2004

Location: Gateshead, UK

Posted: 6th Jan 2005 09:20 Edited at: 6th Jan 2005 09:22

Link

Heres some examples

DBP

Example

set display mode 800,600,32

cls rgb(0,255,255)
box 0,0,35,35,rgb(255,0,0),rgb(255,0,0),rgb(255,0,0),rgb(255,0,0)
box 65,0,100,35,rgb(0,255,0),rgb(0,255,0),rgb(0,255,0),rgb(0,255,0)
box 0,65,35,100,rgb(0,0,255),rgb(0,0,255),rgb(0,0,255),rgb(0,0,255)
box 65,65,100,100,rgb(255,255,0),rgb(255,255,0),rgb(255,255,0),rgb(255,255,0)

get image 1,0,0,100,100,1
cls 0

ColourKeys(1,2,rgb(255,0,0),rgb(0,255,0),rgb(0,0,255),rgb(255,255,0))

paste image 1,250,250,1
paste image 2,450,250,1
sync

suspend for key
end

function ColourKeys(ImageNum1 as integer,ImageNum2 as integer,Colour1 as dword,Colour2 as dword,Colour3 as dword,Colour4 as dword)
   Index1 as integer

make memblock from image 256,ImageNum1

for Index1 = 15 to (get memblock size(256) - 1) step 4

`change the 0's at the end for different transparencies
      if memblock dword(256,Index1 - 3) = Colour1 then write memblock byte 256,Index1,0
      if memblock dword(256,Index1 - 3) = Colour2 then write memblock byte 256,Index1,0
      if memblock dword(256,Index1 - 3) = Colour3 then write memblock byte 256,Index1,0
      if memblock dword(256,Index1 - 3) = Colour4 then write memblock byte 256,Index1,0

next Index1

make image from memblock ImageNum2,256
   delete memblock 256
endfunction

+ Code Snippet

set display mode 800,600,32

cls rgb(0,255,255)
box 0,0,35,35,rgb(255,0,0),rgb(255,0,0),rgb(255,0,0),rgb(255,0,0)
box 65,0,100,35,rgb(0,255,0),rgb(0,255,0),rgb(0,255,0),rgb(0,255,0)
box 0,65,35,100,rgb(0,0,255),rgb(0,0,255),rgb(0,0,255),rgb(0,0,255)
box 65,65,100,100,rgb(255,255,0),rgb(255,255,0),rgb(255,255,0),rgb(255,255,0)

get image 1,0,0,100,100,1
cls 0

ColourKeys(1,2,rgb(255,0,0),rgb(0,255,0),rgb(0,0,255),rgb(255,255,0))

paste image 1,250,250,1
paste image 2,450,250,1
sync

suspend for key
end





function ColourKeys(ImageNum1 as integer,ImageNum2 as integer,Colour1 as dword,Colour2 as dword,Colour3 as dword,Colour4 as dword)
   Index1 as integer

   make memblock from image 256,ImageNum1

   for Index1 = 15 to (get memblock size(256) - 1) step 4

      `change the 0's at the end for different transparencies
      if memblock dword(256,Index1 - 3) = Colour1 then write memblock byte 256,Index1,0
      if memblock dword(256,Index1 - 3) = Colour2 then write memblock byte 256,Index1,0
      if memblock dword(256,Index1 - 3) = Colour3 then write memblock byte 256,Index1,0
      if memblock dword(256,Index1 - 3) = Colour4 then write memblock byte 256,Index1,0

   next Index1

   make image from memblock ImageNum2,256
   delete memblock 256
endfunction

Just the function

+ Code Snippet

function ColourKeys(ImageNum1 as integer,ImageNum2 as integer,Colour1 as dword,Colour2 as dword,Colour3 as dword,Colour4 as dword)
   Index1 as integer

   make memblock from image 256,ImageNum1

   for Index1 = 15 to (get memblock size(256) - 1) step 4

      `change the 0's at the end for different transparencies
      if memblock dword(256,Index1 - 3) = Colour1 then write memblock byte 256,Index1,0
      if memblock dword(256,Index1 - 3) = Colour2 then write memblock byte 256,Index1,0
      if memblock dword(256,Index1 - 3) = Colour3 then write memblock byte 256,Index1,0
      if memblock dword(256,Index1 - 3) = Colour4 then write memblock byte 256,Index1,0

   next Index1

   make image from memblock ImageNum2,256
   delete memblock 256
endfunction

DBC (enhanced) - (This should work but I have not tested it)

Example

set display mode 800,600,32

cls rgb(0,255,255)
box 0,0,35,35,rgb(255,0,0),rgb(255,0,0),rgb(255,0,0),rgb(255,0,0)
box 65,0,100,35,rgb(0,255,0),rgb(0,255,0),rgb(0,255,0),rgb(0,255,0)
box 0,65,35,100,rgb(0,0,255),rgb(0,0,255),rgb(0,0,255),rgb(0,0,255)
box 65,65,100,100,rgb(255,255,0),rgb(255,255,0),rgb(255,255,0),rgb(255,255,0)

get image 1,0,0,100,100,1
cls 0

ColourKeys(1,2,rgb(255,0,0),rgb(0,255,0),rgb(0,0,255),rgb(255,255,0))

paste image 1,250,250,1
paste image 2,450,250,1
sync

suspend for key
end

function ColourKeys(ImageNum1,ImageNum2,Colour1,Colour2,Colour3,Colour4)
   make memblock from image 256,ImageNum1

for Index1 = 15 to (get memblock size(256) - 1) step 4

`change the 0's at the end for different transparencies
      if memblock dword(256,Index1 - 3) = Colour1 then write memblock byte 256,Index1,0
      if memblock dword(256,Index1 - 3) = Colour2 then write memblock byte 256,Index1,0
      if memblock dword(256,Index1 - 3) = Colour3 then write memblock byte 256,Index1,0
      if memblock dword(256,Index1 - 3) = Colour4 then write memblock byte 256,Index1,0

next Index1

make image from memblock ImageNum2,256
   delete memblock 256
endfunction

+ Code Snippet

set display mode 800,600,32

cls rgb(0,255,255)
box 0,0,35,35,rgb(255,0,0),rgb(255,0,0),rgb(255,0,0),rgb(255,0,0)
box 65,0,100,35,rgb(0,255,0),rgb(0,255,0),rgb(0,255,0),rgb(0,255,0)
box 0,65,35,100,rgb(0,0,255),rgb(0,0,255),rgb(0,0,255),rgb(0,0,255)
box 65,65,100,100,rgb(255,255,0),rgb(255,255,0),rgb(255,255,0),rgb(255,255,0)

get image 1,0,0,100,100,1
cls 0

ColourKeys(1,2,rgb(255,0,0),rgb(0,255,0),rgb(0,0,255),rgb(255,255,0))

paste image 1,250,250,1
paste image 2,450,250,1
sync

suspend for key
end




function ColourKeys(ImageNum1,ImageNum2,Colour1,Colour2,Colour3,Colour4)
   make memblock from image 256,ImageNum1

   for Index1 = 15 to (get memblock size(256) - 1) step 4

      `change the 0's at the end for different transparencies
      if memblock dword(256,Index1 - 3) = Colour1 then write memblock byte 256,Index1,0
      if memblock dword(256,Index1 - 3) = Colour2 then write memblock byte 256,Index1,0
      if memblock dword(256,Index1 - 3) = Colour3 then write memblock byte 256,Index1,0
      if memblock dword(256,Index1 - 3) = Colour4 then write memblock byte 256,Index1,0

   next Index1

   make image from memblock ImageNum2,256
   delete memblock 256
endfunction

Just the function

+ Code Snippet

function ColourKeys(ImageNum1,ImageNum2,Colour1,Colour2,Colour3,Colour4)
   make memblock from image 256,ImageNum1

   for Index1 = 15 to (get memblock size(256) - 1) step 4

      `change the 0's at the end for different transparencies
      if memblock dword(256,Index1 - 3) = Colour1 then write memblock byte 256,Index1,0
      if memblock dword(256,Index1 - 3) = Colour2 then write memblock byte 256,Index1,0
      if memblock dword(256,Index1 - 3) = Colour3 then write memblock byte 256,Index1,0
      if memblock dword(256,Index1 - 3) = Colour4 then write memblock byte 256,Index1,0

   next Index1

   make image from memblock ImageNum2,256
   delete memblock 256
endfunction

Hope this helps

EDIT Damn you wmf

Back to top

Profile PM Email

wmf

21

Years of Service

User Offline

Joined: 6th Nov 2004

Location:

Posted: 6th Jan 2005 09:23

Link

correction

+ Code Snippet

image "colorscale.bmp", 1, 1 ` this could be get image 1,0,0,screen width()-1, screen Height()-1,1

i forgot, this is extremely fast on my pc.

Back to top

Profile PM

wmf

21

Years of Service

User Offline

Joined: 6th Nov 2004

Location:

Posted: 6th Jan 2005 09:27

Link

sorry pizzaman now there is two choices.
by the way, how come I don't have an edit button. anybody know.

Back to top

Profile PM

Black Shadow

21

Years of Service

User Offline

Joined: 14th Oct 2004

Location:

Posted: 11th Jan 2005 07:41 Edited at: 11th Jan 2005 07:42

Link

Thanks Pizzaman that was a real help.

Back to top

Profile PM

Sorry your browser is not supported!

2D All the way! / color key help