Sign in to follow this  
Followers 0
Uriziel01

Diablo3 is comming ! :D ScreenSsaver :D

10 posts in this topic

#1 ·  Posted (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 ! :)

Posted Image

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 !

#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 :P

Edited by Uriziel01

Share this post


Link to post
Share on other sites



Very Nice!! Thanks!

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

@gesller

Thx for comment and testing muttley

@ReCoder

I hope you will like it :) I still cannot belive that D3 is already in making :(


Share this post


Link to post
Share on other sites

I still cannot belive that D3 is already in making muttley

Yeah, 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.

Share this post


Link to post
Share on other sites

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)

Share this post


Link to post
Share on other sites

@Synapse

Oh, This bug isnt visible at my PC muttley But thx for fixing it anyway :) !


Share this post


Link to post
Share on other sites

ur wellcome muttley

Share this post


Link to post
Share on other sites

ur wellcome :D

hello.

about your topic " Diablo3 is comming ! :D ScreenSsaver :D Im so happy that i have maded ScreenSaver :D " i want this files but their it was deleted form the webs

do you can upload it again?

THX

Share this post


Link to post
Share on other sites

Hi! :D

Blizzard has announced new DIABLO :D 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 ! :D

Posted Image

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 !

#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 :D

hello.

about your topic " Diablo3 is comming ! :ILA2: ScreenSsaver :) Im so happy that i have maded ScreenSaver :D " i want this files but their it was deleted form the webs

do you can upload it again?

THX

Share this post


Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0