<div class="blog">
<h1 id="NAME">
-More Games + Update
+Hello Mouse? An Example of the New Event Code
</h1>
<div class="CONTENT">
-<div style="text-align: right;"><i><br />idle digits,<br />play,<br />away,<br />idle digits.<br /></i></div><br />So while I am hacking away on v2.4 and <a href="http://github.com/kthakore/SDL_perl/tree/experimental">breaking</a> a lot of things. Here is a link to some more <a href="http://home.comcast.net/%7Eg.f.taylor/GarrysGames.html">games</a> for SDL Perl. These only work in windows now but I will look into bringing them to CPAN (with Garry's permission). <br /><br /><i>--yapgh</i><br /><br />These where reported by Garry Taylor. Here is the rest of the email:<br /><br /><blockquote><i>Hi all,</i><br /><i>I hadn't checked this newsgroup in a while and was happy to see </i><br /><i>that it still alive and well. I saw that some people had been sharing </i><br /><i>some SDL Perl games online, and I had a few to share as well. At </i><br /><i>"http://home.comcast.net/~g.f.taylor/GarrysGames.html" you can find four </i><br /><i>games I have written as well as a simple flip book program to let a </i><br /><i>child play at making animation on the computer. The games are "Toad" (a </i><br /><i>Frogger wanna be), "RabbitHat" (like Centipede), "BunnyHunt" (sort of </i><br /><i>like Pac-Man) and "Bonk The Buggies". All (with the exception of Toad </i><br /><i>which in its very first incarnation was a game I wrote in TRS-80 Basic </i><br /><i>back in 1981) were written originally to run on my Windows 3.11 PC for </i><br /><i>my little girl so that she could play games which were not quite so </i><br /><i>violent as games were starting to become at the time.</i><br /><i><br /></i><br /><i>A few years ago I got the idea of trying to get them to run again </i><br /><i>by rewriting them in Perl. The downloads are Windows XP/Vista installs </i><br /><i>which include a bare bones Perl environment for running the games (the </i><br /><i>installs put the code into its own separate place, and shouldn't </i><br /><i>interfere with your existing Perl setups). I did this so that I could </i><br /><i>share the games with friends and family who either don't have SDL </i><br /><i>installed, don't have Perl installed, or don't do any programming and </i><br /><i>just needed something that will run. The code as it currently stands </i><br /><i>was not written for general publication, so there are probably places </i><br /><i>where the Perl code itself is not always the best looking it could be, </i><br /><i>but the games themselves work pretty well. Also, it is worth noting </i><br /><i>that I wound up being lazy and made a few additions to the Perl SDL code </i><br /><i>that I was using to add an additional function or two for printing text </i><br /><i>onto the screen that was centered or right aligned.</i><br /><i><br /></i><br /><i>While I have not made any Unix installs for the code, I have </i><br /><i>actually run the games on a few Linux machines that I have access to, </i><br /><i>where I also had installed SDL. I have not updated my SDL installs in </i><br /><i>several years now, so there may be complications that arise if running </i><br /><i>it with a new version of SDL.</i><br /><i><br /></i><br /><i>I hope you enjoy the games (or at least aren't too mean about it </i><br /><i>if you don't).</i><br /><i>Garry Taylor</i></blockquote><div class="blogger-post-footer"><img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/3102167581424744259-500220938152318100?l=yapgh.blogspot.com' alt='' /></div></div></div>
\ No newline at end of file
+<div style="text-align: right;"><i>Any code that is not marketed is dead code <br />
+--mst</i><br />
+</div><br />
+You need the new code from the <b> <a href="http://http://github.com/kthakore/SDL_Perl/tree/redesign">redesign branch</a></b> to use this . <br />
+<br />
+<pre class="fake-gist" id="fake-gist-231987">#!/usr/bin/env perl
+
+use SDL;
+use SDL::Events;
+use SDL::Event;
+use SDL::Video;
+
+SDL::init(SDL_INIT_VIDEO);
+
+my $display = SDL::Video::set_video_mode(640,480,32, SDL_SWSURFACE );
+my $event = SDL::Event->new();
+
+while(1)
+{
+ SDL::Events::pump_events();
+
+ if(SDL::Events::poll_event($event) && $event->type == SDL_ACTIVEEVENT)
+ {
+ print "Hello Mouse!!!\n" if ($event->active_gain && ($event->active_state == SDL_APPMOUSEFOCUS) );
+ print "Bye Mouse!!!\n" if (!$event->active_gain && ($event->active_state == SDL_APPMOUSEFOCUS) );
+ }
+
+ exit if($event->type == SDL_QUIT);
+}</pre><div class="blogger-post-footer"><img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/3102167581424744259-4268622242266513664?l=yapgh.blogspot.com' alt='' /></div>
+<p><a href="http://feedads.g.doubleclick.net/~a/VcCMh0XKi92JWmYoQnOB3cQLHtY/0/da"><img src="http://feedads.g.doubleclick.net/~a/VcCMh0XKi92JWmYoQnOB3cQLHtY/0/di" border="0" ismap="true"></img></a><br/>
+<a href="http://feedads.g.doubleclick.net/~a/VcCMh0XKi92JWmYoQnOB3cQLHtY/1/da"><img src="http://feedads.g.doubleclick.net/~a/VcCMh0XKi92JWmYoQnOB3cQLHtY/1/di" border="0" ismap="true"></img></a></p><img src="http://feeds.feedburner.com/~r/YetAnotherPerlGameHackeryapgh/~4/xhzWiodiKJI" height="1" width="1"/></div></div>
\ No newline at end of file
projects / sdlgit/SDL-Site.git / blobdiff