Flying Birds and crawling frog, and others

[GreenCan]

Entertainment

The idea was to adapt the eagle.au3 example posted by mesale0077 making the bird fly across the monitor.

This is the result:

eagle fly GreenCan.au3

But, I was not really happy with the result, so I thought, maybe use the original animated gif and move it across the monitor using a transparent GUI.

This is a script based on an example of trancexx' GIFAnimation udf.

GIFAnimation.au3 is required for below example and can be found here: GIFAnimation.au3

I think the result is much better than the perforated GUI.

The script is a kind of a screen saver, or at least a distractor for the eye.

FlyingBird.au3 (bug fixed by Mesale0077)

flying_bird.ico

New examples:

Crawling Frog:

CrawlingFrog.au3

frog3.ico

Cheetah and Tiger:

see Post #13 for the more information

Version 1.0.0.1

Small bugfix to avoid the current active GUI to flip to the background.

Only For those who already tested version 1.0.0.0:

same fix for the child script

Don't start it but replace the old on in @TempDir & "GIFS" by this new version

If you run the script, no big issue but you will have to process kill it...

Cheetah and Tiger (Most recent example 1.0.1.0)

CheetahRun.au3

_TigerWalk.au3

This example is not only moving animals around your screen but you can capture (stop) these animals by clicking with your left mouse button on it. You can drag and drop the animals around the screen before it pauses.

Two scripts are still required. One for the Cheetah and one for the Tiger.

Both scripts communicate with each other via memory pointers (Nomad's functions)

Remember to download trancexx' GIFAnimation.au3 (see link above)

Compiling: You can run the client script (or both scripts) compiled but change the setting $b_TigerWalk_au3 to False

Also be aware that you can run the compiled script only in 32bit mode, it will work fine on a x64 system though.

Both scripts should be in the same folder

There are only 2 pointers that the apps share, one for holding each other and one to stop pausing randomly (animals will run continuously, change the $bNoPause setting in CheetahRun.au3, it should be to False but I left it to True for the sake of the demo.

I modified some images, so if you ran the past demos, please first empty your temp folder with following script.

#cs ----------------------------------------------------------------------------
Author: GreenCan
Script Function:
Cleanup temporary folder for CheetahRun
#ce ----------------------------------------------------------------------------
Global $sTempFolder = @TempDir & "\GIFS"
DirRemove($sTempFolder, 1)

Let me know if you find any bug, I exhaustively tested both scripts but as it is rather complex to debug, you never know...

GreenCan

Edited April 18, 2013 by GreenCan

[mesale0077]

exam

eagle_fly_2.au3 (bug fixed by @funkey)

eagle_fly.au3

eagle_gif.au3

FlyinBird_new.au3

Edited April 12, 2013 by mesale0077

[GreenCan]

You corrected a bug in GUICreate, thanks, (upgdatded post #1)

$hGui = GUICreate("GIF Animation", $aGIFDimension[0], $aGIFDimension[1], -1, -1, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))

i will need more time to look into eagle_gif.au3. That looks quite complex to try to understand after midnight

Thanks

GreenCan

[UEZ]

Here my contribution: Flying Eagle.au3

Br,

UEZ

Edited April 25, 2013 by UEZ

[GreenCan]

@UEZ

Thanks, the flip idea is good. I also like the way that you freeze the animation, so that it looks like the bird is gliding.

I have an issue though, The image has a blue (square) background. Strange because when I save it

'graphics-eagle-576150_normalized + sharpen.gif' is a perfectly transparent gif

Screenshot:

http://users.telenet.be/GreenCan/AutoIt/Images/2013-04-12_084205.png

You don' have this issue?

Grtz, GreenCan

[UEZ]

The animation looks properly on my Win7 with Aero enable. As soon as I switch to basic theme then the background will not be transparent anymore.

Maybe I've a closer look to trancexx' code how this can be solved for non Aero desktops.

Br,

UEZ

[UEZ]

It seems to be that with WinXP the graphic handle has to be recreated each time before a new frames is drawn. With this workaround it should work but the graphic is flickering -> see post#4.

If somebody knows a better way on WinXP please tell me. Imho, the best is to upgrade os to Win7

I think this is the best way to be also WinXP compatible -> see post#4.

Br,

UEZ

Edited April 12, 2013 by UEZ

[GreenCan]

hi UEZ,

My laptop is W7 x64 but Aero was disabled,

After I enabled it, the background disappeared. Strangely enough after I disabled it again, the original script did not show the background anymore, so by the end now the 3 versions of your example are running equally well on my laptop.

I did the same test on my 32bit W7 desktop and neither there I found any issue like flickering whatsoever on any of the 3 scripts

I did the test on an old XP laptop and the results are

Script 1: Background Visible

Script 2: Flickering

Script 3: Perfect

GreenCan

[mesale0077]

working on xp

UEZ ,Perfect

--------------------------------------------

my example

for eagle_fly_2.au3

but this still dont work why ?

-1, -1, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))

Edited April 12, 2013 by mesale0077

[funkey]

@mesale0077: Try to insert this code:

#include <Constants.au3>
Global $hDesktop = ControlGetHandle("[CLASS:Progman]", "", "SysListView321")
_WinAPI_SetWindowLong($hGui, $GWL_HWNDPARENT, $hDesktop)
GUISetBkColor(0xFFFFFF)

Edited April 12, 2013 by funkey

[mesale0077]

@funkey

thank you worked

@mesale0077: Try to insert this code:

#include <Constants.au3>
Global $hDesktop = ControlGetHandle("[CLASS:Progman]", "", "SysListView321")
_WinAPI_SetWindowLong($hGui, $GWL_HWNDPARENT, $hDesktop)
GUISetBkColor(0xFFFFFF)

but compiler (au3 to exe)

dont work ,again show title

autoit version 3,3,9,4

Edited April 12, 2013 by mesale0077

[GreenCan]

Added another example for the frog friends...

See post #1

GreenCan

[GreenCan]

This is my last example for this topic before I get completely wacky...

The script requires some additional information:

CheetahRun3.au3 will display a Cheetah running and sometimes pausing around the monitor.

The script will first download _TigerWalk.au3 from my ftp site and start the script in parrallel. The downloaded script will display a walking tiger.

The script will start a new 'Interpreted' script and both will run together.

When quiting CheetahRun3.au3, _TigerWalk.au3 will also be stopped by ProcessClose.

If you don't want this, just modify line 26 as follows:

Global $bTiger = False

In this case the second script will not be downloaded.

see Post #1 for the download

By the way, I put most of my time to get these gifs right

GreenCan

Edited April 14, 2013 by GreenCan

[mesale0077]

hi

this

Global $hGui = GUICreate("Tiger Animation", $aGIFDimension[0], $aGIFDimension[1], -1000, -1, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))

change

Global $hGui = GUICreate("Tiger Animation", $aGIFDimension[0], $aGIFDimension[1], -1, -1, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))

Edited April 15, 2013 by mesale0077

[GreenCan]

Global $hGui = GUICreate("Tiger Animation", $aGIFDimension[0], $aGIFDimension[1], -1000, -1, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))

change

Global $hGui = GUICreate("Tiger Animation", $aGIFDimension[0], $aGIFDimension[1], -1, -1, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))

No,I don't think so.

Have you seen that the gif is shortly visible without background before it gets transparent?

Setting left position is a cosmetic decision, I build the GUI outside of the visible boundaries of the monitor and the next Winmove will re-position the GUI (with the transparent gif this time) to the correct place, which is not '-1,-1' anyway, so it doesn't matter.

GreenCan

[GreenCan]

Small bugfix

CheetahRun3.au3 ver 1.0.0.1 (Active window issue solved)

see Post #1 for the download

GreenCan

[GreenCan]

New complete example CheetahRun.au3 ver 1.0.1.0

OK, last week, I wrote that it would be my last example, let's say that this one is the last... muttley

This example is not only moving animals around your screen but you can capture (stop) these animals by clicking with your left mouse button on it.

see Post #1 for the download

GreenCan