test

use SDL;
use Gamebase;
use Gamebase::Sprite;


$Gamebase::Width = 640;
$Gamebase::Height = 480;
$Gamebase::Refresh_Back = 1;


class Test_Object is Gamebase::Sprite {
	method step {
		$.y -= 2 if @Gamebase::Key_Press[273];
		$.y += 2 if @Gamebase::Key_Press[274];
		$.x += 3 if @Gamebase::Key_Press[275];
		$.x -= 3 if @Gamebase::Key_Press[276];
		Gamebase::quit if @Gamebase::Key_Press[27];
		self.destroy if @Gamebase::Key_Press[120];  # X key
	}
}


my $test_obj = Test_Object.new(
	x => 100,
	y => 100,
	w => 20,
	h => 50,
	color => rgb(128, 128, 128)
);

Gamebase::play;