require 'bizzieLibrary'

# NOTE: Must be using SDL

clearScreen

$screenCenter = Point2d.new($screenWidth/2, $screenHeight/2)

img = Image.new("pics/levelTest.bmp")
sprite = Image.new("pics/testSprite.bmp")

sprite.setColorKey($white)

$spriteX = $screenHeight/2.0
$spriteY = $screenWidth/2.0

$goingRight = false
$goingLeft = false
$goingUp = false
$goingDown = false

puts img.width
puts img.height

scroll = 0
while (true)

	change = false
	
	while event = SDL::Event2.poll	
		case event
			when SDL::Event2::Quit
				running = false
			when SDL::Event2::KeyDown
				if event.sym == SDL::Key::DOWN
					$goingDown = true
					$goingUp = false
				elsif event.sym == SDL::Key::UP
					$goingDown = false
					$goingUp = true
				elsif event.sym == SDL::Key::LEFT
					$goingLeft = true
					$goingRight = false
				elsif event.sym == SDL::Key::RIGHT
					$goingRight = true
					$goingLeft = false
				end
			when SDL::Event2::KeyUp
				if event.sym == SDL::Key::DOWN
					$goingDown = false
				elsif event.sym == SDL::Key::UP
					$goingUp = false
				elsif event.sym == SDL::Key::LEFT
					$goingLeft = false
				elsif event.sym == SDL::Key::RIGHT
					$goingRight = false
				end
		end
	end
	
	if scroll > img.height
		scroll = 0
	end
	
	if scroll == 0
		putPartialImage(img, 0, 0, img.width, $screenHeight, 0, scroll)
	elsif $screenHeight - scroll > 0
		putPartialImage(img, 0, 0, img.width, $screenHeight - scroll, 0, scroll)
		putPartialImage(img, 0, img.height - scroll, img.width, scroll, 0, 0)
	else
		putPartialImage(img, 0, img.height - scroll, img.width, $screenHeight, 0, 0)
	end
	
	if $goingDown
		$spriteY += 5
	elsif $goingUp
		$spriteY -= 5
	end
	
	if $goingRight
		$spriteX += 5
	elsif $goingLeft
		$spriteX -= 5
	end
	
	putImage(sprite, $spriteX, $spriteY)
	
	scroll += 1
	
	#putImage("pics/levelTest.bmp", $screenWidth/2, $screenHeight/2, angle)
	flush
	change= false
	
	sleep(0.001)
end

gets