TheGameCreators - CodeBase - Pic Puzzle Game

Return to the CodeBase listing

Category: 2D

Version: 1.0

Information

Uploaded: 28th Oct 2011 07:36

Modified: 20th Jan 2012 04:06

Author: Brux

Summary

Create and solve your puzzle with any image

Full Description

2d game create and solve the puzzle by choosing the image you prefer options: 16-25-64-100 pieces you can save your puzzle to finish it and then reload Ermanno -ITALY- (Sorry for my english)

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

Rem *******************************************************

Rem *                      PIC PUZZLE                     *

Rem *               YOU MUST ARRANGE PIECES               *

Rem *                 TO COMPOSE ANY IMAGE                *

Rem *                                                     *

Rem *            YOU CAN CHOOSE:16-25-64-100  PIECES      *

Rem *                                                     *

Rem *                    NO TIME LIMIT                    *

Rem *                                                     *

Rem * Ermanno Manzoni <ITALY> *

Rem *                e-mail:me52@libero.it                *

Rem *******************************************************

dim flag(100)

dim pxx(100)

dim pyy(100)

dim bravo(100)

sync on : sync rate 60

Rem any image 640x480

file$="Image.jpg"

Rem Load sound "*",1

Rem Load music "*",1

Rem define the colors

red=rgb(255,0,0)

white=rgb(255,255,255)

yellow=rgb(240,220,20)

gray=rgb(180,180,180)

black=rgb(0,0,0)

Rem *** Reload ***

reload:

set current bitmap 0

cls rgb(192,128,255)

hide mouse

moves=0 : flash=0

Rem clear parameters

for t=1 to 100 : flag(t)=0 : bravo(t)=0 : pxx(t)=0 : pyy(t)=0 : next t

Rem Draws black box

quadro(180,80,460,380,0,0,0)

buttonmaker(181,81,459,379,255,255,255,200,200,200)

ink red,red

set text size 48

center text 320,100,"PIC PUZZLE"

ink yellow,yellow

set text size 20

center text 320,180,"Choose Number of Pieces"

set text size 15

i=1

Rem menu

repeat

if i=1 :ink white,white

else

ink red,red

endif

center text 320,220,"16  PIECES"

if i=2:ink white,white

else

ink red,red

endif

center text 320,240,"25  PIECES"

if i=3:ink white,white

else

ink red,red

endif

center text 320,260,"64  PIECES"

if i=4:ink white,white

else

ink red,red

endif

center text 320,280,"100 PIECES"

if i=5:ink yellow,yellow

else

ink red,red

endif

center text 320,300,"Load Puzzle"

if i=6:ink white,white

else

ink red,red

endif

center text 320,320,"Quit"

flash=flash+1:if flash>20 then flash=0

if flash<11 then ink yellow,yellow

if flash>10 then ink black,black

center text 320,350,"Press Enter To Start"

Rem choose option

if downkey()=1 and down=0

if i<6 then inc i else i=1

down=1

endif

if upkey()=1 and up=0

if i>1 then dec i else i=6

up=1

endif

if downkey()=0 and down=1

down=0

endif

if upkey()=0 and up=1

up=0

endif

sync

until returnkey()

Rem Load puzzle file

if i=5

if file exist("saved.puz")

open to read 1,"saved.puz"

read string 1,file$

read string 1,n$

numax=val(n$)

for t=1 to numax

read string 1,n$

u=val(n$)

Rem to make more 'difficult to handle

bravo(t)=u-9

next t

read string 1,n$

moves=val(n$)

xload=1

if numax=16 then i=1

if numax=25 then i=2

if numax=64 then i=3

if numax=100 then i=4

close file 1

else

goto reload

endif

middle(639,479,10,0,0,0)

create bitmap 1,640,480

goto _puzz

endif

Rem Quit

if i=6

show mouse

quadro(200,10,430,200,100,150,160)

requester("PIC PUZZLE","Ermanno Manzoni -ITALY-","E-Mail:me52@libero.it","Click Mouse")

middle(639,479,10,0,0,0)

End

endif

Rem .....

Rem Load Image

_puzz:

show mouse

load bitmap file$,1

set current bitmap 0

middle(639,479,10,0,0,0)

If i=1 then numero_blocchi=4  : _squareX=160 :  _squareY=120

If i=2 then numero_blocchi=5  : _squareX=128  :  _squareY=96

If i=3 then numero_blocchi=8 : _squareX=80  :  _squareY=60

If i=4 then numero_blocchi=10 : _squareX=64 :  _squareY=48

cf=(_squareX/2)-16 : ch=(_squareY/2)-16

im=0

px=0

py=0

i=0

numax=numero_blocchi*numero_blocchi

h=numax-1

ink rgb(90,90,250),0

center text 320,50,"PIC PUZZLE"

ink gray,gray

center text 320,260,"Please Wait..."

center text 320,80,"During the game you can:"

center text 320,120,"Press 'S' key to save Puzzle"

center text 320,140,"Press 'Q' key to finish"

ink white,white

center text 320,180,"Press Right Mouse To Reveal What The Picture Should Be"

ink yellow,yellow

center text 320,210,"Pieces="+str$(numax)

Rem make new bitmap

create bitmap 2,640,480

copy bitmap 1,2

set current bitmap 1

for y=1 to numero_blocchi

for x=1 to numero_blocchi

inc im : get image im,px,py,px+_squareX,py+_squareY

pxx(im)=px

pyy(im)=py

inc px,_squareX

next x

px=0

inc py,_squareY

next y

Rem uploaded file ?

if xload=1

xload=0

for t=1 to numax

paste image bravo(t),pxx(t),pyy(t)

sync

next t

goto go

endif

for t=1 to numax

rand:

x=rnd(h)+1

if flag(x)=1 then goto rand

flag(x)=1

bravo(t)=x

paste image x,pxx(t),pyy(t)

sync

next t

go:

set current bitmap 0

ink black,black

box 260,250,500,280

ink rgb(64,224,64),0

center text 320,260," Done. "

ink gray,gray

center text 320,300,"Press any key"

repeat:sync:until inkey$()>""

copy bitmap 1,0

show mouse

Rem Loop music 1

Rem Main Loop ************************************** Main Loop

mx=mousex()

my=mousey()

j$=inkey$()

jasc=asc(j$)

Rem exit ********************* exit

if jasc=113

middle(639,479,10,0,0,0)

rel()

exit

endif

Rem ***************************************************************

Rem *                                                             *

Rem *                 SAVE FILE                                   *

Rem *                                                             *

Rem ***************************************************************

if jasc=115

quadro(200,10,430,200,100,150,160)

requester("PIC PUZZLE","Now Save Puzzle","Name:Saved.puz","Click Mouse")

Rem * If the file exists will be deleted                           *

if file exist("Saved.puz") then delete file "Saved.puz"

open to write 1,"Saved.puz"

write string 1,file$

write string 1,str$(numax)

for t=1 to numax

u=bravo(t)+9

write string 1,str$(u)

next t

write string 1,str$(moves)

close file 1

middle(639,479,10,0,0,0)

rel()

exit

endif

Rem Right Mouse Click=2 to reveal the picture

if mouseclick()=2

copy bitmap 0,1

copy bitmap 2,0

while mouseclick()=2 : sync :endwhile

copy bitmap 1,0

goto _looper

endif

Rem Left Mouse

if mouseclick()=1

while mouseclick()=1:sync:endwhile

inc moves

if mx>pxx(1) and mx<pxx(1)+_squareX and my>pyy(1) and my<pyy(1)+_squareY

if r=0

i=101 : r=1 :a=1 :f=bravo(1)

else

r=0 :i=102 :z=1 :w=bravo(1)

endif

get image i,pxx(1),pyy(1),pxx(1)+_squareX,pyy(1)+_squareY

endif

if mx>pxx(2) and mx<pxx(2)+_squareX and my>pyy(2) and my<pyy(2)+_squareY

if r=0

i=101 : r=1 :a=2 :f=bravo(2)

else

r=0 :i=102 :z=2 :w=bravo(2)

endif

get image i,pxx(2),pyy(2),pxx(2)+_squareX,pyy(2)+_squareY

endif

if mx>pxx(3) and mx<pxx(3)+_squareX and my>pyy(3) and my<pyy(3)+_squareY

if r=0

i=101 : r=1 :a=3 :f=bravo(3)

else

r=0 :i=102 :z=3 :w=bravo(3)

endif

get image i,pxx(3),pyy(3),pxx(3)+_squareX,pyy(3)+_squareY

endif

if mx>pxx(4) and mx<pxx(4)+_squareX and my>pyy(4) and my<pyy(4)+_squareY

if r=0

i=101 : r=1 :a=4 :f=bravo(4)

else

r=0 :i=102 :z=4  :w=bravo(4)

endif

get image i,pxx(4),pyy(4),pxx(4)+_squareX,pyy(4)+_squareY

endif

if mx>pxx(5) and mx<pxx(5)+_squareX and my>pyy(5) and my<pyy(5)+_squareY

if r=0

i=101 : r=1 :a=5  :f=bravo(5)

else

r=0 :i=102 :z=5 :w=bravo(5)

endif

get image i,pxx(5),pyy(5),pxx(5)+_squareX,pyy(5)+_squareY

endif

if mx>pxx(6) and mx<pxx(6)+_squareX and my>pyy(6) and my<pyy(6)+_squareY

if r=0

i=101 : r=1 :a=6 :f=bravo(6)

else

r=0 :i=102 :z=6  :w=bravo(6)

endif

get image i,pxx(6),pyy(6),pxx(6)+_squareX,pyy(6)+_squareY

endif

if mx>pxx(7) and mx<pxx(7)+_squareX and my>pyy(7) and my<pyy(7)+_squareY

if r=0

i=101 : r=1 :a=7  :f=bravo(7)

else

r=0 :i=102 :z=7   :w=bravo(7)

endif

get image i,pxx(7),pyy(7),pxx(7)+_squareX,pyy(7)+_squareY

endif

if mx>pxx(8) and mx<pxx(8)+_squareX and my>pyy(8) and my<pyy(8)+_squareY

if r=0

i=101 : r=1 :a=8  :f=bravo(8)

else

r=0 :i=102 :z=8   :w=bravo(8)

endif

get image i,pxx(8),pyy(8),pxx(8)+_squareX,pyy(8)+_squareY

endif

if mx>pxx(9) and mx<pxx(9)+_squareX and my>pyy(9) and my<pyy(9)+_squareY

if r=0

i=101 : r=1 :a=9 :f=bravo(9)

else

r=0 :i=102 :z=9   :w=bravo(9)

endif

get image i,pxx(9),pyy(9),pxx(9)+_squareX,pyy(9)+_squareY

endif

if mx>pxx(10) and mx<pxx(10)+_squareX and my>pyy(10) and my<pyy(10)+_squareY

if r=0

i=101 : r=1 :a=10  :f=bravo(10)

else

r=0 :i=102 :z=10   :w=bravo(10)

endif

get image i,pxx(10),pyy(10),pxx(10)+_squareX,pyy(10)+_squareY

endif

if mx>pxx(11) and mx<pxx(11)+_squareX and my>pyy(11) and my<pyy(11)+_squareY

if r=0

i=101 : r=1 :a=11  :f=bravo(11)

else

r=0 :i=102 :z=11  :w=bravo(11)

endif

get image i,pxx(11),pyy(11),pxx(11)+_squareX,pyy(11)+_squareY

endif

if mx>pxx(12) and mx<pxx(12)+_squareX and my>pyy(12) and my<pyy(12)+_squareY

if r=0

i=101 : r=1 :a=12  :f=bravo(12)

else

r=0 :i=102 :z=12  :w=bravo(12)

endif

get image i,pxx(12),pyy(12),pxx(12)+_squareX,pyy(12)+_squareY

endif

if mx>pxx(13) and mx<pxx(13)+_squareX and my>pyy(13) and my<pyy(13)+_squareY

if r=0

i=101 : r=1 :a=13  :f=bravo(13)

else

r=0 :i=102 :z=13  :w=bravo(13)

endif

get image i,pxx(13),pyy(13),pxx(13)+_squareX,pyy(13)+_squareY

endif

if mx>pxx(14) and mx<pxx(14)+_squareX and my>pyy(14) and my<pyy(14)+_squareY

if r=0

i=101 : r=1 :a=14  :f=bravo(14)

else

r=0 :i=102 :z=14  :w=bravo(14)

endif

get image i,pxx(14),pyy(14),pxx(14)+_squareX,pyy(14)+_squareY

endif

if mx>pxx(15) and mx<pxx(15)+_squareX and my>pyy(15) and my<pyy(15)+_squareY

if r=0

i=101 : r=1 :a=15 :f=bravo(15)

else

r=0 :i=102 :z=15  :w=bravo(15)

endif

get image i,pxx(15),pyy(15),pxx(15)+_squareX,pyy(15)+_squareY

endif

if mx>pxx(16) and mx<pxx(16)+_squareX and my>pyy(16) and my<pyy(16)+_squareY

if r=0

i=101 : r=1 :a=16  :f=bravo(16)

else

r=0 :i=102 :z=16  :w=bravo(16)

endif

get image i,pxx(16),pyy(16),pxx(16)+_squareX,pyy(16)+_squareY

endif

if numero_blocchi=4 then goto esci

if mx>pxx(17) and mx<pxx(17)+_squareX and my>pyy(17) and my<pyy(17)+_squareY

if r=0

i=101 : r=1 :a=17 :f=bravo(17)

else

r=0 :i=102 :z=17  :w=bravo(17)

endif

get image i,pxx(17),pyy(17),pxx(17)+_squareX,pyy(17)+_squareY

endif

if mx>pxx(18) and mx<pxx(18)+_squareX and my>pyy(18) and my<pyy(18)+_squareY

if r=0

i=101 : r=1 :a=18  :f=bravo(18)

else

r=0 :i=102 :z=18  :w=bravo(18)

endif

get image i,pxx(18),pyy(18),pxx(18)+_squareX,pyy(18)+_squareY

endif

if mx>pxx(19) and mx<pxx(19)+_squareX and my>pyy(19) and my<pyy(19)+_squareY

if r=0

i=101 : r=1 :a=19  :f=bravo(19)

else

r=0 :i=102 :z=19  :w=bravo(19)

endif

get image i,pxx(19),pyy(19),pxx(19)+_squareX,pyy(19)+_squareY

endif

if mx>pxx(20) and mx<pxx(20)+_squareX and my>pyy(20) and my<pyy(20)+_squareY

if r=0

i=101 : r=1 :a=20 :f=bravo(20)

else

r=0 :i=102 :z=20  :w=bravo(20)

endif

get image i,pxx(20),pyy(20),pxx(20)+_squareX,pyy(20)+_squareY

endif

if mx>pxx(21) and mx<pxx(21)+_squareX and my>pyy(21) and my<pyy(21)+_squareY

if r=0

i=101 : r=1 :a=21  :f=bravo(21)

else

r=0 :i=102 :z=21  :w=bravo(21)

endif

get image i,pxx(21),pyy(21),pxx(21)+_squareX,pyy(21)+_squareY

endif

if mx>pxx(22) and mx<pxx(22)+_squareX and my>pyy(22) and my<pyy(22)+_squareY

if r=0

i=101 : r=1 :a=22  :f=bravo(22)

else

r=0 :i=102 :z=22  :w=bravo(22)

endif

get image i,pxx(22),pyy(22),pxx(22)+_squareX,pyy(22)+_squareY

endif

if mx>pxx(23) and mx<pxx(23)+_squareX and my>pyy(23) and my<pyy(23)+_squareY

if r=0

i=101 : r=1 :a=23  :f=bravo(23)

else

r=0 :i=102 :z=23  :w=bravo(23)

endif

get image i,pxx(23),pyy(23),pxx(23)+_squareX,pyy(23)+_squareY

endif

if mx>pxx(24) and mx<pxx(24)+_squareX and my>pyy(24) and my<pyy(24)+_squareY

if r=0

i=101 : r=1 :a=24  :f=bravo(24)

else

r=0 :i=102 :z=24  :w=bravo(24)

endif

get image i,pxx(24),pyy(24),pxx(24)+_squareX,pyy(24)+_squareY

endif

if mx>pxx(25) and mx<pxx(25)+_squareX and my>pyy(25) and my<pyy(25)+_squareY

if r=0

i=101 : r=1 :a=25  :f=bravo(25)

else

r=0 :i=102 :z=25  :w=bravo(25)

endif

get image i,pxx(25),pyy(25),pxx(25)+_squareX,pyy(25)+_squareY

endif

if numero_blocchi=5 then goto esci

If mx>pxx(26) and mx<pxx(26)+_squareX and my>pyy(26) and my<pyy(26)+_squareY

If r=0

i=101 : r=1 : a=26 : f=bravo(26)

else

r=0 : i=102 : z=26 : w=bravo(26)

endif

get image i,pxx(26),pyy(26),pxx(26)+_squareX,pyy(26)+_squareY

endif

If mx>pxx(27) and mx<pxx(27)+_squareX and my>pyy(27) and my<pyy(27)+_squareY

If r=0

i=101 : r=1 : a=27 : f=bravo(27)

else

r=0 : i=102 : z=27 : w=bravo(27)

endif

get image i,pxx(27),pyy(27),pxx(27)+_squareX,pyy(27)+_squareY

endif

If mx>pxx(28) and mx<pxx(28)+_squareX and my>pyy(28) and my<pyy(28)+_squareY

If r=0

i=101 : r=1 : a=28 : f=bravo(28)

else

r=0 : i=102 : z=28 : w=bravo(28)

endif

get image i,pxx(28),pyy(28),pxx(28)+_squareX,pyy(28)+_squareY

endif

If mx>pxx(29) and mx<pxx(29)+_squareX and my>pyy(29) and my<pyy(29)+_squareY

If r=0

i=101 : r=1 : a=29 : f=bravo(29)

else

r=0 : i=102 : z=29 : w=bravo(29)

endif

get image i,pxx(29),pyy(29),pxx(29)+_squareX,pyy(29)+_squareY

endif

If mx>pxx(30) and mx<pxx(30)+_squareX and my>pyy(30) and my<pyy(30)+_squareY

If r=0

i=101 : r=1 : a=30 : f=bravo(30)

else

r=0 : i=102 : z=30 : w=bravo(30)

endif

get image i,pxx(30),pyy(30),pxx(30)+_squareX,pyy(30)+_squareY

endif

If mx>pxx(31) and mx<pxx(31)+_squareX and my>pyy(31) and my<pyy(31)+_squareY

If r=0

i=101 : r=1 : a=31 : f=bravo(31)

else

r=0 : i=102 : z=31 : w=bravo(31)

endif

get image i,pxx(31),pyy(31),pxx(31)+_squareX,pyy(31)+_squareY

endif

If mx>pxx(32) and mx<pxx(32)+_squareX and my>pyy(32) and my<pyy(32)+_squareY

If r=0

i=101 : r=1 : a=32 : f=bravo(32)

else

r=0 : i=102 : z=32 : w=bravo(32)

endif

get image i,pxx(32),pyy(32),pxx(32)+_squareX,pyy(32)+_squareY

endif

If mx>pxx(33) and mx<pxx(33)+_squareX and my>pyy(33) and my<pyy(33)+_squareY

If r=0

i=101 : r=1 : a=33 : f=bravo(33)

else

r=0 : i=102 : z=33 : w=bravo(33)

endif

get image i,pxx(33),pyy(33),pxx(33)+_squareX,pyy(33)+_squareY

endif

If mx>pxx(34) and mx<pxx(34)+_squareX and my>pyy(34) and my<pyy(34)+_squareY

If r=0

i=101 : r=1 : a=34 : f=bravo(34)

else

r=0 : i=102 : z=34 : w=bravo(34)

endif

get image i,pxx(34),pyy(34),pxx(34)+_squareX,pyy(34)+_squareY

endif

If mx>pxx(35) and mx<pxx(35)+_squareX and my>pyy(35) and my<pyy(35)+_squareY

If r=0

i=101 : r=1 : a=35 : f=bravo(35)

else

r=0 : i=102 : z=35 : w=bravo(35)

endif

get image i,pxx(35),pyy(35),pxx(35)+_squareX,pyy(35)+_squareY

endif

If mx>pxx(36) and mx<pxx(36)+_squareX and my>pyy(36) and my<pyy(36)+_squareY

If r=0

i=101 : r=1 : a=36 : f=bravo(36)

else

r=0 : i=102 : z=36 : w=bravo(36)

endif

get image i,pxx(36),pyy(36),pxx(36)+_squareX,pyy(36)+_squareY

endif

If mx>pxx(37) and mx<pxx(37)+_squareX and my>pyy(37) and my<pyy(37)+_squareY

If r=0

i=101 : r=1 : a=37 : f=bravo(37)

else

r=0 : i=102 : z=37 : w=bravo(37)

endif

get image i,pxx(37),pyy(37),pxx(37)+_squareX,pyy(37)+_squareY

endif

If mx>pxx(38) and mx<pxx(38)+_squareX and my>pyy(38) and my<pyy(38)+_squareY

If r=0

i=101 : r=1 : a=38 : f=bravo(38)

else

r=0 : i=102 : z=38 : w=bravo(38)

endif

get image i,pxx(38),pyy(38),pxx(38)+_squareX,pyy(38)+_squareY

endif

If mx>pxx(39) and mx<pxx(39)+_squareX and my>pyy(39) and my<pyy(39)+_squareY

If r=0

i=101 : r=1 : a=39 : f=bravo(39)

else

r=0 : i=102 : z=39 : w=bravo(39)

endif

get image i,pxx(39),pyy(39),pxx(39)+_squareX,pyy(39)+_squareY

endif

If mx>pxx(40) and mx<pxx(40)+_squareX and my>pyy(40) and my<pyy(40)+_squareY

If r=0

i=101 : r=1 : a=40 : f=bravo(40)

else

r=0 : i=102 : z=40 : w=bravo(40)

endif

get image i,pxx(40),pyy(40),pxx(40)+_squareX,pyy(40)+_squareY

endif

If mx>pxx(41) and mx<pxx(41)+_squareX and my>pyy(41) and my<pyy(41)+_squareY

If r=0

i=101 : r=1 : a=41 : f=bravo(41)

else

r=0 : i=102 : z=41 : w=bravo(41)

endif

get image i,pxx(41),pyy(41),pxx(41)+_squareX,pyy(41)+_squareY

endif

If mx>pxx(42) and mx<pxx(42)+_squareX and my>pyy(42) and my<pyy(42)+_squareY

If r=0

i=101 : r=1 : a=42 : f=bravo(42)

else

r=0 : i=102 : z=42 : w=bravo(42)

endif

get image i,pxx(42),pyy(42),pxx(42)+_squareX,pyy(42)+_squareY

endif

If mx>pxx(43) and mx<pxx(43)+_squareX and my>pyy(43) and my<pyy(43)+_squareY

If r=0

i=101 : r=1 : a=43 : f=bravo(43)

else

r=0 : i=102 : z=43 : w=bravo(43)

endif

get image i,pxx(43),pyy(43),pxx(43)+_squareX,pyy(43)+_squareY

endif

If mx>pxx(44) and mx<pxx(44)+_squareX and my>pyy(44) and my<pyy(44)+_squareY

If r=0

i=101 : r=1 : a=44 : f=bravo(44)

else

r=0 : i=102 : z=44 : w=bravo(44)

endif

get image i,pxx(44),pyy(44),pxx(44)+_squareX,pyy(44)+_squareY

endif

If mx>pxx(45) and mx<pxx(45)+_squareX and my>pyy(45) and my<pyy(45)+_squareY

If r=0

i=101 : r=1 : a=45 : f=bravo(45)

else

r=0 : i=102 : z=45 : w=bravo(45)

endif

get image i,pxx(45),pyy(45),pxx(45)+_squareX,pyy(45)+_squareY

endif

If mx>pxx(46) and mx<pxx(46)+_squareX and my>pyy(46) and my<pyy(46)+_squareY

If r=0

i=101 : r=1 : a=46 : f=bravo(46)

else

r=0 : i=102 : z=46 : w=bravo(46)

endif

get image i,pxx(46),pyy(46),pxx(46)+_squareX,pyy(46)+_squareY

endif

If mx>pxx(47) and mx<pxx(47)+_squareX and my>pyy(47) and my<pyy(47)+_squareY

If r=0

i=101 : r=1 : a=47 : f=bravo(47)

else

r=0 : i=102 : z=47 : w=bravo(47)

endif

get image i,pxx(47),pyy(47),pxx(47)+_squareX,pyy(47)+_squareY

endif

If mx>pxx(48) and mx<pxx(48)+_squareX and my>pyy(48) and my<pyy(48)+_squareY

If r=0

i=101 : r=1 : a=48 : f=bravo(48)

else

r=0 : i=102 : z=48 : w=bravo(48)

endif

get image i,pxx(48),pyy(48),pxx(48)+_squareX,pyy(48)+_squareY

endif

If mx>pxx(49) and mx<pxx(49)+_squareX and my>pyy(49) and my<pyy(49)+_squareY

If r=0

i=101 : r=1 : a=49 : f=bravo(49)

else

r=0 : i=102 : z=49 : w=bravo(49)

endif

get image i,pxx(49),pyy(49),pxx(49)+_squareX,pyy(49)+_squareY

endif

If mx>pxx(50) and mx<pxx(50)+_squareX and my>pyy(50) and my<pyy(50)+_squareY

If r=0

i=101 : r=1 : a=50 : f=bravo(50)

else

r=0 : i=102 : z=50 : w=bravo(50)

endif

get image i,pxx(50),pyy(50),pxx(50)+_squareX,pyy(50)+_squareY

endif

If mx>pxx(51) and mx<pxx(51)+_squareX and my>pyy(51) and my<pyy(51)+_squareY

If r=0

i=101 : r=1 : a=51 : f=bravo(51)

else

r=0 : i=102 : z=51 : w=bravo(51)

endif

get image i,pxx(51),pyy(51),pxx(51)+_squareX,pyy(51)+_squareY

endif

If mx>pxx(52) and mx<pxx(52)+_squareX and my>pyy(52) and my<pyy(52)+_squareY

If r=0

i=101 : r=1 : a=52 : f=bravo(52)

else

r=0 : i=102 : z=52 : w=bravo(52)

endif

get image i,pxx(52),pyy(52),pxx(52)+_squareX,pyy(52)+_squareY

endif

If mx>pxx(53) and mx<pxx(53)+_squareX and my>pyy(53) and my<pyy(53)+_squareY

If r=0

i=101 : r=1 : a=53 : f=bravo(53)

else

r=0 : i=102 : z=53 : w=bravo(53)

endif

get image i,pxx(53),pyy(53),pxx(53)+_squareX,pyy(53)+_squareY

endif

If mx>pxx(54) and mx<pxx(54)+_squareX and my>pyy(54) and my<pyy(54)+_squareY

If r=0

i=101 : r=1 : a=54 : f=bravo(54)

else

r=0 : i=102 : z=54 : w=bravo(54)

endif

get image i,pxx(54),pyy(54),pxx(54)+_squareX,pyy(54)+_squareY

endif

If mx>pxx(55) and mx<pxx(55)+_squareX and my>pyy(55) and my<pyy(55)+_squareY

If r=0

i=101 : r=1 : a=55 : f=bravo(55)

else

r=0 : i=102 : z=55 : w=bravo(55)

endif

get image i,pxx(55),pyy(55),pxx(55)+_squareX,pyy(55)+_squareY

endif

If mx>pxx(56) and mx<pxx(56)+_squareX and my>pyy(56) and my<pyy(56)+_squareY

If r=0

i=101 : r=1 : a=56 : f=bravo(56)

else

r=0 : i=102 : z=56 : w=bravo(56)

endif

get image i,pxx(56),pyy(56),pxx(56)+_squareX,pyy(56)+_squareY

endif

If mx>pxx(57) and mx<pxx(57)+_squareX and my>pyy(57) and my<pyy(57)+_squareY

If r=0

i=101 : r=1 : a=57 : f=bravo(57)

else

r=0 : i=102 : z=57 : w=bravo(57)

endif

get image i,pxx(57),pyy(57),pxx(57)+_squareX,pyy(57)+_squareY

endif

If mx>pxx(58) and mx<pxx(58)+_squareX and my>pyy(58) and my<pyy(58)+_squareY

If r=0

i=101 : r=1 : a=58 : f=bravo(58)

else

r=0 : i=102 : z=58 : w=bravo(58)

endif

get image i,pxx(58),pyy(58),pxx(58)+_squareX,pyy(58)+_squareY

endif

If mx>pxx(59) and mx<pxx(59)+_squareX and my>pyy(59) and my<pyy(59)+_squareY

If r=0

i=101 : r=1 : a=59 : f=bravo(59)

else

r=0 : i=102 : z=59 : w=bravo(59)

endif

get image i,pxx(59),pyy(59),pxx(59)+_squareX,pyy(59)+_squareY

endif

If mx>pxx(60) and mx<pxx(60)+_squareX and my>pyy(60) and my<pyy(60)+_squareY

If r=0

i=101 : r=1 : a=60 : f=bravo(60)

else

r=0 : i=102 : z=60 : w=bravo(60)

endif

get image i,pxx(60),pyy(60),pxx(60)+_squareX,pyy(60)+_squareY

endif

If mx>pxx(61) and mx<pxx(61)+_squareX and my>pyy(61) and my<pyy(61)+_squareY

If r=0

i=101 : r=1 : a=61 : f=bravo(61)

else

r=0 : i=102 : z=61 : w=bravo(61)

endif

get image i,pxx(61),pyy(61),pxx(61)+_squareX,pyy(61)+_squareY

endif

If mx>pxx(62) and mx<pxx(62)+_squareX and my>pyy(62) and my<pyy(62)+_squareY

If r=0

i=101 : r=1 : a=62 : f=bravo(62)

else

r=0 : i=102 : z=62 : w=bravo(62)

endif

get image i,pxx(62),pyy(62),pxx(62)+_squareX,pyy(62)+_squareY

endif

If mx>pxx(63) and mx<pxx(63)+_squareX and my>pyy(63) and my<pyy(63)+_squareY

If r=0

i=101 : r=1 : a=63 : f=bravo(63)

else

r=0 : i=102 : z=63 : w=bravo(63)

endif

get image i,pxx(63),pyy(63),pxx(63)+_squareX,pyy(63)+_squareY

endif

If mx>pxx(64) and mx<pxx(64)+_squareX and my>pyy(64) and my<pyy(64)+_squareY

If r=0

i=101 : r=1 : a=64 : f=bravo(64)

else

r=0 : i=102 : z=64 : w=bravo(64)

endif

get image i,pxx(64),pyy(64),pxx(64)+_squareX,pyy(64)+_squareY

endif

if numero_blocchi=8 then goto esci

If mx>pxx(65) and mx<pxx(65)+_squareX and my>pyy(65) and my<pyy(65)+_squareY

If r=0

i=101 : r=1 : a=65 : f=bravo(65)

else

r=0 : i=102 : z=65 : w=bravo(65)

endif

get image i,pxx(65),pyy(65),pxx(65)+_squareX,pyy(65)+_squareY

endif

If mx>pxx(66) and mx<pxx(66)+_squareX and my>pyy(66) and my<pyy(66)+_squareY

If r=0

i=101 : r=1 : a=66 : f=bravo(66)

else

r=0 : i=102 : z=66 : w=bravo(66)

endif

get image i,pxx(66),pyy(66),pxx(66)+_squareX,pyy(66)+_squareY

endif

If mx>pxx(67) and mx<pxx(67)+_squareX and my>pyy(67) and my<pyy(67)+_squareY

If r=0

i=101 : r=1 : a=67 : f=bravo(67)

else

r=0 : i=102 : z=67 : w=bravo(67)

endif

get image i,pxx(67),pyy(67),pxx(67)+_squareX,pyy(67)+_squareY

endif

If mx>pxx(68) and mx<pxx(68)+_squareX and my>pyy(68) and my<pyy(68)+_squareY

If r=0

i=101 : r=1 : a=68 : f=bravo(68)

else

r=0 : i=102 : z=68 : w=bravo(68)

endif

get image i,pxx(68),pyy(68),pxx(68)+_squareX,pyy(68)+_squareY

endif

If mx>pxx(69) and mx<pxx(69)+_squareX and my>pyy(69) and my<pyy(69)+_squareY

If r=0

i=101 : r=1 : a=69 : f=bravo(69)

else

r=0 : i=102 : z=69 : w=bravo(69)

endif

get image i,pxx(69),pyy(69),pxx(69)+_squareX,pyy(69)+_squareY

endif

If mx>pxx(70) and mx<pxx(70)+_squareX and my>pyy(70) and my<pyy(70)+_squareY

If r=0

i=101 : r=1 : a=70 : f=bravo(70)

else

r=0 : i=102 : z=70 : w=bravo(70)

endif

get image i,pxx(70),pyy(70),pxx(70)+_squareX,pyy(70)+_squareY

endif

If mx>pxx(71) and mx<pxx(71)+_squareX and my>pyy(71) and my<pyy(71)+_squareY

If r=0

i=101 : r=1 : a=71 : f=bravo(71)

else

r=0 : i=102 : z=71 : w=bravo(71)

endif

get image i,pxx(71),pyy(71),pxx(71)+_squareX,pyy(71)+_squareY

endif

If mx>pxx(72) and mx<pxx(72)+_squareX and my>pyy(72) and my<pyy(72)+_squareY

If r=0

i=101 : r=1 : a=72 : f=bravo(72)

else

r=0 : i=102 : z=72 : w=bravo(72)

endif

get image i,pxx(72),pyy(72),pxx(72)+_squareX,pyy(72)+_squareY

endif

If mx>pxx(73) and mx<pxx(73)+_squareX and my>pyy(73) and my<pyy(73)+_squareY

If r=0

i=101 : r=1 : a=73 : f=bravo(73)

else

r=0 : i=102 : z=73 : w=bravo(73)

endif

get image i,pxx(73),pyy(73),pxx(73)+_squareX,pyy(73)+_squareY

endif

If mx>pxx(74) and mx<pxx(74)+_squareX and my>pyy(74) and my<pyy(74)+_squareY

If r=0

i=101 : r=1 : a=74 : f=bravo(74)

else

r=0 : i=102 : z=74 : w=bravo(74)

endif

get image i,pxx(74),pyy(74),pxx(74)+_squareX,pyy(74)+_squareY

endif

If mx>pxx(75) and mx<pxx(75)+_squareX and my>pyy(75) and my<pyy(75)+_squareY

If r=0

i=101 : r=1 : a=75 : f=bravo(75)

else

r=0 : i=102 : z=75 : w=bravo(75)

endif

get image i,pxx(75),pyy(75),pxx(75)+_squareX,pyy(75)+_squareY

endif

If mx>pxx(76) and mx<pxx(76)+_squareX and my>pyy(76) and my<pyy(76)+_squareY

If r=0

i=101 : r=1 : a=76 : f=bravo(76)

else

r=0 : i=102 : z=76 : w=bravo(76)

endif

get image i,pxx(76),pyy(76),pxx(76)+_squareX,pyy(76)+_squareY

endif

If mx>pxx(77) and mx<pxx(77)+_squareX and my>pyy(77) and my<pyy(77)+_squareY

If r=0

i=101 : r=1 : a=77 : f=bravo(77)

else

r=0 : i=102 : z=77 : w=bravo(77)

endif

get image i,pxx(77),pyy(77),pxx(77)+_squareX,pyy(77)+_squareY

endif

If mx>pxx(78) and mx<pxx(78)+_squareX and my>pyy(78) and my<pyy(78)+_squareY

If r=0

i=101 : r=1 : a=78 : f=bravo(78)

else

r=0 : i=102 : z=78 : w=bravo(78)

endif

get image i,pxx(78),pyy(78),pxx(78)+_squareX,pyy(78)+_squareY

endif

If mx>pxx(79) and mx<pxx(79)+_squareX and my>pyy(79) and my<pyy(79)+_squareY

If r=0

i=101 : r=1 : a=79 : f=bravo(79)

else

r=0 : i=102 : z=79 : w=bravo(79)

endif

get image i,pxx(79),pyy(79),pxx(79)+_squareX,pyy(79)+_squareY

endif

If mx>pxx(80) and mx<pxx(80)+_squareX and my>pyy(80) and my<pyy(80)+_squareY

If r=0

i=101 : r=1 : a=80 : f=bravo(80)

else

r=0 : i=102 : z=80 : w=bravo(80)

endif

get image i,pxx(80),pyy(80),pxx(80)+_squareX,pyy(80)+_squareY

endif

If mx>pxx(81) and mx<pxx(81)+_squareX and my>pyy(81) and my<pyy(81)+_squareY

If r=0

i=101 : r=1 : a=81 : f=bravo(81)

else

r=0 : i=102 : z=81 : w=bravo(81)

endif

get image i,pxx(81),pyy(81),pxx(81)+_squareX,pyy(81)+_squareY

endif

If mx>pxx(82) and mx<pxx(82)+_squareX and my>pyy(82) and my<pyy(82)+_squareY

If r=0

i=101 : r=1 : a=82 : f=bravo(82)

else

r=0 : i=102 : z=82 : w=bravo(82)

endif

get image i,pxx(82),pyy(82),pxx(82)+_squareX,pyy(82)+_squareY

endif

If mx>pxx(83) and mx<pxx(83)+_squareX and my>pyy(83) and my<pyy(83)+_squareY

If r=0

i=101 : r=1 : a=83 : f=bravo(83)

else

r=0 : i=102 : z=83 : w=bravo(83)

endif

get image i,pxx(83),pyy(83),pxx(83)+_squareX,pyy(83)+_squareY

endif

If mx>pxx(84) and mx<pxx(84)+_squareX and my>pyy(84) and my<pyy(84)+_squareY

If r=0

i=101 : r=1 : a=84 : f=bravo(84)

else

r=0 : i=102 : z=84 : w=bravo(84)

endif

get image i,pxx(84),pyy(84),pxx(84)+_squareX,pyy(84)+_squareY

endif

If mx>pxx(85) and mx<pxx(85)+_squareX and my>pyy(85) and my<pyy(85)+_squareY

If r=0

i=101 : r=1 : a=85 : f=bravo(85)

else

r=0 : i=102 : z=85 : w=bravo(85)

endif

get image i,pxx(85),pyy(85),pxx(85)+_squareX,pyy(85)+_squareY

endif

If mx>pxx(86) and mx<pxx(86)+_squareX and my>pyy(86) and my<pyy(86)+_squareY

If r=0

i=101 : r=1 : a=86 : f=bravo(86)

else

r=0 : i=102 : z=86 : w=bravo(86)

endif

get image i,pxx(86),pyy(86),pxx(86)+_squareX,pyy(86)+_squareY

endif

If mx>pxx(87) and mx<pxx(87)+_squareX and my>pyy(87) and my<pyy(87)+_squareY

If r=0

i=101 : r=1 : a=87 : f=bravo(87)

else

r=0 : i=102 : z=87 : w=bravo(87)

endif

get image i,pxx(87),pyy(87),pxx(87)+_squareX,pyy(87)+_squareY

endif

If mx>pxx(88) and mx<pxx(88)+_squareX and my>pyy(88) and my<pyy(88)+_squareY

If r=0

i=101 : r=1 : a=88 : f=bravo(88)

else

r=0 : i=102 : z=88 : w=bravo(88)

endif

get image i,pxx(88),pyy(88),pxx(88)+_squareX,pyy(88)+_squareY

endif

If mx>pxx(89) and mx<pxx(89)+_squareX and my>pyy(89) and my<pyy(89)+_squareY

If r=0

i=101 : r=1 : a=89 : f=bravo(89)

else

r=0 : i=102 : z=89 : w=bravo(89)

endif

get image i,pxx(89),pyy(89),pxx(89)+_squareX,pyy(89)+_squareY

endif

If mx>pxx(90) and mx<pxx(90)+_squareX and my>pyy(90) and my<pyy(90)+_squareY

If r=0

i=101 : r=1 : a=90 : f=bravo(90)

else

r=0 : i=102 : z=90 : w=bravo(90)

endif

get image i,pxx(90),pyy(90),pxx(90)+_squareX,pyy(90)+_squareY

endif

If mx>pxx(91) and mx<pxx(91)+_squareX and my>pyy(91) and my<pyy(91)+_squareY

If r=0

i=101 : r=1 : a=91 : f=bravo(91)

else

r=0 : i=102 : z=91 : w=bravo(91)

endif

get image i,pxx(91),pyy(91),pxx(91)+_squareX,pyy(91)+_squareY

endif

If mx>pxx(92) and mx<pxx(92)+_squareX and my>pyy(92) and my<pyy(92)+_squareY

If r=0

i=101 : r=1 : a=92 : f=bravo(92)

else

r=0 : i=102 : z=92 : w=bravo(92)

endif

get image i,pxx(92),pyy(92),pxx(92)+_squareX,pyy(92)+_squareY

endif

If mx>pxx(93) and mx<pxx(93)+_squareX and my>pyy(93) and my<pyy(93)+_squareY

If r=0

i=101 : r=1 : a=93 : f=bravo(93)

else

r=0 : i=102 : z=93 : w=bravo(93)

endif

get image i,pxx(93),pyy(93),pxx(93)+_squareX,pyy(93)+_squareY

endif

If mx>pxx(94) and mx<pxx(94)+_squareX and my>pyy(94) and my<pyy(94)+_squareY

If r=0

i=101 : r=1 : a=94 : f=bravo(94)

else

r=0 : i=102 : z=94 : w=bravo(94)

endif

get image i,pxx(94),pyy(94),pxx(94)+_squareX,pyy(94)+_squareY

endif

If mx>pxx(95) and mx<pxx(95)+_squareX and my>pyy(95) and my<pyy(95)+_squareY

If r=0

i=101 : r=1 : a=95 : f=bravo(95)

else

r=0 : i=102 : z=95 : w=bravo(95)

endif

get image i,pxx(95),pyy(95),pxx(95)+_squareX,pyy(95)+_squareY

endif

If mx>pxx(96) and mx<pxx(96)+_squareX and my>pyy(96) and my<pyy(96)+_squareY

If r=0

i=101 : r=1 : a=96 : f=bravo(96)

else

r=0 : i=102 : z=96 : w=bravo(96)

endif

get image i,pxx(96),pyy(96),pxx(96)+_squareX,pyy(96)+_squareY

endif

If mx>pxx(97) and mx<pxx(97)+_squareX and my>pyy(97) and my<pyy(97)+_squareY

If r=0

i=101 : r=1 : a=97 : f=bravo(97)

else

r=0 : i=102 : z=97 : w=bravo(97)

endif

get image i,pxx(97),pyy(97),pxx(97)+_squareX,pyy(97)+_squareY

endif

If mx>pxx(98) and mx<pxx(98)+_squareX and my>pyy(98) and my<pyy(98)+_squareY

If r=0

i=101 : r=1 : a=98 : f=bravo(98)

else

r=0 : i=102 : z=98 : w=bravo(98)

endif

get image i,pxx(98),pyy(98),pxx(98)+_squareX,pyy(98)+_squareY

endif

If mx>pxx(99) and mx<pxx(99)+_squareX and my>pyy(99) and my<pyy(99)+_squareY

If r=0

i=101 : r=1 : a=99 : f=bravo(99)

else

r=0 : i=102 : z=99 : w=bravo(99)

endif

get image i,pxx(99),pyy(99),pxx(99)+_squareX,pyy(99)+_squareY

endif

If mx>pxx(100) and mx<pxx(100)+_squareX and my>pyy(100) and my<pyy(100)+_squareY

If r=0

i=101 : r=1 : a=100 : f=bravo(100)

else

r=0 : i=102 : z=100 : w=bravo(100)

endif

get image i,pxx(100),pyy(100),pxx(100)+_squareX,pyy(100)+_squareY

endif

esci:

Rem ***************************************************************

Rem *                                                             *

Rem *                       SWAP IMAGES                           *

Rem ***************************************************************

if r=0 and i=102

c=f : bravo(a)=w :bravo(z)=c

paste image 101,pxx(z),pyy(z)

paste image 102,pxx(a),pyy(a)

m=0

endif

Rem Check

control=0

for t=1 to numax

if bravo(t)<>t then control=1

next t

Rem all right ?

if control=0

copy bitmap 2,0

Rem Play sound 1

quadro(200,10,430,200,100,150,160)

requester("PIC PUZZLE","The Puzzle is Complete","Your Moves:"+str$(moves),"Click Mouse")

middle(639,479,10,0,0,0)

rel()

exit

endif

_looper:

sync

loop

Rem Stop music 1

Rem delete Images

for t=1 to numax

delete image t

next t

goto reload

Rem Functions

Function ButtonMaker(Left,Top,Right,Bottom,b1,b2,b3,c1,c2,c3)

Ink Rgb(b1,b2,b3),0

Line Left,Bottom,Left,Top : Line Left,Top,Right,Top

Ink Rgb(c1,c2,c3),0

Line Right,Top,Right,Bottom : Line Right,Bottom,Left,Bottom

EndFunction

Function Quadro(Left,Top,Right,Bottom,b1,b2,b3)

Ink Rgb(b1,b2,b3),0

box Left,Top,Right,Bottom

EndFunction

Function Middle(wd,hd,lines,C1,C2,C3)

Ink Rgb(C1,C2,C3),0

For B=wd/lines To 0 Step -1

For A=lines To 0 Step -1

Box wd/lines*A+B,0,wd/lines*A+B+1,hd

Next A

Sync

Next B

EndFunction

Function Requester(jstring1$,jstring2$,jstring3$,jstring4$)

Set Text Size 20

Ink Rgb(255,255,0),0

Center Text 320,50,jstring1$

Ink Rgb(255,255,255),0

Center Text 320,100,jstring2$

Center Text 320,120,jstring3$

Set Text Size 15 : Ink rgb(200,0,0),0

Center Text 320,175,jstring4$

repeat : sync : until mouseclick()=1

endfunction

Function rel()

set text size 30

ink rgb(90,90,250),0

center text 320,50,"PIC PUZZLE"

ink rgb(220,220,220),0

center text 320,200,"Loading..."

sync : wait 500

set text size 15

EndFunction

Download

Please login to download

Comments

No comments yet.

Author Name:	Brux
CodeBase Entries:	33

CodeBase - Pic Puzzle Game

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments