TheGameCreators - CodeBase - Inteligence puzzle game useing sprites

Return to the CodeBase listing

Category: 2D

Version: 1.0

Information

Uploaded: 14th Dec 2004 16:39

Modified: 14th Dec 2004 16:55

Author: Balagrius

Summary

A very hard to solve puzzle game inspired from Myst IV ,useing sprites.

Full Description

You have a board with 48 squares (6x8) wich u have to fullfill with blue squares (turn all the gray squares into blue), just click on the squares and try to understand how the program works. The clicked square remain unchanged but the other 4 from left/right/top/bottom changes their color. (if the squares color is gray it turns into blue and viceversa). It isn't so easy as it sounds like.<br />

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

rem Made by --------------------------------------

rem Atanasoaei Leontin

rem

rem Date

rem 15/12/2004

rem ----------------------------------------------

sync on

cls

dim a(50)

for t=1 to 50

a(t)=0

next t

hide mouse

sync rate 1000

ink 0,RGB(444,444,444)

cls

get image 1,0,0,50,50

ink 0,RGB(3,333,152)

cls

get image 2,0,0,50,50

ink RGB(18,19,25),RGB(0,0,0)

cls

set text size 24

text 0,0, "+"

get image 99,0,0,20,20

cls

ink RGB(185,192,255),RGB(236,249,255)

cls

for t=1 to 8

sprite t,50+55*t,100,1

next t

for t=9 to 16

sprite t,50+55*(t-8),160,1

next t

for t=17 to 24

sprite t,50+55*(t-16),220,1

next t

for t=25 to 32

sprite t,50+55*(t-24),280,1

next t

for t=33 to 40

sprite t,50+55*(t-32),340,1

next t

for t=41 to 48

sprite t,50+55*(t-40),400,1

next t

sync

gosub cursor

gosub motor

if spacekey()=1

text mousex(),mousey(),str$( mousex() )

text mousex(),mousey()+10,str$( mousey() )

endif

loop

cursor:

sprite 99,mousex(),mousey(),99

x=SPRITE COLLISION(99,0)

return

motor:

if mouseclick()=1

if x>=10 & x<=15

if a(x-8)=0

sprite x-8,sprite x(x-8),sprite y(x-8),2

a(x-8)=1

else

sprite x-8,sprite x(x-8),sprite y(x-8),1

a(x-8)=0

endif

if a(x-1)=0

sprite x-1,sprite x(x-1),sprite y(x-1),2

a(x-1)=1

else

sprite x-1,sprite x(x-1),sprite y(x-1),1

a(x-1)=0

endif

if a(x+1)=0

sprite x+1,sprite x(x+1),sprite y(x+1),2

a(x+1)=1

else

sprite x+1,sprite x(x+1),sprite y(x+1),1

a(x+1)=0

endif

if a(x+8)=0

sprite x+8,sprite x(x+8),sprite y(x+8),2

a(x+8)=1

else

sprite x+8,sprite x(x+8),sprite y(x+8),1

a(x+8)=0

endif

wait 200

endif

if x>=18 & x<=23 & mouseclick()=1

if a(x-8)=0

sprite x-8,sprite x(x-8),sprite y(x-8),2

a(x-8)=1

else

sprite x-8,sprite x(x-8),sprite y(x-8),1

a(x-8)=0

endif

if a(x-1)=0

sprite x-1,sprite x(x-1),sprite y(x-1),2

a(x-1)=1

else

sprite x-1,sprite x(x-1),sprite y(x-1),1

a(x-1)=0

endif

if a(x+1)=0

sprite x+1,sprite x(x+1),sprite y(x+1),2

a(x+1)=1

else

sprite x+1,sprite x(x+1),sprite y(x+1),1

a(x+1)=0

endif

if a(x+8)=0

sprite x+8,sprite x(x+8),sprite y(x+8),2

a(x+8)=1

else

sprite x+8,sprite x(x+8),sprite y(x+8),1

a(x+8)=0

endif

wait 200

endif

if x>=26 & x<=31 & mouseclick()=1

if a(x-8)=0

sprite x-8,sprite x(x-8),sprite y(x-8),2

a(x-8)=1

else

sprite x-8,sprite x(x-8),sprite y(x-8),1

a(x-8)=0

endif

if a(x-1)=0

sprite x-1,sprite x(x-1),sprite y(x-1),2

a(x-1)=1

else

sprite x-1,sprite x(x-1),sprite y(x-1),1

a(x-1)=0

endif

if a(x+1)=0

sprite x+1,sprite x(x+1),sprite y(x+1),2

a(x+1)=1

else

sprite x+1,sprite x(x+1),sprite y(x+1),1

a(x+1)=0

endif

if a(x+8)=0

sprite x+8,sprite x(x+8),sprite y(x+8),2

a(x+8)=1

else

sprite x+8,sprite x(x+8),sprite y(x+8),1

a(x+8)=0

endif

wait 200

endif

if x>=34 & x<=39 & mouseclick()=1

if a(x-8)=0

sprite x-8,sprite x(x-8),sprite y(x-8),2

a(x-8)=1

else

sprite x-8,sprite x(x-8),sprite y(x-8),1

a(x-8)=0

endif

if a(x-1)=0

sprite x-1,sprite x(x-1),sprite y(x-1),2

a(x-1)=1

else

sprite x-1,sprite x(x-1),sprite y(x-1),1

a(x-1)=0

endif

if a(x+1)=0

sprite x+1,sprite x(x+1),sprite y(x+1),2

a(x+1)=1

else

sprite x+1,sprite x(x+1),sprite y(x+1),1

a(x+1)=0

endif

if a(x+8)=0

sprite x+8,sprite x(x+8),sprite y(x+8),2

a(x+8)=1

else

sprite x+8,sprite x(x+8),sprite y(x+8),1

a(x+8)=0

endif

wait 200

endif

if mouseclick()=1 & x=1

if a(x+1)=0

sprite x+1,sprite x(x+1),sprite y(x+1),2

a(x+1)=1

else

sprite x+1,sprite x(x+1),sprite y(x+1),1

a(x+1)=0

endif

if a(x+8)=0

sprite x+8,sprite x(x+8),sprite y(x+8),2

a(x+8)=1

else

sprite x+8,sprite x(x+8),sprite y(x+8),1

a(x+8)=0

endif

wait 200

endif

if mouseclick()=1 & x=8

if a(x-1)=0

sprite x-1,sprite x(x-1),sprite y(x-1),2

a(x-1)=1

else

sprite x-1,sprite x(x-1),sprite y(x-1),1

a(x-1)=0

endif

if a(x+8)=0

sprite x+8,sprite x(x+8),sprite y(x+8),2

a(x+8)=1

else

sprite x+8,sprite x(x+8),sprite y(x+8),1

a(x+8)=0

endif

wait 200

endif

if mouseclick()=1 & x=41

if a(x-8)=0

sprite x-8,sprite x(x-8),sprite y(x-8),2

a(x-8)=1

else

sprite x-8,sprite x(x-8),sprite y(x-8),1

a(x+1)=0

endif

if a(x+1)=0

sprite x+1,sprite x(x+1),sprite y(x+1),2

a(x+1)=1

else

sprite x+1,sprite x(x+1),sprite y(x+1),1

a(x+1)=0

endif

wait 200

endif

if mouseclick()=1 & x=48

if a(x-1)=0

sprite x-1,sprite x(x-1),sprite y(x-1),2

a(x-1)=1

else

sprite x-1,sprite x(x-1),sprite y(x-1),1

a(x-1)=0

endif

if a(x-8)=0

sprite x-8,sprite x(x-8),sprite y(x-8),2

a(x-8)=1

else

sprite x-8,sprite x(x-8),sprite y(x-8),1

a(x-8)=0

endif

wait 200

endif

if (x=9 or x=17 or x=25 or x=33) and mouseclick()=1

if a(x+1)=0

sprite x+1,sprite x(x+1),sprite y(x+1),2

a(x+1)=1

else

sprite x+1,sprite x(x+1),sprite y(x+1),1

a(x+1)=0

endif

if a(x-8)=0

sprite x-8,sprite x(x-8),sprite y(x-8),2

a(x-8)=1

else

sprite x-8,sprite x(x-8),sprite y(x-8),1

a(x-8)=0

endif

if a(x+8)=0

sprite x+8,sprite x(x+8),sprite y(x+8),2

a(x+8)=1

else

sprite x+8,sprite x(x+8),sprite y(x+8),1

a(x+8)=0

endif

wait 200

endif

if (x>=42 and x<=47) and mouseclick()=1

if a(x+1)=0

sprite x+1,sprite x(x+1),sprite y(x+1),2

a(x+1)=1

else

sprite x+1,sprite x(x+1),sprite y(x+1),1

a(x+1)=0

endif

if a(x-8)=0

sprite x-8,sprite x(x-8),sprite y(x-8),2

a(x-8)=1

else

sprite x-8,sprite x(x-8),sprite y(x-8),1

a(x-8)=0

endif

if a(x-1)=0

sprite x-1,sprite x(x-1),sprite y(x-1),2

a(x-1)=1

else

sprite x-1,sprite x(x-1),sprite y(x-1),1

a(x-1)=0

endif

wait 200

endif

if (x=16 or x=24 or x=32 or x=40) and mouseclick()=1

if a(x+8)=0

sprite x+8,sprite x(x+8),sprite y(x+8),2

a(x+8)=1

else

sprite x+8,sprite x(x+8),sprite y(x+8),1

a(x+8)=0

endif

if a(x-8)=0

sprite x-8,sprite x(x-8),sprite y(x-8),2

a(x-8)=1

else

sprite x-8,sprite x(x-8),sprite y(x-8),1

a(x-8)=0

endif

if a(x-1)=0

sprite x-1,sprite x(x-1),sprite y(x-1),2

a(x-1)=1

else

sprite x-1,sprite x(x-1),sprite y(x-1),1

a(x-1)=0

endif

wait 200

endif

if (x>=2 and x<=7) and mouseclick()=1

if a(x+1)=0

sprite x+1,sprite x(x+1),sprite y(x+1),2

a(x+1)=1

else

sprite x+1,sprite x(x+1),sprite y(x+1),1

a(x+1)=0

endif

if a(x+8)=0

sprite x+8,sprite x(x+8),sprite y(x+8),2

a(x+8)=1

else

sprite x+8,sprite x(x+8),sprite y(x+8),1

a(x+8)=0

endif

if a(x-1)=0

sprite x-1,sprite x(x-1),sprite y(x-1),2

a(x-1)=1

else

sprite x-1,sprite x(x-1),sprite y(x-1),1

a(x-1)=0

endif

wait 200

endif

return

Download

Please login to download

Comments

No comments yet.

Author Name:	Balagrius
CodeBase Entries:	1

CodeBase - Inteligence puzzle game useing sprites

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments