DarkNOOBS Project 1 - GameCreators Forum

Author

Message

Sinani201

19

Years of Service

User Offline

Joined: 16th Apr 2007

Location: Aperture Science Enrichment Center

Posted: 23rd Aug 2008 19:23 Edited at: 23rd Aug 2008 19:25

Link

OK, thanks for the output. Right now I'm at someone elses house, but when I get home I'll start working on it.
@Ed22
Thanks for the transparency! I'll edit the signature right now.

I'm Sinani201, and I approve of this message.

Back to top

Profile PM

Irojo

18

Years of Service

User Offline

Joined: 21st May 2008

Location: Eating toast.

Posted: 23rd Aug 2008 21:09

Link

I'm not going to be able to go online for about 2 days. Just to let you guys know. And BN2, what do you think about the brightness bar?

Back to top

Profile PM Email Website

BN2 Productions

22

Years of Service

User Offline

Joined: 22nd Jan 2004

Location:

Posted: 23rd Aug 2008 21:19

Link

Very good, only thing I would suggest is center it onscreen and use the SET SPRITE command to make the window not transparent at black parts. Other than that, its great keep up the good work.

Ever notice how in Microsoft word, the word "microsoft" is auto corrected to be "Microsoft" but "macintosh" just gets the dumb red underline?

Back to top

Profile PM

Irojo

18

Years of Service

User Offline

Joined: 21st May 2008

Location: Eating toast.

Posted: 23rd Aug 2008 21:24 Edited at: 23rd Aug 2008 21:29

Link

Okay thanks.

[EDIT]

As requested...
I will center it when I get back.

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
 center text screen width()/2,300,"Textures: NanoGamez Guy"
 ink rgb(250,40,30),0
 set text size 17
 center text screen width()/2,350,"Thanks Also to OBese87 , Latch, TDK, 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 font "arabic_charset"
 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
set sprite 11,1,0
 
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
set text font "arabic_charset"
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

+ Code Snippet

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
 center text screen width()/2,300,"Textures: NanoGamez Guy"
 ink rgb(250,40,30),0
 set text size 17
 center text screen width()/2,350,"Thanks Also to OBese87 , Latch, TDK, 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 font "arabic_charset"
 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
set sprite 11,1,0
 
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
set text font "arabic_charset"
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

Back to top

Profile PM Email Website

sinisterstuf

19

Years of Service

User Offline

Joined: 28th Mar 2007

Location: Namibia, Southern Africa

Posted: 24th Aug 2008 01:48

Link

I'll have media for you guys before Wednesday, sorry for the delay, I've been busy. I'll try to get it done by tomorrow though. Okay?

Keep up the good work everyone!

LLANFAIRPWLLGWYNGYLLGOGERYCHWYRNDROBWLLLLANTYSILIOGOGOGOCH
CYMRU AM BYTH!

Back to top

Profile PM Website

BN2 Productions

22

Years of Service

User Offline

Joined: 22nd Jan 2004

Location:

Posted: 24th Aug 2008 09:45

Link

NP Sinister, its cool. Thanks again for doing it!

Ever notice how in Microsoft word, the word "microsoft" is auto corrected to be "Microsoft" but "macintosh" just gets the dumb red underline?

Back to top

Profile PM

sinisterstuf

19

Years of Service

User Offline

Joined: 28th Mar 2007

Location: Namibia, Southern Africa

Posted: 25th Aug 2008 21:58

Link

Maybe the progess has slowed for lack of media? In which case I apologise. I have been working on media but I will not post this evening. Hopefully tmorrow. But in the mean time... WORK!!!

LLANFAIRPWLLGWYNGYLLGOGERYCHWYRNDROBWLLLLANTYSILIOGOGOGOCH
CYMRU AM BYTH!

Back to top

Profile PM Website

BN2 Productions

22

Years of Service

User Offline

Joined: 22nd Jan 2004

Location:

Posted: 25th Aug 2008 22:23

Link

I think we are all somewhat running out of things to do.

Sinani, how's it going?

Irojo, try adding in an extra tile to your code, for a wall. It makes it a little more fun, since it makes obstacles that can't move.

So here is what we have:

-Menu
-Movement controls
-Music

Here is what we still need

-Rock controls. Physics is partially done, pushing hasn't been started.
-Media
-File control code
-GUI (for loading and generally making it look cool)

We still have our work cut out for us. DarkDragon, if you are still following this, you can jump in with one of these things. I will take the file control code, since we don't have a lot of people.

Ever notice how in Microsoft word, the word "microsoft" is auto corrected to be "Microsoft" but "macintosh" just gets the dumb red underline?

Back to top

Profile PM

NanoGamez guy

19

Years of Service

User Offline

Joined: 13th Jan 2007

Location: Closer than you think...

Posted: 25th Aug 2008 23:17

Link

@BN2
I'm working on the GUI, I'll post another screenshot soon, also what other thing do you want me to do for the GUI?

On the other hand, you have different fingers.

Back to top

Profile PM Email Website

sinisterstuf

19

Years of Service

User Offline

Joined: 28th Mar 2007

Location: Namibia, Southern Africa

Posted: 26th Aug 2008 02:21

Link

Oh, I forgot! Irojo said he wouldn't be coming on for the next two days! That must be why it's so quite! I do miss the guy...

LLANFAIRPWLLGWYNGYLLGOGERYCHWYRNDROBWLLLLANTYSILIOGOGOGOCH
CYMRU AM BYTH!

Back to top

Profile PM Website

Irojo

18

Years of Service

User Offline

Joined: 21st May 2008

Location: Eating toast.

Posted: 26th Aug 2008 03:34 Edited at: 26th Aug 2008 03:49

Link

Thanks Sinister!

I'm back!!!!

[EDIT]

I decided to start on a Froggers game, because I couldn't access the internet, and I couldn't remember stuff that needed to be done.
However, It's not working. It got to be pretty complicated for me, and I can't find where it is wrong. My thoughts on the matter are explained in the code:

rem -----------------
rem Frogger
rem by Irojo
rem -----------------

rem =---READ ME---=
rem The problem that I am having,
rem is that it isn't pasting the cars that are moving.
rem I think the array that places the cars works,
rem but there is a problem with the array that moves the cars.
rem All help is appreciated.
rem =---       ---=

rem ===========
rem Image List:
rem 1 = Frogger
rem 2 = Car
rem 3 = Road
rem ===========

rem ===========
rem Array List
rem -----------
rem cars(640,480)
rem ===========

rem ===========
rem The array: cars(640,480)
rem This is mainly for the games control
rem If 2 then it's a car going left.
rem If 1 then it's a car going right.
rem ===========

rem ===========
rem Sprite List
rem -----------
rem NONE CURRENTLY
rem Setup
sync on:sync rate 0:hide mouse

rem Set it to the default 640 x 480 display mode with a 16 depth
set display mode 640,480,16
rem Making the Images
rem Frogger
ink rgb(0,255,0),0
box 0,0,20,20
get image 1,0,0,20,20
cls

rem Car
ink rgb(255,0,0),0
box 0,0,20,20
get image 2,0,0,20,20
cls

rem Road
ink rgb(80,80,80),0
box 0,0,20,20
ink rgb(200,200,0),0
rem Making the checkered lines for the road.
for r=5 to 15 step 5
  line r,10,r+2,10
next r

ink rgb(200,200,200),0
line 0,5,20,5
line 0,15,20,15
get image 3,0,0,20,20
cls
rem This makes the road
for x=0 to screen width() step 20
  for y=screen height()/2 to screen height()/2+40 step 20
    paste image 3,x,y
  next y
next x
y=240
x=0
rem This is the array for the cars.
dim cars(640,480)
rem This makes cars, in random lanes, going in different directions
for carsmake=1 to 20
  cp=rnd(1)
  lane=rnd(2)+1
  if lane=1 then lane=240
  if lane=2 then lane=260
  if lane=3 then lane=280
  if cp=1 then cars(640,lane)=1
  if cp=0 then cars(0,lane)=0
next carsmake
rem ---

rem The Main loop
do
  for check=1 to 480
    y=0
    for y=240 to 280 step 20
      rem This is making the cars go in the originally inputed direction.
      rem It won't work!
      if cars(check,y)=2
       cars(check,y)=0:cars(check-1,y)=2:paste image 2,check,y
      endif
      if cars(check,y)=1
       cars(check,y)=0:cars(check+1,y)=1:paste image 2,check,y
      endif
    next y
  next check
  sync
loop
rem ---

+ Code Snippet

rem -----------------
rem Frogger
rem by Irojo
rem -----------------


rem =---READ ME---=
rem The problem that I am having,
rem is that it isn't pasting the cars that are moving.
rem I think the array that places the cars works,
rem but there is a problem with the array that moves the cars.
rem All help is appreciated.
rem =---       ---=


rem ===========
rem Image List:
rem 1 = Frogger
rem 2 = Car
rem 3 = Road
rem ===========


rem ===========
rem Array List
rem -----------
rem cars(640,480)
rem ===========


rem ===========
rem The array: cars(640,480)
rem This is mainly for the games control
rem If 2 then it's a car going left.
rem If 1 then it's a car going right.
rem ===========


rem ===========
rem Sprite List
rem -----------
rem NONE CURRENTLY
rem Setup
sync on:sync rate 0:hide mouse

rem Set it to the default 640 x 480 display mode with a 16 depth
set display mode 640,480,16
rem Making the Images
rem Frogger
ink rgb(0,255,0),0
box 0,0,20,20
get image 1,0,0,20,20
cls

rem Car
ink rgb(255,0,0),0
box 0,0,20,20
get image 2,0,0,20,20
cls

rem Road
ink rgb(80,80,80),0
box 0,0,20,20
ink rgb(200,200,0),0
rem Making the checkered lines for the road.
for r=5 to 15 step 5
  line r,10,r+2,10
next r


ink rgb(200,200,200),0
line 0,5,20,5
line 0,15,20,15
get image 3,0,0,20,20
cls
rem This makes the road
for x=0 to screen width() step 20
  for y=screen height()/2 to screen height()/2+40 step 20
    paste image 3,x,y
  next y
next x
y=240
x=0
rem This is the array for the cars.
dim cars(640,480)
rem This makes cars, in random lanes, going in different directions
for carsmake=1 to 20
  cp=rnd(1)
  lane=rnd(2)+1
  if lane=1 then lane=240
  if lane=2 then lane=260
  if lane=3 then lane=280
  if cp=1 then cars(640,lane)=1
  if cp=0 then cars(0,lane)=0
next carsmake
rem ---

rem The Main loop
do
  for check=1 to 480
    y=0
    for y=240 to 280 step 20
      rem This is making the cars go in the originally inputed direction.
      rem It won't work!
      if cars(check,y)=2
       cars(check,y)=0:cars(check-1,y)=2:paste image 2,check,y
      endif
      if cars(check,y)=1
       cars(check,y)=0:cars(check+1,y)=1:paste image 2,check,y
      endif
    next y
  next check
  sync
loop
rem ---

Thanks.

Back to top

Profile PM Email Website

BN2 Productions

22

Years of Service

User Offline

Joined: 22nd Jan 2004

Location:

Posted: 26th Aug 2008 08:10 Edited at: 26th Aug 2008 08:13

Link

@Nano
For the GUI, the 448x448 playing field will be centered on screen (maybe a little bit above center, to make room). The GUI should have spots for total gems collected and the total time taken on the level.

@Irojo
this IS a little off topic, but still happy to help. I figured out a couple problems.

1:

+ Code Snippet

  if cp=1 then cars(640,lane)=1
`AND THIS LINE TOO
  for check=1 to 480

If the car is placed at 640, it will NEVER be checked, since check only goes up to 480.

2:
The code is designed to move 20 cars, however, it moves them all at once, so it will only look like a max of 6, since it moves them all from the same spot at the same time.

3:
You are using the paste image command. Because of this, you will need to redraw the road for every loop. I simply copied the road code into a function and just called it at the beginning of the loop.

4:

+ Code Snippet

  if cp=1 then cars(640,lane)=1
  if cp=0 then cars(0,lane)=0

And then

+ Code Snippet

      if cars(check,y)=2
       cars(check,y)=0:cars(check-1,y)=2:paste image 2,check,y
      endif
      if cars(check,y)=1
       cars(check,y)=0:cars(check+1,y)=1:paste image 2,check,y
      endif

You switched your number scheme. Notice that what is numbered one, should be going left, but in the loop, it 1 means go right. Then, for the other direction, you used 0 and 2. Since they are different, you will never see a car go in that direction.

5:

+ Code Snippet

      if cars(check,y)=2
       cars(check,y)=0:cars(check-1,y)=2:paste image 2,check,y
      endif
      if cars(check,y)=1
       cars(check,y)=0:cars(check+1,y)=1:paste image 2,check,y
      endif

There is a problem with the logic of this check. It should be fairly obvious, but here is a hint: what coordinate becomes 1 (or 2) and where are you putting the image?

Other than these things and a few misc personal preference differences (simply things I would have done differently) it isn't a bad start. 1 suggestion, though is that rather than using an array for the entire screen to control cars in 3 lanes, you could do what we did for the rocks, that is, DIM cars(TOTAL CARS,3) where 1 is x and 2 is y (or you could just use 1-3 to correspond to the lane that it is in) and 3 is for the direction.

Ever notice how in Microsoft word, the word "microsoft" is auto corrected to be "Microsoft" but "macintosh" just gets the dumb red underline?

Back to top

Profile PM

Irojo

18

Years of Service

User Offline

Joined: 21st May 2008

Location: Eating toast.

Posted: 26th Aug 2008 17:20

Link

Ah! Well thanks for taking your time to find the mistakes! I apreciate it. I'll fix that up when I have the time.

Back to top

Profile PM Email Website

NanoGamez guy

19

Years of Service

User Offline

Joined: 13th Jan 2007

Location: Closer than you think...

Posted: 26th Aug 2008 22:39 Edited at: 26th Aug 2008 22:42

Link

Here's the GUI for the gameplay:

I softened up the noise to make it better looking. I wasn't sure what to put in the space in the middle right so I left it empty.
Sorry BN2 I didn't centre the playing feild, it just looked better and there was more room like that.
Please tell me if there's anything you want me to change or add.

"To succeed is not enough; others must fail" - Gore Vidal

Back to top

Profile PM Email Website

Irojo

18

Years of Service

User Offline

Joined: 21st May 2008

Location: Eating toast.

Posted: 26th Aug 2008 23:12 Edited at: 26th Aug 2008 23:18

Link

Fabulous. You are amazing!!!

I like the playing field like that.

And you can use your previously shown message box when the player clicks on the menu!!!

What do you think about this sound when you press the menu button?

[EDIT]
Once again, I did not that sound.

Back to top

Profile PM Email Website

Sinani201

19

Years of Service

User Offline

Joined: 16th Apr 2007

Location: Aperture Science Enrichment Center

Posted: 26th Aug 2008 23:23

Link

That's when you press the menu button?
It doesn't sound that good... I'm sure there are better sounds.

I'm Sinani201, and I approve of this message.

Back to top

Profile PM

Irojo

18

Years of Service

User Offline

Joined: 21st May 2008

Location: Eating toast.

Posted: 26th Aug 2008 23:36 Edited at: 26th Aug 2008 23:38

Link

Okay. I'm sure your right.

How's your rock movement going......?

[EDIT]

what about...

Back to top

Profile PM Email Website

BN2 Productions

22

Years of Service

User Offline

Joined: 22nd Jan 2004

Location:

Posted: 26th Aug 2008 23:43 Edited at: 26th Aug 2008 23:44

Link

Nano, that is awesome. I just threw out the whole center it thing, but that looks much better than what I was thinking of anyway.

@Irojo
You mean when you press play right? For anything other than that, it is too long and not subtle enough. It is distinct, which means that the player will get annoyed with it if they are navigating menus. The idea for that type of sound is a soft beep or similar sound. It is there so you know you pressed something, but quick enough that it won't get noticed.

The second one isn't that bad. Much better than the other one, but I would say only use it for the play button, not the other things.

Ever notice how in Microsoft word, the word "microsoft" is auto corrected to be "Microsoft" but "macintosh" just gets the dumb red underline?

Back to top

Profile PM

Irojo

18

Years of Service

User Offline

Joined: 21st May 2008

Location: Eating toast.

Posted: 27th Aug 2008 05:44 Edited at: 27th Aug 2008 05:49

Link

If you look at Nanos GUI, you'll notice a menu button in the bottom right hand corner. When you press that button, A confirmation window appears (Nano made one on the last page) and the noise is played.

[EDIT]
signature change

Nerds curse in Binary.

Back to top

Profile PM Email Website

BN2 Productions

22

Years of Service

User Offline

Joined: 22nd Jan 2004

Location:

Posted: 27th Aug 2008 07:58

Link

Well if the menu button is going to quit the game and go to the menu, then it should be a more final sound, perhaps a rumbling sound or similar. Again, a subtle sound though.

Ever notice how in Microsoft word, the word "microsoft" is auto corrected to be "Microsoft" but "macintosh" just gets the dumb red underline?

Back to top

Profile PM

NanoGamez guy

19

Years of Service

User Offline

Joined: 13th Jan 2007

Location: Closer than you think...

Posted: 27th Aug 2008 11:51

Link

Acutally, what I was thinking when I made it was that there should be an in-game menu. From there you could go back to the main menu, get instructions etc. This would also be a way of pausing the game.

Oh yeah, BN2, what do you want to go in the blank space in the mid-right? Or should I just leave it blank for now?

"To succeed is not enough; others must fail" - Gore Vidal

Back to top

Profile PM Email Website

BN2 Productions

22

Years of Service

User Offline

Joined: 22nd Jan 2004

Location:

Posted: 27th Aug 2008 12:15 Edited at: 27th Aug 2008 12:23

Link

Hmm, I really have no idea what to put in the blank space. Any suggestions guys? For now lets leave it blank.

In other news, I have all but finished the open file functions. Will probably revisit later to use Nano's graphics stuff, but for now, I went with a windows imitation look (kind of at least).

[edit] Found a bug already :-Y . Will get that after work later and then repost with the corrected.

SET TEXT FONT "Arial",0

INK RGB(127,127,127),0
x=200
y=200
BOX x,y,x+14*16,y+13*14
INK RGB(0,0,127),0
BOX x,y,x+14*16,y+14

SET TEXT SIZE 14
INK RGB(56,56,56),0
TEXT x+5,y,"Open"
INK RGB(255,255,255),0
TEXT x+4,y-1,"Open"

SET TEXT SIZE 12
INK RGB(56,56,56),0
BOX x+2,y+16,x+14*16-2,y+26
INK RGB(255,255,255),0

INK 0,0
LINE x,y+28,x+14*16,y+28

INK RGB(57,57,57),0
BOX x+14,y+42,x+14*15,y+14*9

ink rgb(255,255,255),0
line x,y,x+14*16,y
line x,y,x,y+13*14

ink rgb(32,32,32),0
line x,y+14*13,x+14*16,y+14*13
line x+14*16,y,x+14*16,y+14*13

ink rgb(57,57,57),0
line x+1,(y+(14*13))-1,(x+(14*16))-1,(y+(14*13))-1
line (x+(14*16))-1,y+1,(x+(14*16))-1,(y+(14*13))-1

get image 4,0,0,640,480

box 0,0,1,1

get image 3,0,0,1,1
button(x+14,y+14*10,1,"Open",1)
button(x+135,y+14*10,1,"Cancel",2)
sync on : sync rate 0
	sprite 3,mousex(),mousey(),3
set sprite 3,1,0

sprite 4,800,0,4

createfiles(offset,selected)
sprite 25,800,0,25

Location$=GET DIR$()
limit=50
size=LEN(Location$)
difference=size-limit
if difference>3
	Location$=LEFT$(Location$,(limit/2)-3)+"..."+RIGHT$(LOCATION$,(limit/2)-5)
endif
`IF LEN(Location$)>limit then Location$=LEFT$(Location$,limit)
TEXT x+4,y+16,Location$

do
set current bitmap 0
`text 0,0,selectname$
	if mousex()>x+14 and mousex()<x+14*16 and mousey()>y+28 and mousey()<y+9*14
		if mouseclick()=1
			selected=(mousey()-(y+28))/14
		endif
	endif
createfiles(offset,selected)
	paste sprite 4,0,0
	sprite 3,mousex(),mousey(),3
	if upkey()=1
		scroll=-1
	endif
	if downkey()=1
		scroll=1
	endif
	if upkey()=0 and downkey()=0
		inc offset,scroll
		scroll=0
	endif
	if offset<0 then offset=0
`print button
	if sprite collision(3,1) and mouseclick()=1
		button(x+14,y+14*10,0,"Open",1)
		button=1
	else
		button(x+14,y+14*10,1,"Open",1)
	endif
	if sprite collision(3,2) and mouseclick()=1
		button(x+135,y+14*10,0,"Cancel",2)
		button=2
	else
		button(x+135,y+14*10,1,"Cancel",2)
	endif
	paste sprite 25,x+14,y+42

if mouseclick()=0 and button<>0
		if button=1
			selectname$=createfiles(offset,selected)
			if directory_exist(selectname$)=1
				cd selectname$
			endif
		endif
			
		if button=2 then print "cancel"
		button=0
	endif

Location$=GET DIR$()
limit=50
size=LEN(Location$)
difference=size-limit
if difference>3
	Location$=LEFT$(Location$,(limit/2)-3)+"..."+RIGHT$(LOCATION$,(limit/2)-5)
endif
`IF LEN(Location$)>limit then Location$=LEFT$(Location$,limit)
TEXT x+4,y+16,Location$

sync
`cls
loop
wait key
end

function button(x,y,flag,string$,sprite)
	ink rgb(127,127,127),0
	box x,y,x+75,y+25
	ink rgb(255,255,255),0
	if flag=1
		line x,y,x+75,y
		line x,y,x,y+25

ink rgb(32,32,32),0
		line x,y+25,x+75,y+25
		line x+75,y,x+75,y+25

ink rgb(57,57,57),0
		line x+1,y+24,x+74,y+24
		line x+74,y+1,x+74,y+24

else
`		x2=(x-2)+75/2
`		y=y+3
		ink rgb(32,32,32),0
		line x,y,x+75,y
		line x,y,x,y+24

ink rgb(255,255,255),0
		line x,y+25,x+75,y+25
		line x+75,y,x+75,y+25

ink rgb(57,57,57),0
		line x+1,y+1,x+74,y+1
		line x+1,y+1,x+1,y+24
		
	endif
	x2=x+(75)/2
	y2=y+5

ink rgb(57,57,57),0

center text x2,y2+2,string$

ink rgb(255,255,255),0
	center text x2-1,y2+1,string$

get image sprite,x,y,x+75,y+25
	sprite sprite,x,y,sprite
endfunction

function createfiles(offset,selected)
	if bitmap exist(15)=1 then delete bitmap 15
	create bitmap 15,640,480
	ink rgb(255,0,0),rgb(0,255,255)
	cls
	ink rgb(255,0,0),rgb(0,255,255)
	box 0,(offset+selected-1)*14,639,(offset+selected)*14

ink 0,rgb(0,255,255)
	perform checklist for files
	find first
`	name$=get file name$()+"..........."+get file date$()
`	text 0,0,"1234567890123456789212345678931234567894"
filecount=0
	for i=1 to checklist quantity()
			find next

if get file name$()=".." or right$(get file name$(),3)="map" or get file type()=1
			inc filecount

name$=get file name$()
			if len(name$)>10
				name$=left$(name$,3)+".."+right$(name$,5)
			endif
			string$=name$
			text 0,((filecount-1)*14)+1,string$
			text 196-text width(get file date$()),((filecount-1)*14)+1,get file date$()
			ink 0,0
			line 0,((filecount)*14),640,((filecount)*14)
			line 0,((filecount-1)*14),640,((filecount-1)*14)
		if filecount=selected then filename$=get file name$()

endif
	next i

get image 25,0,offset*14,196,(6*14)+(offset*14)
	set current bitmap 0
	ink rgb(255,255,255),0
endfunction filename$

function directory_exist(name$)
find first
filename$=get file name$()
if filename$<>name$
	repeat
		find next
		filename$=get file name$()
	until filename$=name$ or get file type()=-1
endif
if get file type()=1
	value=1
else
	value=0
endif

endfunction value

+ Code Snippet

SET TEXT FONT "Arial",0

INK RGB(127,127,127),0
x=200
y=200
BOX x,y,x+14*16,y+13*14
INK RGB(0,0,127),0
BOX x,y,x+14*16,y+14

SET TEXT SIZE 14
INK RGB(56,56,56),0
TEXT x+5,y,"Open"
INK RGB(255,255,255),0
TEXT x+4,y-1,"Open"

SET TEXT SIZE 12
INK RGB(56,56,56),0
BOX x+2,y+16,x+14*16-2,y+26
INK RGB(255,255,255),0

INK 0,0
LINE x,y+28,x+14*16,y+28

INK RGB(57,57,57),0
BOX x+14,y+42,x+14*15,y+14*9

ink rgb(255,255,255),0
line x,y,x+14*16,y
line x,y,x,y+13*14

ink rgb(32,32,32),0
line x,y+14*13,x+14*16,y+14*13
line x+14*16,y,x+14*16,y+14*13

ink rgb(57,57,57),0
line x+1,(y+(14*13))-1,(x+(14*16))-1,(y+(14*13))-1
line (x+(14*16))-1,y+1,(x+(14*16))-1,(y+(14*13))-1



get image 4,0,0,640,480

box 0,0,1,1


get image 3,0,0,1,1
button(x+14,y+14*10,1,"Open",1)
button(x+135,y+14*10,1,"Cancel",2)
sync on : sync rate 0
	sprite 3,mousex(),mousey(),3
set sprite 3,1,0

sprite 4,800,0,4

createfiles(offset,selected)
sprite 25,800,0,25


Location$=GET DIR$()
limit=50
size=LEN(Location$)
difference=size-limit
if difference>3
	Location$=LEFT$(Location$,(limit/2)-3)+"..."+RIGHT$(LOCATION$,(limit/2)-5)
endif
`IF LEN(Location$)>limit then Location$=LEFT$(Location$,limit)
TEXT x+4,y+16,Location$


do
set current bitmap 0
`text 0,0,selectname$
	if mousex()>x+14 and mousex()<x+14*16 and mousey()>y+28 and mousey()<y+9*14
		if mouseclick()=1
			selected=(mousey()-(y+28))/14
		endif
	endif
createfiles(offset,selected)
	paste sprite 4,0,0
	sprite 3,mousex(),mousey(),3
	if upkey()=1
		scroll=-1
	endif
	if downkey()=1
		scroll=1
	endif
	if upkey()=0 and downkey()=0
		inc offset,scroll
		scroll=0
	endif
	if offset<0 then offset=0
`print button
	if sprite collision(3,1) and mouseclick()=1
		button(x+14,y+14*10,0,"Open",1)
		button=1
	else
		button(x+14,y+14*10,1,"Open",1)
	endif
	if sprite collision(3,2) and mouseclick()=1
		button(x+135,y+14*10,0,"Cancel",2)
		button=2
	else
		button(x+135,y+14*10,1,"Cancel",2)
	endif
	paste sprite 25,x+14,y+42

	if mouseclick()=0 and button<>0
		if button=1
			selectname$=createfiles(offset,selected)
			if directory_exist(selectname$)=1
				cd selectname$
			endif
		endif
			
		if button=2 then print "cancel"
		button=0
	endif

Location$=GET DIR$()
limit=50
size=LEN(Location$)
difference=size-limit
if difference>3
	Location$=LEFT$(Location$,(limit/2)-3)+"..."+RIGHT$(LOCATION$,(limit/2)-5)
endif
`IF LEN(Location$)>limit then Location$=LEFT$(Location$,limit)
TEXT x+4,y+16,Location$


sync
`cls
loop
wait key
end

function button(x,y,flag,string$,sprite)
	ink rgb(127,127,127),0
	box x,y,x+75,y+25
	ink rgb(255,255,255),0
	if flag=1
		line x,y,x+75,y
		line x,y,x,y+25

		ink rgb(32,32,32),0
		line x,y+25,x+75,y+25
		line x+75,y,x+75,y+25

		ink rgb(57,57,57),0
		line x+1,y+24,x+74,y+24
		line x+74,y+1,x+74,y+24

	else
`		x2=(x-2)+75/2
`		y=y+3
		ink rgb(32,32,32),0
		line x,y,x+75,y
		line x,y,x,y+24

		ink rgb(255,255,255),0
		line x,y+25,x+75,y+25
		line x+75,y,x+75,y+25

		ink rgb(57,57,57),0
		line x+1,y+1,x+74,y+1
		line x+1,y+1,x+1,y+24
		
	endif
	x2=x+(75)/2
	y2=y+5

	ink rgb(57,57,57),0

	center text x2,y2+2,string$

	ink rgb(255,255,255),0
	center text x2-1,y2+1,string$

	get image sprite,x,y,x+75,y+25
	sprite sprite,x,y,sprite
endfunction


function createfiles(offset,selected)
	if bitmap exist(15)=1 then delete bitmap 15
	create bitmap 15,640,480
	ink rgb(255,0,0),rgb(0,255,255)
	cls
	ink rgb(255,0,0),rgb(0,255,255)
	box 0,(offset+selected-1)*14,639,(offset+selected)*14

	ink 0,rgb(0,255,255)
	perform checklist for files
	find first
`	name$=get file name$()+"..........."+get file date$()
`	text 0,0,"1234567890123456789212345678931234567894"
filecount=0
	for i=1 to checklist quantity()
			find next

		if get file name$()=".." or right$(get file name$(),3)="map" or get file type()=1
			inc filecount

			name$=get file name$()
			if len(name$)>10
				name$=left$(name$,3)+".."+right$(name$,5)
			endif
			string$=name$
			text 0,((filecount-1)*14)+1,string$
			text 196-text width(get file date$()),((filecount-1)*14)+1,get file date$()
			ink 0,0
			line 0,((filecount)*14),640,((filecount)*14)
			line 0,((filecount-1)*14),640,((filecount-1)*14)
		if filecount=selected then filename$=get file name$()

		endif
	next i

	get image 25,0,offset*14,196,(6*14)+(offset*14)
	set current bitmap 0
	ink rgb(255,255,255),0
endfunction filename$

function directory_exist(name$)
find first
filename$=get file name$()
if filename$<>name$
	repeat
		find next
		filename$=get file name$()
	until filename$=name$ or get file type()=-1
endif
if get file type()=1
	value=1
else
	value=0
endif

endfunction value

@All
I want a progress report from everyone for where they are, even if you have just posted it. I want to know what is done and what still needs to be done. Since we are slowing down in production, I want to make sure that some things aren't being overlooked. Thanks!

Ever notice how in Microsoft word, the word "microsoft" is auto corrected to be "Microsoft" but "macintosh" just gets the dumb red underline?

Back to top

Profile PM

Irojo

18

Years of Service

User Offline

Joined: 21st May 2008

Location: Eating toast.

Posted: 27th Aug 2008 17:15

Link

Nothing new here. I hate to say it, but we're waiting alot for you Sinani...

Nerds curse in Binary.

Back to top

Profile PM Email Website

BN2 Productions

22

Years of Service

User Offline

Joined: 22nd Jan 2004

Location:

Posted: 28th Aug 2008 10:59

Link

I am thinking that too. Sinani, I could really use some sort of an update. At least tell us where you are, or we will finish this up with the code that I wrote (don't really want to do that, but we will). This project has gone on much longer than it should have, so I think it is time we really get down to finishing this up soon.

Anyone agree, disagree, have any other opinion?

Ever notice how in Microsoft word, the word "microsoft" is auto corrected to be "Microsoft" but "macintosh" just gets the dumb red underline?

Back to top

Profile PM

Irojo

18

Years of Service

User Offline

Joined: 21st May 2008

Location: Eating toast.

Posted: 29th Aug 2008 03:12 Edited at: 29th Aug 2008 19:07

Link

I definetly agree. My idea for a new project, or my own project, was Frogger now. So I've been working on it. I redid my old code, feeling it wasn't optimized, and I've cranked out this:

rem -----------------
rem Frogger
rem by Irojo
rem -----------------

rem =---READ ME---=
rem No Comments
rem =---       ---=

rem ===========
rem Image List:
rem 1 = Frogger
rem 2 = Car
rem 3 = Road
rem ===========

rem ===========
rem Array List
rem -----------
rem car(640,3)
rem ===========

rem ===========
rem Array: car()
rem The first is for the x location.
rem The second is for the lane that it is in.
rem What it equals is it's direction:
rem 1 being left
rem 2 being right
rem ===========

rem ===========
rem Sprite List
rem -----------
rem NONE CURRENTLY
rem Setup
sync on:sync rate 0:hide mouse

rem Set it to the default 640 x 480 display mode with a 16 depth
set display mode 640,480,16
rem Making the Images
rem Frogger
ink rgb(0,255,0),0
box 0,0,20,20
get image 1,0,0,20,20
cls

rem Car
ink rgb(255,0,0),0
box 0,0,20,20
get image 2,0,0,20,20
cls

rem Road
ink rgb(80,80,80),0
box 0,0,20,20
ink rgb(200,200,0),0
rem Making the checkered lines for the road.
for r=5 to 15 step 5
  line r,10,r+2,10
next r

ink rgb(200,200,200),0
line 0,5,20,5
line 0,15,20,15
get image 3,0,0,20,20
cls
rem This makes the road
for x=0 to screen width() step 20
  for y=240 to 280 step 20
    paste image 3,x,y
  next y
next x
y=240
x=0
rem 1 left : 2 right
dim car(640,3)
car(0,1)=2
set text opaque
do
  text 0,0,str$(screen fps())
  for x=0 to screen width() step 20
    for y=240 to 280 step 20
      paste image 3,x,y
    next y
  next x
  for x=0 to 639
    for lane=1 to 3
      if lane=1 then y=240
      if lane=2 then y=260
      if lane=3 then y=280
      if car(x,lane)=2 then car(x,lane)=0:car(x+1,lane)=2:paste image 2,x,y:goto el
      if car(x,lane)=1 then car(x,lane)=0:car(x-1,lane)=1:paste image 2,x,y:goto el
    next lane
    next x
   el:
  sync
loop

+ Code Snippet

rem -----------------
rem Frogger
rem by Irojo
rem -----------------


rem =---READ ME---=
rem No Comments
rem =---       ---=


rem ===========
rem Image List:
rem 1 = Frogger
rem 2 = Car
rem 3 = Road
rem ===========


rem ===========
rem Array List
rem -----------
rem car(640,3)
rem ===========


rem ===========
rem Array: car()
rem The first is for the x location.
rem The second is for the lane that it is in.
rem What it equals is it's direction:
rem 1 being left
rem 2 being right
rem ===========


rem ===========
rem Sprite List
rem -----------
rem NONE CURRENTLY
rem Setup
sync on:sync rate 0:hide mouse

rem Set it to the default 640 x 480 display mode with a 16 depth
set display mode 640,480,16
rem Making the Images
rem Frogger
ink rgb(0,255,0),0
box 0,0,20,20
get image 1,0,0,20,20
cls

rem Car
ink rgb(255,0,0),0
box 0,0,20,20
get image 2,0,0,20,20
cls

rem Road
ink rgb(80,80,80),0
box 0,0,20,20
ink rgb(200,200,0),0
rem Making the checkered lines for the road.
for r=5 to 15 step 5
  line r,10,r+2,10
next r


ink rgb(200,200,200),0
line 0,5,20,5
line 0,15,20,15
get image 3,0,0,20,20
cls
rem This makes the road
for x=0 to screen width() step 20
  for y=240 to 280 step 20
    paste image 3,x,y
  next y
next x
y=240
x=0
rem 1 left : 2 right
dim car(640,3)
car(0,1)=2
set text opaque
do
  text 0,0,str$(screen fps())
  for x=0 to screen width() step 20
    for y=240 to 280 step 20
      paste image 3,x,y
    next y
  next x
  for x=0 to 639
    for lane=1 to 3
      if lane=1 then y=240
      if lane=2 then y=260
      if lane=3 then y=280
      if car(x,lane)=2 then car(x,lane)=0:car(x+1,lane)=2:paste image 2,x,y:goto el
      if car(x,lane)=1 then car(x,lane)=0:car(x-1,lane)=1:paste image 2,x,y:goto el
    next lane
    next x
   el:
  sync
loop

There are some problems with it, but I figured I'd show ya the beginnings.

----

And I took someone elses fireworks code from the database, edited it so it worked in DBC, and then changed it up a bit. I figured this might be used for the end of a level screen:
[EDIT]
Finished!

` This code was downloaded from The Game Creators
` It is reproduced here with full permission
` http://www.thegamecreators.com

Rem Project: fire works
Rem Created: 8/26/2008 9:26:04 PM

Rem ***** Main Source File *****
sync on
sync rate 100
gemsc=87
tgems=100
gridwidth=200
gridheight=300
load sound "explode.wav",1
dim grid(gridwidth,gridheight)

startvalue=50
maxvalue=100
minvalue=0
variation=30

if variation>abs(maxvalue-minvalue) then variation=abs(maxvalue-minvalue)

for x=5 to gridwidth-5
   for y=5 to gridheight-5
      grid(x,y)=startvalue
   next y
next x

rem start
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
remend

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

set text font "Arial"
set text size 17
get image 100,0,0,200,300
cls
ink rgb(255,255,255),0
text 0,0,"Round Complete!"
get image 200,0,0,110,30
cls
text 0,0,str$(gemsc)+"/"+str$(tgems)+"   Gems"
get image 300,0,0,150,30
cls
text 0,0,str$(lives)+"            Lives"
get image 400,0,0,100,30
cls
ink rgb(80,80,80),0

box 0,0,80,50

ink rgb(255,255,255),0
line 0,0,0,50
line 0,0,80,0
set text to bold
set text size 16
set text font "Times New Roman"
center text 40,20,"NEXT LEVEL"
ink rgb(155,155,155),0
center text 41,20,"NEXT LEVEL"
set text size 17
set text to normal
set text font "Arial"
get image 500,0,0,80,50
cls

show mouse

ink rgb(80,80,80),0

box 0,0,80,50

ink rgb(255,255,255),0
line 80,0,80,50
line 0,50,80,50
set text to bold
set text size 16
set text font "Times New Roman"
center text 40,20,"NEXT LEVEL"
ink rgb(155,155,155),0
center text 41,20,"NEXT LEVEL"
set text size 17
set text to normal
set text font "Arial"
get image 600,0,0,81,51
cls
sprite 100,220,90,100
sprite 200,260,100,200
sprite 300,260,140,300
sprite 400,260,160,400
sprite 500,280,300,500
sprite 600,280,300,600
hide sprite 600

set sprite 100,1,0

DIM x(10,10)
DIM y(10,10)
DIM x2(10,10,10)
DIM y2(10,10,10)
DIM xt(10)
DIM yt(10)
DIM dist(10,2)
DIM shoot(10)

do
cls

mc=mc+1

if mc=1
g=g+1
if g>10 then g=1
dist(g,1)=0
dist(g,2)=0
shoot(g)=1
xt(g)=rnd(screen width())
yt(g)=rnd(screen height())
endif
mc=rnd(3)
for f=1 to 10
if shoot(f)=1
dist(f,1)=dist(f,1)+2

for t=1 to 10
x(f,t)=newxvalue(xt(f),t*36,dist(f,1))
y(f,t)=newzvalue(yt(f),t*36,dist(f,1))

if dist(f,1)>100 then dist(f,2)=dist(f,2)+2 : dist(f,1)=dist(f,1)+1

for a=1 to 10
x2(f,t,a)=newxvalue(x(f,t),a*36,dist(f,2))
y2(f,t,a)=newzvalue(y(f,t),a*36,dist(f,2))
ink RGB(128,0,255),0
dot x2(f,t,a),y2(f,t,a)
if x2(f,t,a)<0 or x2(f,t,a)>screen width() and rnd(1)=1 then x2(f,t,a)=xt(f)
if y2(f,t,a)<0 or y2(f,t,a)>screen height() and rnd(1)=1 then y2(f,t,a)=yt(f)
next a
ink RGB(255,0,0),0
dot x(f,t),y(f,t)

next t
if dist(f,2)>300 then shoot(f)=0
effect=rnd(300)
if effect=1 then play sound 1
endif
next f

if mouseclick()=1 and mousex()>280 and mousex()<361 and mousey()<350 and mousey()>300
hide sprite 500
show sprite 600
wait 200

exit
endif

sync

loop
for z=100 to 600 step 100
delete sprite z
next z

+ Code Snippet

` This code was downloaded from The Game Creators
` It is reproduced here with full permission
` http://www.thegamecreators.com

Rem Project: fire works
Rem Created: 8/26/2008 9:26:04 PM

Rem ***** Main Source File *****
sync on
sync rate 100
gemsc=87
tgems=100
gridwidth=200
gridheight=300
load sound "explode.wav",1
dim grid(gridwidth,gridheight)

startvalue=50
maxvalue=100
minvalue=0
variation=30

if variation>abs(maxvalue-minvalue) then variation=abs(maxvalue-minvalue)

for x=5 to gridwidth-5
   for y=5 to gridheight-5
      grid(x,y)=startvalue
   next y
next x

rem start
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
remend

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

set text font "Arial"
set text size 17
get image 100,0,0,200,300
cls
ink rgb(255,255,255),0
text 0,0,"Round Complete!"
get image 200,0,0,110,30
cls
text 0,0,str$(gemsc)+"/"+str$(tgems)+"   Gems"
get image 300,0,0,150,30
cls
text 0,0,str$(lives)+"            Lives"
get image 400,0,0,100,30
cls
ink rgb(80,80,80),0

box 0,0,80,50


ink rgb(255,255,255),0
line 0,0,0,50
line 0,0,80,0
set text to bold
set text size 16
set text font "Times New Roman"
center text 40,20,"NEXT LEVEL"
ink rgb(155,155,155),0
center text 41,20,"NEXT LEVEL"
set text size 17
set text to normal
set text font "Arial"
get image 500,0,0,80,50
cls

show mouse


ink rgb(80,80,80),0

box 0,0,80,50


ink rgb(255,255,255),0
line 80,0,80,50
line 0,50,80,50
set text to bold
set text size 16
set text font "Times New Roman"
center text 40,20,"NEXT LEVEL"
ink rgb(155,155,155),0
center text 41,20,"NEXT LEVEL"
set text size 17
set text to normal
set text font "Arial"
get image 600,0,0,81,51
cls
sprite 100,220,90,100
sprite 200,260,100,200
sprite 300,260,140,300
sprite 400,260,160,400
sprite 500,280,300,500
sprite 600,280,300,600
hide sprite 600

set sprite 100,1,0

DIM x(10,10)
DIM y(10,10)
DIM x2(10,10,10)
DIM y2(10,10,10)
DIM xt(10)
DIM yt(10)
DIM dist(10,2)
DIM shoot(10)

do
cls 

mc=mc+1

if mc=1
g=g+1
if g>10 then g=1
dist(g,1)=0
dist(g,2)=0
shoot(g)=1
xt(g)=rnd(screen width())
yt(g)=rnd(screen height())
endif
mc=rnd(3)
for f=1 to 10
if shoot(f)=1
dist(f,1)=dist(f,1)+2

for t=1 to 10
x(f,t)=newxvalue(xt(f),t*36,dist(f,1))
y(f,t)=newzvalue(yt(f),t*36,dist(f,1))

if dist(f,1)>100 then dist(f,2)=dist(f,2)+2 : dist(f,1)=dist(f,1)+1

for a=1 to 10
x2(f,t,a)=newxvalue(x(f,t),a*36,dist(f,2))
y2(f,t,a)=newzvalue(y(f,t),a*36,dist(f,2))
ink RGB(128,0,255),0
dot x2(f,t,a),y2(f,t,a)
if x2(f,t,a)<0 or x2(f,t,a)>screen width() and rnd(1)=1 then x2(f,t,a)=xt(f)
if y2(f,t,a)<0 or y2(f,t,a)>screen height() and rnd(1)=1 then y2(f,t,a)=yt(f)
next a
ink RGB(255,0,0),0
dot x(f,t),y(f,t)


next t
if dist(f,2)>300 then shoot(f)=0
effect=rnd(300)
if effect=1 then play sound 1
endif
next f


if mouseclick()=1 and mousex()>280 and mousex()<361 and mousey()<350 and mousey()>300
hide sprite 500
show sprite 600
wait 200

exit
endif

sync

loop
for z=100 to 600 step 100
delete sprite z
next z

Sound Attached.

I curse in Binary.

Back to top

Profile PM Email Website

Sinani201

19

Years of Service

User Offline

Joined: 16th Apr 2007

Location: Aperture Science Enrichment Center

Posted: 30th Aug 2008 04:06 Edited at: 30th Aug 2008 04:06

Link

Update!

+ Code Snippet

checkBoulder:
for t=1 to rocks
   `Make the rock fall if there is a cleared space under it
   if tile(rocks(t,1),rocks(t,2)+1) = 0
      tile(rocks(t,1),rocks(t,2)) = 0
      rocks(t,2) = rocks(t,2)+1
      tile(rocks(t,1),rocks(t,2) = 2
   endif
   `Handle the character pushing the rock from the left side
   if tile(rocks(t,1) - 1,rocks(t,2)) = 5
      if rightkey() = 1
         tile(rocks(t,1) + 1,rocks(t,2)) = 2
         rocks(t,1) = rocks(t,1) + 1
      endif
   endif
   `Handle the character pushing the rock from the right side
   if tile(rocks(t,1)+1,rocks(t,2)) = 5
      if leftkey() = 1
         tile(rocks(t,1) - 1,rocks(t,2)) = 2
         rocks(t,1) = rocks(t,1) - 1
         endif
      endif
   endif
next t

Supports pushing from both sides, and has an improved falling code.

I'm Sinani201, and I approve of this message.

Back to top

Profile PM

BN2 Productions

22

Years of Service

User Offline

Joined: 22nd Jan 2004

Location:

Posted: 30th Aug 2008 04:18 Edited at: 30th Aug 2008 04:24

Link

Hmmm, I will check it out. Hey, Irojo, could you post your most updated code? I am on a different computer right now and want to use sinani's code with yours

For your code, sinani, here are a couple things:

Quote: " tile(rocks(t,1),rocks(t,2) = 2 "

Forgot a ) at the end there. Not big, would have expected dbc to catch it though.

Also it looks like your right and left keys are mixed up.

Remember, increasing on the x axis is going to the right. Decreasing is on the left.

I will post my direction function later for you to incorporate sinani. It will return what direction to make the rocks fall if they hit another rock, so that they don't stack, they pile. Also, don't forget that if the rock falls on the player, they have to die, just include an extra check for if the player is under it and have it gosub to a death subroutine.

Irojo, you want to write the victory and death subroutines (or one, your choice)?

Ever notice how in Microsoft word, the word "microsoft" is auto corrected to be "Microsoft" but "macintosh" just gets the dumb red underline?

Back to top

Profile PM

Irojo

18

Years of Service

User Offline

Joined: 21st May 2008

Location: Eating toast.

Posted: 30th Aug 2008 06:54

Link

I'd love to. And If you look above, victory is made.

Thanks for the update Sinani!!!

Here's the most recent BN2:

REMSTART
Here are the changes I made:
The terrain variable is now split up into x and y coordinates, so no more Order variable
Everything is done with paste sprite
Collision checks are done within the movement controls
Added a tile code for the player (4) so that when it is refreshed, it will display the player
Added the redraw() function
Re-did the tile tracking. Rather than individual coordinates, they are now tile coordinates (1-14)
	this way it is easier to reference locations to arrays. Then for display, just multiply the location by 32

REMEND
randomize timer()
sync on:sync rate 0
`Create an array
dim terrain(14,14)
`Set the arrays random. This is only for the example, and will not be kept.
for y=0 to 13
	for x=0 to 13
		terrain(x,y)=rnd(3)
	next x
next y
`Make a box for the player.
ink rgb(255,0,0),0
box 0,0,32,32
`Get the image.
get image 5,0,0,32,32
cls
`Make a box for cleared ground.
ink rgb(155,155,155),0
box 0,0,32,32
`Get the image.
get image 1,0,0,32,32
cls
`Make a box for uncleared ground.
ink rgb(15,155,15),0
box 0,0,32,32
`Get the image.
get image 2,0,0,32,32
cls
`Make a box for stone
ink rgb(40,40,40),0
box 0,0,32,32
`Get the image.
get image 3,0,0,32,32
cls
`Make a box for gems
ink rgb(100,75,200),0
box 0,0,32,32
get image 4,0,0,32,32
cls
for i=1 to 5
	sprite i,700,700,i
next i
`Increasing the y so no sprites are overlapped. Mainly making it a 14x14 grid
for y=0 to 13
  `taking care of the 14 square row, while also pasting the sprites
  for x=0 to 13
	paste sprite terrain(x,y)+1,x*32,y*32
  next x
next t
hide mouse

position mouse 500,240

sync

do:cls
  `FPS Display
  center text 500,240," Screen Fps:"+str$(screen fps())+" "
  `FPS Display - remove from final
  `Set the ink to white
  ink rgb(255,255,255),0

`Show the Gems Collected:
  center text 240,450," Gems Collected:"+str$(gemsc)
  `Make 'Barriers'.
  line 0,448,448,448
  line 448,448,448,0

redraw()
sync

`=Control the player=

if upkey()=1 and py>0 and disable=0
		REM Makes sure that there are no walls above the player
		REM note that this if then must be contained in the previous one,
		REM to stop getting an array bounds error when on the edges of the map
		if terrain(px,py-1)<>2
			if terrain(px,py-1)=3
				inc gemsc
			endif 
			REM Makes the previous position cleared
			terrain(px,py)=0
			dec py
			disable=1
			REM The new position is occupied by the player
			terrain(px,py)=4
		endif
	endif
   sync
	if downkey()=1 and py<13 and disable=0
		if terrain(px,py+1)<>2
			if terrain(px,py+1)=3
				inc gemsc
			endif 
			terrain(px,py)=0
			inc py
			disable=1
			terrain(px,py)=4
		endif
	endif
   sync
	if rightkey()=1 and px<13 and disable=0 and terrain(px+1,py)<>2
		if terrain(px+1,py)=3
			inc gemsc
		endif 
		terrain(px,py)=0
		inc px:disable=1
		terrain(px,py)=4
	ENDIF
   sync
`remstart

if leftkey()=1 and px>0  and disable=0
		if terrain(px-1,py)<>2
			if terrain(px-1,py)=3
				inc gemsc
			endif 
			terrain(px,py)=0
			dec px
			disable=1
			terrain(px,py)=4
		endif
	endif	
   sync
  center text 500,240," Screen Fps:"+str$(screen fps())+" "

`FPS Display - remove from final
  `Handling timer to slow the player down.
  if disable=1 then inc wait,1
  if wait=8 then disable=0:wait=0
  `---------------------------------------
  if spacekey()=1 then exit
  `^^^^^^^^^^^^^^ - remove from final
  sync
loop
`remend
`|Main Loop|
`Delete all sprites, and display them being deleted for effects.
`cls
set text size 40
set text font "times new roman"
center text 220,130,"Gem Count:"+str$(gemsc)
center text 220,240,"You have "+str$(lives)+" lives left."

`Shrinking and removing sprites.
for remove=1 to 196
   if sprite exist(remove)
    n=100
    repeat
      scale sprite remove,n
      dec n,10
      sync
    until n=0
    delete sprite remove
   endif
  sync
next remove
sync rate 30
`|Delete all sprites, and display them being deleted for effects.|
wait key
`|wait for a key press. - remove from final

end

function redraw()
for y=0 to 13
  for x=0 to 13
	REM Since the terrain array contains all info and the tile codes are 1 less
	REM than there respective images, there is no point in using if-thens
	paste sprite terrain(x,y)+1,(x)*32,(y)*32
  next x
next t
endfunction

+ Code Snippet


REMSTART
Here are the changes I made:
The terrain variable is now split up into x and y coordinates, so no more Order variable
Everything is done with paste sprite
Collision checks are done within the movement controls
Added a tile code for the player (4) so that when it is refreshed, it will display the player
Added the redraw() function
Re-did the tile tracking. Rather than individual coordinates, they are now tile coordinates (1-14)
	this way it is easier to reference locations to arrays. Then for display, just multiply the location by 32

REMEND
randomize timer()
sync on:sync rate 0
`Create an array
dim terrain(14,14)
`Set the arrays random. This is only for the example, and will not be kept.
for y=0 to 13
	for x=0 to 13
		terrain(x,y)=rnd(3)
	next x
next y
`Make a box for the player.
ink rgb(255,0,0),0
box 0,0,32,32
`Get the image.
get image 5,0,0,32,32
cls
`Make a box for cleared ground.
ink rgb(155,155,155),0
box 0,0,32,32
`Get the image.
get image 1,0,0,32,32
cls
`Make a box for uncleared ground.
ink rgb(15,155,15),0
box 0,0,32,32
`Get the image.
get image 2,0,0,32,32
cls
`Make a box for stone
ink rgb(40,40,40),0
box 0,0,32,32
`Get the image.
get image 3,0,0,32,32
cls
`Make a box for gems
ink rgb(100,75,200),0
box 0,0,32,32
get image 4,0,0,32,32
cls
for i=1 to 5
	sprite i,700,700,i
next i
`Increasing the y so no sprites are overlapped. Mainly making it a 14x14 grid
for y=0 to 13
  `taking care of the 14 square row, while also pasting the sprites
  for x=0 to 13
	paste sprite terrain(x,y)+1,x*32,y*32
  next x
next t
hide mouse



position mouse 500,240

sync


do:cls
  `FPS Display
  center text 500,240," Screen Fps:"+str$(screen fps())+" "
  `FPS Display - remove from final
  `Set the ink to white
  ink rgb(255,255,255),0

  `Show the Gems Collected:
  center text 240,450," Gems Collected:"+str$(gemsc)
  `Make 'Barriers'.
  line 0,448,448,448
  line 448,448,448,0

	redraw()
sync

  `=Control the player=

	if upkey()=1 and py>0 and disable=0
		REM Makes sure that there are no walls above the player
		REM note that this if then must be contained in the previous one,
		REM to stop getting an array bounds error when on the edges of the map
		if terrain(px,py-1)<>2
			if terrain(px,py-1)=3
				inc gemsc
			endif 
			REM Makes the previous position cleared
			terrain(px,py)=0
			dec py
			disable=1
			REM The new position is occupied by the player
			terrain(px,py)=4
		endif
	endif
   sync
	if downkey()=1 and py<13 and disable=0
		if terrain(px,py+1)<>2
			if terrain(px,py+1)=3
				inc gemsc
			endif 
			terrain(px,py)=0
			inc py
			disable=1
			terrain(px,py)=4
		endif
	endif
   sync
	if rightkey()=1 and px<13 and disable=0 and terrain(px+1,py)<>2
		if terrain(px+1,py)=3
			inc gemsc
		endif 
		terrain(px,py)=0
		inc px:disable=1
		terrain(px,py)=4
	ENDIF
   sync
`remstart

	if leftkey()=1 and px>0  and disable=0
		if terrain(px-1,py)<>2
			if terrain(px-1,py)=3
				inc gemsc
			endif 
			terrain(px,py)=0
			dec px
			disable=1
			terrain(px,py)=4
		endif
	endif	
   sync
  center text 500,240," Screen Fps:"+str$(screen fps())+" "

  `FPS Display - remove from final
  `Handling timer to slow the player down.
  if disable=1 then inc wait,1
  if wait=8 then disable=0:wait=0
  `---------------------------------------
  if spacekey()=1 then exit
  `^^^^^^^^^^^^^^ - remove from final
  sync
loop
`remend
`|Main Loop|
`Delete all sprites, and display them being deleted for effects.
`cls
set text size 40
set text font "times new roman"
center text 220,130,"Gem Count:"+str$(gemsc)
center text 220,240,"You have "+str$(lives)+" lives left."

`Shrinking and removing sprites.
for remove=1 to 196
   if sprite exist(remove)
    n=100
    repeat
      scale sprite remove,n
      dec n,10
      sync
    until n=0
    delete sprite remove
   endif
  sync
next remove
sync rate 30
`|Delete all sprites, and display them being deleted for effects.|
wait key
`|wait for a key press. - remove from final


end

function redraw()
for y=0 to 13
  for x=0 to 13
	REM Since the terrain array contains all info and the tile codes are 1 less
	REM than there respective images, there is no point in using if-thens
	paste sprite terrain(x,y)+1,(x)*32,(y)*32
  next x
next t
endfunction

I curse in Binary.

Back to top

Profile PM Email Website

Sinani201

19

Years of Service

User Offline

Joined: 16th Apr 2007

Location: Aperture Science Enrichment Center

Posted: 30th Aug 2008 07:13 Edited at: 30th Aug 2008 07:32

Link

OK. We're obviously not going to make a game with simple colored tiles. We're going to use real sprites, and I'm thinking of creating some graphics for it.
What should the main character look like? I'm not really sure what he/she should be. Should it be a ball, or some kind of alien?

For now I'll work on some other stuff, like uncleared tiles, boulders, etc.

[EDIT] I found a sprite set with a bunch of useful sprites, like boulders, clocks, and a bunch of stuff. I found this coin sprite that might be helpful (it's attached).

I'm Sinani201, and I approve of this message.

Back to top

Profile PM

BN2 Productions

22

Years of Service

User Offline

Joined: 22nd Jan 2004

Location:

Posted: 30th Aug 2008 08:11 Edited at: 30th Aug 2008 11:25

Link

Well, Sinister is making graphics for us to use, interesting sprite set though. Is that from earthbound? Definitely a plausible alternative if we need graphics fast.

[EDIT]
Ok, just tried your code, sinani. Can't quite get it to work for some reason. The first rock works but leaves a trail of rocks behind it. For some reason the other rocks don't fall. Have you tested the code yourself?

Ever notice how in Microsoft word, the word "microsoft" is auto corrected to be "Microsoft" but "macintosh" just gets the dumb red underline?

Back to top

Profile PM

Sinani201

19

Years of Service

User Offline

Joined: 16th Apr 2007

Location: Aperture Science Enrichment Center

Posted: 30th Aug 2008 20:12 Edited at: 30th Aug 2008 20:23

Link

Quote: "Have you tested the code yourself?"

What code am I supposed to test it with?
[EDIT] I fixed it! I just had to change one line of code. Here's the new code:

+ Code Snippet

checkBoulder:
for t=1 to rocks
   `Make the rock fall if there is a cleared space under it
   if tile(rocks(t,1),rocks(t,2)) = 0
      tile(rocks(t,1),rocks(t,2)) = 0
      rocks(t,2) = rocks(t,2)+1
      tile(rocks(t,1),rocks(t,2)) = 2
   endif
   `Handle the character pushing the rock from the left side
   if tile(rocks(t,1) - 1,rocks(t,2)) = 5
      if rightkey() = 1
         tile(rocks(t,1) + 1,rocks(t,2)) = 2
         rocks(t,1) = rocks(t,1) + 1
      endif
   endif
   `Handle the character pushing the rock from the right side
   if tile(rocks(t,1)+1,rocks(t,2)) = 5
      if leftkey() = 1
         tile(rocks(t,1) - 1,rocks(t,2)) = 2
         rocks(t,1) = rocks(t,1) - 1
         endif
      endif
   endif
next t

Quote: "Is that from earthbound?"

I've never heard of that game! Although I recognized the sprites from another game called Happyland, and I saw some of them in TDK's Scroller Kit that he never finished...

I'm Sinani201, and I approve of this message.

Back to top

Profile PM

BN2 Productions

22

Years of Service

User Offline

Joined: 22nd Jan 2004

Location:

Posted: 31st Aug 2008 00:53

Link

Quote: "What code am I supposed to test it with?"

You write some code to test it. Just a demo type program. Set it up so that a rock will fall repeatedly. Then make them stack, and so on and so forth.

Ever notice how in Microsoft word, the word "microsoft" is auto corrected to be "Microsoft" but "macintosh" just gets the dumb red underline?

Back to top

Profile PM

sinisterstuf

19

Years of Service

User Offline

Joined: 28th Mar 2007

Location: Namibia, Southern Africa

Posted: 31st Aug 2008 02:29

Link

*sigh* and here, at last, the long awaited return of sinisterstuf. Hail darkn00bs team! I apologise for the wait, I was on a noble and perilous quest.

But hark, I come bearing media in the form of a downloadable zipped attachement which thou shalt hopefully shortly download and unzip into thine project folder. Now hopefully thou shalt be satisfied with that which I have provided (images and music) but if tis so that I've forgotten something or you wanna complain... just say so. Ask and you will recieve

hope you like it!

LLANFAIRPWLLGWYNGYLLGOGERYCHWYRNDROBWLLLLANTYSILIOGOGOGOCH
CYMRU AM BYTH!

Back to top

Profile PM Website

Irojo

18

Years of Service

User Offline

Joined: 21st May 2008

Location: Eating toast.

Posted: 31st Aug 2008 06:13

Link

WOOT! They're pretty awesome. I don't have time to check em all out right now. But could you say what everything is for?

AND DANG

All those sprites are going to be hard.

I curse in Binary.

Back to top

Profile PM Email Website

sinisterstuf

19

Years of Service

User Offline

Joined: 28th Mar 2007

Location: Namibia, Southern Africa

Posted: 31st Aug 2008 10:11

Link

Well, you're kinda supposed to be creative with them.

They're all organised into folders so when you extract them they should sort themselves out. After that it should be kindof obvious what each is for. Mostly there are different images in each folder so that you can use the rnd() command to make the stuff look less repetitive (like with ground, rocks, jems). I wasn't able to test them but the tiles should all snap together so that it looks like they're all one thing. The player has a transparent background and the jems are semi transparent, I thought it'd be cooler that way and easier too... The different colour walls are for incase you want to make variations from level to level or within the level itself. The music... use it how you wish... same goes for the images really... although it should be obvious really, what each is for. What more would you need to know? And is there anything I've forgotten / done wrong?

LLANFAIRPWLLGWYNGYLLGOGERYCHWYRNDROBWLLLLANTYSILIOGOGOGOCH
CYMRU AM BYTH!

Back to top

Profile PM Website

BN2 Productions

22

Years of Service

User Offline

Joined: 22nd Jan 2004

Location:

Posted: 31st Aug 2008 10:31

Link

Bravo Sinister, bravo. All I can say is awesome. Great work, thanks so much! Now if only the game were in the same state as the media

@Sinani
Still not working. Write a quick program using your subroutine and make it work, then repost, I have tried everything that I can think of, sorry.

Ever notice how in Microsoft word, the word "microsoft" is auto corrected to be "Microsoft" but "macintosh" just gets the dumb red underline?

Back to top

Profile PM

sinisterstuf

19

Years of Service

User Offline

Joined: 28th Mar 2007

Location: Namibia, Southern Africa

Posted: 31st Aug 2008 10:58

Link

Thank you. You are most welcome!

LLANFAIRPWLLGWYNGYLLGOGERYCHWYRNDROBWLLLLANTYSILIOGOGOGOCH
CYMRU AM BYTH!

Back to top

Profile PM Website

Irojo

18

Years of Service

User Offline

Joined: 21st May 2008

Location: Eating toast.

Posted: 31st Aug 2008 17:16

Link

Alright. I started with a loading and a loading screen. Two hours later, I present the loading screen, with an image, and music list. Remember, the Files must be in the game's folder. These are the titles you should have. The title indicates the image.
--
Rocks
Jems
Ground
Player
Music
Walls
--

And Here's the code:

rem Image List
rem 1 Ground Variation
rem 2 Ground Variation
rem 3 Ground Variation  
rem 4 Ground Variation  
rem 5 Ground Variation  
rem 6 Ground Variation  
rem 7 Ground Variation  
rem 8 Ground Variation  
rem 9 Ground Variation  
rem 10 Ground Variation  
rem 11 Ground Variation  
rem 12 Ground Variation
rem 13 Ground Variation
rem 14 Ground Variation
rem 15 Ground Variation
rem 16 Gem Variation
rem 17 Gem Variation
rem 18 Gem Variation
rem 19 Gem Variation  
rem 20 Gem Variation  
rem 21 Gem Variation  
rem 22 Rock Variation
rem 23 Rock Variation  
rem 24 Rock Variation  
rem 25 Rock Variation  
rem 26 Rock Variation  
rem 27 Rock Variation  
rem 28 Rock Variation  
rem 29 Rock Variation  
rem 30 Wall Variation
rem 31 Wall Variation
rem 32 Wall Variation
rem 33 Player Down
rem 34 Player Up
rem 35 Player Right
rem 36 Player Left

rem ---------------------------------
rem Music List
rem 1 Boss
rem 2 Boss Rock
rem 3 Credits
rem 4 Theme A
rem 5 Theme B
ink rgb(155,0,0),0

hide mouse
center text 320,140,"Loading..."
ink rgb(0,55,0),0
box 169,239,471,281
ink rgb(100,100,100),0
box 170,240,470,280

ink rgb(255,255,255),0
box 170,240,175,280
rem Ground
load image "Ground/ground01.png",1
 
box 170,240,180,280
load image "Ground/ground02.png",2
 
box 170,240,185,280
load image "Ground/ground03.png",3
 
box 170,240,190,280
load image "Ground/ground04.png",4
 
box 170,240,195,280
load image "Ground/ground05.png",5
 
box 170,240,200,280
load image "Ground/ground06.png",6
 
box 170,240,205,280
load image "Ground/ground07.png",7
 
box 170,240,210,280
load image "Ground/ground08.png",8
 
box 170,240,215,280
load image "Ground/ground09.png",9
 
box 170,240,220,280
load image "Ground/ground10.png",10
 
box 170,240,225,280
load image "Ground/ground11.png",11
 
box 170,240,230,280
load image "Ground/ground12.png",12
 
box 170,240,235,280
load image "Ground/ground13.png",13
 
box 170,240,240,280
load image "Ground/ground14.png",14
 
box 170,240,245,280
load image "Ground/ground15.png",15
 
rem Music
box 170,240,255,280
load music "Music/Boss.mid",1
 
box 170,240,255,280
load music "Music/Boss (Rock Version).mid",2
box 170,240,265,280
load music "Music/credits.mid",3
box 170,240,275,280
load music "Music/themeA.mid",4
box 170,240,285,280
load music "Music/themeB.mid",5
box 170,240,295,280
rem Gems
load image "Jems/jem1.png",16
box 170,240,300,280
load image "Jems/jem2.png",17
box 170,240,305,280
load image "Jems/jem3.png",18
box 170,240,310,280
load image "Jems/jem4.png",19
box 170,240,315,280
load image "Jems/jem5.png",20
box 170,240,320,280
load image "Jems/jem6.png",21
box 170,240,325,280
rem Rocks
load image "Rocks/rock1.png",22
box 170,240,330,280
load image "Rocks/rock2.png",23
box 170,240,335,280
load image "Rocks/rock3.png",24
box 170,240,340,280
load image "Rocks/rock4.png",25
box 170,240,345,280
load image "Rocks/rock5.png",26
box 170,240,350,280
load image "Rocks/rock6.png",27
box 170,240,355,280
load image "Rocks/rock7.png",28
box 170,240,360,280
load image "Rocks/rock8.png",29
box 170,240,370,280
rem Walls
load image "Walls/wall1.png",30
box 170,240,375,280
load image "Walls/wall2.png",31
box 170,240,380,280
load image "Walls/wall3.png",32
rem Player
load image "Player/down1.png",33
box 170,240,385,280
load image "Player/up1.png",34
box 170,240,390,280
load image "Player/right1.png",35
box 170,240,400,280
load image "Player/left1.png",36
box 170,240,470,280

+ Code Snippet

rem Image List
rem 1 Ground Variation
rem 2 Ground Variation
rem 3 Ground Variation  
rem 4 Ground Variation  
rem 5 Ground Variation  
rem 6 Ground Variation  
rem 7 Ground Variation  
rem 8 Ground Variation  
rem 9 Ground Variation  
rem 10 Ground Variation  
rem 11 Ground Variation  
rem 12 Ground Variation
rem 13 Ground Variation
rem 14 Ground Variation
rem 15 Ground Variation
rem 16 Gem Variation
rem 17 Gem Variation
rem 18 Gem Variation
rem 19 Gem Variation  
rem 20 Gem Variation  
rem 21 Gem Variation  
rem 22 Rock Variation
rem 23 Rock Variation  
rem 24 Rock Variation  
rem 25 Rock Variation  
rem 26 Rock Variation  
rem 27 Rock Variation  
rem 28 Rock Variation  
rem 29 Rock Variation  
rem 30 Wall Variation
rem 31 Wall Variation
rem 32 Wall Variation
rem 33 Player Down
rem 34 Player Up
rem 35 Player Right
rem 36 Player Left

rem ---------------------------------
rem Music List
rem 1 Boss
rem 2 Boss Rock
rem 3 Credits
rem 4 Theme A
rem 5 Theme B
ink rgb(155,0,0),0

hide mouse
center text 320,140,"Loading..."
ink rgb(0,55,0),0
box 169,239,471,281
ink rgb(100,100,100),0
box 170,240,470,280

ink rgb(255,255,255),0
box 170,240,175,280
rem Ground
load image "Ground/ground01.png",1
 
box 170,240,180,280
load image "Ground/ground02.png",2
 
box 170,240,185,280
load image "Ground/ground03.png",3
 
box 170,240,190,280
load image "Ground/ground04.png",4
 
box 170,240,195,280
load image "Ground/ground05.png",5
 
box 170,240,200,280
load image "Ground/ground06.png",6
 
box 170,240,205,280
load image "Ground/ground07.png",7
 
box 170,240,210,280
load image "Ground/ground08.png",8
 
box 170,240,215,280
load image "Ground/ground09.png",9
 
box 170,240,220,280
load image "Ground/ground10.png",10
 
box 170,240,225,280
load image "Ground/ground11.png",11
 
box 170,240,230,280
load image "Ground/ground12.png",12
 
box 170,240,235,280
load image "Ground/ground13.png",13
 
box 170,240,240,280
load image "Ground/ground14.png",14
 
box 170,240,245,280
load image "Ground/ground15.png",15
 
rem Music
box 170,240,255,280
load music "Music/Boss.mid",1
 
box 170,240,255,280
load music "Music/Boss (Rock Version).mid",2
box 170,240,265,280
load music "Music/credits.mid",3
box 170,240,275,280
load music "Music/themeA.mid",4
box 170,240,285,280
load music "Music/themeB.mid",5
box 170,240,295,280
rem Gems
load image "Jems/jem1.png",16
box 170,240,300,280
load image "Jems/jem2.png",17
box 170,240,305,280
load image "Jems/jem3.png",18
box 170,240,310,280
load image "Jems/jem4.png",19
box 170,240,315,280
load image "Jems/jem5.png",20
box 170,240,320,280
load image "Jems/jem6.png",21
box 170,240,325,280
rem Rocks
load image "Rocks/rock1.png",22
box 170,240,330,280
load image "Rocks/rock2.png",23
box 170,240,335,280
load image "Rocks/rock3.png",24
box 170,240,340,280
load image "Rocks/rock4.png",25
box 170,240,345,280
load image "Rocks/rock5.png",26
box 170,240,350,280
load image "Rocks/rock6.png",27
box 170,240,355,280
load image "Rocks/rock7.png",28
box 170,240,360,280
load image "Rocks/rock8.png",29
box 170,240,370,280
rem Walls
load image "Walls/wall1.png",30
box 170,240,375,280
load image "Walls/wall2.png",31
box 170,240,380,280
load image "Walls/wall3.png",32
rem Player
load image "Player/down1.png",33
box 170,240,385,280
load image "Player/up1.png",34
box 170,240,390,280
load image "Player/right1.png",35
box 170,240,400,280
load image "Player/left1.png",36
box 170,240,470,280

By the way, I chose to use the movement variation 1. I liked it the most.

I curse in Binary.

Back to top

Profile PM Email Website

NanoGamez guy

19

Years of Service

User Offline

Joined: 13th Jan 2007

Location: Closer than you think...

Posted: 31st Aug 2008 18:58 Edited at: 31st Aug 2008 18:58

Link

@Sinister
Wow great job! The media is amazing!

@Irojo
I changed your loading screen so that it includes a bit of my GUI. I wrote a function RockBox() which draws a box with the rock texture in it based on a previously made array texture. Also, if you change the 'noise' variable (0-100), it'll controll how much noise is used to make the loading bar.

sync on

rem Image List
rem 1 Ground Variation
rem 2 Ground Variation
rem 3 Ground Variation
rem 4 Ground Variation
rem 5 Ground Variation
rem 6 Ground Variation
rem 7 Ground Variation
rem 8 Ground Variation
rem 9 Ground Variation
rem 10 Ground Variation
rem 11 Ground Variation
rem 12 Ground Variation
rem 13 Ground Variation
rem 14 Ground Variation
rem 15 Ground Variation
rem 16 Gem Variation
rem 17 Gem Variation
rem 18 Gem Variation
rem 19 Gem Variation
rem 20 Gem Variation
rem 21 Gem Variation
rem 22 Rock Variation
rem 23 Rock Variation
rem 24 Rock Variation
rem 25 Rock Variation
rem 26 Rock Variation
rem 27 Rock Variation
rem 28 Rock Variation
rem 29 Rock Variation
rem 30 Wall Variation
rem 31 Wall Variation
rem 32 Wall Variation
rem 33 Player Down
rem 34 Player Up
rem 35 Player Right
rem 36 Player Left

rem ---------------------------------
rem Music List
rem 1 Boss
rem 2 Boss Rock
rem 3 Credits
rem 4 Theme A
rem 5 Theme B

rem Specify Array Size
gridwidth=400
gridheight=40

rem Make Array
dim grid(gridwidth+20,gridheight+20)

rem Specify rock peramiters
startvalue=50
maxvalue=100
minvalue=0
variation=50

if variation>abs(maxvalue-minvalue) then variation=abs(maxvalue-minvalue)

rem Fill Array
for x=1 to gridwidth+20
   for y=1 to gridheight+20
      grid(x,y)=startvalue
   next y
next x

rem Make Random Points
for i=1 to (gridwidth+20)*(gridheight+20)/10
   feild=abs(maxvalue-minvalue)
   x=rnd(gridwidth)
   y=rnd(gridheight)
   value=rnd(feild)
   grid(x,y)=value
next i

rem For Loops to Generate Texture
for x=1 to gridwidth+20
   for y=1 to gridheight+20
      rem Get surrounding pixels
      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
      rem Get average of other points
      if otherpoints>0
         o#=otherpoints
         t#=totalofothers
         average#=t#/o#
      else
         average#=startvalue
      endif
      rem Assaing the point in the array based on the average plus a variation
      gridvalue=average#+(rnd(variation)-(variation/2))
      if gridvalue<minvalue then gridvalue=minvalue
      if gridvalue>maxvalue then gridvalue=maxvalue
      grid(x,y)=gridvalue
   next y
next x

rem Soften Noise
for x=1 to gridwidth+20
   for y=1 to gridheight+20
      gv#=grid(x,y)
      gv#=gv#+(maxvalue-gv#)/2
      grid(x,y)=gv#
      if grid(x,y)>maxvalue then grid(x,y)=maxvalue
   next y
next x

cls

ink rgb(155,0,0),0

hide mouse
center text 320,140,"Loading..."
ink rgb(0,55,0),0
box 169,239,471,281
ink rgb(100,100,100),0
box 170,240,470,280

rem Set amount of noise
noise=0

ink rgb(255,255,255),0
RockBox(170,240,175,280,noise)
rem Ground
load image "Ground/ground01.png",1

RockBox(170,240,180,280,noise)
load image "Ground/ground02.png",2

RockBox(170,240,185,280,noise)
load image "Ground/ground03.png",3

RockBox(170,240,190,280,noise)
load image "Ground/ground04.png",4

RockBox(170,240,195,280,noise)
load image "Ground/ground05.png",5

RockBox(170,240,200,280,noise)
load image "Ground/ground06.png",6

RockBox(170,240,205,280,noise)
load image "Ground/ground07.png",7

RockBox(170,240,210,280,noise)
load image "Ground/ground08.png",8

RockBox(170,240,215,280,noise)
load image "Ground/ground09.png",9

RockBox(170,240,220,280,noise)
load image "Ground/ground10.png",10

RockBox(170,240,225,280,noise)
load image "Ground/ground11.png",11

RockBox(170,240,230,280,noise)
load image "Ground/ground12.png",12

RockBox(170,240,235,280,noise)
load image "Ground/ground13.png",13

RockBox(170,240,240,280,noise)
load image "Ground/ground14.png",14

RockBox(170,240,245,280,noise)
load image "Ground/ground15.png",15

rem Music
RockBox(170,240,255,280,noise)
load music "Music/Boss.mid",1

RockBox(170,240,255,280,noise)
load music "Music/Boss (Rock Version).mid",2
RockBox(170,240,265,280,noise)
load music "Music/credits.mid",3
RockBox(170,240,275,280,noise)
load music "Music/themeA.mid",4
RockBox(170,240,285,280,noise)
load music "Music/themeB.mid",5
RockBox(170,240,295,280,noise)
rem Gems
load image "Jems/jem1.png",16
RockBox(170,240,300,280,noise)
load image "Jems/jem2.png",17
RockBox(170,240,305,280,noise)
load image "Jems/jem3.png",18
RockBox(170,240,310,280,noise)
load image "Jems/jem4.png",19
RockBox(170,240,315,280,noise)
load image "Jems/jem5.png",20
RockBox(170,240,320,280,noise)
load image "Jems/jem6.png",21
RockBox(170,240,325,280,noise)
rem Rocks
load image "Rocks/rock1.png",22
RockBox(170,240,330,280,noise)
load image "Rocks/rock2.png",23
RockBox(170,240,335,280,noise)
load image "Rocks/rock3.png",24
RockBox(170,240,340,280,noise)
load image "Rocks/rock4.png",25
RockBox(170,240,345,280,noise)
load image "Rocks/rock5.png",26
RockBox(170,240,350,280,noise)
load image "Rocks/rock6.png",27
RockBox(170,240,355,280,noise)
load image "Rocks/rock7.png",28
RockBox(170,240,360,280,noise)
load image "Rocks/rock8.png",29
RockBox(170,240,370,280,noise)
rem Walls
load image "Walls/wall1.png",30
RockBox(170,240,375,280,noise)
load image "Walls/wall2.png",31
RockBox(170,240,380,280,noise)
load image "Walls/wall3.png",32
rem Player
load image "Player/down1.png",33
RockBox(170,240,385,280,noise)
load image "Player/up1.png",34
RockBox(170,240,390,280,noise)
load image "Player/right1.png",35
RockBox(170,240,400,280,noise)
load image "Player/left1.png",36
RockBox(170,240,470,280,noise)

end

function RockBox(x1,y1,x2,y2,noise)

rem Calculate Difference between corners
   xdiff=x2-x1
   ydiff=y2-y1
   if noise>100 then noise=100

rem Draw Texture
   for x=20 to xdiff+20
      for y=20 to ydiff+20
         rem Determine colour based on gridvalue()
         gridvalue=grid(x,y)
         gv#=gridvalue
         if noise>0
            multiply#=rnd(noise)+100-(noise/2)
            multiply#=multiply#/100
         else
            multiply#=1
         endif
         rg#=gv#/100*90
         ink rgb(rg#*1.2*multiply#,rg#*1.2*multiply#,gv#*1.2*multiply#),0
         dot (x-20)+x1,(y-20)+y1
      next y
   next x

sync

endfunction

+ Code Snippet

sync on

rem Image List
rem 1 Ground Variation
rem 2 Ground Variation
rem 3 Ground Variation
rem 4 Ground Variation
rem 5 Ground Variation
rem 6 Ground Variation
rem 7 Ground Variation
rem 8 Ground Variation
rem 9 Ground Variation
rem 10 Ground Variation
rem 11 Ground Variation
rem 12 Ground Variation
rem 13 Ground Variation
rem 14 Ground Variation
rem 15 Ground Variation
rem 16 Gem Variation
rem 17 Gem Variation
rem 18 Gem Variation
rem 19 Gem Variation
rem 20 Gem Variation
rem 21 Gem Variation
rem 22 Rock Variation
rem 23 Rock Variation
rem 24 Rock Variation
rem 25 Rock Variation
rem 26 Rock Variation
rem 27 Rock Variation
rem 28 Rock Variation
rem 29 Rock Variation
rem 30 Wall Variation
rem 31 Wall Variation
rem 32 Wall Variation
rem 33 Player Down
rem 34 Player Up
rem 35 Player Right
rem 36 Player Left

rem ---------------------------------
rem Music List
rem 1 Boss
rem 2 Boss Rock
rem 3 Credits
rem 4 Theme A
rem 5 Theme B

rem Specify Array Size
gridwidth=400
gridheight=40

rem Make Array
dim grid(gridwidth+20,gridheight+20)

rem Specify rock peramiters
startvalue=50
maxvalue=100
minvalue=0
variation=50

if variation>abs(maxvalue-minvalue) then variation=abs(maxvalue-minvalue)

rem Fill Array
for x=1 to gridwidth+20
   for y=1 to gridheight+20
      grid(x,y)=startvalue
   next y
next x

rem Make Random Points
for i=1 to (gridwidth+20)*(gridheight+20)/10
   feild=abs(maxvalue-minvalue)
   x=rnd(gridwidth)
   y=rnd(gridheight)
   value=rnd(feild)
   grid(x,y)=value
next i

rem For Loops to Generate Texture
for x=1 to gridwidth+20
   for y=1 to gridheight+20
      rem Get surrounding pixels
      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
      rem Get average of other points
      if otherpoints>0
         o#=otherpoints
         t#=totalofothers
         average#=t#/o#
      else
         average#=startvalue
      endif
      rem Assaing the point in the array based on the average plus a variation
      gridvalue=average#+(rnd(variation)-(variation/2))
      if gridvalue<minvalue then gridvalue=minvalue
      if gridvalue>maxvalue then gridvalue=maxvalue
      grid(x,y)=gridvalue
   next y
next x

rem Soften Noise
for x=1 to gridwidth+20
   for y=1 to gridheight+20
      gv#=grid(x,y)
      gv#=gv#+(maxvalue-gv#)/2
      grid(x,y)=gv#
      if grid(x,y)>maxvalue then grid(x,y)=maxvalue
   next y
next x

cls

ink rgb(155,0,0),0

hide mouse
center text 320,140,"Loading..."
ink rgb(0,55,0),0
box 169,239,471,281
ink rgb(100,100,100),0
box 170,240,470,280

rem Set amount of noise
noise=0

ink rgb(255,255,255),0
RockBox(170,240,175,280,noise)
rem Ground
load image "Ground/ground01.png",1

RockBox(170,240,180,280,noise)
load image "Ground/ground02.png",2

RockBox(170,240,185,280,noise)
load image "Ground/ground03.png",3

RockBox(170,240,190,280,noise)
load image "Ground/ground04.png",4

RockBox(170,240,195,280,noise)
load image "Ground/ground05.png",5

RockBox(170,240,200,280,noise)
load image "Ground/ground06.png",6

RockBox(170,240,205,280,noise)
load image "Ground/ground07.png",7

RockBox(170,240,210,280,noise)
load image "Ground/ground08.png",8

RockBox(170,240,215,280,noise)
load image "Ground/ground09.png",9

RockBox(170,240,220,280,noise)
load image "Ground/ground10.png",10

RockBox(170,240,225,280,noise)
load image "Ground/ground11.png",11

RockBox(170,240,230,280,noise)
load image "Ground/ground12.png",12

RockBox(170,240,235,280,noise)
load image "Ground/ground13.png",13

RockBox(170,240,240,280,noise)
load image "Ground/ground14.png",14

RockBox(170,240,245,280,noise)
load image "Ground/ground15.png",15

rem Music
RockBox(170,240,255,280,noise)
load music "Music/Boss.mid",1

RockBox(170,240,255,280,noise)
load music "Music/Boss (Rock Version).mid",2
RockBox(170,240,265,280,noise)
load music "Music/credits.mid",3
RockBox(170,240,275,280,noise)
load music "Music/themeA.mid",4
RockBox(170,240,285,280,noise)
load music "Music/themeB.mid",5
RockBox(170,240,295,280,noise)
rem Gems
load image "Jems/jem1.png",16
RockBox(170,240,300,280,noise)
load image "Jems/jem2.png",17
RockBox(170,240,305,280,noise)
load image "Jems/jem3.png",18
RockBox(170,240,310,280,noise)
load image "Jems/jem4.png",19
RockBox(170,240,315,280,noise)
load image "Jems/jem5.png",20
RockBox(170,240,320,280,noise)
load image "Jems/jem6.png",21
RockBox(170,240,325,280,noise)
rem Rocks
load image "Rocks/rock1.png",22
RockBox(170,240,330,280,noise)
load image "Rocks/rock2.png",23
RockBox(170,240,335,280,noise)
load image "Rocks/rock3.png",24
RockBox(170,240,340,280,noise)
load image "Rocks/rock4.png",25
RockBox(170,240,345,280,noise)
load image "Rocks/rock5.png",26
RockBox(170,240,350,280,noise)
load image "Rocks/rock6.png",27
RockBox(170,240,355,280,noise)
load image "Rocks/rock7.png",28
RockBox(170,240,360,280,noise)
load image "Rocks/rock8.png",29
RockBox(170,240,370,280,noise)
rem Walls
load image "Walls/wall1.png",30
RockBox(170,240,375,280,noise)
load image "Walls/wall2.png",31
RockBox(170,240,380,280,noise)
load image "Walls/wall3.png",32
rem Player
load image "Player/down1.png",33
RockBox(170,240,385,280,noise)
load image "Player/up1.png",34
RockBox(170,240,390,280,noise)
load image "Player/right1.png",35
RockBox(170,240,400,280,noise)
load image "Player/left1.png",36
RockBox(170,240,470,280,noise)

end

function RockBox(x1,y1,x2,y2,noise)

   rem Calculate Difference between corners
   xdiff=x2-x1
   ydiff=y2-y1
   if noise>100 then noise=100

   rem Draw Texture
   for x=20 to xdiff+20
      for y=20 to ydiff+20
         rem Determine colour based on gridvalue()
         gridvalue=grid(x,y)
         gv#=gridvalue
         if noise>0
            multiply#=rnd(noise)+100-(noise/2)
            multiply#=multiply#/100
         else
            multiply#=1
         endif
         rg#=gv#/100*90
         ink rgb(rg#*1.2*multiply#,rg#*1.2*multiply#,gv#*1.2*multiply#),0
         dot (x-20)+x1,(y-20)+y1
      next y
   next x

   sync

endfunction

"To succeed is not enough, others must fail" - Gore Vidal

Back to top

Profile PM Email Website

sinisterstuf

19

Years of Service

User Offline

Joined: 28th Mar 2007

Location: Namibia, Southern Africa

Posted: 31st Aug 2008 21:26

Link

Thanks.

Quote: "By the way, I chose the movement variation 1. I liked it the most. "

I forgot to mention. Those are the walk animations for the player. So when the player presses 'up' you display:
up1
up2
up1
up3
up1
each a little higher than the next. If he presses 'left' then you put:
left1
left2
left1
left3
left1
does this make sense?

LLANFAIRPWLLGWYNGYLLGOGERYCHWYRNDROBWLLLLANTYSILIOGOGOGOCH
CYMRU AM BYTH!

Back to top

Profile PM Website

Irojo

18

Years of Service

User Offline

Joined: 21st May 2008

Location: Eating toast.

Posted: 31st Aug 2008 23:04 Edited at: 1st Sep 2008 06:07

Link

@Sinister Yes it does. He'll be a little animated fellow!

@Nano
I like it! I changed the code just the slightest bit. I think it looks a bit cooler:
[Removed]

@Everyone
I updated the code, made it smoother feeling, added in the images that I thought weren't needed (up 2-3, down 2-3, left 2-3, right 2-3) and put in loading music.

Music Attached!

sync on
load music "Music/Jeopardy Theme.mp3",32
play music 32

rem Image List
rem 1 Ground Variation
rem 2 Ground Variation
rem 3 Ground Variation
rem 4 Ground Variation
rem 5 Ground Variation
rem 6 Ground Variation
rem 7 Ground Variation
rem 8 Ground Variation
rem 9 Ground Variation
rem 10 Ground Variation
rem 11 Ground Variation
rem 12 Ground Variation
rem 13 Ground Variation
rem 14 Ground Variation
rem 15 Ground Variation
rem 16 Gem Variation
rem 17 Gem Variation
rem 18 Gem Variation
rem 19 Gem Variation
rem 20 Gem Variation
rem 21 Gem Variation
rem 22 Rock Variation
rem 23 Rock Variation
rem 24 Rock Variation
rem 25 Rock Variation
rem 26 Rock Variation
rem 27 Rock Variation
rem 28 Rock Variation
rem 29 Rock Variation
rem 30 Wall Variation
rem 31 Wall Variation
rem 32 Wall Variation
rem 33 Player Down 1
rem 34 Player Down 2
rem 35 Player Down 3
rem 36 Player Up 1
rem 37 Player Up 2
rem 38 Player Up 3
rem 39 Player Right 1
rem 40 Player Right 2
rem 41 Player Right 3
rem 42 Player Left 1
rem 43 Player Left 2
rem 44 Player Left 3
rem ---------------------------------
rem Music List
rem 1 Boss
rem 2 Boss Rock
rem 3 Credits
rem 4 Theme A
rem 5 Theme B

rem Specify Array Size
gridwidth=400
gridheight=40

rem Make Array
dim grid(gridwidth+20,gridheight+20)

rem Specify rock peramiters
startvalue=50
maxvalue=100
minvalue=0
variation=50

if variation>abs(maxvalue-minvalue) then variation=abs(maxvalue-minvalue)

rem Fill Array
for x=1 to gridwidth+20
   for y=1 to gridheight+20
      grid(x,y)=startvalue
   next y
next x

rem Make Random Points
for i=1 to (gridwidth+20)*(gridheight+20)/10
   feild=abs(maxvalue-minvalue)
   x=rnd(gridwidth)
   y=rnd(gridheight)
   value=rnd(feild)
   grid(x,y)=value
next i

rem For Loops to Generate Texture
for x=1 to gridwidth+20
   for y=1 to gridheight+20
      rem Get surrounding pixels
      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
      rem Get average of other points
      if otherpoints>0
         o#=otherpoints
         t#=totalofothers
         average#=t#/o#
      else
         average#=startvalue
      endif
      rem Assaing the point in the array based on the average plus a variation
      gridvalue=average#+(rnd(variation)-(variation/2))
      if gridvalue<minvalue then gridvalue=minvalue
      if gridvalue>maxvalue then gridvalue=maxvalue
      grid(x,y)=gridvalue
   next y
next x

rem Soften Noise
for x=1 to gridwidth+20
   for y=1 to gridheight+20
      gv#=grid(x,y)
      gv#=gv#+(maxvalue-gv#)/2
      grid(x,y)=gv#
      if grid(x,y)>maxvalue then grid(x,y)=maxvalue
   next y
next x

cls

ink rgb(155,0,0),0

hide mouse
center text 320,140,"Loading..."
ink rgb(0,55,0),0
box 169,239,471,281
ink rgb(0,0,0),0
box 170,240,470,280