Sorry your browser is not supported!

Rem Project: Bullet
Rem Created: Sunday, August 28, 2011

set display mode 1700,1000,32
maximize window
hide mouse
Load image "Player.png",1
load image "Baddie.png",2
cls rgb(255,255,255)
Y#=100
i=50
i=500
Health#=100
for x = 2 to 10
x = x
next i
for y = 2 to 10
y = y
next i
for i = 2 to 10
sprite i,x,y,1
next i

sprite 1,x#,y#,1
set sprite 1,0,1
`---------------------Main loop
do
cls rgb(255,255,255)    

`Make walls
    box 0,950,1800,1000,rgb(0,0,0),rgb(0,0,0),rgb(0,0,0),rgb(0,0,0)
    box 0,0,50,1000,rgb(0,0,0),rgb(0,0,0),rgb(0,0,0),rgb(0,0,0)
    box 1650,0,1700,1000,rgb(0,0,0),rgb(0,0,0),rgb(0,0,0),rgb(0,0,0)
    box 0,0,2250,50,rgb(0,0,0),rgb(0,0,0),rgb(0,0,0),rgb(0,0,0)
`Make chase                                           
If x > x# then x = x-.3
If x < x# then x = x+.3
If y > y# then y = y-.3
If y < y# then y = y+.3                
    `Controls
      IF upkey() then y# = y#-.6
      IF downkey() then y# = y#+.6
      IF rightkey() then x# = x#+.6
      IF leftkey() then x# = x#-.6
    `Collision system
        If x# <= 49 then x# = 49
        If y# <= 49 then y# = 49
        If y# >= 931 then y# = 931
        If x# >= 1631 then x# = 1631
   `Update sprites
    sprite 1,x#,y#,1
for i=2 to 10
sprite i,x,y,2
next i
    loop

sync on
sync rate 60
hide mouse
randomize timer()

`set up some arrays to hold the positions of the various sprites
`the first value in the each array is the position of the green box
dim x(100)
dim y(100)

`this can be a maximum of 99 (due to the size of the arrays)
number_of_red_boxes = 10

`create a bitmap to draw images on
create bitmap 1, screen width(), screen height()
set current bitmap 1
`draw a green box for the player
ink rgb(0,255,0),0
box 0,0,30,30
get image 1, 0,0,30,30
`draw a red box for the computer controlled sprites
ink rgb(255,0,0),0
box 0,0,30,30
get image 2, 0,0,30,30

`set current bitmap back to screen
set current bitmap 0
delete bitmap 1
ink rgb(255,255,255),0


`set starting coordinates for the green box (using the first array index)
x(1) = screen width()/2
y(1) = screen height()/2

`set starting coordinates for the red boxs (starting at array index 2)
for i = 2 to number_of_red_boxes+1
	x(i) = rnd(screen width())
	y(i) = rnd(screen height())
next i

`main loop
do

	cls

	`controls for moving the green square
	if upkey() = 1 then dec y(1),2
	if downkey() = 1 then inc y(1),2
	if rightkey() = 1 then inc x(1),2
	if leftkey() = 1 then dec x(1),2

	`keep green box within the screen
	if y(1) < 0 then y(1) = 0
	if y(1) > screen height() - 30 then y(1) = screen height() - 30
	if x(1) < 0 then x(1) = 0
	if x(1) > screen width() - 30 then x(1) = screen width() - 30

	`position green sprite
	sprite 1, x(1), y(1), 1	

	`use a for to next loop to deal with the movement of the red boxes
	for i = 2 to number_of_red_boxes+1
		`randomly move the boxes
		x(i) = x(i) + rnd(6)-3
		y(i) = y(i) + rnd(6)-3

		`keep red box within the screen
		if y(i) < 0 then y(i) = 0
		if y(i) > screen height() - 30 then y(i) = screen height() - 30
		if x(i) < 0 then x(i) = 0
		if x(i) > screen width() - 30 then x(i) = screen width() - 30

		`position red box
		sprite i, x(i),y(i), 2

		`detect if green box has hit a red box		
		if sprite hit(1,i) = 1
			`draw a circle around the green box
			circle x(1)+15,y(1)+15,30
		endif
		
	next i

	text 1,1, "use arrow keys to move green box."

	sync 

loop