Comparing Colors: Risk Clone - GameCreators Forum

Author

Message

wyatt822

16

Years of Service

User Offline

Joined: 16th Mar 2009

Location:

Posted: 16th Mar 2009 15:35

Link

Hi, I've been trying to find some help with comparing color values. I'm attempting to make a Risk clone, and have come across an issue with the FloodFill function allowing me to change the color of the ocean as well as the territories.

What I would like to try is looking at the rgb of the ocean areas. If the mouse is clicked on an area with that specific rgb value, the floodfill function should do nothing. Otherwise, it should color the area (as it does currently). Any suggestions would be much appreciated. Thanks in advance.

Attachments

Login to view attachments

Back to top

Profile PM Email

Caleb1994

16

Years of Service

User Offline

Joined: 10th Oct 2008

Location: The Internet you idiot!

Posted: 16th Mar 2009 20:25

Link

umm if currentcolor!newcolor then color land lol

New Site! Check it out \/

Back to top

Profile PM Website

wyatt822

16

Years of Service

User Offline

Joined: 16th Mar 2009

Location:

Posted: 16th Mar 2009 21:16

Link

@caleb
Makes complete sense to do it that way. I'll try it out. Thanks for the suggestion.

Back to top

Profile PM Email

Ashingda 27

17

Years of Service

User Offline

Joined: 15th Feb 2008

Location:

Posted: 17th Mar 2009 00:30

Link

@wyatt822
There was a problem with your coding. In your Main Loop you CLS but did not re-paste the images. If you're going to Floodfill a still image then it might be a good idea to not CLS at all.

Somethings you can do:
1. Save the original Background image (with both territories) as Image 1.
2. When you need to floodfill a territory, load up the original Image 1 and floodfill it then save into Image 2.
3. Use Image 2 as background. When you floodfill again repeat step 2.

Back to top

Profile PM Email

Caleb1994

16

Years of Service

User Offline

Joined: 10th Oct 2008

Location: The Internet you idiot!

Posted: 17th Mar 2009 02:16

Link

anytime. lol

New Site! Check it out \/

Back to top

Profile PM Website

wyatt822

16

Years of Service

User Offline

Joined: 16th Mar 2009

Location:

Posted: 17th Mar 2009 14:00

Link

Thanks for all of the suggestions.

@ashingda: I attempted something similar to what you suggested, which was kind of like something a friend had mentioned. It's still not perfect, but much better than before.

I have 2 identical images...but one with all territories colored gray (with different rgb values). This is the one that I use to color, then copy it over to and redisplay the game screen.

set window on
set window size 640,480
set window position 200,100
set window title "Earp's Empire"
sync on : sync rate 50

wd = screen width()
ht = screen height()
dp = screen depth()

load bitmap "game_screen.png",0
load bitmap "color_map.png",1

`Global Variables for FloodFill Function
global FloodWidth as integer
global FloodHeight as integer
global FloodBytes as integer

global FloodTargetColor as integer
global FloodFillColor as integer

global ScanLeftU as integer
global ScanRightU as integer

global dim ScanLeftD(ht) as integer
global dim ScanRightD(ht) as integer

`Setting up for the Memblock command.
FloodWidth = wd
FloodHeight = ht
FloodBytes = dp/8

mx as integer
my as integer
mc as integer
KeyM as integer
T as integer
c as integer

do
   set current bitmap 0
   mc = mouseclick()
   mx = mousex()
   my = mousey()

if mc = 1
      dim MouseCoord(mx,my)
      set current bitmap 1
      color = point(mx,my)
      for i = 70 to 71
         if rgbr(color) = i and rgbg(color) = i and rgbb(color) = i
            if KeyM = 0
               `Calling the Function
               T = Timer()
               c = rgb(rnd(255),rnd(255),rnd(255))
               `c = rgb(255,255,0)
               FloodFill(mx,my,c)
               T = Timer()-T
            endif
            KeyM = 1
            else
            KeyM = 0
         endif
      next i
   endif
   copy bitmap 1,0
   set current bitmap 0
   sync

loop

function FloodFill(x as integer,y as integer,FillColor as integer)
   `Reset Values
   ScanLeftU = x
   ScanRightU = x

for lp = 0 to FloodHeight
      ScanLeftD(lp) = x
      ScanRightD(lp) = x
   next lp

`Creating the Memblock from the second Bitmap.
   make memblock from bitmap 1,1

`16Bit Mode or 32bit mode
   if FloodBytes = 2
      local r as integer
      local g as integer
      local b as integer

`Getting the FillColor
      r = (rgbr(FillColor)*63488.0)/255
      g = (rgbg(FillColor)*2016.0)/255
      b = (rgbb(FillColor)*31.0)/255
      FloodFillColor = r||g||b
      `Getting Target Color
      pos = 12+(x+y*FloodWidth)*FloodBytes
      FloodTargetColor = memblock word(1,pos)
      `Fills the first Dot
      write memblock word 1,pos,FloodFillColor
      else
      `Getting the FillColor
      FloodFillColor = FillColor
      `Getting Target Color
      pos = 12+(x+y*FloodWidth)*FloodBytes
      FloodTargetColor = memblock dword(1,pos)
      `Fills the first Dot
      write memblock dword 1,pos,FloodFillColor
   endif

`Calling the FloodLoop
   if FloodTargetColor <> FloodFillColor then FloodLoop(x,y)
   `Convert to Image and paste onto screen
   make image from memblock 1,1
   paste image 1,0,0
endfunction

function FloodLoop(x as integer,y as integer)
   local Left as integer
   local Right as integer
   local posY as integer
   posY = y*FloodWidth*FloodBytes

`Left
   for Left = x-1 to 0 step -1
      pos = 12+(Left*FloodBytes)+posY
      `Check 16bit or 32bit
      if FloodBytes = 2
         if memblock word(1,pos) <> FloodTargetColor then exit
         write memblock word 1,pos,FloodFillColor
         else
         if memblock dword(1,pos) <> FloodTargetColor then exit
         write memblock dword 1,pos,FloodFillColor
      endif
   next Left
   inc Left

`Right
   for Right = x+1 to FloodWidth-1
      pos = 12+(Right*FloodBytes)+posY
      `Check 16bit or 32bit
      if FloodBytes = 2
         if memblock word(1,pos) <> FloodTargetColor then exit
         write memblock word 1,pos,FloodFillColor
         else
         if memblock dword(1,pos) <> FloodTargetColor then exit
         write memblock dword 1,pos,FloodFillColor
      endif
   next Right
   dec Right

`Move Up
   dec y
   posY = y*FloodWidth*FloodBytes
   if y > 0
      for x = Left to Right
         if x < ScanLeftU or x > ScanRightU
            pos = 12+(x*FloodBytes)+posY
            `Check 16bit or 32bit
            if FloodBytes = 2
               if memblock word(1,pos) = FloodTargetColor
                  ScanLeftD(y) = Left
                  ScanRightD(y) = Right
                  write memblock word 1,pos,FloodFillColor
                  FloodLoop(x,y)
               endif
               else
               if memblock dword(1,12+x*FloodBytes+posY) = FloodTargetColor
                  ScanLeftD(y) = Left
                  ScanRightD(y) = Right
                  write memblock dword 1,pos,FloodFillColor
                  FloodLoop(x,y)
               endif
            endif
            else
            x = ScanRightU+1
         endif
      next x
   endif
   inc y

ScanLeftU = Left
   ScanRightU = Right

`Move Down
   ScanY = y
   inc y
   posY = y*FloodWidth*FloodBytes
   if y < FloodHeight-1
      for x = Left to Right
         if x < ScanLeftD(ScanY) or x > ScanRightD(ScanY)
            pos = 12+(x*FloodBytes)+posY
            `Check 16bit or 32bit
            if FloodBytes = 2
               if memblock word(1,pos) = FloodTargetColor
                  write memblock word 1,pos,FloodFillColor
                  FloodLoop(x,y)
               endif
               else
               if memblock dword(1,pos) = FloodTargetColor
                  write memblock dword 1,pos,FloodFillColor
                  FloodLoop(x,y)
               endif
            endif
            else
            x = ScanRightD(ScanY)+1
         endif
      next x
   endif
   dec y

if y > 0
      ScanLeftD(y-1) = Left
      ScanRightD(y-1) = Right
   endif
endfunction

+ Code Snippet

set window on
set window size 640,480
set window position 200,100
set window title "Earp's Empire"
sync on : sync rate 50

wd = screen width()
ht = screen height()
dp = screen depth()

load bitmap "game_screen.png",0
load bitmap "color_map.png",1

`Global Variables for FloodFill Function
global FloodWidth as integer
global FloodHeight as integer
global FloodBytes as integer

global FloodTargetColor as integer
global FloodFillColor as integer

global ScanLeftU as integer
global ScanRightU as integer

global dim ScanLeftD(ht) as integer
global dim ScanRightD(ht) as integer

`Setting up for the Memblock command.
FloodWidth = wd
FloodHeight = ht
FloodBytes = dp/8

mx as integer
my as integer
mc as integer
KeyM as integer
T as integer
c as integer

do
   set current bitmap 0
   mc = mouseclick()
   mx = mousex()
   my = mousey()

   if mc = 1
      dim MouseCoord(mx,my)
      set current bitmap 1
      color = point(mx,my)
      for i = 70 to 71
         if rgbr(color) = i and rgbg(color) = i and rgbb(color) = i
            if KeyM = 0
               `Calling the Function
               T = Timer()
               c = rgb(rnd(255),rnd(255),rnd(255))
               `c = rgb(255,255,0)
               FloodFill(mx,my,c)
               T = Timer()-T
            endif
            KeyM = 1
            else
            KeyM = 0
         endif
      next i
   endif
   copy bitmap 1,0
   set current bitmap 0
   sync

loop

function FloodFill(x as integer,y as integer,FillColor as integer)
   `Reset Values
   ScanLeftU = x
   ScanRightU = x

   for lp = 0 to FloodHeight
      ScanLeftD(lp) = x
      ScanRightD(lp) = x
   next lp

   `Creating the Memblock from the second Bitmap.
   make memblock from bitmap 1,1

   `16Bit Mode or 32bit mode
   if FloodBytes = 2
      local r as integer
      local g as integer
      local b as integer

      `Getting the FillColor
      r = (rgbr(FillColor)*63488.0)/255
      g = (rgbg(FillColor)*2016.0)/255
      b = (rgbb(FillColor)*31.0)/255
      FloodFillColor = r||g||b
      `Getting Target Color
      pos = 12+(x+y*FloodWidth)*FloodBytes
      FloodTargetColor = memblock word(1,pos)
      `Fills the first Dot
      write memblock word 1,pos,FloodFillColor
      else
      `Getting the FillColor
      FloodFillColor = FillColor
      `Getting Target Color
      pos = 12+(x+y*FloodWidth)*FloodBytes
      FloodTargetColor = memblock dword(1,pos)
      `Fills the first Dot
      write memblock dword 1,pos,FloodFillColor
   endif

   `Calling the FloodLoop
   if FloodTargetColor <> FloodFillColor then FloodLoop(x,y)
   `Convert to Image and paste onto screen
   make image from memblock 1,1
   paste image 1,0,0
endfunction

function FloodLoop(x as integer,y as integer)
   local Left as integer
   local Right as integer
   local posY as integer
   posY = y*FloodWidth*FloodBytes

   `Left
   for Left = x-1 to 0 step -1
      pos = 12+(Left*FloodBytes)+posY
      `Check 16bit or 32bit
      if FloodBytes = 2
         if memblock word(1,pos) <> FloodTargetColor then exit
         write memblock word 1,pos,FloodFillColor
         else
         if memblock dword(1,pos) <> FloodTargetColor then exit
         write memblock dword 1,pos,FloodFillColor
      endif
   next Left
   inc Left

   `Right
   for Right = x+1 to FloodWidth-1
      pos = 12+(Right*FloodBytes)+posY
      `Check 16bit or 32bit
      if FloodBytes = 2
         if memblock word(1,pos) <> FloodTargetColor then exit
         write memblock word 1,pos,FloodFillColor
         else
         if memblock dword(1,pos) <> FloodTargetColor then exit
         write memblock dword 1,pos,FloodFillColor
      endif
   next Right
   dec Right

   `Move Up
   dec y
   posY = y*FloodWidth*FloodBytes
   if y > 0
      for x = Left to Right
         if x < ScanLeftU or x > ScanRightU
            pos = 12+(x*FloodBytes)+posY
            `Check 16bit or 32bit
            if FloodBytes = 2
               if memblock word(1,pos) = FloodTargetColor
                  ScanLeftD(y) = Left
                  ScanRightD(y) = Right
                  write memblock word 1,pos,FloodFillColor
                  FloodLoop(x,y)
               endif
               else
               if memblock dword(1,12+x*FloodBytes+posY) = FloodTargetColor
                  ScanLeftD(y) = Left
                  ScanRightD(y) = Right
                  write memblock dword 1,pos,FloodFillColor
                  FloodLoop(x,y)
               endif
            endif
            else
            x = ScanRightU+1
         endif
      next x
   endif
   inc y

   ScanLeftU = Left
   ScanRightU = Right

   `Move Down
   ScanY = y
   inc y
   posY = y*FloodWidth*FloodBytes
   if y < FloodHeight-1
      for x = Left to Right
         if x < ScanLeftD(ScanY) or x > ScanRightD(ScanY)
            pos = 12+(x*FloodBytes)+posY
            `Check 16bit or 32bit
            if FloodBytes = 2
               if memblock word(1,pos) = FloodTargetColor
                  write memblock word 1,pos,FloodFillColor
                  FloodLoop(x,y)
               endif
               else
               if memblock dword(1,pos) = FloodTargetColor
                  write memblock dword 1,pos,FloodFillColor
                  FloodLoop(x,y)
               endif
            endif
            else
            x = ScanRightD(ScanY)+1
         endif
      next x
   endif
   dec y

   if y > 0
      ScanLeftD(y-1) = Left
      ScanRightD(y-1) = Right
   endif
endfunction

[img]null[/img]

Attachments

Login to view attachments

Back to top

Profile PM Email

Libervurto

18

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 19th Mar 2009 08:08

Link

How many different colours are there?
you could just make several images of different colour for each country, that's what all the versions I've seen do.
Not as fun but a lot quicker.
Unless you're planning on having movable borders which would be cool and really complicated

The Universe has been erased by a mod because it was larger
than 240x80 pixels.

Back to top

Profile PM Email

Ashingda 27

17

Years of Service

User Offline

Joined: 15th Feb 2008

Location:

Posted: 19th Mar 2009 20:17

Link

@wyatt822
Your codes are still in DBP version, it won't run in DBC as it is.

Back on topic, there are better options than using a floodfill to get the same effect.

I think it's a good idea if you learn how to do Buttons with colorkey first.

I'll give you an example of how it works:

set display mode 640,480,32
sync on
sync rate 0

REM Setting up Colorkey
create bitmap 1,640,480

REM Red box
	ink rgb(255,0,0),0
	box 290,200,400,320

REM Yellow Box
	ink rgb(0,255,0),0
	box 230,250,350,340

set current bitmap 0

REM Background Image
	ink rgb(155,155,155),0
	box 290,200,400,320
	ink rgb(255,255,255),0
	box 290+1,200+1,400-1,320-1

ink rgb(155,155,155),0
	box 230,250,350,340
	ink rgb(255,255,255),0
	box 230+1,250+1,350-1,340-1

get image 1,0,0,640,480,1

REM ***********************************************************************
REM * Main Loop                                                           *
REM ***********************************************************************
do
	mc = mouseclick()
	mx = mousex()
	my = mousey()

if mc = 1

set current bitmap 1
			c = point(mx,my)
		set current bitmap 0

ink rgb(255,255,255),0
		if c = rgb(255,0,0) then text 0,0,"RED"
		if c = rgb(0,255,0) then text 0,0,"GREEN"

endif

paste image 1,0,0,1

sync : cls
loop

+ Code Snippet

set display mode 640,480,32
sync on
sync rate 0


REM Setting up Colorkey
create bitmap 1,640,480

	REM Red box
	ink rgb(255,0,0),0
	box 290,200,400,320

	REM Yellow Box
	ink rgb(0,255,0),0
	box 230,250,350,340

set current bitmap 0




REM Background Image
	ink rgb(155,155,155),0
	box 290,200,400,320
	ink rgb(255,255,255),0
	box 290+1,200+1,400-1,320-1

	ink rgb(155,155,155),0
	box 230,250,350,340
	ink rgb(255,255,255),0
	box 230+1,250+1,350-1,340-1

get image 1,0,0,640,480,1



REM ***********************************************************************
REM * Main Loop                                                           *
REM ***********************************************************************
do
	mc = mouseclick()
	mx = mousex()
	my = mousey()

	if mc = 1

		set current bitmap 1
			c = point(mx,my)
		set current bitmap 0

		ink rgb(255,255,255),0
		if c = rgb(255,0,0) then text 0,0,"RED"
		if c = rgb(0,255,0) then text 0,0,"GREEN"

	endif

	paste image 1,0,0,1

	sync : cls
loop

Use the mouse and click on the boxes.

Back to top

Profile PM Email

wyatt822

16

Years of Service

User Offline

Joined: 16th Mar 2009

Location:

Posted: 26th Mar 2009 14:29

Link

Sorry I haven't been responding...I've been sick and haven't had time to get in and read the suggestions/write back. I'll get to trying out the above suggestions in the next week or so and will be sure to respond. Thanks everyone.

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Discussion / Comparing Colors: Risk Clone

Attachments

Attachments