<div class="blog">
<h1 id="NAME">
-Hello Mouse? An Example of the New Event Code
+Quick Game for Toronto Perl Mongers
</h1>
<div class="CONTENT">
-<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<br /><br />use SDL;<br />use SDL::Events;<br />use SDL::Event;<br />use SDL::Video; <br /><br />SDL::init(SDL_INIT_VIDEO);<br /><br />my $display = SDL::Video::set_video_mode(640,480,32, SDL_SWSURFACE );<br />my $event = SDL::Event->new(); <br /><br />while(1)<br />{ <br /> SDL::Events::pump_events(); <br /><br /> if(SDL::Events::poll_event($event) && $event->type == SDL_ACTIVEEVENT)<br /> {<br /> print "Hello Mouse!!!\n" if ($event->active_gain && ($event->active_state == SDL_APPMOUSEFOCUS) );<br /> print "Bye Mouse!!!\n" if (!$event->active_gain && ($event->active_state == SDL_APPMOUSEFOCUS) );<br /> } <br /> <br /> exit if($event->type == SDL_QUIT);<br />}</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></div></div>
\ No newline at end of file
+<i><br />
+<div style="text-align: right;">Beep ... Boop<br />
+</div></i><br />
+<br />
+So I am preparing a presentation of the new SDL perl for February's Toronto Perl Mongers meeting. What better way to so off SDL perl then with a game? <br />
+<br />
+I started hacking a small point an click game a few days back. I really didn't have a idea in mind, but I did have a goal. I wanted to make a game that shows the basics of a game in SDL. Drawing to screen, game loops, physics and so on. I think I have accomplished it so far. <br />
+<br />
+Take a look at it <a alt="Click the balls to win" href="http://gist.github.com/301949">here</a>. Download that and call it<a alt="Click the balls to win" href="http://gist.github.com/301949">[Shooter.pl]</a>. To win click the balls.<br />
+<br />
+To play this game you need the following:<br />
+<br />
+<ul><li> <b>Only for Linux)</b> sudo apt-get install libsdl-dev libsdl_gfx-dev </li>
+<li> cpan Alien::SDL </li>
+<li> Click Download Source http://github.com/kthakore/SDL_perl/tree/redesign </li>
+<li> Extract it </li>
+<li> perl Build.PL; perl Build; perl Build install </li>
+<li> perl Shooter.pl </li>
+</ul><br />
+I will put up binaries soon-ish.<br />
+<br />
+It is a playable (albeit hard) game right now. All 7 seven levels of it. The purpose of the game is simple click the balls to win. Sounds easy but it isn't. You also get a time in milliseconds after each level. Share your scores on here! I will leave it up to you guys to be honest. <br />
+<br />
+I do have to tidy it up and right documentation for it. This way I will be able to present it clearly to my fellow mongers. I am also still looking for ideas to make this a more polished game. FROGGS recommend I make it a classic NES duck hunt game. I thought since I am using gravity I could do a UFO game out of it where you shoot the UFOs. I am open to your ideas.<div class="blogger-post-footer"><img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/3102167581424744259-1585061047069454098?l=yapgh.blogspot.com' alt='' /></div>
+<p><a href="http://feedads.g.doubleclick.net/~a/xSNM-fJPtTMLn88P3vJeOy3aoV4/0/da"><img src="http://feedads.g.doubleclick.net/~a/xSNM-fJPtTMLn88P3vJeOy3aoV4/0/di" border="0" ismap="true"></img></a><br/>
+<a href="http://feedads.g.doubleclick.net/~a/xSNM-fJPtTMLn88P3vJeOy3aoV4/1/da"><img src="http://feedads.g.doubleclick.net/~a/xSNM-fJPtTMLn88P3vJeOy3aoV4/1/di" border="0" ismap="true"></img></a></p><img src="http://feeds.feedburner.com/~r/YetAnotherPerlGameHackeryapgh/~4/oR6t0trX8yM" height="1" width="1"/></div></div>
\ No newline at end of file
projects / sdlgit/SDL-Site.git / blobdiff