Hydra Sudoku - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|85\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Console Coding -> Hydra Sudoku
Mon, 26 Mar 2007, 13:08
flying_cucco	I've begun 'porting' (ie rewriting from scratch) my Sudoku solver to Spin. Sort of a "hello world" for me . It should be quite easy to thread, which could be a good intro to multiprocessing a task, where uptil now each cog has done its own thing. \|edit\| removed - grr crummy laptop \|edit\| Slow progress, but I never get any time these days . What has powermousey been upto?
Missing Content This used to be a post by power mousey but the content has been deleted.
Missing Content This used to be a large post by Agent but the content has been deleted.
Missing Content This used to be a small post by power mousey but the content has been deleted.
Tue, 27 Mar 2007, 08:38
flying_cucco	My 'website' is an old laptop with a webserver on it. It was working last night - probably crashed. I'll reboot it when I get home. \|edit\| Try that \|edit\|
Missing Content This used to be a post by power mousey but the content has been deleted.
Tue, 27 Mar 2007, 13:31
flying_cucco	Damn. Win 95 isn't the best OS to host a webserver on Try now.
Missing Content This used to be a small post by power mousey but the content has been deleted.
Tue, 27 Mar 2007, 14:35
flying_cucco	Grrr. I even tried it with a proxy to test - it worked fine! \|edit\| I'd post a link to the proxy, but it just says permission denied \|edit\| \|edit\| Screw it, forget the clips. This is the latest iteration, stil not optimal (nor parallel) but getting better. \|edit\|
Missing Content This used to be a post by power mousey but the content has been deleted.
Sat, 31 Mar 2007, 08:45
flying_cucco	Thanks mousey, but I only wrote the Sudoku part! Anyway, here is a much faster, more robust version: \|edit\| updated below \|edit\| given that few people here will have Propller hardware, I'll try and sort out some videos or something (again)
Missing Content This used to be a small post by power mousey but the content has been deleted.
Sat, 31 Mar 2007, 09:02
flying_cucco	\|edit\| gone \|edit\| video (limited time only)
Missing Content This used to be a large post by power mousey but the content has been deleted.
Sun, 01 Apr 2007, 09:20
flying_cucco	All done (or at least working). All the dependants can be got from the CD or the Propeller Object Exchange over at Parallax. {{ Fly Sudoku 1.9 (c) 2007 Rob Haskell (FlyingCucco) Portions of this program (c) 2006 Nurve Networks LLC Portions of this program (c) 2005-2007 Parallax, Inc. Uses "HEL_GFX_ENGINE_040" "Real_Random_012" "mouse_iso_010" "keyboard_iso_010" }} CON majorversion=1 minorversion=9 ' Propeller ///////////////////////////////////////////////////////////////////////////////// _clkmode = xtal2 + pll8x ' enable external clock range 5-10MHz and pll times 8 _xinfreq = 10_000_000 + 0000 ' set frequency to 10 MHZ plus some error due to XTAL (1000-5000 usually works) _stack = 128 ' accomodate display memory and stack VAR ' HEL_GFX ///////////////////////////////////////////////////////////////////////////////// ' tile engine data structure pointers (can be changed in real-time by app!) long tile_map_base_ptr_parm ' base address of the tile map long tile_bitmaps_base_ptr_parm ' base address of the tile bitmaps long tile_palettes_base_ptr_parm ' base address of the palettes long tile_map_sprite_cntrl_parm ' pointer to the value that holds various "control" values for the tile map/sprite engine ' currently, encodes width of map, and number of sprites to process up to 8 in following format ' $xx_xx_ss_ww, xx is don't care/unused ' ss = number of sprites to process 1..8 ' ww = the number of "screens" or multiples of 16 that the tile map is ' eg. 0 would be 16 wide (standard), 1 would be 32 tiles, 2 would be 64 tiles, etc. ' this allows multiscreen width playfields and thus large horizontal/vertical scrolling games ' note that the final size is always a power of 2 multiple of 16 long tile_sprite_tbl_base_ptr_parm ' base address of sprite table ' real-time engine status variables, these are updated in real time by the ' tile engine itself, so they can be monitored outside in SPIN/ASM by game long tile_status_bits_parm ' vsync, hsync, etc. ' format of tile_status_bits_parm, only the Vsync status bit is updated ' ' byte 3 (unused)\|byte 2 (line)\| byte 1 (tile postion) \| byte 0 (sync and region) \| '\|x x x x x x x x\| line 8-bits \| row 4 bits \| column 4-bits \|x x x x \| region 2-bits \| hsync 1-bit \| vsync 1-bit\| ' b31..b24 b23..b16 b15..b12 b11..b8 b3..b2 b1 b0 ' Region 0=Top Overscan, 1=Active Video, 2=Bottom Overscan, 3=Vsync ' NOTE: In this version of the tile engine only VSYNC and REGION are valid long sprites[16] ' Game ///////////////////////////////////////////////////////////////////////////////// 'state byte level 'grid byte Grid[81] byte OriginalGrid[162] byte GridPoss[810] byte GridLock[81] 'display word activetilemap[192] 'mouse byte mousex byte mousey 'cell selection byte cellx byte celly OBJ gfx : "HEL_GFX_ENGINE_040" rr : "Real_Random_012" mouse : "mouse_iso_010" keyboard : "keyboard_iso_010" PUB Main \| x,y,i,n,k,tempcellx,tempcelly 'Initialize Variables ///////////////////////////////////////////////////////////////////////////////// 'Graphics 'points ptrs to actual memory storage for tile engine tile_map_base_ptr_parm := @activetilemap tile_bitmaps_base_ptr_parm := @tile_bitmaps tile_palettes_base_ptr_parm := @palettes tile_map_sprite_cntrl_parm := $00_00_02_00 ' set for 0 sprites and width 16 tiles (1 screens wide), '0 = 16 tiles, 1 = 32 tiles, 2 = 64 tiles, 3 = 128 tiles, etc. tile_sprite_tbl_base_ptr_parm := @sprites tile_status_bits_parm := 0 'Start Drivers ///////////////////////////////////////////////////////////////////////////////// 'start the mouse mouse.start(2) 'ps/2 mouse on pins 8-11 'start the keyboard keyboard.start(3) 'ps/2 keyboard on pins 12-15 'start the graphics engine gfx.start(@tile_map_base_ptr_parm) 'start random number generator rr.start 'Start Game ///////////////////////////////////////////////////////////////////////////////// 'disable sprites sprites[0] := $00 sprites[2] := $00 'make starting puzzle Make 'copy game tilemap repeat n from 0 to 191 activetilemap[n]:=tile_map[n] 'draw grid, set poss repeat x from 0 to 8 repeat y from 0 to 8 DrawCell(x,y) CheckCell(x,y) 'position cell cursor cellx:=4 celly:=4 'mouse sprite sprites[3] := @mousesprite 'box cursor sprite sprites[1] := @boxsprite ' Main Loop ///////////////////////////////////////////////////////////////////////////////// repeat '/////////////////////////////////////////////////////////////////// 'draw 'draw mouse sprites[2] :=(mousey<<24)+(mousex<<16)+1 'draw cell highlight sprites[0]:=((celly+1)<<28)+((cellx+1)<<20)+1 'draw possibles bar DrawCellPoss(cellx,celly) '/////////////////////////////////////////////////////////////////// 'mouse 'mouse position mousex:=mouse.abs_x mousey:=-mouse.abs_y 'select cell - lmb if mouse.button(0)==true tempcellx:=mousex>>4 'is x in bounds if tempcellx=>1 if tempcellx=<9 tempcelly:=mousey>>4 'is y in bounds if tempcelly=>1 if tempcelly=<9 cellx:=tempcellx-1 'select cell celly:=tempcelly-1 i:=(celly9)+cellx '/////////////////////////////////////////////////////////////////// 'keyboard 'get keypress k:=keyboard.key 'do cell set if number key pressed if k>$30 if k<$3A if GridLock[i]==0 SetCell(cellx,celly,k-$30,0) DrawCell(cellx,celly) CheckGrid 'do cell clear if backspace key pressed if k==$C8 if GridLock[i]==0 SetCell(cellx,celly,0,0) DrawCell(cellx,celly) CheckGrid 'toggle lock if L key pressed if k==$6C if Grid[i]>0 GridLock[i]:=1-GridLock[i] DrawCell(cellx,celly) 'solve if S key pressed if k==$73 Solve repeat x from 0 to 8 repeat y from 0 to 8 DrawCell(x,y) 'make new if N key pressed if k==$6E Make repeat x from 0 to 8 repeat y from 0 to 8 DrawCell(x,y) 'restart grid if R key pressed if k==$72 repeat x from 0 to 8 repeat y from 0 to 8 i:=(y9)+x if GridLock[i]==0 Grid[i]:=0 DrawCell(x,y) CheckGrid 'clear grid if C key pressed if k==$63 repeat x from 0 to 8 repeat y from 0 to 8 i:=(y9)+x GridLock[i]:=0 Grid[i]:=0 DrawCell(x,y) CheckGrid PUB Make \| x,y,i,j ''Generate a new puzzle in Grid[] 'clear repeat x from 0 to 8 repeat y from 0 to 8 i:=(y9)+x Grid[i]:=0 'solve until done repeat if Solve==1 quit 'blank some squares repeat j from 1 to 53 x:=\|\|rr.random//9 y:=\|\|rr.random//9 i:=(y9)+x if Grid[i]==0 j-- GridLock[i]:=0 Grid[i]:=0 repeat x from 0 to 8 repeat y from 0 to 8 i:=(y9)+x if Grid[i]>0 GridLock[i]:=1 CheckCell(x,y) PUB Solve \| newcellsolved,x,y,i,n,lives ''Automatically solves Sudoku in Grid[] lives:=10 level:=1 'Store starting grid repeat x from 0 to 8 repeat y from 0 to 8 i:=(y9)+x OriginalGrid[i]:=Grid[i] OriginalGrid[i+81]:=GridLock[i] 'display grid while we're at it ' DrawCell(x,y) 'check grid posibilities too CheckCell(x,y) repeat 'solve! newcellsolved:=0 repeat x from 0 to 8 repeat y from 0 to 8 i:=(y9)+x 'if empty if Grid[i]==0 'check level of cell if GridPoss[i]==level 'fill cell n:=SolveCell(x,y) 'update graphics 'DrawCell(x,y) 'update surrounding cells' possibilities UpdateNeighbors(x,y,n) 'decrement level newcellsolved:=1 level-- if level==0 level:=1 'no cells at current level - increase if newcellsolved==0 level++ 'no cells solveable if level==10 'check if won if ValidateGrid==1 return 1 'lose, retart level:=1 'restore starting grid repeat x from 0 to 8 repeat y from 0 to 8 i:=(y9)+x Grid[i]:=OriginalGrid[i] GridLock[i]:=OriginalGrid[i+81] ' DrawCell(x,y) CheckGrid 'lose a life lives-- 'give up if lives==0 return 0 pri SolveCell(x,y) \| randomnumber,i,n 'Fill in Cell (x,y) with number picked randomly from possible pool randomnumber:=\|\|rr.random//level randomnumber++ i:=(y9)+x repeat n from 1 to 9 'loop numbers if GridPoss[(n81)+i]==0 'if possible if --randomnumber==0 'and count down (random) finished SetCell(x,y,n,0) 'put number in cell cell return n pri CheckGrid \| cx,cy 'Check levels for whole grid 'old cell update repeat cx from 0 to 8 repeat cy from 0 to 8 CheckCell (cx,cy) pri CheckCell (x,y) \| cx,cy,n,i,boxx,boxy 'Check possibilities for cell (x,y) and set level i:=(y9)+x 'index repeat n from 1 to 9 'blank possibilities for this cell GridPoss[(n81)+i]:=0 'check dependant cells to find possibilities 'row repeat cx from 0 to 8 'loop row if cx<>x 'not same cell n:=Grid[(y9)+cx] 'get number in cell if n>0 'is there one? Gridposs[(n81)+i]:=1 'set possibilities 'column repeat cy from 0 to 8 'loop column if cy<>y 'not same cell n:=Grid[(cy9)+x] 'get number in cell if n>0 'is there one? Gridposs[(n81)+i]:=1 'set possibilities 'box boxx:=(x/3)3 'find box boxy:=(y/3)3 repeat cx from boxx to boxx+2 'loop box repeat cy from boxy to boxy+2 if cx<>x 'not same column if cy<>y 'not same row n:=Grid[(cy9)+cx] 'get number in cell if n>0 'is there one? Gridposs[(n81)+i]:=1 'set possibilities 'update cell level GridPoss[i]:=9 'level 9 is all possible repeat n from 1 to 9 'loop numbers if GridPoss[(n81)+i]>0 'if already present GridPoss[i]-- 'decrement cell level pri UpdateNeighbors(x,y,n) \| cx,cy,boxx,boxy 'Fast update level of dependant cells after cell (x,y) adds number n 'row repeat cx from 0 to 8 'loop row if Grid[(y9)+cx]==0 'cell empty if cx<>x 'not same cell UpdateCell(cx,y,n) 'update cell 'column repeat cy from 0 to 8 'loop column if Grid[(cy9)+x]==0 'cell empty if cy<>y 'not same cell UpdateCell(x,cy,n) 'update cell 'box boxx:=(x/3)3 'find box boxy:=(y/3)3 repeat cx from boxx to boxx+2 'loop box repeat cy from boxy to boxy+2 if Grid[(cy9)+cx]==0 'cell empty if cx<>x 'not same column if cy<>y 'not same row UpdateCell(cx,cy,n) 'update cell pri UpdateCell (x,y,n) \| i,ni 'Fast update cell (x,y) level after addition of number n in dependant cell i:=(y9)+x 'index ni:=(n81)+i if Grid[i]==0 'if cell empty if GridPoss[ni]==0 'if was not already present GridPoss[ni]:=1 'set present GridPoss[i]-- 'decrement level PRI SetCell(x,y,n,l) \| i 'Set cell at (x,y) to number n and lock if l i:=(y9)+x Grid[i]:=n Gridlock[i]:=l pri ValidateGrid \| x,y,i,total 'check if grid solved ok CheckGrid repeat x from 0 to 8 repeat y from 0 to 8 i:=(y9)+x total:=total+Grid[i] 'count total if GridPoss[i]<>1 'more/less than one possibility return 0 if GridPoss[(Grid[i]81)+i]>0 'fill doesn't match that possibility return 0 if total<>405 'the magic number 19 + 29 + ... 99 'success return 1 PRI DrawCell(x,y) \| i,j 'Update Cell on HEL_GFX tilemap 'grid index i:=(y9)+x 'tilemap index j:=(y16)+x 'keep palette intact, replace number activetilemap[j]:=(tile_map[j]&$FF00) + Grid[i] 'change palette to hilight locked cells if so if Gridlock[i]==1 activetilemap[j]:=activetilemap[j]+$02_00 PRI DrawCellPoss(x,y) \| i,n,j 'Update display of which numbers are possible on HEL_GFX tilemap i:=(y9)+x repeat n from 1 to 9 j:=159+n if GridPoss[(n*81)+i]==0 if Grid[i]==n activetilemap[j]:=(tile_map[j]&$FF00)+n+$02_00 'hilight current (ok) else activetilemap[j]:=(tile_map[j]&$FF00)+n 'possible else if Grid[i]==n activetilemap[j]:=(tile_map[j]&$FF00)+n+$03_00 'hilight current (warning!) else activetilemap[j]:=(tile_map[j]&$FF00)+n+$01_00 'not possible DAT ' Map tiles ///////////////////////////////////////////////////////////////////////////////// tile_map word $01_00,$01_00,$01_00,$00_00,$00_00,$00_00,$01_00,$01_00,$01_00,$04_0a,$00_01,$00_01,$00_01,$00_01,$00_01,$00_01 ' row 0 word $01_00,$01_00,$01_00,$00_00,$00_00,$00_00,$01_00,$01_00,$01_00,$04_00,$00_01,$00_01,$00_01,$00_01,$00_01,$00_01 ' row 0 word $01_00,$01_00,$01_00,$00_00,$00_00,$00_00,$01_00,$01_00,$01_00,$04_00,$00_01,$00_01,$00_01,$00_01,$00_01,$00_01 ' row 0 word $00_00,$00_00,$00_00,$01_00,$01_00,$01_00,$00_00,$00_00,$00_00,$04_00,$00_01,$00_01,$00_01,$00_01,$00_01,$00_01 ' row 0 word $00_00,$00_00,$00_00,$01_00,$01_00,$01_00,$00_00,$00_00,$00_00,$04_00,$00_01,$00_01,$00_01,$00_01,$00_01,$00_01 ' row 0 word $00_00,$00_00,$00_00,$01_00,$01_00,$01_00,$00_00,$00_00,$00_00,$04_00,$00_01,$00_01,$00_01,$00_01,$00_01,$00_01 ' row 0 word $01_00,$01_00,$01_00,$00_00,$00_00,$00_00,$01_00,$01_00,$01_00,$04_00,$00_01,$00_01,$00_01,$00_01,$00_01,$00_01 ' row 0 word $01_00,$01_00,$01_00,$00_00,$00_00,$00_00,$01_00,$01_00,$01_00,$04_00,$00_01,$00_01,$00_01,$00_01,$00_01,$00_01 ' row 0 word $01_00,$01_00,$01_00,$00_00,$00_00,$00_00,$01_00,$01_00,$01_00,$04_00,$00_01,$00_01,$00_01,$00_01,$00_01,$00_01 ' row 0 word $07_00,$0C_11,$07_0b,$07_0c,$07_0d,$07_0e,$07_0f,$07_10,$07_00,$04_00,$00_01,$00_01,$00_01,$00_01,$00_01,$00_01 ' row 0 word $08_00,$08_00,$08_00,$08_00,$08_00,$08_00,$08_00,$08_00,$08_00,$04_00,$00_01,$00_01,$00_01,$00_01,$00_01,$00_01 ' row 0 word $06_0a,$05_00,$05_00,$05_00,$05_00,$05_00,$05_00,$05_00,$05_00,$05_0a,$00_01,$00_01,$00_01,$00_01,$00_01,$00_01 ' row 0 ' Tile bitmaps ///////////////////////////////////////////////////////////////////////////////// tile_bitmaps '22 Feb 2007 18:46:29 'sprite converter 0.01 - (c) flying cucco '_.bmp Long %%0000000000000000 Long %%0000000000000000 Long %%0000000000000000 Long %%0000000000000000 Long %%0000000000000000 Long %%0000000000000000 Long %%0000000000000000 Long %%0000000000000000 Long %%0000000000000000 Long %%0000000000000000 Long %%0000000000000000 Long %%0000000000000000 Long %%0000000000000000 Long %%0000000000000000 Long %%0000000000000000 Long %%0000000000000000 '1.bmp Long %%0000000000000000 Long %%0000000000000000 Long %%0000000011000000 Long %%0000000011100000 Long %%0000000011110000 Long %%0000000011000000 Long %%0000000011000000 Long %%0000000011000000 Long %%0000000011000000 Long %%0000000011000000 Long %%0000000011000000 Long %%0000000011000000 Long %%0000000011000000 Long %%0000000000000000 Long %%0000000000000000 Long %%0000000000000000 '2.bmp Long %%0000000000000000 Long %%0000000000000000 Long %%0000111111111100 Long %%0001110000001110 Long %%0001100000000000 Long %%0001100000000000 Long %%0001110000000000 Long %%0000111100000000 Long %%0000001111000000 Long %%0000000011110000 Long %%0000000000111100 Long %%0000000000001110 Long %%0001111111111110 Long %%0000000000000000 Long %%0000000000000000 Long %%0000000000000000 '3.bmp Long %%0000000000000000 Long %%0000000000000000 Long %%0000111111111100 Long %%0001110000001110 Long %%0001100000000000 Long %%0001100000000000 Long %%0001110000000000 Long %%0000111111111000 Long %%0001110000000000 Long %%0001100000000000 Long %%0001100000000000 Long %%0001110000001110 Long %%0000111111111100 Long %%0000000000000000 Long %%0000000000000000 Long %%0000000000000000 '4.bmp Long %%0000000000000000 Long %%0000000000000000 Long %%0000001100000110 Long %%0000001100000110 Long %%0000001100000110 Long %%0000001100000110 Long %%0000001100001110 Long %%0001111111111100 Long %%0000001100000000 Long %%0000001100000000 Long %%0000001100000000 Long %%0000001100000000 Long %%0000001100000000 Long %%0000000000000000 Long %%0000000000000000 Long %%0000000000000000 '5.bmp Long %%0000000000000000 Long %%0000000000000000 Long %%0001111111111110 Long %%0000000000000110 Long %%0000000000000110 Long %%0000000000000110 Long %%0000000000000110 Long %%0000111111111110 Long %%0001110000000000 Long %%0001100000000000 Long %%0001100000000000 Long %%0001110000001110 Long %%0000111111111100 Long %%0000000000000000 Long %%0000000000000000 Long %%0000000000000000 '6.bmp Long %%0000000000000000 Long %%0000000000000000 Long %%0000111111111100 Long %%0001110000001110 Long %%0000000000000110 Long %%0000000000000110 Long %%0000000000000110 Long %%0000111111111110 Long %%0001110000000110 Long %%0001100000000110 Long %%0001100000000110 Long %%0001110000001110 Long %%0000111111111100 Long %%0000000000000000 Long %%0000000000000000 Long %%0000000000000000 '7.bmp Long %%0000000000000000 Long %%0000000000000000 Long %%0001111111111110 Long %%0001100000000000 Long %%0001100000000000 Long %%0000110000000000 Long %%0000110000000000 Long %%0000011000000000 Long %%0000011000000000 Long %%0000001100000000 Long %%0000001100000000 Long %%0000000110000000 Long %%0000000110000000 Long %%0000000000000000 Long %%0000000000000000 Long %%0000000000000000 '8.bmp Long %%0000000000000000 Long %%0000000000000000 Long %%0000111111111100 Long %%0001110000001110 Long %%0001100000000110 Long %%0001100000000110 Long %%0001110000001110 Long %%0000111111111100 Long %%0001110000001110 Long %%0001100000000110 Long %%0001100000000110 Long %%0001110000001110 Long %%0000111111111100 Long %%0000000000000000 Long %%0000000000000000 Long %%0000000000000000 '9.bmp Long %%0000000000000000 Long %%0000000000000000 Long %%0000111111111100 Long %%0001110000001110 Long %%0001100000000110 Long %%0001100000000110 Long %%0001100000001110 Long %%0001111111111100 Long %%0001100000000000 Long %%0001100000000000 Long %%0001100000000000 Long %%0001110000001110 Long %%0000111111111100 Long %%0000000000000000 Long %%0000000000000000 Long %%0000000000000000 'Box corner.bmp Long %%1111111111111111 Long %%1111111111111110 Long %%1111111111111100 Long %%1111111111111000 Long %%1111111111110000 Long %%1111111111100000 Long %%1111111111000000 Long %%1111111110000000 Long %%1111111100000000 Long %%1111111000000000 Long %%1111110000000000 Long %%1111100000000000 Long %%1111000000000000 Long %%1110000000000000 Long %%1100000000000000 Long %%1000000000000000 's.bmp Long %%0000000000000000 Long %%0000000000000000 Long %%0000000000000000 Long %%0000000000000000 Long %%0000000000000000 Long %%0000111111111100 Long %%0001110000001110 Long %%0000000000001110 Long %%0000111111111100 Long %%0001110000000000 Long %%0001100000000000 Long %%0001110000001110 Long %%0000111111111100 Long %%0000000000000000 Long %%0000000000000000 Long %%0000000000000000 'u.bmp Long %%0000000000000000 Long %%0000000000000000 Long %%0000000000000000 Long %%0000000000000000 Long %%0000000000000000 Long %%0001100000000110 Long %%0001100000000110 Long %%0001100000000110 Long %%0001100000000110 Long %%0001100000000110 Long %%0001100000000110 Long %%0001110000001110 Long %%0000111111111100 Long %%0000000000000000 Long %%0000000000000000 Long %%0000000000000000 'd.bmp Long %%0000000000000000 Long %%0000000000000000 Long %%0001100000000000 Long %%0001100000000000 Long %%0001100000000000 Long %%0001111111111100 Long %%0001100000001110 Long %%0001100000000110 Long %%0001100000000110 Long %%0001100000000110 Long %%0001100000000110 Long %%0001110000001110 Long %%0000111111111100 Long %%0000000000000000 Long %%0000000000000000 Long %%0000000000000000 'o.bmp Long %%0000000000000000 Long %%0000000000000000 Long %%0000000000000000 Long %%0000000000000000 Long %%0000000000000000 Long %%0000111111111100 Long %%0001110000001110 Long %%0001100000000110 Long %%0001100000000110 Long %%0001100000000110 Long %%0001100000000110 Long %%0001110000001110 Long %%0000111111111100 Long %%0000000000000000 Long %%0000000000000000 Long %%0000000000000000 'k.bmp Long %%0000000000000000 Long %%0000000000000000 Long %%0000000000000110 Long %%0000000000000110 Long %%0000000000000110 Long %%0001100000000110 Long %%0001100000000110 Long %%0001110000000110 Long %%0000111111111110 Long %%0001110000000110 Long %%0001100000000110 Long %%0001100000000110 Long %%0001100000000110 Long %%0000000000000000 Long %%0000000000000000 Long %%0000000000000000 'u.bmp Long %%0000000000000000 Long %%0000000000000000 Long %%0000000000000000 Long %%0000000000000000 Long %%0000000000000000 Long %%0001100000000110 Long %%0001100000000110 Long %%0001100000000110 Long %%0001100000000110 Long %%0001100000000110 Long %%0001100000000110 Long %%0001110000001110 Long %%0000111111111100 Long %%0000000000000000 Long %%0000000000000000 Long %%0000000000000000 'flyingcucco_16.bmp Long %%0022022200000000 Long %%0212222200222000 Long %%0222222000233200 Long %%0222222222113320 Long %%0212131211111320 Long %%0222323211111320 Long %%2112131211122200 Long %%2312222111111200 Long %%2122221111111120 Long %%2223222111111112 Long %%0023322311111212 Long %%0021333331111122 Long %%0002133332111120 Long %%0000222222222220 Long %%0002312333122000 Long %%0002222222220000 ' Sprite Bitmaps ///////////////////////////////////////////////////////////////////////////////// 'boxborder.bmp boxsprite Long %%2222200000022222 Long %%2222200000022222 Long %%2200000000000022 Long %%2200000000000022 Long %%2200000000000022 Long %%0000000000000000 Long %%0000000000000000 Long %%0000000000000000 Long %%0000000000000000 Long %%0000000000000000 Long %%0000000000000000 Long %%2200000000000022 Long %%2200000000000022 Long %%2200000000000022 Long %%2222200000022222 Long %%2222200000022222 Long %%1111100000011111 Long %%1111100000011111 Long %%1100000000000011 Long %%1100000000000011 Long %%1100000000000011 Long %%0000000000000000 Long %%0000000000000000 Long %%0000000000000000 Long %%0000000000000000 Long %%0000000000000000 Long %%0000000000000000 Long %%1100000000000011 Long %%1100000000000011 Long %%1100000000000011 Long %%1111100000011111 Long %%1111100000011111 'cursor.bmp mousesprite Long %%0000000000022222 Long %%0000000222222222 Long %%0002222222233322 Long %%2222222333333322 Long %%0222333333333322 Long %%0022233333333220 Long %%0002223333333220 Long %%0000222333333220 Long %%0000222233333220 Long %%0002222223332200 Long %%0022222222332200 Long %%0222222222232200 Long %%2222222002222200 Long %%2222220000222000 Long %%0222200000022000 Long %%0022000000002000 Long %%0000000000011111 Long %%0000000111111111 Long %%0001111111111111 Long %%1111111111111111 Long %%0111111111111111 Long %%0011111111111110 Long %%0001111111111110 Long %%0000111111111110 Long %%0000111111111110 Long %%0001111111111100 Long %%0011111111111100 Long %%0111111111111100 Long %%1111111001111100 Long %%1111110000111000 Long %%0111100000011000 Long %%0011000000001000 ' Palettes ///////////////////////////////////////////////////////////////////////////////// palettes { COL_Black = %0000_0010 02 COL_DarkGrey = %0000_0011 03 COL_Grey = %0000_0100 04 COL_LightGrey = %0000_0101 05 COL_BrightGrey = %0000_0110 06 COL_White = %0000_0111 07 COL_PowerBlue = %1111_1_100 FC COL_Blue = %1110_1_100 EC COL_SkyBlue = %1101_1_100 DC COL_AquaMarine = %1100_1_100 CC COL_LightGreen = %1011_1_100 BC COL_Green = %1010_1_100 AC COL_GreenYellow = %1001_1_100 9C COL_Yellow = %1000_1_100 8C COL_Gold = %0111_1_100 7C COL_Orange = %0110_1_100 6C COL_Red = %0101_1_100 5C COL_VioletRed = %0100_1_100 4C COL_Pink = %0011_1_100 3C COL_Magenta = %0010_1_100 2C COL_Violet = %0001_1_100 1C COL_Purple = %0000_1_100 0C } ' color 03_02_01_00 pal_00{red} long $6d_6b_02_3e pal_01{blue} long $6d_6b_02_ee pal_02{red-res} long $6d_6b_3b_3d pal_03{blue-res} long $6d_6b_eb_ed pal_04{border1} long $6d_6b_02_8e pal_05{border2} long $6d_6b_8e_8c pal_06{border3} long $6d_6b_8c_02 pal_07{white} long $6d_6b_02_07 pal_08{white-grn} long $6d_6b_ab_AD pal_09{white-red} long $6d_6b_5b_5D pal_0A{white-cur} long $6d_6b_07_AB pal_0B{white-cur} long $6d_6b_07_5B pal_0C{cucco} long $05_02_ec_07 pal_0D{cucco-blk} long $05_02_ec_7e --v Hope your friend likes it Next up is something a bit more dynamic, I think. Like a platformer - any ideas? \|edit\| August 2007 updated to last version, abandoned for now \|edit\|
Missing Content This used to be a substantial post by power mousey but the content has been deleted.
Sun, 01 Apr 2007, 12:51
flying_cucco	OK, you think of an idea and story, and I will endeavour to make it into a game. Any sprites or graphics would be apreciated - I'm pretty fucksocks at artwork. I don't mean a huge project, please don't go overboard, just something we can do quickly. Interested? Plus I'd really like to see what you have been getting up to - pypong? \|edit\| Jay : You can't BE fucksocks, silly! Have you guys never read the B3ta.com newsletter? \|edit\| \|edit\| cucco: Er, no actually but I did do some research first before I insulted myself. You can now! I just said it. btw, I know it's your forum an' all, but please don't edit my posts; its SO annoying. If you want to reply, just reply! (eek, please don't ban me!) \|edit\|
Missing Content This used to be a large post by power mousey but the content has been deleted.
Missing Content This used to be a substantial post by Agent but the content has been deleted.

Missing Content

Missing Content

Missing Content

Missing Content

Missing Content

Missing Content

Missing Content

Missing Content

Missing Content

Missing Content

Missing Content