Sorry your browser is not supported!

rem The Bouncing Kirbys v1.03

rem by the comet



rem setup screen

sync on

sync rate 30

backdrop on

color backdrop 0

hide mouse

autocam off



rem dimensions

g=0

for r=2 to 5

	for t=3 to 5

		inc g

		dim obj_grav#(g)

	next t

next r



rem wood

create bitmap 1,64,64

ink rgb(50,0,0),0

for t=0 to 64

	line 0,t,64,t

next t

for t=1 to 200

	ink rgb(rnd(30)+35,0,0),0

	x=rnd(64):lenght=rnd(64):y=rnd(64)

	line x,y,x+lenght,y

next t

get image 1,0,0,64,64

delete bitmap 1



rem cloth

create bitmap 1,64,64

for t=0 to 64

	ink rgb(0,255,255),0

	line t,0,t,64

next t

for t=1 to 2000

	ink rgb(0,0,rnd(100)+155),0

	dot rnd(64),rnd(64)

next t

get image 4,0,0,64,64

delete bitmap 1

create bitmap 1,256,128

paste image 4,0,0

paste image 4,64,0

paste image 4,128,0

paste image 4,192,0

paste image 4,0,64

paste image 4,64,64

paste image 4,128,64

paste image 4,192,64

get image 2,0,0,256,128

delete bitmap 1

delete image 4



rem kirbyface

create bitmap 1,49,33

for t=0 to 33

	ink rgb(253,199,215),0

	line 0,t,49,t

next t

ink 0,0

for r=0 to 1

	for t=0 to 8

		ellipse 16+r,8,t/2,t

		ellipse 32+r,8,t/2,t

	next t

next r

for t=0 to 5

	ink rgb(255-(t*8),255-(t*8),255-(t*8)),0

	ellipse 16,4,t/2,t/1.4

	ellipse 32,4,t/2,t/1.4

next t

for t=0 to 4

	ink rgb(0,0,255-(t*25)),0

	ellipse 16,10,t/2,t/1.4

	ellipse 32,10,t/2,t/1.4

next t

for t=0 to 5

	ink rgb(255-(t*25),0,0),0

	ellipse 8,16,t,t/2

	ellipse 41,16,t,t/2

next t

ink 0,0

line 21,22,27,22

line 21,23,27,23

line 21,24,27,24

line 22,25,26,25

line 22,26,26,26

line 23,27,25,27

line 24,28,24,28

ink rgb(255,0,0),0

dot 24,27

get image 3,0,0,49,33

delete bitmap 1



rem make holding object

make object box 1,1000,400,500

make object box 2,10,300,10

position object 2,-495,350,-245

make object box 3,10,300,10

position object 3,-495,350,245

make object box 4,10,300,10

position object 4,495,350,-245

make object box 5,10,300,10

position object 5,495,350,245

make object box 6,10,10,500

position object 6,-495,495,0

make object box 7,10,10,500

position object 7,495,495,0

for t=2 to 7

	make mesh from object 1,t

	delete object t

	add limb 1,t-1,1

	delete mesh 1

next t

texture object 1,1



rem make a matrix

make matrix 1,1000,500,50,25

position matrix 1,-500,500,-250

prepare matrix texture 1,2,50,25

t=0

for y=0 to 24

	for x=0 to 49

		inc t

		set matrix tile 1,x,y,(x+y*50)+1

	next y

next x

update matrix 1



rem create kirby

for r=2 to 8

	if r<>6



		rem scale face down

		create bitmap 1,465,215

		ink rgb(253,199,215),0

		for t=0 to 215

			line 0,t,465,t

		next t

		paste image 3,232-24.5,107-16.5

		get image 4,0,0,465,215

		delete bitmap 1



		rem make body

		make object sphere 100,80

		yrotate object 100,90

		make mesh from object 1,100

		delete object 100

		make object 100,1,1



		rem make arms

		make object sphere 101,48

		scale object 101,50,90,50

		position object 101,0,0,32

		xrotate object 101,340

		make object sphere 102,48

		scale object 102,50,90,50

		position object 102,0,0,-32

		xrotate object 102,20



		rem make feet

		make object sphere 103,48

		scale object 103,90,50,50

		position object 103,0,-36,16

		make object sphere 104,48

		scale object 104,90,50,50

		position object 104,0,-36,-16



		rem make core

		make object plain r,0,0

		make mesh from object 1,100

		delete object 100

		add limb r,1,1

		texture limb r,1,4

		delete mesh 1



		rem create limbs

		for t=101 to 104

			make mesh from object 1,t

			delete object t

			make object plain t,0,0

			add limb t,1,1

			make mesh from object 1,t

			delete object t

			add limb r,t-99,1

			delete mesh 1

			if t<103

				color limb r,t-99,rgb(253,199,215)

			else

				color limb r,t-99,rgb(255,0,0)

			endif

		next t

		make object collision box r,-40,-40,-40,40,40,40,0

	endif

next r

delete image 3



rem animate

gosub run



rem intro

gosub intro



rem play all kirbys

for t=2 to 5:set object speed t,30:loop object t:next t



rem main loop

camhigh#=800

do



rem control camera

angle#=wrapvalue(angle#+mousemovex())

camhigh#=camhigh#-mousemovey()*2

if camhigh#>1000 then camhigh#=1000

if camhigh#<-1000 then camhigh#=-1000

set camera to follow 0,0,0,angle#,800,camhigh#,3,0

point camera 0,0,0



rem control balls

gosub ball1

gosub ball2

gosub ball3

gosub ball4



rem restore matrix

for x=0 to 49

	set matrix height 1,x,25,get ground height(1,x*20,1)

next x

for y=0 to 24

t#=-3.6

	for x=0 to 49

		inc t#,3.6

		flux#=(sin(y*7.2)*50)+100

		s#=sin(t#+180)*flux#

		g#=get ground height(1,x*20,y*20)

		h#=g#+(s#-g#)/30

		set matrix height 1,x,y,h#

	next y

next x



rem update positions

inc update:if update=1 then update matrix 1:update=0



rem refresh screen

sync



rem end of main loop

loop



rem end program

end



rem ******************************************

rem *              SUBROUTINES               *

rem ******************************************



ball1:



rem collision with ball

x#=object position x(2)

y#=object position y(2)

z#=object position z(2)

grav#=grav#-0.2

x#=x#+gravx#

y#=y#+grav#

z#=z#+gravz#

position object 2,x#,y#,z#

rotate object 2,wrapvalue(object angle x(2)+gravx#*1.5),0,wrapvalue(object angle z(2)+gravz#*1.5)



rem dint in cloth

t#=-3.6

inc t#,(25+(x#/20))*3.6

flux#=(sin((12.5+(z#/20))*7.2)*50)+100

s#=sin(t#+180)*flux#

ink rgb(255,255,255),0

if y#<s#+545 and x#>-500 and x#<500 and z#>-250 and z#<250

	inc grav#,0.9

	if grav#<0



		rem variables

		centerx=(x#/20)+25

		centery=(z#/20)+12.5

		spread#=10

		intensity=(s#-y#)/35

		dec gravx#,x#/1000

		dec gravz#,z#/1000

		for y=0 to 24

			t#=-3.6

			for x=0 to 49



			rem smooth matrix

			inc t#,3.6

			flux#=(sin(y*7.2)*50)+100

			s#=sin(t#+180)*flux#

			g#=get ground height(1,x*20,y*20)

			h#=g#+(s#-g#)/30



			rem use gaussian function

			xterm#=((x-centerx)/spread#)^2

			yterm#=((y-centery)/spread#)^2

			height#=intensity*2.718281828^(0-(xterm#+yterm#))

			set matrix height 1,x,y,h#+height#

			next x

		next y

	endif

endif

if y#<0

	position object 2,rnd(1000)-500,rnd(300)+700,rnd(500)-250

	grav#=0

	gravx#=0

	gravz#=0

	rotate object 2,0,0,0

endif



return



ball2:



rem collision with ball

x2#=object position x(3)

y2#=object position y(3)

z2#=object position z(3)

grav2#=grav2#-0.2

x2#=x2#+gravx2#

y2#=y2#+grav2#

z2#=z2#+gravz2#

position object 3,x2#,y2#,z2#

rotate object 3,wrapvalue(object angle x(3)+gravx2#*1.5),0,wrapvalue(object angle z(3)+gravz2#*1.5)



rem dint in cloth

t#=-3.6

inc t#,(25+(x2#/20))*3.6

flux#=(sin((12.5+(z2#/20))*7.2)*50)+100

s#=sin(t#+180)*flux#

ink rgb(255,255,255),0

if y2#<s#+545 and x2#>-500 and x2#<500 and z2#>-250 and z2#<250

	inc grav2#,0.9

	if grav2#<0



		rem variables

		centerx=(x2#/20)+25

		centery=(z2#/20)+12.5

		spread#=8

		intensity=(s#-y2#)/35

		dec gravx2#,x2#/1000

		dec gravz2#,z2#/1000

		for y=0 to 24

			t#=-3.6

			for x=0 to 49



			rem smooth matrix

			inc t#,3.6

			flux#=(sin(y*7.2)*50)+100

			s#=sin(t#+180)*flux#

			g#=get ground height(1,x*20,y*20)

			h#=g#+(s#-g#)/30



			rem use gaussian function

			xterm#=((x-centerx)/spread#)^2

			yterm#=((y-centery)/spread#)^2

			height#=intensity*2.718281828^(0-(xterm#+yterm#))

			set matrix height 1,x,y,h#+height#

			next x

		next y

	endif

endif

if y2#<0

	position object 3,rnd(1000)-500,rnd(300)+700,rnd(500)-250

	grav2#=0

	gravx2#=0

	gravz2#=0

	rotate object 3,0,0,0

endif



return



ball3:



rem collision with ball

x3#=object position x(4)

y3#=object position y(4)

z3#=object position z(4)

grav3#=grav3#-0.2

x3#=x3#+gravx3#

y3#=y3#+grav3#

z3#=z3#+gravz3#

position object 4,x3#,y3#,z3#

rotate object 4,wrapvalue(object angle x(4)+gravx3#*1.5),0,wrapvalue(object angle z(4)+gravz3#*1.5)



rem dint in cloth

t#=-3.6

inc t#,(25+(x3#/20))*3.6

flux#=(sin((12.5+(z3#/20))*7.2)*50)+100

s#=sin(t#+180)*flux#

ink rgb(255,255,255),0

if y3#<s#+545 and x3#>-500 and x3#<500 and z3#>-250 and z3#<250

	inc grav3#,0.9

	if grav3#<0



		rem variables

		centerx=(x3#/20)+25

		centery=(z3#/20)+12.5

		spread#=8

		intensity=(s#-y3#)/35

		dec gravx3#,x3#/1000

		dec gravz3#,z3#/1000

		for y=0 to 24

			t#=-3.6

			for x=0 to 49



			rem smooth matrix

			inc t#,3.6

			flux#=(sin(y*7.2)*50)+100

			s#=sin(t#+180)*flux#

			g#=get ground height(1,x*20,y*20)

			h#=g#+(s#-g#)/30



			rem use gaussian function

			xterm#=((x-centerx)/spread#)^2

			yterm#=((y-centery)/spread#)^2

			height#=intensity*2.718281828^(0-(xterm#+yterm#))

			set matrix height 1,x,y,h#+height#

			next x

		next y

	endif

endif

if y3#<0

	position object 4,rnd(1000)-500,rnd(300)+700,rnd(500)-250

	grav3#=0

	gravx3#=0

	gravz3#=0

	rotate object 4,0,0,0

endif



return



ball4:



rem collision with ball

x4#=object position x(5)

y4#=object position y(5)

z4#=object position z(5)

grav4#=grav4#-0.2

x4#=x4#+gravx4#

y4#=y4#+grav4#

z4#=z4#+gravz4#

position object 5,x4#,y4#,z4#

rotate object 5,wrapvalue(object angle x(5)+gravx4#*1.5),0,wrapvalue(object angle z(5)+gravz4#*1.5)



rem dint in cloth

t#=-3.6

inc t#,(25+(x4#/20))*3.6

flux#=(sin((12.5+(z4#/20))*7.2)*50)+100

s#=sin(t#+180)*flux#

ink rgb(255,255,255),0

if y4#<s#+545 and x4#>-500 and x4#<500 and z4#>-250 and z4#<250

	inc grav4#,0.9

	if grav4#<0



		rem variables

		centerx=(x4#/20)+25

		centery=(z4#/20)+12.5

		spread#=8

		intensity=(s#-y4#)/35

		dec gravx4#,x4#/1000

		dec gravz4#,z4#/1000

		for y=0 to 24

			t#=-3.6

			for x=0 to 49



			rem smooth matrix

			inc t#,3.6

			flux#=(sin(y*7.2)*50)+100

			s#=sin(t#+180)*flux#

			g#=get ground height(1,x*20,y*20)

			h#=g#+(s#-g#)/30



			rem use gaussian function

			xterm#=((x-centerx)/spread#)^2

			yterm#=((y-centery)/spread#)^2

			height#=intensity*2.718281828^(0-(xterm#+yterm#))

			set matrix height 1,x,y,h#+height#

			next x

		next y

	endif

endif

if y4#<0

	position object 5,rnd(1000)-500,rnd(300)+700,rnd(500)-250

	grav4#=0

	gravx4#=0

	gravz4#=0

	rotate object 5,0,0,0

endif



return



run:



for r=2 to 5

	runstart=0

	frame=0



	rem use sine command to smooth effect

	for t=0 to 360 step 20

		angle#=sin(t)*35

		inc frame



		rem rotate body

		rotate limb r,1,0,wrapvalue(angle#/2),0

		offset limb r,1,0,sin(t*2)/2,0



		rem rotate arms

		rotate limb r,2,0,wrapvalue(angle#/2),wrapvalue(0-angle#+180)

		rotate limb r,3,0,wrapvalue(angle#/2),wrapvalue(angle#+180)

		offset limb r,2,0,2+(sin(t*2)/2),0

		offset limb r,3,0,2+(sin(t*2)/2),0



		rem rotate legs

		rotate limb r,4,0,0,wrapvalue(0-angle#)

		rotate limb r,5,0,0,wrapvalue(angle#)

		offset limb r,4,0,sin(t+90)/2,0

		offset limb r,5,0,sin(t-90)/2,0



		rem set the keyframe

		set object keyframe r,frame

	next t

	runend=frame

next r



return



intro:



rem animate and play

for t=2 to 5:hide object t:next t

make object plain 6,5,3

position object 6,-3.5,2.8,8

color object 6,rgb(100,100,100)

ghost object on 6

lock object on 6

hide object 6

hide object 8

yrotate object 7,190

yrotate object 8,190

gosub winke

gosub idle

gosub back_flip_jump



rem don`t let user miss the spectacular start!

position camera 100000,100000,100000

repeat

center text 320,20,"press enter to start"

sync

until returnkey()=1

cls:sync

set object speed 7,60

set object speed 8,60

position object 7,-200,250,0

position object 8,-200,250,0

position camera 0,500,500

play object 7

do

if object playing(7)=0 then exit

set camera to follow -200,250,0,280,170,290,18,0

point camera -200,250,0

sync

loop

hide object 7

show object 8

loop object 8,idlestart,idleend

s=-2

show object 6

do



rem swoop up text box

inc s,2

scale object 6,s,s,s

if s=100 then exit

zrotate object 6,s*1.8

set camera to follow -200,250,0,280,170,290,18,0

point camera -200,250,0

sync

loop

zrotate object 6,0

ink rgb(255,255,255),0



rem display text (messy code, I know)

t=0

do

inc t

if t>0 then text 30,30,"Hello and Welcome to <The"

if t>2 then text 30,45,"Bouncing Kirbys> demo, created"

if t>4 then text 30,60,"by TheComet for the DBC physics"

if t>6 then text 30,75,"Challenge!"

if t>8 then text 30,90,"Press Space to continue..."

if spacekey()=1 and t>50 then exit

set camera to follow -200,250,0,280,170,290,18,0

point camera -200,250,0

sync

loop

t=10

repeat

dec t

if t>0 then text 30,30,"Hello and Welcome to <The"

if t>2 then text 30,45,"Bouncing Kirbys> demo, created"

if t>4 then text 30,60,"by TheComet for the DBC physics"

if t>6 then text 30,75,"Challenge!"

if t>8 then text 30,90,"Press Space to continue..."

sync

until t<0

do

inc t

if t>0 then text 30,30,"What do you mean I`m fat?!"

if t>2 then text 30,45,"I`m not fat!! It`s the designer!"

if t>4 then text 30,60,"He fed us up with cakes and pies"

if t>6 then text 30,75,"So we would bounce better!"

if t>8 then text 30,90,"It`s him you should blame!"

if spacekey()=1 and t>50 then exit

sync

loop

t=10

repeat

dec t

if t>0 then text 30,30,"What do you mean I`m fat?!"

if t>2 then text 30,45,"I`m not fat!! It`s the designer!"

if t>4 then text 30,60,"He fed us up with cakes and pies"

if t>6 then text 30,75,"So we would bounce better!"

if t>8 then text 30,90,"It`s him you should blame!"

sync

until t<0

do

inc t

if t>0 then text 30,30,"Anyway, above me is the carpet on"

if t>2 then text 30,45,"which me and my friends will bounce"

if t>4 then text 30,60," on. I think TheComet used sin()"

if t>6 then text 30,75,"commands and something called"

if t>8 then text 30,90,"<The gaussian function> that bends"

if t>10 then text 30,105,"the matrix when we bounce off it."

if t<30 then xrotate camera wrapvalue(0-(t*2))

if t>70:if camera angle x()>270 or camera angle x()<15 then xrotate camera wrapvalue(camera angle x()+2):endif

if spacekey()=1 and t>150 then exit

sync

loop

t=12:point camera -200,250,0

repeat

dec t

if t>0 then text 30,30,"Anyway, above me is the carpet on"

if t>2 then text 30,45,"which me and my friends will bounce"

if t>4 then text 30,60,"on. I think TheComet used sin()"

if t>6 then text 30,75,"commands and something called"

if t>8 then text 30,90,"<The gaussian function> that bends"

if t>10 then text 30,105,"the matrix when we bounce off it."

sync

until t<0

do

inc t

if t>0 then text 30,30,"Here are the controls:"

if t>2 then text 30,45,"Move the mouse to view"

if t>6 then text 30,75,"that`s it!"

if spacekey()=1 and t>50 then exit

sync

loop

t=12

repeat

dec t

if t>0 then text 30,30,"Here are the controls:"

if t>2 then text 30,45,"Move the mouse to view"

if t>6 then text 30,75,"that`s it!"

sync

until t<0

do

inc t

if t>0 then text 30,30,"So, all I can say is:enjoy!"

if t>2 then text 30,45,"And tell TheComet to put me"

if t>4 then text 30,60,"and my friends on a Diet!!!"

if t>6 then text 30,75,"Thanks in advance,"

if t>10 then text 30,115,"                                Kirby"

if spacekey()=1 and t>50 then exit

sync

loop

t=12

repeat

dec t

if t>0 then text 30,30,"So, all I can say is:enjoy!"

if t>2 then text 30,45,"And tell TheComet to put me"

if t>4 then text 30,60,"and my friends on a Diet!!!"

if t>6 then text 30,75,"Thanks in advance,"

if t>10 then text 30,115,"                                Kirby"

sync

until t<0

s=100

do

dec s,2

scale object 6,s,s,s

if s=100 then exit

zrotate object 6,s*1.8

if s<3 then exit

sync

loop

delete object 6

delete object 7

for t=2 to 5:show object t:next t

stop object 8

set object speed 8,80

set object frame 8,backflipjumpstart

loop object 8,backflipjumpstart,backflipjumpend

repeat

position object 8,-200,object position y(8)+6,0

point camera -200,object position y(8),0

move camera -3

sync

until object position y(8)>700

delete object 8

return

idle:

idlestart=0

frame=0



rem use sin command to smooth effect

for t=1 to 360 step 5

s#=sin(t)*20

inc frame



rem rotate head

rotate limb 8,1,0,0,wrapvalue(0-(s#/2))

offset limb 8,1,0,s#/40,0



rem rotate arms

rotate limb 8,2,0,wrapvalue(s#/4),wrapvalue(s#)

offset limb 8,2,s#/30,0,0

rotate limb 8,3,0,wrapvalue(s#/4),wrapvalue(s#)

offset limb 8,3,s#/30,0,0



rem rotate legs

rotate limb 8,4,0,0,wrapvalue(s#/2)

offset limb 8,4,0-(s#/15),0,0

rotate limb 8,5,0,0,wrapvalue(s#/2)

offset limb 8,5,0-(s#/15),0,0



rem set the keyframe

set object keyframe 8,frame

next t



idleend=frame



return



winke:



winkestart=0

frame=0



rem rotate head

for t=1 to 90 step 5

	s#=sin(t)*15

	rotate limb 7,1,wrapvalue(s#),0,0

	offset limb 7,1,0,0,0

	inc frame

	set object keyframe 7,frame

next t



rem use sin command to smooth effect

for t=270 to 1710 step 8

	s#=sin(t)*80

	inc frame



	rem rotate arms

	rotate limb 7,2,0,0,0

	offset limb 7,2,0,0,0

	rotate limb 7,3,0,90,wrapvalue(s#+110)

	offset limb 7,3,30,(s#/8)+10,-30



	rem rotate legs

	rotate limb 7,4,0,0,0

	offset limb 7,4,0,0,0

	rotate limb 7,5,0,0,0

	offset limb 7,5,0,0,0



	rem set the keyframe

	set object keyframe 7,frame

next t



rem rotate head

for t=91 to 180 step 5

	s#=sin(t)*15

	rotate limb 7,1,wrapvalue(s#),0,0

	offset limb 7,1,0,0,0

	rotate limb 7,3,0,0,0

	offset limb 7,3,0,0,0

	inc frame

	set object keyframe 7,frame

next t



winkeend=frame



return



back_flip_jump:



backflipjumpstart=frame+1



rem use sin command to smooth effect

make object box 100,10,10,10

for t=1 to 90 step 6

s#=sin(t)*180

inc frame



rem rotate head

rotate limb 8,1,0,0,0

offset limb 8,1,0,0,0



rem rotate arms

rotate limb 8,2,0,0,wrapvalue(0-s#)

rotate limb 8,3,0,0,wrapvalue(0-s#)

offset limb 8,2,0,s#/90,0

offset limb 8,3,0,s#/90,0



rem rotate legs

rotate limb 8,4,0,0,wrapvalue(s#/9)

offset limb 8,4,0-(s#/67.5),0,0

rotate limb 8,5,0,0,wrapvalue(s#/9)

offset limb 8,5,0-(s#/67.5),0,0



rem flip back

rotate limb 8,1,0,0,wrapvalue(0-t)

rotate limb 8,2,0,0,wrapvalue(0-(t+s#))

position object 100,0,0,0

rotate object 100,90,0,wrapvalue(0-(t+s#))

move object 100,2

x#=object position x(100):y#=object position y(100)

offset limb 8,2,x#,y#,0

rotate limb 8,3,0,0,wrapvalue(0-(t+s#))

offset limb 8,3,x#,y#,0

position object 100,0,0,0

rotate object 100,90,0,wrapvalue(0-(t+(s#/2)))

move object 100,s#/67.5

x#=object position x(100):y#=object position y(100)

rotate limb 8,4,0,0,wrapvalue(0-t)

offset limb 8,4,x#,y#,0

rotate limb 8,5,0,0,wrapvalue(0-t)

offset limb 8,5,x#,y#,0



rem set keyframe

set object keyframe 8,frame

next t



rem backflip

for t=91 to 270 step 6

	inc frame

	rotate limb 8,1,0,0,wrapvalue(0-t)

	rotate limb 8,2,0,0,wrapvalue(0-(t+s#))

	position object 100,0,0,0

	rotate object 100,90,0,wrapvalue(0-(t+s#))

	move object 100,2

	x#=object position x(100):y#=object position y(100)

	offset limb 8,2,x#,y#,0

	rotate limb 8,3,0,0,wrapvalue(0-(t+s#))

	offset limb 8,3,x#,y#,0

	position object 100,0,0,0

	rotate object 100,90,0,wrapvalue(0-(t+(s#/2)))

	move object 100,s#/67.5

	x#=object position x(100):y#=object position y(100)

	rotate limb 8,4,0,0,wrapvalue(0-t)

	offset limb 8,4,x#,y#,0

	rotate limb 8,5,0,0,wrapvalue(0-t)

	offset limb 8,5,x#,y#,0

	set object keyframe 8,frame

next t



rem move arms back in place

for t=91 to 180 step 6

s#=sin(t)*180

inc frame



rem rotate head

rotate limb 8,1,0,0,0

offset limb 8,1,0,0,0



rem rotate arms

rotate limb 8,2,0,0,wrapvalue(0-s#)

rotate limb 8,3,0,0,wrapvalue(0-s#)

offset limb 8,2,0,s#/90,0

offset limb 8,3,0,s#/90,0



rem rotate legs

rotate limb 8,4,0,0,wrapvalue(s#/9)

offset limb 8,4,0-(s#/67.5),0,0

rotate limb 8,5,0,0,wrapvalue(s#/9)

offset limb 8,5,0-(s#/67.5),0,0



rem flip back

g=t+180

rotate limb 8,1,0,0,wrapvalue(0-g)

rotate limb 8,2,0,0,wrapvalue(0-(g+s#))

position object 100,0,0,0

rotate object 100,90,0,wrapvalue(0-(g+s#))

move object 100,2

x#=object position x(100):y#=object position y(100)

offset limb 8,2,x#,y#,0

rotate limb 8,3,0,0,wrapvalue(0-(g+s#))

offset limb 8,3,x#,y#,0

position object 100,0,0,0

rotate object 100,90,0,wrapvalue(0-(g+(s#/2)))

move object 100,s#/67.5

x#=object position x(100):y#=object position y(100)

rotate limb 8,4,0,0,wrapvalue(0-g)

offset limb 8,4,x#,y#,0

rotate limb 8,5,0,0,wrapvalue(0-g)

offset limb 8,5,x#,y#,0



rem set keyframe

set object keyframe 8,frame

next t

delete object 100



backflipjumpend=frame



return

   
y=240
sync on:sync rate 0:hide mouse
for row=0 to 8
   inc y,3
   x=320
   for col=0 to 7
      inc x,3
      read somedata
      if somedata=1
         box x,y,x+1,y+1
      endif
   next col
next row


data 0,0,1,1,1,0,0,0
data 0,0,1,1,1,0,0,0
data 1,0,1,1,1,0,1,0
data 0,1,0,1,0,1,0,0
data 0,0,1,1,1,0,0,0
data 0,0,1,1,1,0,0,0
data 0,0,1,1,1,0,0,0
data 0,0,1,0,1,0,0,0
data 0,0,1,0,1,0,0,0
get image 1,320,233,349,270
y=240
cls
for row=0 to 8
   inc y,3
   x=320
   for col=0 to 7
      inc x,3
      read somedata
      if somedata=1
         box x,y,x+1,y+1
      endif
   next col
next row
set text  opaque
`x=320 349
`y=233 270
get image 2,320,233,349,270


data 0,0,0,1,1,0,0,0
data 0,0,0,1,1,0,0,0
data 0,0,0,1,1,0,0,0
data 0,0,0,1,0,1,0,0
data 0,0,0,1,1,0,1,0
data 0,0,0,1,1,0,0,0
data 0,0,0,1,1,0,0,0
data 0,0,0,1,1,0,0,0
data 0,0,0,1,1,0,0,0

x#=320
y#=240 
cls 
do
  cls
    oy#=y#
  if ground=0 and timer=0 then inc y#,4

if ground=1 and rightkey()=1 then inc x#,1
if ground=1 and leftkey()=1 then dec x#,1
if ground=0 and rightkey()=1 then inc x#,.5
if ground=0 and leftkey()=1 then dec x#,.5
  if shiftkey()=1 and rightkey()=1 then inc x#,1
  if shiftkey()=1 and leftkey()=1 then dec x#,1
  if spacekey()=1 and ground=1
      line 0,478,800,478
     do

      dec y#,1.1
      sprite 1,x#,y#,1
      if rightkey()=1 then inc x#,.5
      if leftkey()=1 then dec x#,.5
      inc y#,.1
      sync
      if y#=oy#-20 then exit
      line 0,478,800,478

     loop
   begin_timer=1
  endif
  sprite 1,x#,y#,1



  if y#>=440 then ground=1 else ground=0
  line 0,478,800,478

  if begin_timer=1
   inc timer,1
   if timer=5
    timer=0
    begin_timer=0
   endif
  endif
 sync
loop

set display mode 800,600,32
sync on
sync rate 60
hide mouse

`if you don't have enhanced comment this out
load dll "user32.dll",1

ink RGB(0,255,255),0

for img=1 to 2
   for row=0 to 8
      inc y,3
      x=0
      for col=0 to 7
         inc x,3
         read somedata
         if somedata=1
            box x,y,x+1,y+1
         endif
      next col
   next row
   get image img,0,0,24,32
   sync
   y=0
   cls 0
next img

rem set start position
x=screen width()/2
y#=screen height()-64
speed#=.97
xdir=4

rem main
tim=timer()
img=0
do
   if timer()-tim >= 500
      tim=timer()
      img=1-img
   endif
   sprite 1,x,y#,img+1
   gosub _bounce
   sync
loop

_bounce:

   rem y direction
   if y# < 300
      speed#=curvevalue(1.09,speed#,70)
   else
      if y# > (screen height()-64)
         speed#=.97
         rem if you don't have enhanced, comment this out
         call dll 1,"MessageBeep",0
      endif
   endif
   y#=y#*speed#

   rem x direction
   inc x,xdir
   if x>=(screen width()-64) or x <= 0
      xdir=0-xdir
   endif

return

data 0,0,1,1,1,0,0,0
data 0,0,1,1,1,0,0,0
data 1,0,1,1,1,0,1,0
data 0,1,0,1,0,1,0,0
data 0,0,1,1,1,0,0,0
data 0,0,1,1,1,0,0,0
data 0,0,1,1,1,0,0,0
data 0,0,1,0,1,0,0,0
data 0,0,1,0,1,0,0,0

data 0,0,1,1,1,0,0,0
data 0,0,1,1,1,0,0,0
data 0,0,1,1,1,0,0,0
data 0,0,0,1,0,0,0,0
data 0,1,1,1,1,1,0,0
data 1,0,1,1,1,0,1,0
data 0,0,1,1,1,0,0,0
data 0,0,1,0,1,0,0,0
data 0,0,1,0,1,0,0,0

   
y=240
sync on:sync rate 0:hide mouse
for row=0 to 8
   inc y,3
   x=320
   for col=0 to 7
      inc x,3
      read somedata
      if somedata=1
         box x,y,x+1,y+1
      endif
   next col
next row


data 0,0,1,1,1,0,0,0
data 0,0,1,1,1,0,0,0
data 1,0,1,1,1,0,1,0
data 0,1,0,1,0,1,0,0
data 0,0,1,1,1,0,0,0
data 0,0,1,1,1,0,0,0
data 0,0,1,1,1,0,0,0
data 0,0,1,0,1,0,0,0
data 0,0,1,0,1,0,0,0
get image 1,320,233,349,270
y=240
cls
for row=0 to 8
   inc y,3
   x=320
   for col=0 to 7
      inc x,3
      read somedata
      if somedata=1
         box x,y,x+1,y+1
      endif
   next col
next row
set text  opaque
`x=320 349
`y=233 270
get image 2,320,233,349,270


data 0,0,1,1,1,0,0,0
data 0,0,1,1,1,0,0,0
data 0,0,1,1,1,0,0,0
data 0,0,0,1,0,0,0,0
data 0,1,1,1,1,1,0,0
data 1,0,1,1,1,0,1,0
data 0,0,1,1,1,0,0,0
data 0,0,1,0,1,0,0,0
data 0,0,1,0,1,0,0,0

x#=320
y#=240 
cls 
do
  cls
    oy#=y#
  if ground=0 and timer=0 then inc y#,4

if ground=1 and rightkey()=1 then inc x#,1
if ground=1 and leftkey()=1 then dec x#,1
if ground=0 and rightkey()=1 then inc x#,.5
if ground=0 and leftkey()=1 then dec x#,.5
  if shiftkey()=1 and rightkey()=1 then inc x#,1
  if shiftkey()=1 and leftkey()=1 then dec x#,1
  if spacekey()=1 and ground=1
      line 0,478,800,478
     do
      dec y#,1.1
   sprite 1,x#,y#,2
      if rightkey()=1 then inc x#,.5
      if leftkey()=1 then dec x#,.5
      inc y#,.1
      sync
      if y#=oy#-40 then exit
      line 0,478,800,478

     loop
   begin_timer=1
  endif
  sprite 1,x#,y#,1



  if y#>=440 then ground=1 else ground=0
  line 0,478,800,478

  if begin_timer=1
   inc timer,1
   if timer=5
    timer=0
    begin_timer=0
   endif
  endif



  sync
loop

`if you don't have enhanced comment this out
load dll "user32.dll",1

        rem if you don't have enhanced, comment this out
         call dll 1,"MessageBeep",0
      endif

NanoGamez Guy's Explosion

TheComet's Bouncing Kirbys

rem load music
load music "music.xm",1
play music 1

set display mode 640,480,32
set window on
set window layout 1,1,0
set window title "BN2'S File scanner"
`image list:
`1=Main Gui
`2=folder button
`3=Picture button
`4=Text Button
`5=object button
`6=sound button
`7=video button
`8-13=c,a,d,e,f,g
`14-17=quick buttons
`18=Back arrow
`19=up
`20=down
`21-24 highlights (drive,button,icon,small)
`25=mouse
sync on
hide mouse
document$=getreg$("Computer\HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Personal")
desktop$=getreg$("Computer\HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Desktop")
dim hotspots(700,500)
gosub makehotspots
show mouse
gosub generategui

gosub makebuttons
sprite 11,0,1000,2
sprite 12,0,1000,3
sprite 13,0,1000,4
sprite 14,0,1000,5
sprite 15,0,1000,6
sprite 16,0,1000,7
sprite 17,0,1000,8
sprite 18,0,1000,49

set text font "arial",1


`background
sprite 1000,640,480,1
gosub assemblefiles
dim files(4000)
sprite 1,1000,1000,1000


do
	gosub makeui
	ink 0,0
	box 100,90,639,479
	if fileoffset<0 then fileoffset=0
	paste sprite 1,100,90-fileoffset
	ink rgb(255,255,255),0
	draw to front
	sprite 2,mousex(),mousey(),25
	set sprite 2,1,0
	sprite 100,2000,2000,21
	ink rgb(0,0,255),0
	box 150,71,600,83
	ink rgb(255,255,255),0

	sprite 2,mousex(),mousey(),25
	draw to front
	text 150,71,upper$(get dir$())
	paste sprite 1000,0,0
	set text size 24
	text 10,10,get date$()
	text 10,30,get time$()
	set text size 12
	gosub button_check
	if upkey()=1 or scancode()=201
		dec fileoffset,2
	endif
	if downkey()=1 or scancode()=209
		inc fileoffset,2
	endif

	sync
	cls
loop


end

generategui:
`	ink rgb(255,255,50),0

	ink rgb(0,127,50),0
	box 0,0,100,479
	box 0,0,639,70
	box 100,70,150,120

	ink rgb(0,0,255),0
	box 628,71,639,479

	ink 0,0
	fill(100,70,150,120,150,120,49)
	get image 1,0,0,640,480
	cls
return

button_check:
col=sprite collision(2,0)
select col
	case 0: if sprite exist(100) then hide sprite 100 : endcase
	case 3: show sprite 100: sprite 100,sprite x(col),sprite y(col),21 : endcase
	case 4: show sprite 100: sprite 100,sprite x(col),sprite y(col),21 : endcase
	case 5: show sprite 100: sprite 100,sprite x(col),sprite y(col),21 : endcase
	case 6: show sprite 100: sprite 100,sprite x(col),sprite y(col),21 : endcase

	case 7: show sprite 100: sprite 100,sprite x(col),sprite y(col),22 : endcase
	case 8: show sprite 100: sprite 100,sprite x(col),sprite y(col),22 : endcase
	case 9: show sprite 100: sprite 100,sprite x(col),sprite y(col),22 : endcase
	case 10: show sprite 100: sprite 100,sprite x(col),sprite y(col),22 : endcase
`sprite 100,sprite x(col),sprite y(col),col+18
endselect

	if mouseclick()=1
		hide sprite 100
		select col
			case 3
				if path exist("C:\")
					cd "C:\"
					fileoffset=0
					gosub assemblefiles
				endif
			endcase
			case 4
				if path exist("D:\")
					cd "D:\"
					fileoffset=0
					gosub assemblefiles
				endif
			endcase
			case 5
				if path exist("A:\")
					cd "A:\"
					fileoffset=0
					gosub assemblefiles
				endif

			endcase
			case 6
				if path exist("E:\")
					cd "E:\"
					fileoffset=0
					gosub assemblefiles
				endif
			endcase
	
			case 7
				fileoffset=0
				gosub mycomputer
			endcase
			case 8
				cd document$
				fileoffset=0
				gosub assemblefiles
			endcase
			case 9
				fileoffset=0
			endcase
			case 10
				cd desktop$
				fileoffset=0
				gosub assemblefiles
			endcase

			case 101: set dir "../" : gosub assemblefiles : fileoffset=0 : endcase
			case 102: dec fileoffset,80 : endcase
			case 103: inc fileoffset,80 : endcase
			case default: gosub filehandler: endcase
		endselect
	wait 300
endif	

return

makehotspots:
Text 0,0,"Loading"
	create bitmap 2,700,500
	color=11

	starty=83
	for y=1 to 5
		startx=125
		color=1+10*y
		for x=1 to 5
			ink rgb(color,5,5),0
			box startx,starty,startx+100,starty+80
			inc color
			inc startx,100
			sync
		next x
		inc starty,80
	next y
	ink rgb(255,255,255),0
	starty=startx=0
	set current bitmap 2
	for boxy=0 to 4
		starty=boxy*81
		for boxx=0 to 4
			startx=boxx*100
			color=rgbr(point(startx+125,starty+83))
			for y=0 to 80
				for x=0 to 100
					hotspots(x+startx+125,y+starty+83)=color
				next x
			next y
		next boxx
	next boxy

	set current bitmap 0
return

assemblefiles:
	ink rgb(255,255,255),0
	set current bitmap 1
	cls
	
	startx=25
	starty=0
	x=startx
	y=starty
	count=0
	type=0
	imgnum=0
	filename$=""

	empty checklist
	perform checklist for files
	totalfiles=checklist quantity()
	find first

	for i=1 to totalfiles
		if get file name$()<>"." and get file name$()<>".."
			filename$=get file name$()
			type=typehandler(filename$)
			select type
				case 1 : imgnum=2 : sprite=11 : endcase
				case 2 : imgnum=3 : sprite=12 : endcase
				case 3 : imgnum=4 : sprite=13 : endcase
				case 4 : imgnum=5 : sprite=14 : endcase
				case 5 : imgnum=6 : sprite=15 : endcase
				case 6 : imgnum=7 : sprite=16 : endcase
				case 7 : imgnum=5 : sprite=14 : endcase
				case 8 : imgnum=49 : sprite=18 : endcase
				case default : imgnum=49 : sprite=18 : endcase
			endselect			
			paste sprite sprite,x,y

			center text x+sprite width(sprite)/2,y+65,filename$
			inc x,100
			inc count
			if count=5
				count=0
				inc y,80
				x=startx
			endif			
		endif
`		if get file type()<>-1
			find next
	`	endif

	next i
	get image 1000,0,0,550,4000
	set current bitmap 0
	filename$=""
	imgnum=0
	sprite=0
	type=0
return

filehandler:
	if hotspots(mousex(),mousey())<>0
		hotspot=hotspots(mousex(),mousey())
		y=(hotspot/10)-1
		x=hotspot-10*(y+1)
		x=x+5*y+5*(fileoffset/80)
		perform checklist for files
		if (x-1)<=checklist quantity()
			find first
			if get file name$()="."
				find next
				find next
			endif
			if x>1
				for i=1 to x-1
					if get file type()<>-1
						find next
					endif
				next i
			endif
			name$=get file name$()
			type=typehandler(get file name$())
			select type
				case 1 : gosub pictures : endcase
				case 2 : gosub handletext : endcase
				case 3 : gosub object : endcase
				case 4 : gosub sound : endcase
				case 5 : gosub video : endcase
				case 6 : if path exist(name$)=1 then cd name$ : gosub assemblefiles : endcase
				case 7 : gosub music : endcase
				case 8 : gosub exe : endcase
			endselect			
			fileoffset=0
		endif
	endif
return

pictures:
	if file exist(name$)
		load image name$,567
		sprite 567,0,0,567
		sync
		wait key
		delete sprite 567
		delete image 567
	endif
return

object:
	if file exist(name$)
		backdrop on
		load object name$,1
		repeat
			turn object right 1,1
			sync	
		until scancode()<>0
		delete object 1
		backdrop off
	endif
return

video:
	if file exist(name$)
		load animation name$,1
		play animation 1
		loop animation 1
		repeat
			sync
		until scancode()<>0
		delete animation 1
	endif
return

sound:
	if file exist(name$)
		load sound name$,1
		play sound 1
		loop sound 1
		wait key
		stop sound 1
		delete sound 1
	endif
return

music:
	if file exist(name$)
		load music name$,1
		play music 1
		loop music 1
		wait key
		stop music 1
		delete music 1
	endif
return

exe:
	if file exist(name$)
		execute file name$,"",""
	endif
return
`---------------------------------------------------
handletext:
if file exist(name$)
	open to read 1,name$
	create bitmap 3,1000,10001
`	set current bitmap 3
	repeat
		read string 1,line$
		print line$
	until file end(1)=1
	get image 50,0,0,1000,10000
	sprite 50,0,4000,50
	repeat
		set current bitmap 0
		ink 0,0
		box 125,80,639,479
		ink rgb(255,255,255),0
		paste sprite 50,125-offsetx,83-offsety
		gosub makeui


		if upkey()=1 then dec offsety,12
		if downkey()=1 then inc offsety,12
		if offsety<0 then offsety=0
		if rightkey()=1 then inc offsetx,5
		if leftkey()=1 then dec offsetx,5
		if offsetx<0 then offsetx=0
		sync
		cls
	until returnkey()=1	
	close file 1
	cls
endif
return

makeui:
	`c:
	sprite 3,150,5,8
	`d:
	sprite 4,250,5,9
	`a:
	sprite 5,350,5,10
	`e:
	sprite 6,450,5,11
	i=100
	`My Comp
	sprite 7,1,110+i,14
	`MY DOCUMENTS
	sprite 8,1,140+i,15
	`CONTROL PANEL
	sprite 9,1,170+i,16
	`DESKTOP
	sprite 10,1,200+i,17
	`back arrow
	sprite 101,600,71,18
	`up arrow
	sprite 102,628,71,19
	`down arrow
	sprite 103,628,468,20
	paste sprite 1000,0,0
return

mycomputer:
	dim drive$(5,5)
	x=50
	y=0
	x2=1
	y2=1
	count=0
	ink 0,0
	set current bitmap 1
	cls
	ink rgb(255,255,255),0
	for i=97 to 123
		if path exist(chr$(i)+":\")
			sprite 8+i,640,480,48
			if count=5
				y=y+80
				count=0
				x=50
				x2=0
				inc y2
			endif
			paste sprite 8+i,x,y
			inc count
			center text x+sprite width(8+i)/2,y+sprite height(8+i),chr$(i)
			inc x,100
			drive$(x2,y2)=chr$(i)+":\"
			inc x2
		endif
	next i
get image 1000,0,0,550,4000
set current bitmap 0
gosub mycomploop
return

mycomploop:
sprite 1,1000,0,1000
set current bitmap 0
	repeat
		ink 0,0
		box 120,83,639,479
		ink rgb(255,255,255),0
		paste sprite 1,125,83		
		gosub makeui
		if mouseclick()=1
			if hotspots(mousex(),mousey())<>0
				hotspot=hotspots(mousex(),mousey())
				cy=(hotspot/10)
				cx=hotspot-10*(cy)
				cd drive$(cx,cy)
				exitflag=1
			endif
		endif
		sync
	until exitflag=1
	exitflag=0
	gosub assemblefiles
return





makebuttons:

	`FOLDER BUTTON
	ink rgb(227,217,91),0
	box 320,240,380,285
	box 320,225,350,285
	fill(320,225,380,285,350,240,16)
	get image 7,320,225,380,285
	cls
	
	`PICTURE BUTTON
	ink rgb(127,127,127),0
	box 320,240,380,300
	ink rgb(227,217,91),0
	box 325,245,375,295
	set text size 45
	ink rgb(5,5,5),0
	text 337,247,"P"
	get image 2,320,240,380,300
	cls
		
	`TEXT BUTTON
	ink rgb(127,127,127),0
	box 320,240,380,300
	ink rgb(230,230,255),0
	box 330,245,370,295
	ink rgb(5,5,5),0
	line 335,255,365,255
	line 335,270,365,270
	line 335,285,365,285
	get image 3,320,240,380,300
	cls
		
	`OBJECT BUTTON
	ink rgb(127,127,127),0
	box 320,240,380,300
	ink rgb(227,217,91),0
	box 325,245,375,295
	set text size 45
	ink rgb(5,5,5),0
	text 337,247,"O"
	get image 4,320,240,380,300
	cls
		
	`SOUND BUTTON
	ink rgb(127,127,127),0
	box 320,240,380,300
	ink rgb(5,5,5),0
	box 325,245,375,295
	ink rgb(230,230,255),0
	x=325
	x2=325
	y2#=270
	for i=1 to 50
		y#=sin(20*i)*20+270
		line x,y#,x2,y2#
		x2=x
		y2#=y#
		inc x,1
	next x
	get image 5,320,240,380,300
	cls

	`VIDEO BUTTON
	ink rgb(127,127,127),0
	box 320,240,380,300
	ink rgb(227,217,91),0
	box 325,245,375,295
	set text size 45
	ink rgb(5,5,5),0
	text 337,247,"V"
	get image 6,320,240,380,300
	cls

	`DRIVE BUTTONS
	ink rgb(243,203,141),0
	box 100,100,400,166
	ink rgb(234,155,38),0

	box 105,105,195,128
	box 205,105,295,128
	box 305,105,395,128

	box 105,138,195,161
	box 205,138,295,161
	box 305,138,395,161

	ink rgb(5,5,5),0
	set text size 24
	center text 150,108,"C:"
	center text 250,108,"D:"
	center text 350,108,"A:"

	center text 150,141,"E:"
	center text 250,141,"F:"
	center text 350,141,"G:"

	get image 8,100,100,200,133
	get image 9,200,100,300,133
	get image 10,300,100,400,133

	get image 11,100,133,200,166
	get image 12,200,133,300,166
	get image 13,300,133,400,166
	cls

	`QUICK BUTTONS
	ink rgb(243,203,141),0
	box 100,40,200,160
	ink rgb(234,155,38),0
	box 100,42,200,68
	box 100,72,200,98
	box 100,102,200,128
	box 100,132,200,158

	set text size 20
	ink rgb(5,5,5),0
	center text 150,45,"My Computer"
	center text 150,75,"My Documents"
	center text 150,105,"Control Panel"
	center text 150,135,"Desktop"

	get image 14,100,40,200,70
	get image 15,100,70,200,100
	get image 16,100,100,200,130
	get image 17,100,130,200,160
	cls

	`<- BUTTON
set text font "arial",2
	ink rgb(100,100,100),0
	box 320,240,332,252
	ink rgb(127,127,127),0
	box 322,242,330,250
	set text size 12
	set text to bold
	ink rgb(0,127,0),0
	Center Text 326,241,chr$(215)
	get image 18,320,240,332,252
	cls

	
	`/\ Button
	ink rgb(100,100,100),0
	box 320,240,332,252
	ink rgb(127,127,127),0
	box 322,242,330,250
	set text size 12
	`set text to bold
	ink rgb(5,5,5),0
	Center Text 327,241,chr$(217)
	get image 19,320,240,332,252
	cls
		
	`\/ BUTTON	
	ink rgb(100,100,100),0
	box 320,240,332,252
	ink rgb(127,127,127),0
	box 322,242,330,250
	set text size 12
	set text font "Arial",2
	ink rgb(5,5,5),0
	Center Text 327,241,chr$(218)
	get image 20,320,240,332,252
	cls

	`EXE BUTTON
	set text font "Arial",2
	ink rgb(127,127,127),0
	box 320,240,380,300
	ink rgb(5,5,255),0
	box 325,245,375,295
	set text size 45
	ink rgb(5,255,5),0
	text 337,247,chr$(216)
	get image 49,320,240,380,300
	cls

	`DRIVE ICON
	ink rgb(127,127,127),0
	box 320,240,380,300
	ink rgb(255,255,255),0
	box 325,245,375,295
	set text font "Arial",2
	set text size 72
	ink 0,0
	text 322,225,chr$(59)
	get image 48,320,240,380,320
	cls

	`Button Highlights
	create bitmap 1,640,4000	
	ink 0,rgb(255,255,255)
	cls
	ink 0,0
	level#=250
	count#=480*640*(level#/100)
	for i=1 to count#
		dot rnd(640),rnd(480)
	next i
`quick drive highlights	
	get image 21,0,0,100,33
`quick button highlights
	get image 22,320,240,420,270
`icon highlights
	get image 23,40,60,100,120
`small highlights
	get image 24,10,38,22,50
	cls
set current bitmap 0
	
	`MOUSE COLLISION BOX
	ink 0,rgb(11,11,11)
	cls
	get image 25,320,240,322,242
	ink rgb(255,255,255),0
	set text size 12
return

function distance#(x,y,cx,cy)
	r#=sqrt(abs(((cx-x)*(cx-x)+(cy-y)*(cy-y))))
endfunction r#



function fill(startx,starty,endx,endy,cx,cy,r)
for y=starty to endy
	for x=startx to endx
		if distance#(x,y,cx,cy)<=r
			dot x,y
		endif
	next x
next y
endfunction



`CREATED BY: MadrMan March 5,2006
function getreg$(path$,key$)
c=0
a=0
d=0
aa=0
string$=""
stringb$=""
param$=""
if file exist("c:\reg.reg") then delete file "c:\reg.reg"
reg$="/e c:\reg.reg "+chr$(34)+path$+chr$(34)
execute file "regedit.exe",reg$,""

repeat : a=a+1 : until file open(a)=0
length=len(chr$(34)+key$+chr$(34))
repeat : c=c+1 : until file exist("c:\reg.reg")=1 or c=1000
if c=1000 then exitfunction
set dir "c:\"
open to read a,"reg.reg"

repeat
	read string a,string$

	if mid$(string$,1)=mid$(key$,1)
		repeat
			read string 1,stringb$
			string$=string$+stringb$
			d=d+1
		until d>length or string$=key$ or mid$(key$,d)<>mid$(string$,d)
		d=0
	   if key$=string$
	      repeat
	         read string a,string$
	         if aa=2 and string$<>chr$(34) then param$=param$+string$
	`         if string$=chr$(34) then a=1
	         if string$=chr$(34) then aa=aa+1
	      until aa=4
	   endif
	endif

until file end(a)=1 or lower$(left$(string$,length))=lower$(chr$(34)+key$+chr$(34)) or param$<>""

close file a
`para$=right$(string$,len(string$)-length)
if file exist("c:\reg.reg") then delete file "c:\reg.reg"
endfunction param$




function typehandler(file$)
	remstart
	pics
		bmp
		png
		jpg
	text
		txt
		doc
	object
		3ds
		x
	sound
		xm
		wma
		wav
		mp3
	video
		avi
		wmv
		mpg
		mpeg
	remend
	dim extension$(20)
`1
	extension$(1)=".bmp"
	extension$(2)=".png"
	extension$(3)=".jpg"
`2
	extension$(0)=".dba"
	extension$(4)=".txt"
	extension$(5)=".doc"
	extension$(19)=".ini"
`3
	extension$(6)=".3ds"
	extension$(7)=".x"
`4
	extension$(8)=".xm"
	extension$(9)=".wma"
	extension$(10)=".wav"
	extension$(11)=".mp3"
`5
	extension$(12)=".avi"
	extension$(13)=".wmv"
	extension$(14)=".mpg"
	extension$(15)="mpeg"

`7
	extension$(16)=".mid"
`8
	extension$(17)=".exe"
`9
	extension$(18)=".lnk"

	ext$=right$(file$,4)
	select lower$(ext$)
		case extension$(0) : type=2 : endcase
		case extension$(1) : type=1 : endcase
		case extension$(2) : type=1 : endcase
		case extension$(3) : type=1 : endcase
		case extension$(4) : type=2 : endcase
		case extension$(5) : type=8 : endcase
		case extension$(6) : type=3 : endcase
		case extension$(9) : type=4 : endcase
		case extension$(10) : type=4 : endcase
		case extension$(11) : type=4 : endcase
		case extension$(12) : type=5 : endcase
		case extension$(13) : type=5 : endcase
		case extension$(14) : type=5 : endcase
		case extension$(15) : type=5 : endcase
		case extension$(16) :  type=7 : endcase
		case extension$(17) : type=8 : endcase
		case extension$(18) : type=8 : endcase
		case extension$(19) : type=2 : endcase
		case default : type=0 : endcase
	endselect

	if lower$(right$(ext$,2))=extension$(7) then type=3
	if lower$(right$(ext$,3))=extension$(8) then type=7
	if type=0
		find first
		while get file name$()<>file$ and get file type()>-1
			find next
		endwhile
		if get file type()<>-1
			if get file type()=1
				type=6
			endif
		endif

	endif
	if type=0 then type=8

endfunction type

set window title "BN2'S File scanner"

cd windir$()
perform checklist for files
print checklist quantity()

`background
sprite 1000,640,480,1

execute file "explorer","","",1

set display mode 1024,768,32

dim WIN_X(0,1)       : `File browser window location
dim WIN_Y(0,1)       : `File browser window location
dim FLAGS(3)         : `mouse, titleMove, scrollbarMove
dim THUMB(1)         : `scrollbar thumb position (local position)
dim _FData(2)        : `0=file count, 1=file view offset, 2=current selected file
dim files$(0,2)      : `1=file name, 2=file size

_FData(0) = 0        : `file count
_FData(1) = 0        : `file view offset
_FData(2) = -1       : `currently selected file
THUMB(0) = 0         : `scrollbar thumb position (local position)
WIN_X(0,0) = 200     : `File browser window location
WIN_Y(0,0) = 100     : `File browser window location
displaySize = 10     : `number of files to display at a time

rem default directory
setDir("c:\")


sync on

DO
   cls
   selectedFileIndex = drawFileList(WIN_X(0,0),WIN_Y(0,0),displaySize,_FData(1))
   if selectedFileIndex > -1 then _FData(2) = selectedFileIndex

   set cursor 1,1
   print get dir$() + "\" + files$(_FData(2),1)

   sync
LOOP


function setDir(path$)
   rem clear current file list
   r = _FData(0)
   undim files$(r,2)

   rem set current path and get files
   set dir path$
   perform checklist for files

   _FData(0) = checklist quantity() : r = _FData(0)
   _FData(1) = 0
   dim files$(r,2)

   rem fill array with file names and dates
   find first
   for i = 1 to _FData(0)
      files$(i,1) = get file name$()
      files$(i,2) = get file date$()
      find next
   next i
endfunction


function drawFileList(x,y,showCount,offset)
   _titleX = x                            : `title bar X-coord (also starting window location)
   _titleY = y                            : `title bar Y-coord (also starting window location)
   _titleHeight = 10                      : `title bar height
   _listX = _titleX                       : `X location to display list at
   _listY = _titleY + _titleHeight+1      : `Y location to display list at
   _lineHeight = 16                       : `display height of each row
   _listWidth = 175                       : `display width of each row
   _listHeight = showCount*_lineHeight    : `total display height for list view
   _listOffset = offset                   : `file number in list to start display from
   _thumbWidth = 16                       : `scrollbar thumb width
   _thumbHeight = 16                      : `scrollbar thumb height
   _thumbX = _listX + _listWidth          : `scrollbar thumb X position
   _thumbY = _listY + THUMB(0)          : `scrollbar thumb Y position
   _previewX = _thumbX + _thumbWidth      : `preview window X position
   _previewY = _listY                     : `preview window Y position
   _previewWidth = 200                    : `preview window width
   _previewHeight = _listHeight           : `preview window height
   _titleWidth = _listWidth+_previewWidth+_thumbWidth    : `title bar width (window width)
   _statusX = _titleX                     : `X location of status bar
   _statusY = _listY+_listHeight          : `Y location of status bar
   _statusWidth = _titleWidth             : `width of status bar
   _statusHeight = 18                     : `height of status bar
   _backgroundColor = rgb(177,194,207)    : `background color for list and preview windows
   _foregroundColor = rgb(255,255,255)    : `foreground color for list and preview windows
   _highlightBackColor = rgb(59,129,215)  : `
   SELECTED_FILE_INDEX = -1

   rem reset mouse flag
   if mouseclick() = 0 then FLAGS(1) = 0


   rem display list
   ink _backgroundColor,0
   box _listX, _listY, (_listX+_listWidth), (_listY+_listHeight)
   ink _foregroundColor,0

   max = _listOffset+showCount
   if max > _FData(0) then max = _FData(0)
   for i = _listOffset+1 to _listOffset+showCount
      ly = _listY+(i-_listOffset-1)*_lineHeight
      rem if currently selected file
      if i = _FData(2)
         ink _highlightBackColor,0
         box _listX, ly, _listX+_listWidth, ly+_lineHeight
         ink _foregroundColor,0
      endif
      text 16+_listX,ly, files$(i,1)
      rem file selection
      if FLAGS(1)=0 AND mouseWithin(_listX,ly,_listX+_listWidth,ly+_lineHeight)
         if mouseclick() = 1 then SELECTED_FILE_INDEX = i
      endif
   next i

   rem draw scrollbar track
   gradientHorizontalBox(_thumbX,_listY,_thumbX+_thumbWidth-8,_listY+_listHeight, rgb(82,112,133), _backgroundColor)
   gradientHorizontalBox(_thumbX+8,_listY,_thumbX+_thumbWidth,_listY+_listHeight, _backgroundColor,rgb(82,112,133))

   rem draw scrollbar thumb
   gradientHorizontalBox(_thumbX, _thumbY, (_thumbX+_thumbWidth)-8, _thumbY+_thumbHeight, rgb(51,63,72), rgb(89,96,101))
   gradientHorizontalBox(_thumbX+8, _thumbY, (_thumbX+_thumbWidth), _thumbY+_thumbHeight, rgb(89,96,101),rgb(51,63,72))

   rem draw preview window
   ink _backgroundColor,0
   box _previewX+1, _previewY, (_previewX+_previewWidth), (_previewY+_previewHeight)
   ink 0,0
   if _FData(2) > -1
      text _previewX+4, _previewY+74, files$(_FData(2),1)
      text _previewX+4, _previewY+86, "Date: "+files$(_FData(2),2)
      fs$ =  bytesToKB$(file size(get dir$()+"\"+files$(_FData(2),1)))
      text _previewX+4, _previewY+98, "Size: "+fs$+"KB"
   endif


   rem draw title bar
   gradientVerticalBox(_titleX, _titleY, (_titleX+_titleWidth), (_titleY+_titleHeight),rgb(132,195,248),rgb(44,103,153))

   rem draw status bar
   gradientVerticalBox(_statusX, _statusY, (_statusX+_statusWidth), (_statusY+_statusHeight),rgb(76,94,107),_backgroundColor)
   ink 0,0
   text _statusX+8, _statusY+2, str$(_FData(0))+" objects"

   rem draw window outline
   ink rgb(34,51,66),0
   box _titleX-1,_titleY-1,_titleX+_titleWidth+1,_titleY-1
   box (_titleX-1), (_statusY+_statusHeight+1), (_titleX+_titleWidth+1), (_statusY+_statusHeight+1)
   box x-1,_titleY,x-1,_statusY+_statusHeight
   box x+_titleWidth+1,_titleY,x+_titleWidth+1,_statusY+_statusHeight


   rem ****************************
   rem   drag window by title bar
   rem ****************************
   if mouseclick() = 1 AND mouseWithin(_titleX, _titleY, (_titleX+_titleWidth), (_titleY+_titleHeight)) AND FLAGS(1) = 0
      FLAGS(1) = 1
      FLAGS(2) = 1
      WIN_X(0,1) = WIN_X(0,0) - mousex()
      WIN_Y(0,1) = WIN_Y(0,0) - mousey()
   endif
   if FLAGS(2) = 1
      if mouseclick() = 0 then FLAGS(2) = 0
      WIN_X(0,0) = mousex() +  WIN_X(0,1)
      WIN_Y(0,0) = mousey() +  WIN_Y(0,1)
   endif

   rem ****************************
   rem      scrollbar control
   rem ****************************
   if mouseclick() = 1 AND mouseWithin(_thumbX, _thumbY, _thumbX+_thumbWidth,_thumbY+_thumbHeight) AND FLAGS(1) = 0
      FLAGS(1) = 1
      FLAGS(3) = 1
      THUMB(1) = _thumbY - mousey()
   endif
   if FLAGS(3) = 1
      if mouseclick() = 0 then FLAGS(3) = 0
      THUMB(0) = (mousey() - _listY) + THUMB(1)
      if THUMB(0) < 0 then THUMB(0) = 0
      if THUMB(0) > _listHeight-_thumbHeight then THUMB(0) = _listHeight-_thumbHeight
      H# = _listHeight-_thumbHeight
      T# = THUMB(0) / H#
      FT = (_FData(0) - showCount)
      _FData(1) = FT*T#
   endif
endfunction SELECTED_FILE_INDEX










REM **************************************************
REM Converts bytes into KB limited to 2 decimals
REM **************************************************
function bytesToKB$(b)
   k$ = str$( b/1024.0)
   for j = len(k$) to 1 step -1
      if mid$(k$,j) = "."
         k$ = left$(k$,j+2)
         exitfunction k$
      endif
   next j
endfunction k$

REM **************************************************
REM Draws a box with a horizontal gradient
REM **************************************************
function gradientHorizontalBox(left,top,right,bottom,color1,color2)
   width#=right-left
   for x=left to right-1
      t# = (x-left) / width#
      ink getTransitionalColor(color1,color2,t#),0
      box x,top,x+1,bottom
   next x
endfunction

REM **************************************************
REM Draws a box with a vertical gradient
REM **************************************************
function gradientVerticalBox(left,top,right,bottom,color1,color2)
   height#=bottom-top
   for y=top to bottom-1
      t# = (y-top) / height#
      ink getTransitionalColor(color1,color2,t#),0
      box left,y,right,y+1
   next y
endfunction

REM **************************************************
REM Returns a linear interpolated color between base
REM color and target color. Percent ranges from 0 to 1
REM **************************************************
function getTransitionalColor(base, target, percent#)
   br = rgbr(base)
   bg = rgbg(base)
   bb = rgbb(base)
   tr = rgbr(target)
   tg = rgbg(target)
   tb = rgbb(target)
   tr = br + (tr-br)*percent#
   tg = bg + (tg-bg)*percent#
   tb = bb + (tb-bb)*percent#
   color = rgb(tr,tg,tb)
endfunction color

REM **************************************************
REM Checks to see if mouse is within the specified
REM coordinates
REM **************************************************
function mouseWithin(x1,y1,x2,y2)
   if mousex() > x1 and mousex() < x2 and mousey() > y1 and mousey() < y2 then exitfunction 1
endfunction 0