<div class="blog">
<h1 id="NAME">
-Hello Mouse? An Example of the New Event Code
+Huge World Maps in less then 100 lines
</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 />
+<div class="separator" style="clear: both; text-align: center;"><a href="http://2.bp.blogspot.com/_NnqjAQEn1Xo/TEBxQGLPevI/AAAAAAAAALI/3k4lruLMbZ0/s1600/foo.bmp" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="http://2.bp.blogspot.com/_NnqjAQEn1Xo/TEBxQGLPevI/AAAAAAAAALI/3k4lruLMbZ0/s320/foo.bmp" /></a></div><br />
+Hello folks,<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
+Recently we have been <a href="http://github.com/kthakore/SDL_perl/commits/master">working</a> on making the Perl syntax sugar for SDL in the form of SDLx. So far we have got the SDLx::Surface and SDLx::Sprite (garu++) done. So the first thing we did was throw together a quick Zelda map walker. As you can see above. The code is at <a href="http://gist.github.com/478440">http://gist.github.com/478440</a>. The SDL code that this depends on will be SDL 2.503 soonish . We are in the process of cleaning up some more SDLx and Alien::SDL bugs. After that SDLx::App will be overhauled to make this sort of thing even easier. Finally living up to our goal of '<span class="Apple-style-span" style="font-family: Verdana,Arial,'Bitstream Vera Sans',Helvetica,sans-serif; font-size: 13px;">Simple Games Easy. Complex Games Possible.' </span><br />
+<br />
+<br />
+<span class="Apple-style-span" style="font-family: Verdana,Arial,'Bitstream Vera Sans',Helvetica,sans-serif; font-size: 13px;"><span style="font-family: inherit;"><b>UPDATE: with some help, and newcomer jtpalmer'<span style="font-family: Verdana,Arial,'Bitstream Vera Sans',Helvetica,sans-serif;">s help we have added Link</span></b></span></span><br />
+<span class="Apple-style-span" style="font-family: Verdana,Arial,'Bitstream Vera Sans',Helvetica,sans-serif; font-size: 13px;"><span style="font-family: inherit;"><b><span style="font-family: Verdana,Arial,'Bitstream Vera Sans',Helvetica,sans-serif;"> </span></b></span></span><br />
+<br />
+<br /><br />
+<br />
+<object width="267" height="220"><param name="allowfullscreen" value="true" /><param name="allowscriptaccess" value="always" /><param name="movie" value="http://vimeo.com/moogaloop.swf?clip_id=13423319&server=vimeo.com&show_title=1&show_byline=1&show_portrait=0&color=59a5d1&fullscreen=1" /><embed src="http://vimeo.com/moogaloop.swf?clip_id=13423319&server=vimeo.com&show_title=1&show_byline=1&show_portrait=0&color=59a5d1&fullscreen=1" type="application/x-shockwave-flash" allowfullscreen="true" allowscriptaccess="always" width="267" height="220"></embed></object><br />
+<br />
+<br /><br />
+<br />
+--caio yapgh<div class="blogger-post-footer"><img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/3102167581424744259-4587488240162102295?l=yapgh.blogspot.com' alt='' /></div>
+<p><a href="http://feedads.g.doubleclick.net/~a/c0ScjYCjwVOpMfey5qcm_RKKLBs/0/da"><img src="http://feedads.g.doubleclick.net/~a/c0ScjYCjwVOpMfey5qcm_RKKLBs/0/di" border="0" ismap="true"></img></a><br/>
+<a href="http://feedads.g.doubleclick.net/~a/c0ScjYCjwVOpMfey5qcm_RKKLBs/1/da"><img src="http://feedads.g.doubleclick.net/~a/c0ScjYCjwVOpMfey5qcm_RKKLBs/1/di" border="0" ismap="true"></img></a></p><img src="http://feeds.feedburner.com/~r/YetAnotherPerlGameHackeryapgh/~4/ONip91qsKjQ" height="1" width="1"/></div></div>
\ No newline at end of file