It's a bunch of boxes with holes in it. Lol Sinister.
Nice job Nano. Looking good!
[EDIT]
Okay! I finished my first entry!
It has the following
-Graphics
-100 levels
-Start and Finish
-Winning screen
-Auto Map Generation
-98% chance it's beatable
========
|======|
========
rem Maniac Maze
rem ===========
rem Designed by
rem Irojo
rem -----------
sync on:Sync rate 0
set text opaque
SetBestScreen()
hide mouse
ink rgb(255,255,255),0
box 0,0,32,32
get image 1,0,0,33,33
cls
ink rgb(200,0,0),0
box 2,2,32,32
get image 2,1,1,32,32
cls
nextround:
dim place(screen width(),screen height())
cls
for x=0 to screen width()-64 step 32
for y=0 to screen height()-64 step 32
place(x,y)=1
n=rnd(100)
if n=2 then place(x,y)=0
next y
next x
place(screen width()-128,screen height())=200
for x=32 to screen width() step 32
for y=32 to screen height() step 32
if place(x,y)=1 then paste image 1,x,y
if place(x,y)=200 then paste image 2,x,y
next y
next x
px=32:py=32
paste image 2,screen width()-64,screen height()-64
inc round,1
if round=100 then gosub loser
do
text 0,0,str$(round)
if rightkey()=1 and place(px+32,py)=1 and px<screen width()-32 then inc px,32
if leftkey()=1 and place(px-32,py)=1 and px>32 then dec px,32
if downkey()=1 and place(px,py+32)=1 and py<screen height()-32 then inc py,32
if upkey()=1 and place(px,py-32)=1 and py>32 then dec py,32
if px=screen width()-64 and py=screen height()-64 then gosub nextround
sprite 1,px,py,2
wait 100
sync
loop
loser:
cls
center text screen width()/2,screen height()/2,"YOU BEAT THE HARDEST GAME EVER!"
wait key
end
sync
wait key
end
function SetBestScreen()
remstart
-----------------------------------------------------------------------------
(c) 2008 Attila
The function will look for the highest available reolution on the system
and set it. Highest is defined as highest number of pixels, ignoring the
color-depth.
the function will work in DBclassic and DBpro
-----------------------------------------------------------------------------
remend
perform checklist for display modes
mwi=640:mhi=480:mde=16
for t=1 to checklist quantity()
wi=checklist value a(t) :` Width
hi=checklist value b(t) :` Height
de=checklist value c(t) :` Depth
if (wi*hi) > (mwi*mhi)
mwi=wi
mhi=hi
mde=de
endif
next t
set display mode mwi,mhi,mde
endfunction
After you check that out,
Did you think it was gonna be awesome?
