Sorry your browser is not supported!

DarthVader.  Good game, and got me hooked for a while.  Nice work.

RiiDii.  Great coding, no doubt about it.  Ultimately, I had to go on gameplay and how addictive it was as a gambling game.  If this was an AI challenge, you'd have won hands down.  But I don't blame you for getting carried away with the AI - I remember turning my Christmas scene challenge entry into a lightmapping challenge entry because I wanted to try out some code!  Strong runner up.

this may be a controversial one - be ready for a surprise .....

Ok I lied, just to add to the suspense!  No surprises at all, the best entry was:

Bill.  Based on the fact that as soon as I've posted this, I'm off to play it some more.  It's got me properly hooked.  Great game, and the clear winner.  Congratulations!

Set Display Mode 640, 480, 32
Sync On
SYnc rate 60

Type pixel
	loc as integer
	col as DWORD
	R as integer
	G As integer
	B As integer
endtype

PrevX As pixel
PrevY As pixel
Current As pixel

Make Memblock 1, 640*480*4

mem_point = get memblock ptr(1)

Write Memblock Dword 1, 0, RGB(255,0,0)
Write Memblock Dword 1, 100*640*4, RGB(0,255,0)
Write Memblock Dword 1, 100*4, RGB(0,0,255)


While 1
	inc Timesgoneby, 1
	For y = 479 To 0 Step -1
		For x = 639 To 0 Step -1
			If x <> 0
				prevx.loc = (y*640+(x-1))*4
				prevx.col = Memblock Dword(1,prevx.loc)
				prevx.R = RGBR(prevx.col)
				prevx.G = RGBG(prevx.col)
				prevx.B = RGBB(prevx.col)			
			Else
				prevx.R = 0
				prevx.G = 0
				prevx.B = 0				
			Endif

			if y <> 0
				prevy.loc = ((y-1)*640+x)*4
				prevy.col = Memblock Dword(1,prevy.loc)
				prevy.R = RGBR(prevy.col)
				prevy.G = RGBG(prevy.col)
				prevy.B = RGBB(prevy.col)
			Else
				prevy.R = 0
				prevy.G = 0
				prevy.B = 0
			Endif
			
			current.loc = (y*640+x)*4
			current.col = Memblock Dword(1,current.loc)
			current.R = RGBR(current.col)
			current.G = RGBG(current.col)
			current.B = RGBB(current.col)
			
			If current.R < prevx.R Then inc current.R,RND(prevx.R-current.R): if current.R > 255 Then current.R = 255
			If current.R < prevy.R THen inc current.R,RND(prevy.R-current.R): if current.R > 255 Then current.R = 255
			If current.G < prevx.G Then inc current.G,RND(prevx.G-current.G): if current.G > 255 Then current.G = 255
			If current.G < prevy.G THen inc current.G,RND(prevy.G-current.G): if current.G > 255 Then current.G = 255
			If current.B < prevx.B Then inc current.B,RND(prevx.B-current.B): if current.B > 255 Then current.B = 255
			If current.B < prevy.B THen inc current.B,RND(prevy.B-current.B): if current.B > 255 Then current.B = 255
						
			current.col = RGB(current.R, current.G,current.B)
			Write Memblock Dword 1, current.loc, current.col
			
		next x
	next y

	lock pixels
   copy memory get pixels pointer(), mem_point, 640*480*4
   unlock pixels

	Text 600,460,str$(TimesGoneBy)
	Sync
endwhile

Orange = (255,180,0)

Convert the 3 values to hex, each 2-digit hex is 1 byte.

 R  G  B
 |  |  |
 FF B4 00

So if you were to display the color in HTML, it'd be:

#FFB400

In decimal form:

16757760 = orange (there's your dword value)

type Constants
   ScreenWidth as word
   ScreenHeight as word
endtype

Global System as Constants
System.ScreenWidth = 320
System.ScreenHeight = 100

Global flame as float
flame = 4.02

sync on
backdrop on
color backdrop 0
hide mouse

make memblock 1, System.ScreenWidth*System.ScreenHeight*4 + 12
write memblock dword 1,0,System.ScreenWidth
write memblock dword 1,4,System.ScreenHeight
write memblock dword 1,8,32



REM get the image's width and height
width = memblock dword(1,0)
height = memblock dword(1,4)

REM create a new image from the memblock data
make image from memblock 3, 1

position camera 0,100,0

make object cylinder 1, 100
`ghost object on 1
set object light 1, 0
texture object 1, 3
position object 1, 0,50,200

make matrix 1,1000,1000,10,10

REM display the new image
repeat

   gosub _camera_control

   for y = 1 to System.Screenheight
      for x = 1 to System.ScreenWidth
         if y < System.ScreenHeight
            changePixel(x,y,newValue(x,y))
         else
            r = rnd(255)
            g = rnd(128)
            b = rnd(128)
            if g>r then g = r
            changePixel(x,System.ScreenHeight,rgb(r,g,b))
         endif
      next x
   next y

   make image from memblock 3, 1

   if mouseclick() = 1 then inc flame, 0.05
   if mouseclick() = 2 then dec flame, 0.05

   set cursor 0,0
   text 2,2, "FPS: "+str$(screen fps())
   text 2,16, "Flame: "+str$(flame)

   fastsync
until spacekey()



_camera_control:
   spd# = 2
   if upkey()=1
    cx#=newxvalue(cx#,a#,spd#)
    cz#=newzvalue(cz#,a#,spd#)
   endif
   if downkey()=1
    cx#=newxvalue(cx#,a#,-spd#)
    cz#=newzvalue(cz#,a#,-spd#)
   endif
   if leftkey()=1
    cx#=newxvalue(cx#,wrapvalue(a#-90.0),spd#)
    cz#=newzvalue(cz#,wrapvalue(a#-90.0),spd#)
   endif
   if rightkey()=1
    cx#=newxvalue(cx#,wrapvalue(a#+90.0),spd#)
    cz#=newzvalue(cz#,wrapvalue(a#+90.0),spd#)
   endif

   a#=wrapvalue(a#+(mousemovex()/3.0))
   cxa#=cxa#+(mousemovey()/3.0)
   if cxa#<-90.0 then cxa#=-90.0
   if cxa#>90.0 then cxa#=90.0
   position camera cx#,cy#+20,cz#
   rotate camera wrapvalue(cxa#),a#,0
RETURN




function getColor(x as integer, y as integer)
   if x < 1 or x > System.ScreenWidth or y < 1 or y > System.ScreenHeight then exitfunction rgb(0,0,0)
   mem = 1
   pos = ((y-1)*System.ScreenWidth + x - 1)*4 + 12
   c as dword
   c = memblock dword(mem, pos)
endfunction c



function changePixel(x as integer, y as integer, color as dword)
   if x > 0 and x <= System.ScreenWidth and y > 0 and y <= System.Screenheight
      mem = 1
      pos = ((y-1)*System.ScreenWidth + x - 1)*4 + 12
      write memblock dword mem, pos, color
   endif
endfunction



function newValue(x as integer, y as integer)
   local c as dword
   local r as integer
   local g as integer
   local b as integer

   c = getColor(x,y+1)
   r = rgbr(c)
   g = rgbg(c)
   b = rgbb(c)
   c = getColor(x-1,y+1)
   r = r + rgbr(c)
   g = g + rgbg(c)
   b = b + rgbb(c)
   c = getColor(x+1,y+1)
   r = r + rgbr(c)
   g = g + rgbg(c)
   b = b + rgbb(c)
   c = getColor(x,y+2)
   r = r + rgbr(c)
   g = g + rgbg(c)
   b = b + rgbb(c)

   r = r/flame
   g = g/flame
   b = b/flame

   c = rgb(r,g,b)
endfunction c

`setup
sync on : sync rate 0

`Create media (the 2 memblocks that have to be blended
box 0,0,256,256,rgb(255,0,0),rgb(0,255,0),rgb(0,0,255),rgb(255,255,255)
get image 1,0,0,256,256,1 : make memblock from image 1,1

ink rgb(255,0,0),0 : box 0,0,256,256
get image 2,0,0,256,256,1 : make memblock from image 2,2

BlendImageMemblocks(1, 2, 3, 50.0)
make image from memblock 3,3
perc# = 50.0

do

   cls

   `Controls
   if upkey() = 1
      inc perc#, 0.5
      if perc# > 100.0 then perc# = 100.0
      BlendImageMemblocks(1,2,3,perc#)
      make image from memblock 3,3
   endif
   if downkey()
      dec perc#, 0.5
      if perc# < 0.0 then perc# = 0.0
      BlendImageMemblocks(1,2,3,perc#)
      make image from memblock 3,3
   endif

   `Output
   paste image 3, 0, 0
   ink rgb(255,255,255),0
   text 0,400,"press up/down to slowly fade between the images..."
   text 0,420, left$(str$(perc#+0.05),4) + "%"

   sync
loop


`Function
function BlendImageMemblocks(Mem1, Mem2, RetMem, percent#)

   `Get data
   Width = memblock dword(Mem1, 0)
   Height = memblock dword(Mem1, 4)

   `setup teh returned memblock
   if memblock exist(RetMem)=0 then make memblock RetMem, 12 + (Width*Height*4)
   write memblock dword RetMem, 0, Width
   write memblock dword RetMem, 4, Height
   write memblock dword RetMem, 8, 32

   `blend
   for y = 1 to Height
      for x = 1 to Width
         pos = 12 + ((y-1)*Width*4) + ((x-1)*4)
         difblue#  = (memblock byte(Mem2, pos)   - memblock byte(Mem1, pos))
         difgreen# = (memblock byte(Mem2, pos+1) - memblock byte(Mem1, pos+1))
         difred#   = (memblock byte(Mem2, pos+2) - memblock byte(Mem1, pos+2))
         blue  = memblock byte(Mem1, pos)   + int(difblue# / 100.0 * percent#)
         green = memblock byte(Mem1, pos+1) + int(difgreen#/ 100.0 * percent#)
         red   = memblock byte(Mem1, pos+2) + int(difred#  / 100.0 * percent#)
         write memblock byte RetMem, pos, blue
         write memblock byte RetMem, pos+1, green
         write memblock byte RetMem, pos+2, red
         write memblock byte RetMem, pos+3, 255
      next x
   next y

endfunction

`setup
sync on : sync rate 0

`Create media (the 2 memblocks that have to be blended and the map)
`Create 2 images to blend
ink rgb(255,0,0),0 : box 0,0,128,128 : get image 1,0,0,128,128,1 : make memblock from image 1,1
ink rgb(0,255,0),0 : box 0,0,128,128 : get image 2,0,0,128,128,1 : make memblock from image 2,2

`Create map
box 0,0,128,128,rgb(0,0,0),rgb(0,0,0),rgb(0,0,0),rgb(255,255,255)
get image 3,0,0,128,128,1 : make memblock from image 3,3

`Create output
BlendMapImageMemblocks(1,2,4,3)
make image from memblock 4,4

do

   cls

   `Output
   paste image 1, 0, 0 : paste image 2,129,0 : paste image 3,258,0
   ink rgb(255,255,255),0
   center text 64,64,"Img 1"
   center text 193,64,"Img 2"
   center text 322,64,"Greyscale map"
   text 5, 185, "Output:"
   paste image 4,0,200

   sync
loop

function BlendMapImageMemblocks(Mem1, Mem2, RetMem, Map)

   `Get data
   Width = memblock dword(Mem1, 0)
   Height = memblock dword(Mem1, 4)

   `setup teh returned memblock
   if memblock exist(RetMem)=0 then make memblock RetMem, 12 + (Width*Height*4)
   write memblock dword RetMem, 0, Width
   write memblock dword RetMem, 4, Height
   write memblock dword RetMem, 8, 32

   `blend
   for y = 1 to Height
      for x = 1 to Width
         pos = 12 + ((y-1)*Width*4) + ((x-1)*4)
         difblue#  = (memblock byte(Mem2, pos)   - memblock byte(Mem1, pos))
         difgreen# = (memblock byte(Mem2, pos+1) - memblock byte(Mem1, pos+1))
         difred#   = (memblock byte(Mem2, pos+2) - memblock byte(Mem1, pos+2))
         blue  = memblock byte(Mem1, pos)   + int(difblue# / 255.0 * memblock byte(Map, pos))
         green = memblock byte(Mem1, pos+1) + int(difgreen#/ 255.0 * memblock byte(Map, pos+1))
         red   = memblock byte(Mem1, pos+2) + int(difred#  / 255.0 * memblock byte(Map, pos+2))
         write memblock byte RetMem, pos, blue
         write memblock byte RetMem, pos+1, green
         write memblock byte RetMem, pos+2, red
         write memblock byte RetMem, pos+3, 255
      next x
   next y

endfunction

1 2 1
2 4 2
1 2 1

0 0 0
1 1 1
0 0 0

sync on : sync rate 0

`Create media
cls
text 0,0,"Hello everyone!"
get image 1,0,0,text width("Hello everyone!"), text height("hello everyone!"),1
make memblock from image 1,1

BlurImage(1,2)
make image from memblock 2,2

BlurImage(2,3)
make image from memblock 3,3

do

   paste image 1,0,0
   paste image 2,0,100
   paste image 3,0,200

   sync
loop

`Functions
function BlurImage(mem, retmem)

   `Setup the returned memblock
   width = memblock dword(mem, 0)
   height = memblock dword(mem, 4)
   make memblock retmem, get memblock size(mem)
   write memblock dword retmem, 0, width
   write memblock dword retmem, 4, height
   write memblock dword retmem, 8, 32

   `Blur image data
   for y = 1 to height
      for x = 1 to width

         `Get current position
         pos = 12 + ((y-1)*width*4) + ((x-1)*4)

         `Initialize values
         blue = memblock byte(mem, pos) / 2
         green = memblock byte(mem, pos+1) / 2
         red = memblock byte(mem, pos+2) / 2

         `Get surrounding pixel data
         if x > 1
            npos = pos - 4
            blue = blue + (memblock byte(mem, npos)*0.08)
            green = green + (memblock byte(mem, npos+1)*0.08)
            red = red + (memblock byte(mem, npos+2)*0.08)

            `Corners
            if y > 1
               mpos = npos - (width*4)
               blue = blue + (memblock byte(mem, mpos)*0.045)
               green = green + (memblock byte(mem, mpos+1)*0.045)
               red = red + (memblock byte(mem, mpos+2)*0.045)
            endif
            if y < height
               mpos = npos + (width*4)
               blue = blue + (memblock byte(mem, mpos)*0.045)
               green = green + (memblock byte(mem, mpos+1)*0.045)
               red = red + (memblock byte(mem, mpos+2)*0.045)
            endif
         endif

         if x < width
            npos = pos + 4
            blue = blue + (memblock byte(mem, npos)*0.08)
            green = green + (memblock byte(mem, npos+1)*0.08)
            red = red + (memblock byte(mem, npos+2)*0.08)

            `Corners
            if y > 1
               mpos = npos - (width*4)
               blue = blue + (memblock byte(mem, mpos)*0.045)
               green = green + (memblock byte(mem, mpos+1)*0.045)
               red = red + (memblock byte(mem, mpos+2)*0.045)
            endif
            if y < height
               mpos = npos + (width*4)
               blue = blue + (memblock byte(mem, mpos)*0.045)
               green = green + (memblock byte(mem, mpos+1)*0.045)
               red = red + (memblock byte(mem, mpos+2)*0.045)
            endif
         endif

         if y > 1
            npos = pos - (width*4)
            blue = blue + (memblock byte(mem, npos)*0.08)
            green = green + (memblock byte(mem, npos+1)*0.08)
            red = red + (memblock byte(mem, npos+2)*0.08)
         endif
         if y < height
            npos = pos + (width*4)
            blue = blue + (memblock byte(mem, npos)*0.08)
            green = green + (memblock byte(mem, npos+1)*0.08)
            red = red + (memblock byte(mem, npos+2)*0.08)
         endif

         `Write new piceldata to returned memblock
         write memblock byte retmem, pos, blue
         write memblock byte retmem, pos+1, green
         write memblock byte retmem, pos+2, red

      next x
   next y

endfunction

1 2 1
2 4 2
1 2 1

0 0 0
1 1 1
0 0 0

1/16   2/16   1/16
2/16   4/16   2/16
1/16   2/16   1/16