I'll work on the brightness slider. Thanks for your feedback. And how do you make music fade? Set music volume doesn't seem to work for me.
FINISHED!
I'll update the highscores to include ya Nano.
It made a cool rag effect. I'd change the code, but I want to know what you think about it.
[EDIT2]
It wasn't working quite right, so I changed things around, and voila! It works beautifully now.
How goes the rocks Sinani?
hide mouse:sync on:sync rate 100
load music "Boss.mid",2
set text font "Impact"
rem This is for the beginning x.
xxxx=120
play music 2
for fadein=1 to 255 step 2
cls
set text size fadein
set=rnd(4)
if set=1 then white=0
if set=0 then white=1
if white=1 then ink rgb(255,255,255),0
if white=0 then ink rgb(255,0,0),0
center text xxxx,240,"DarkNOOB Games"
inc xxxx,5
set gamma fadein,fadein,fadein
sync
next fadein
rem - end of the anim if you will-
rem makes the darkNOOB in a grey text, and fades it out.
fadeout=255
set text size 200
ink rgb(100,100,100),0
center text 320,240,"DarkNOOB"
wait 1000
ink rgb(155,0,0),0
center text 320,100,"Games"
`wait 100
stop music 2
repeat
set gamma fadeout,fadeout,fadeout
dec fadeout,1
until fadeout=0
cls
rem Resetting.
set text size 20
set gamma 255,255,255
set text font "system"
cls
rem MainMenu Program Section
rem Setting Up
sync on:sync rate 0:hide mouse
ink rgb(255,255,255),0
center text 320,240,"Loading Music"
wait 1
sync
load music "themea.mid",1
cls
rem Making the arrow
ink rgb(140,140,140),0
print "<";
for locate=1 to 40
ink rgb(60*locate,60*locate,0),0
text 5+locate,0,"-"
next locate
rem Getting the arrow
get image 100,0,0,100,40
cls
rem This makes the background pattern
for y=1 to 100 step 1
for x=1 to 100 step 1
ink rgb(x*y^2,x,y),0
dot x,y
next x
next y
get image 1,0,0,100,100
cls
rem Setting the default Gamma.
bright=255
rem Reset allows this Menu area to be returned to.
reset:
r=0
x=0
y=0
for y=1 to screen height() step 100
for x=1 to screen width() step 100
paste image 1,x,y
next x
next y
rem Making the Onscreen text.
set text font "arabic_charset"
set text size 60
ink rgb(255,255,255),0
center text (screen width()/2)+1,100,"The Miner Man"
ink rgb(155,155,155),0
center text screen width()/2,100,"The Miner Man"
set text size 40
ink rgb(255,255,255),0
center text screen width()/2,230,"Play"
ink rgb(100,100,100),0
center text screen width()/2,229,"Play"
ink rgb(255,255,255),0
center text screen width()/2,280,"Extras"
ink rgb(100,100,100),0
center text screen width()/2,278,"Extras"
ink rgb(255,255,255),0
center text screen width()/2,330,"Exit"
ink rgb(80,80,80),0
center text screen width()/2,328,"Exit"
rem Making the 'sun'
repeat
inc r,1
ink rgb(5*r,5*r,0),0
circle -55,0,r
until r=100
rem Setting Values
y=230
x#=screen width()/1.6
play music 1
loop music 1
do
sprite 100,x#,y+area,100
sprite 101,x#,y+1+area,100
sprite 102,x#,y+2+area,100
if downkey()=1 and y<325 and pause=0 then inc y,58:pause=1
if upkey()=1 and y>230 and pause=0 then dec y,58:pause=1
rem Timer.
if pause>=1 then inc pause,1
if pause=40 then pause=0
rem Makes the moving arrow animation.
if round=1 then inc x#,extra#/7
if round=1 then extra#=extra#+.01
if extra#>=1 and round=1 then extra#=0:round=0
if round=0 then dec x#,extra#/7
if round=0 then extra#=extra#+.01
if extra#>=1 and round=0 then extra#=0:round=1
rem Dims and Goes to the menu selection
if spacekey()=1 or returnkey()=1
fade=bright
repeat
dec fade,1
set gamma fade*1.1,fade*1.1,fade*1.1
wait 5
until fade=0
if y=230 then gosub play
if y=288 then gosub extras
if y=346 then gosub exit
endif
if y=288 then area=2
if y=230 then area=10
if y=346 then area=-4
wait 1
sync
loop
extras:
cls
delete sprite 100
delete sprite 101
delete sprite 102
set gamma bright,bright,bright
rem Re-texture
for y=1 to screen height() step 100
for x=1 to screen width() step 100
paste image 1,x,y
next x
next y
rem Making the selections
set text size 60
ink rgb(255,255,255),0
center text screen width()/2,40,"Extras"
ink rgb(155,155,155),0
center text screen width()/2+1,42,"Extras"
set text size 40
ink rgb(255,255,255),0
center text screen width()/2,240,"Credits"
ink rgb(155,155,155),0
center text screen width()/2+1,241,"Credits"
ink rgb(255,255,255),0
center text screen width()/2,300,"Instructions"
ink rgb(155,155,155),0
center text screen width()/2+1,301,"Instructions"
ink rgb(255,255,255),0
center text screen width()/2,360,"System"
ink rgb(155,155,155),0
center text screen width()/2+1,361,"System"
rem Setting Values
y=300
x#=screen width()/2+100
do
sprite 100,x#,y+10,100
sprite 101,x#,y+11,100
sprite 102,x#,y+12,100
if downkey()=1 and y<360 and pause=0 then inc y,60:pause=1
if upkey()=1 and y>240 and pause=0 then dec y,60:pause=1
if spacekey()=1 or returnkey()=1
fade=bright
repeat
dec fade,1
set gamma fade*1.1,fade*1.1,fade*1.1
wait 5
until fade=0
if y=300 then gosub Instructions
if y=240 then gosub Credits
if y=360 then gosub System
endif
if pause>=1 then inc pause,1
if pause=40 then pause=0
if round=1 then inc x#,extra#/7
if round=1 then extra#=extra#+.01
if extra#>=1 and round=1 then extra#=0:round=0
if round=0 then dec x#,extra#/7
if round=0 then extra#=extra#+.01
if extra#>=1 and round=0 then extra#=0:round=1
if scancode()=14 then gosub reset
wait 1
sync
loop
wait key
gosub reset
end
exit:
delete sprite 100
delete sprite 101
delete sprite 102
set gamma bright,bright,bright
cls
end
Instructions:
delete sprite 100
delete sprite 101
delete sprite 102
set gamma bright,bright,bright
cls
rem Re-texture
for y=1 to screen height() step 100
for x=1 to screen width() step 100
paste image 1,x,y
next x
next y
set text size 60
ink rgb(100,100,100),0
center text screen width()/2,10,"Instructions"
set text size 20
ink rgb(200,200,200),0
center text screen width()/2,100,"Dig the ground to get gems!"
center text screen width()/2,120,"Collect as many as possible."
center text screen width()/2,140,"But be forwarned! Don't dig underneath rocks!"
center text screen width()/2,160,"They'll land on your head and squish you!"
ink rgb(200,200,0),0
for bar=1 to screen width()
text bar,185,"-"
next bar
set text size 40
ink rgb(100,100,100),0
center text screen width()/2,220,"Menu Instructions"
ink rgb(200,200,200),0
set text size 18
center text screen width()/2,300,"Use up and down keys to move cursor. Enter or spacebar is to select, backspace is to go back."
wait key
gosub extras
cls
end
Credits:
delete sprite 100
delete sprite 101
delete sprite 102
cls
set text size 60
rem Making the Credits. Changes will be made.
ink rgb(100,100,0),0
center text screen width()/2,40,"Credits"
ink rgb(200,100,0),0
set text size 40
center text screen width()/2,100,"Program Manager: BN2 Productions"
ink rgb(210,80,0),0
center text screen width()/2,150,"Music and Images: Sinisterstuf"
ink rgb(220,60,0),0
center text screen width()/2,200,"Rock Control: Sinani201"
ink rgb(230,40,0),0
center text screen width()/2,250,"Menu and Partial Ingame Design: Irojo"
ink rgb(240,20,10),0
set text size 17
center text screen width()/2,300,"Thanks Also to OBese87 , Latch, TDK, NanoGamez Guy and many others not mentioned."
for fadein=1 to bright
set gamma fadein,fadein,fadein
wait 1
next fadein
wait key
gosub extras
cls
end
System:
cls
delete sprite 100
delete sprite 101
delete sprite 102
for y=1 to screen height() step 100
for x=1 to screen width() step 100
paste image 1,x,y
next x
next y
set text size 60
ink rgb(255,255,255),0
center text screen width()/2,40,"System"
ink rgb(100,100,100),0
center text screen width()/2+1,42,"System"
set text size 40
ink rgb(255,255,255),0
center text screen width()/2,240,"Brightness"
ink rgb(100,100,100),0
center text screen width()/2,241,"Brightness"
set gamma bright,bright,bright
y=255
do
sprite 100,x#,y-1,100
sprite 101,x#,y,100
sprite 102,x#,y+1,100
` if downkey()=1 and pause=0 then inc y,60:pause=1
` if upkey()=1 and pause=0 then dec y,60:pause=1
if spacekey()=1 or returnkey()=1
if y=255 then gosub Brightness
endif
if pause>=1 then inc pause,1
if pause=40 then pause=0
if round=1 then inc x#,extra#/7
if round=1 then extra#=extra#+.01
if extra#>=1 and round=1 then extra#=0:round=0
if round=0 then dec x#,extra#/7
if round=0 then extra#=extra#+.01
if extra#>=1 and round=0 then extra#=0:round=1
if scancode()=14 then wait 150:gosub extras
wait 1
sync
loop
end
Brightness:
show mouse
delete sprite 100
delete sprite 101
delete sprite 102
set gamma bright,bright,bright
sync on:sync rate 0
gridwidth=150
gridheight=150
dim grid(gridwidth,gridheight)
startvalue=50
maxvalue=100
minvalue=0
variation=30
if variation>abs(maxvalue-minvalue) then variation=abs(maxvalue-minvalue)
for x=1 to gridwidth
for y=1 to gridheight
grid(x,y)=startvalue
next y
next x
for i=1 to gridwidth*gridheight/10
feild=abs(maxvalue-minvalue)
x=rnd(gridwidth)
y=rnd(gridheight)
value=rnd(feild)
grid(x,y)=value
next i
for x=1 to gridwidth step 1
for y=1 to gridheight
otherpoints=0
totalofothers=0
if x>0
value=grid(x-1,y)
if value<>startvalue then otherpoints=otherpoints+1 : totalofothers=totalofothers+value
endif
if y>0
value=grid(x,y-1)
if value<>startvalue then otherpoints=otherpoints+1 : totalofothers=totalofothers+value
endif
if x<gridwidth
value=grid(x+1,y)
if value<>startvalue then otherpoints=otherpoints+1 : totalofothers=totalofothers+value
endif
if y<gridheight
value=grid(x,y+1)
if value<>startvalue then otherpoints=otherpoints+1 : totalofothers=totalofothers+value
endif
if otherpoints>0
o#=otherpoints
t#=totalofothers
average#=t#/o#
else
average#=startvalue
endif
gridvalue=average#+(rnd(variation)-(variation/2))
if gridvalue<minvalue then gridvalue=minvalue
if gridvalue>maxvalue then gridvalue=maxvalue
ink rgb(255,255,255),0
grid(x,y)=gridvalue
gv#=gridvalue
rg#=gv#/100*90
ink rgb(rg#,rg#,gridvalue),0
dot x,y
next y
next x
get image 10,0,0,150,150
x=0
y=0
paste image 10,x,y
ink rgb(255,0,0),0
box x,y,x+150,y+15
ink rgb(255,255,255),0
set text size 15
set text to bold
set text font "Arial"
center text x+75,y,"Brightness"
set text to normal
set text font "Times New Roman"
center text x+75,y+25,"Use the arrow keys to control"
get image 11,0,0,150,150
cls
set text font "system"
set text to bold
text 0,0,"|"
get image 12,0,0,10,20
cls
text 0,0,"_______"
get image 13,0,0,50,20
x3=50
cls
`-------------------------------------------------------------
x111=320
y111=240
for y=1 to screen height() step 100
for x=1 to screen width() step 100
paste image 1,x,y
next x
next y
set text size 60
ink rgb(255,255,255),0
center text screen width()/2,40,"System"
ink rgb(100,100,100),0
center text screen width()/2+1,42,"System"
x333=50
do
sprite 11,x111,y111,11
sprite 12,x222,y222+50,12
sprite 13,x111+51,y222+45,13
if rightkey()=1 and timedwait=0 and x333<50 then inc x333,1:timedwait=1
if leftkey()=1 and timedwait=0 and x333>0 then dec x333,1:timedwait=1
x222=x111+50+x333
y222=y111
if mouseclick()=1
x111=mousex():y111=mousey()
endif
if timedwait>=1 and timedwait<10 then inc timedwait,1 else timedwait=0
x4444=x222+x111
if x333+x333<255 then set gamma rrrr+x333+x333+155,rrrr+x333+x333+155,rrrr+x333+x333+155
if returnkey()=1 or spacekey()=1 or controlkey()=1 or scancode()=14 then exit
sync
loop
delete sprite 11
delete sprite 12
delete sprite 13
y111=0
y222=0
bright=rrrr+x333+x333+155
wait 1000
hide mouse
delete image 12
delete image 11
delete image 10
delete image 13
gosub System
play:
cls
delete sprite 100
delete sprite 101
delete sprite 102
set gamma bright,bright,bright
print "Play Sequence here"
wait key
gosub reset
end
