Uriziel01 Posted July 3, 2008 Share Posted July 3, 2008 (edited) Hi! Blizzard has announced new DIABLO muttley Im so crazy happy that I have maded a ScreenSsaver witch Flash animation of Tyrael (from Blizzards main site) and nice music bg in .mp3. You can set the time to start working when IDLE(in seconds!) on the beggining of the script ! ;D Have a nice fun all DiAbLo maniacs ! Download Link:http://www.speedyshare.com/226256456.htmlor alternative download:http://rapidshare.de/files/39902208/D3_Ssaver.rar.html</a>Files contain one .au3 file, one .swf file and one .mp3 file,entire archiwe is about 3MB large !!!! THIS SOURCE CODE IS USELESS WITHOUT ONE OF FILES FROM LINK ON TOP!!! BIG THX FOR UDF FOR .SWF FILES USING ! WeaponX and ChrisL !expandcollapse popup#cs ---------------------------------------------------------------------------- AutoIt Version: 3.2.13.3 (beta) Author: Uriziel01 #ce ---------------------------------------------------------------------------- Global $time=300; THIS IS TIME IN SECONDS TO START SSAVER AFTER PC IS IDLE ! #Include <Misc.au3> #include <Sound.au3> #include <GUIConstants.au3> Opt("TrayIconHide", 1) $dll = DllOpen("user32.dll") global $started=0,$pos,$pos2 Func ssaver() $started=0 $sound = _SoundOpen(@ScriptDir&"\snd.mp3") _SoundPlay($sound) $gui=GUICreate("MY SWF SSAVER",@DesktopWidth,@DesktopHeight,-2,-32) GUISetBkColor("0x000000",$gui) GUISetState (@SW_SHOW) _CreateSWF(@ScriptDir&"\diablo.swf", 1, @DesktopHeight/5, @DesktopWidth,@DesktopHeight, "#000000") While 1 $pos = MouseGetPos() sleep(100) $pos2 = MouseGetPos() if abs($pos[0]-$pos2[0])>5 then ExitLoop if abs($pos[1]-$pos2[1])>5 then ExitLoop for $i=01 to 165 if _IsPressed(hex($i,2),$dll) then ExitLoop Next Wend guidelete($gui) _SoundClose($sound) EndFunc Do $pos = MouseGetPos() sleep(50) $pos2 = MouseGetPos() if $started=0 Then $timer=TimerInit() $started=1 endif if abs($pos[0]-$pos2[0])>1 then $timer=TimerInit() if abs($pos[1]-$pos2[1])>1 then $timer=TimerInit() for $i=01 to 165 if _IsPressed(hex($i,2),$dll) then $timer=TimerInit() Next if TimerDiff($timer)/1000 > $time then $timer=0 ssaver() $timer=0 endif until 1=2 Func _CreateSWF($SWFPath, $SWFL, $SWFT, $SWFW, $SWFH, $SWFBGColor = "#505050") $SWFObj = ObjCreate("ShockwaveFlash.ShockwaveFlash") $SWFActiveX = GUICtrlCreateObj( $SWFObj, $SWFL, $SWFT, $SWFW, $SWFH) With $SWFObj .Movie = $SWFPath .ScaleMode = 3 .bgcolor = $SWFBGColor .Loop = True .allowScriptAccess = "Always" EndWith Return $SWFObj EndFuncp.s-all maded in 12 minutes Edited July 3, 2008 by Uriziel01 Link to comment Share on other sites More sharing options...
gseller Posted July 3, 2008 Share Posted July 3, 2008 Very Nice!! Thanks! Link to comment Share on other sites More sharing options...
ReCoder Posted July 3, 2008 Share Posted July 3, 2008 woooow Diablo III - that's amazing. I'm at work and I can't test your script now. But I will do when I'm at home. Link to comment Share on other sites More sharing options...
Uriziel01 Posted July 3, 2008 Author Share Posted July 3, 2008 @gesller Thx for comment and testing muttley @ReCoder I hope you will like it I still cannot belive that D3 is already in making Link to comment Share on other sites More sharing options...
HeffeD Posted July 4, 2008 Share Posted July 4, 2008 I still cannot belive that D3 is already in making muttleyYeah, but it's going to be a few years before it's released... It hasn't even reached alpha testing stages yet. Merely a very limited demo put together for the announcement. In other words, it has a long way to go. Link to comment Share on other sites More sharing options...
Synapse Posted July 4, 2008 Share Posted July 4, 2008 I fixed the height and the width of the gui....it hides the left and bottom lines that were showed muttley anyway nice idea!! Change the gui H and W into this: $gui=GUICreate("MY SWF SSAVER",@DesktopWidth+10,@DesktopHeight+32,-10,-32) Link to comment Share on other sites More sharing options...
Uriziel01 Posted July 5, 2008 Author Share Posted July 5, 2008 @Synapse Oh, This bug isnt visible at my PC muttley But thx for fixing it anyway ! Link to comment Share on other sites More sharing options...
Synapse Posted July 5, 2008 Share Posted July 5, 2008 ur wellcome muttley Link to comment Share on other sites More sharing options...
gattsu Posted September 18, 2009 Share Posted September 18, 2009 ur wellcome hello.about your topic " Diablo3 is comming ! ScreenSsaver Im so happy that i have maded ScreenSaver " i want this files but their it was deleted form the websdo you can upload it again?THX Link to comment Share on other sites More sharing options...
gattsu Posted September 18, 2009 Share Posted September 18, 2009 Hi! Blizzard has announced new DIABLO Im so crazy happy that I have maded a ScreenSsaver witch Flash animation of Tyrael (from Blizzards main site) and nice music bg in .mp3. You can set the time to start working when IDLE(in seconds!) on the beggining of the script ! ;D Have a nice fun all DiAbLo maniacs ! Download Link:http://www.speedyshare.com/226256456.html or alternative download:http://rapidshare.de/files/39902208/D3_Ssaver.rar.html</a> Files contain one .au3 file, one .swf file and one .mp3 file,entire archiwe is about 3MB large ! !!! THIS SOURCE CODE IS USELESS WITHOUT ONE OF FILES FROM LINK ON TOP!!! BIG THX FOR UDF FOR .SWF FILES USING ! WeaponX and ChrisL ! expandcollapse popup#cs ---------------------------------------------------------------------------- AutoIt Version: 3.2.13.3 (beta) Author: Uriziel01 #ce ---------------------------------------------------------------------------- Global $time=300; THIS IS TIME IN SECONDS TO START SSAVER AFTER PC IS IDLE ! #Include <Misc.au3> #include <Sound.au3> #include <GUIConstants.au3> Opt("TrayIconHide", 1) $dll = DllOpen("user32.dll") global $started=0,$pos,$pos2 Func ssaver() $started=0 $sound = _SoundOpen(@ScriptDir&"\snd.mp3") _SoundPlay($sound) $gui=GUICreate("MY SWF SSAVER",@DesktopWidth,@DesktopHeight,-2,-32) GUISetBkColor("0x000000",$gui) GUISetState (@SW_SHOW) _CreateSWF(@ScriptDir&"\diablo.swf", 1, @DesktopHeight/5, @DesktopWidth,@DesktopHeight, "#000000") While 1 $pos = MouseGetPos() sleep(100) $pos2 = MouseGetPos() if abs($pos[0]-$pos2[0])>5 then ExitLoop if abs($pos[1]-$pos2[1])>5 then ExitLoop for $i=01 to 165 if _IsPressed(hex($i,2),$dll) then ExitLoop Next Wend guidelete($gui) _SoundClose($sound) EndFunc Do $pos = MouseGetPos() sleep(50) $pos2 = MouseGetPos() if $started=0 Then $timer=TimerInit() $started=1 endif if abs($pos[0]-$pos2[0])>1 then $timer=TimerInit() if abs($pos[1]-$pos2[1])>1 then $timer=TimerInit() for $i=01 to 165 if _IsPressed(hex($i,2),$dll) then $timer=TimerInit() Next if TimerDiff($timer)/1000 > $time then $timer=0 ssaver() $timer=0 endif until 1=2 Func _CreateSWF($SWFPath, $SWFL, $SWFT, $SWFW, $SWFH, $SWFBGColor = "#505050") $SWFObj = ObjCreate("ShockwaveFlash.ShockwaveFlash") $SWFActiveX = GUICtrlCreateObj( $SWFObj, $SWFL, $SWFT, $SWFW, $SWFH) With $SWFObj .Movie = $SWFPath .ScaleMode = 3 .bgcolor = $SWFBGColor .Loop = True .allowScriptAccess = "Always" EndWith Return $SWFObj EndFunc p.s-all maded in 12 minutes hello. about your topic " Diablo3 is comming ! ScreenSsaver Im so happy that i have maded ScreenSaver " i want this files but their it was deleted form the webs do you can upload it again? THX Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now