Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Removed defunct test program.

Also unmultied register_event.
  • Loading branch information...
commit 07ec0c07d85056293fb699a6b8c4b48ddd8f921d 1 parent b90e04b
@quietfanatic authored
Showing with 1 addition and 44 deletions.
  1. +1 −1  Gamebase.pm
  2. +0 −43 examples/test
View
2  Gamebase.pm
@@ -89,7 +89,7 @@ sub map_event (@sprites, $ev) {
}
}
-multi sub register_event is export ($type, &method) {
+sub register_event is export ($type, &method) {
our @Event_List;
my $ev = %EVENT_LOOKUP{&method.name};
# If a parent already has this event, don't register for it.
View
43 examples/test
@@ -1,43 +0,0 @@
-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;
-
-
-
-
-
-
-
-
-
-
-
-
Please sign in to comment.
Something went wrong with that request. Please try again.