Sorry your browser is not supported!

sync on
sync rate 60

set image colorkey 255, 0, 255

GenericLevelScript()

function GenericLevelScript()
	load image "01Sky.bmp", 1 : sprite 1, 0, 0, 1
	load image "02Sky.png", 2 : sprite 2, 0, 0, 2
	load image "03Hills.png", 3 : sprite 3, 0, 0, 3
	load image "04Block.png", 4 : sprite 4, 11, 365, 4
	create animated sprite 5, "05TestCharacter.png", 2, 1, 5 : sprite 5, 11, 200, 5 

	XPos = 0
	do
		if rightkey() and XPos<1150
			inc XPos
			rotate sprite 2, 270 : rotate sprite 3, 270 : rotate sprite 4, 270
			move sprite 2, 1 : move sprite 3, 2 : move sprite 4, 3
			rotate sprite 2, 0 : rotate sprite 3, 0 : rotate sprite 4, 0
		endif
		if leftkey() and XPos>0
			dec Xpos
			rotate sprite 2, 90 : rotate sprite 3, 90 : rotate sprite 4, 90
			move sprite 2, 1 : move sprite 3, 2 : move sprite 4, 3
			rotate sprite 2, 0 : rotate sprite 3, 0 : rotate sprite 4, 0
		endif
		
		ApplyGravity()
		sync
	loop
	
	delete sprite 1 : delete sprite 2 : delete sprite 3 : delete sprite 4
	delete image 1 : delete image 2 : delete image 3 : delete image 4
endfunction

function ApplyGravity()
	for i = 5 to 200
		if sprite exist(i)
			rotate sprite i, 180 : move sprite i, 5
			collision = sprite collision(5, 0)
			if collision > 3 then move sprite i, -5
			rotate sprite i, 0
		endif
	next i
endfunction

collision = sprite collision(5, 0)
			if collision > 3 then move sprite i, -5

if collision > 0 then move sprite i, -5

collision = sprite collision(5, 4)
if collision > 0 then move sprite i, -5

Rem Project: Extends Sprite Collision
Rem Created: Saturday, May 01, 2010

Rem ***** Main Source File *****
// demonstrate pixel perfect sprite collision using extends
sync on : sync rate 60

// declare variables
type ball
	x as integer
	y as integer
	xspeed as integer
	yspeed as integer
	num as integer
endtype

collision as integer = 0

red as ball
green as ball

// variables for red
red.x = 10 // x position
red.y = 100 // y position
red.xspeed = 1 // x speed
red.yspeed = 1 // y speed
red.num = 3 // set the sprite number

// variables for green
green.x = 400 // x position
green.y = 180 // y position
green.xspeed = 0 // stationary
green.yspeed = 0 // stationary
green.num = 4 // set the sprite number


// load images
set image colorkey 0,0,0
load image "greenball2.bmp",1,1 // this preserves pixel perfect quality
load image "redball.bmp",2,1

do
	cls // clear screen
	
	// create the sprites
	sprite red.num, red.x, red.y, 2
	sprite green.num, green.x, green.y, 1 
	
	// move the red ball using arrowkeys
	if upkey()=1 then dec red.y, red.yspeed // move the ball up
	if downkey()=1 then inc red.y, red.yspeed // move the ball down
	if leftkey()=1 then dec red.x, red.xspeed // move the ball left
	if rightkey()=1 then inc red.x, red.xspeed // move the ball right
	
	// prepar the sprites for collision
	spr prepare collision red.num
	spr prepare collision green.num
	
	// test for collision
	collision = spr get collision(red.num, green.num, 0) // the zero is a flag that tests for overlapping pixels
	
	// print the collision results and instructions
	text 0, 0, "Use the arrowkeys to move the red ball"
	text 0, 10, "Sprite Collision = " + str$(collision)
	
	sync // refresh
loop

function ApplyGravity()
	for i = 5 to 200
		if sprite exist(i)
			rotate sprite i, 180 : move sprite i, 5
			spr prepare collision i : spr prepare collision 4
			collision = spr get collision(i, 4, 0)
			if collision then move sprite i, -5
			rotate sprite i, 0
		endif
	next i
endfunction

collision = sprite collision(5, 0)
if collision > 3 then move sprite i, -5

REM Program Name: 2D Array Collision Example
REM Author: Ashingda27
REM Date: 5/01/2010
REM ========================================
`Setup
gosub Initialize

`Main Loop
do
	`The Game Routine
	gosub Game
	`Screen Update
	sync
loop

	Game:
		`Draw the Terrain
		for lpy = 0 to MapY
		for lpx = 0 to MapX
			`Map Data 0 is Sky
			`Map Data 1 is Brick
			if Map(lpx,lpy) = 0 then ink rgb(200,230,255),0
			if Map(lpx,lpy) = 1 then ink rgb(255,55,35),0
			`Draw the Tile Colors
			box lpx*32,lpy*32,lpx*32+32,lpy*32+32
		next lpx
		next lpy
		
		`Draw the Char
		ink rgb(50,155,80),0
		circle CharX,CharY-16,16
		dot CharX,CharY,rgb(255,255,255)

		`Jumping
		if upkey() and Ground = 0
			Jump = 10
		endif
		if Jump
			if Map(CharX/32,(CharY-Jump)/32) = 0 `CollisionCheck with Map CharY-Jump
				dec CharY,Jump
			  else
				Jump = 0
			endif
			if Jump > 0 then dec Jump
		endif
		
		`Moveing Left & Right
		if leftkey()
			if Map((CharX-1)/32,CharY/32) = 0 `CollisionCheck with Map CharX-1
				dec CharX
			endif
		endif
		if rightkey()
			if Map((CharX+1)/32,CharY/32) = 0 `CollisionCheck with Map CharX+1
				inc CharX
			endif
		endif
		
		`Gravity
		if Map(CharX/32,(CharY+1)/32) = 0 `CollisionCheck with Map CharY+1
			inc CharY
			Ground = 1
		  else
			Ground = 0
		endif
	return

	Initialize:
		sync on
		sync rate 30
		`Terrain Data
		data 1,1,1,1,1,1,1,1,1,1
		data 1,0,0,0,0,0,0,0,0,1
		data 1,1,1,0,0,0,0,0,0,1
		data 1,0,0,0,0,0,0,0,0,1
		data 1,1,1,1,0,0,0,0,1,1
		data 0,0,0,1,1,1,1,1,0,0
		`Terrain Size
		MapX = 9
		MapY = 5
		`Terrain Array
		dim Map(MapX,MapY)
		`Reading Terrain Data
		for lpy = 0 to MapY
		for lpx = 0 to MapX
			read Map(lpx,lpy)
		next lpx
		next lpy
		`Character start posision
		CharX = 32
		CharY = 32
	return