TheGameCreators - CodeBase

Return to the CodeBase listing

Category: 2D

Version: 1.0

Information

Uploaded: 6th Dec 2005 13:13

Modified: 7th Dec 2005 08:28

Author: Yekoms

Summary

ImageShuffle w/ 5 x 5 tiles

Full Description

This is where I am trying to make the 4 x 4 tile shuffle to a 5 x 5 tile shuffle but the bitmaps will not display.

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

`ImageShuffle 5x5

` I Canâ€™t get this one to display the tiles.

Rem Project: ImageShuffle 3-size

Rem Created: 12/3/2005 1:15:15 PM

`----------------------------------------------------------

`Beginner's Guide To DarkBASIC Game Programming

`Chapter 10 - ImageShuffle Program

`----------------------------------------------------------

`Tile position data for calculating valid moves

DATA 2,6,0,0

DATA 1,3,7,0

DATA 2,4,8,0

DATA 3,5,9,0

DATA 4,10,0,0

DATA 1,7,11,0

DATA 2,6,8,12

DATA 3,7,9,13

DATA 4,8,10,14

DATA 5,9,15,0

DATA 6,12,16,0

DATA 7,11,13,17

DATA 8,12,14,18

DATA 9,13,15,19

DATA 10,14,20,0

DATA 11,17,21,0

DATA 12,16,18,22

DATA 13,17,19,23

DATA 14,18,20,24

DATA 15,19,25,0

DATA 16,22,0,0

DATA 17,21,23,0

DATA 18,22,24,0

DATA 19,23,25,0

DATA 20,24,0,0

`Declare some variables

DIM Tiles(26)

DIM MovingMatrix(100)

DIM Selected(2)

DIM MoveIt(4)

hs = 500

Level = 1

`Load the game graphics

LOAD BITMAP "mainback.bmp", 17

LOAD BITMAP "tiles.bmp", 18

LOAD BITMAP "color dont run.bmp", 19

LOAD BITMAP "fukitol.bmp", 20

load sound "PUTT.WAV",1

load sound "treat.wav",2

load sound "Fanfare Full Mix 1.WAV",3

SYNC ON

restart:

TempX = 0

TempY = 0

done = 0

Width = 0

Height = 0

`mc = mouse clicks - tm = tiles moved

mc = 0

tm = 0

if Level = 1

bmpnum = 18

endif

if Level = 2

bmpnum = 19

endif

if Level = 3

bmpnum = 20

endif

if Level = 4

goto _EndGame

endif

`Create the tile bitmaps

FOR x = 1 TO 25

CREATE BITMAP x, 80,80

NEXT x

`Copy the tile bitmaps

FOR y = 0 TO 4

FOR x = 0 TO 4

pos = (y * 5 + x) + 1

TX = x * 80

TY = y * 80

COPY BITMAP bmpnum,TX,TY,TX + 79,TY + 79,pos,0,0,79,79

NEXT x

NEXT y

`Set the moving matrix

FOR x = 1 TO 100

READ a

MovingMatrix(x) = a

NEXT x

`Initialize the game

SET CURRENT BITMAP 0

ShuffleTiles()

DisplayBoard()

Selected(1) = 0

Selected(2) = 0

`Main game loop

REPEAT

SYNC

IF MOUSECLICK()=2 THEN GOTO _EndGame

IF MOUSECLICK()=1

mc = mc + 1

play sound 1

`Wait for mouse button to be released

WHILE MOUSECLICK()=1

ENDWHILE

`Figure out which tile was clicked

bitmap = BitmapNumber(MOUSEX(), MOUSEY())

b2 = CheckValid(bitmap)

`Swap the clicked tile and the blank tile

IF b2 <> 0

tm = tm + 1

SwapTiles(bitmap, b2)

DisplayBoard()

done = CheckForWin()

ENDIF

UNTIL done = 1

if hs > tm then hs = tm

`Game over

`PRINT "Congratulations, You Win!"

`center text 500,15, "Mouse Clicks = "

`center text 500,35, "Tiles Moved = ",

PRINT " Puzzle Complete                 ","                     Mouse Clicks = ", mc,"  "

print "  High Score = ", hs,"                                      Tiles Moved = ", tm

play sound 2

center text 320,460, "Press any key to Continue or Esc to EXIT"

SYNC

if tm < 15

Level = Level + 1

endif

`Delete the tile bitmaps from memory

FOR x = 1    TO 64

DELETE BITMAP x

NEXT x

sleep 3000

cls

wait key

restore

goto restart

`End the game

`END

`This function will randomize the tiles

FUNCTION ShuffleTiles

FOR count = 1 TO 25

Tiles(count) = count

IF count = 25 THEN Tiles(count) = -1

NEXT count

RandomMoves = 3

`RandomMoves = RND(50) + 100

FOR count = 1 TO RandomMoves

MoveTheSpace()

NEXT count

ENDFUNCTION

`This function displays the tiles on the screen

FUNCTION DisplayBoard

COPY BITMAP 17,0

FOR y = 0 TO 4

FOR x = 0 TO 4

pos = (y * 5 + x) + 1

IF Tiles(pos) >= 0

TX = x * 80

TY = y * 80

W = TX + 79 + 120

H = TY + 79 + 56

COPY BITMAP Tiles(pos),0,0,79,79,0,TX+120,TY+56,W,H

ENDIF

NEXT x

NEXT y

SYNC

ENDFUNCTION

`This function checks the coordinates for a valid tile

FUNCTION CheckValid(rx)

IF rx = -1 OR Tiles(rx) = -1 THEN EXITFUNCTION 0

FOR x= 1 TO 25

ptr = ((x - 1) * 4) + 1

IF rx = x

a1 = MovingMatrix(ptr)

a2 = MovingMatrix(ptr + 1)

a3 = MovingMatrix(ptr + 2)

a4 = MovingMatrix(ptr + 3)

IF a1 <> 0 and Tiles(a1) = -1 THEN EXITFUNCTION a1

IF a2 <> 0 and Tiles(a2) = -1 THEN EXITFUNCTION a2

IF a3 <> 0 and Tiles(a3) = -1 THEN EXITFUNCTION a3

IF a4 <> 0 and Tiles(a4) = -1 THEN EXITFUNCTION a4

ENDIF

NEXT x

ENDFUNCTION 0

`This function returns the value of the bitmap located at x,y

FUNCTION BitmapNumber(x, y)

dx = x - 120

dy = y - 56

IF dx < 0 or dy < 0 THEN EXITFUNCTION -1

dx = dx / 80

dy = dy / 80

pos = ((dy * 5) + dx) + 1

IF pos > 25 THEN pos = -1

IF pos < 0 THEN pos = -1

ENDFUNCTION pos

`This function swaps two tiles in the Tiles array

FUNCTION SwapTiles(c1, c2)

temp = Tiles(c1)

Tiles(c1) = Tiles(c2)

Tiles(c2) = temp

ENDFUNCTION

`This function moves the empty tile

FUNCTION MoveTheSpace

spt = 0

FOR x = 1    TO 25

IF Tiles(x) = -1 THEN spt = x

NEXT x

IF spt = 0 THEN EXITFUNCTION

FOR x= 1    TO 25

ptr = ((x-1)*4)+1

IF spt = x

MoveIt(1) = MovingMatrix(ptr)

MoveIt(2) = MovingMatrix(ptr + 1)

MoveIt(3) = MovingMatrix(ptr + 2)

MoveIt(4) = MovingMatrix(ptr + 3)

movenum = RND(3)+1

WHILE MoveIt(movenum) = 0

movenum = RND(3)+1

ENDWHILE

c1 = spt

c2 = MoveIt(movenum)

SwapTiles(c1,c2)

ENDIF

NEXT x

ENDFUNCTION

`This function scans the tiles for a win

FUNCTION CheckForWin

FOR x = 1 TO 24

IF Tiles(x) <> x THEN EXITFUNCTION 0

NEXT x

Tiles(25) = 25

DisplayBoard()

SLEEP 1000

EXITFUNCTION 1

ENDFUNCTION 0

_EndGame:

cls

play sound 3

for r = 1 to 100

ink rgb(rnd(256), rnd(256), rnd(256)),0

center text 320,230, " Game Over "

ink rgb(rnd(256), rnd(256), rnd(256)),0

center text 320,250, " New Games to be Released Soon "

sync

sleep 80

next r

`sleep 5000

end

Download

Please login to download

Comments

No comments yet.

CodeBase - ImageShuffle

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	Yekoms
CodeBase Entries:	1