« What's on your mind? » Topic is solved

[RijulAhuja]

Shubh Diwali @ smorgasboard, Rihul Ahuja, SKAN

Thanks! That was unexpected.

[tidbit]

Seems tomoe has her emote database on dropbox now

[joedf]

emote database???

[smorgasbord]

[joedf]

oh!!! emoticons!!
^_^ (゜o゜) (^_^)/ (^O^)／ (^o^)／ (^^)/ (≧∇≦)/ (^o^)丿 ∩( ・ω・)∩ ( ・ω・) ^ω^

http://en.wikipedia.org/wiki/List_of_emoticons

[smorgasbord]

@joedf
+1
you caught us off guard
foul play detected

[TLM]

http://www.youtube.com/watch?v=qBXrncdEifo
crazy new crypto ransom virus

[joedf]

woah.

[timeFlies]

Cookies!

Via BlackBerry Q10

[Alibaba]

Don't take the cookies.
They are infected with some crazy virus.

[joedf]

looks like you ate 10! put them back!

Don't take the cookies.
They are infected with some crazy virus.

Awwww!! crap...

[Alibaba]

@tomoe_uehara:

i found your snowfall script on the other forum:
http://www.autohotkey.com/board/topic/5 ... ade/page-2

I added a feature that generates a growing snow layer on the bottom of the desktop and a function to use it like a screensaver.
(it's compatible with rainbow mode and tidbit mode.)

Code: Select all

;You need the GDI+ Lib to run this script!
;#Include gdip.ahk

/* 
AutoHotkey Version: 1.x 
Language:   English 
Platform:   Win9x/NT 
Author:      tomoe_uehara 
Script Function: 
   Creates snowfall on your screen... 
Date of Creation: 
   18/12/2010 - 09:23:00 
Special Thanks; 
   Frankie (http://www.autohotkey.com/forum/viewtopic.php?t=66180)
History:
   Edited RainbowMode   19/12/2010 - 03:55:21
   Added tidbitMode     20/12/2010 - 17:24:50
*/ 


#NoEnv 
#SingleInstance, Force 
SendMode Input 
SetWorkingDir %A_ScriptDir% 
SetBatchLines, -1 
;-------------------[ Configurable Section ]--------------------- 
Total = 50            ; Object total (if aliMode = 1, this will also affect the growing speed of the snow layer)
XSpeedMin = -3.0 
YSpeedMin = 0.4 
XSpeedMax = 3.0
YSpeedMax = 2.0
SnowWidth = 10
SnowHeight = 10 
SnowColor = FFFFFF 
SnowOpacity = FF 
Rainbow = 0            ; Set to 0/1/2
tidbitMode = 1         ; Set to 0/1 (1=the bigger they are, the faster they fall)
tidbitMinSize = 2      ; Only works if tidbitMode = 1
tidbitMaxSize = 15     ; Only works if tidbitMode = 1
aliMode = 1            ; Set to 0/1 (1=snow flakes will create a growing snow layer on your desktops bottom)
aliLayerQuality = 100  ; Choose any integer. The higher this number, the better the layer will look.
screensaver = 0        ; Set to 0/1 (1=Program gets terminated on any user input)
;---------------------------------------------------------------- 

If !pToken := Gdip_Startup() 
{ 
   MsgBox, 48, gdiplus error!, Gdiplus failed to start. Please ensure you have gdiplus on your system 
   ExitApp 
} 
OnExit, Exit 

;aliMode variables
layercounter := 0
grow_layer := 0
growth_speed := (Total / 10000)
layer := 0
layers := Array()
layertile := (A_ScreenWidth / 25)
If tidbitMode
	layerMaxSize := (tidbitMaxSize * 1.5)
else
	layerMaxSize := (SnowHeight * 1.5)
layerheight := (layerMaxSize / -4)
moves := 0

If screensaver
{
	lastTIP := A_TimeIdlePhysical
	SetTimer, Check, 100
}

Width := A_ScreenWidth, Height := A_ScreenHeight 
Gui, 1: -Caption +E0x80000 +LastFound +OwnDialogs +Owner +AlwaysOnTop 
Gui, 1: Show, NA 
hwnd1 := WinExist() 
hbm := CreateDIBSection(Width, Height) 
hdc := CreateCompatibleDC() 
obm := SelectObject(hdc, hbm) 
G := Gdip_GraphicsFromHDC(hdc) 

Loop, %Total% 
{ 
Random, x%A_Index%, -100, %A_ScreenWidth% 
Random, y%A_Index%, % (-1 * A_ScreenHeight), -50
Gosub, SetSpeed 
} 
Gdip_SetSmoothingMode(G, 4) 
SetTimer, Move, 20

move: 
moves ++
Loop, %Total% 
{ 
if ((y%A_Index% >= A_ScreenHeight) or (aliMode and (y%A_Index% >= (A_ScreenHeight - layerheight)))) or (x%A_Index% >= A_ScreenWidth) 
{ 
if (y%A_Index% >= A_ScreenHeight)
	grow_layer := 1
Random, x%A_Index%, 1, %A_ScreenWidth% 
y%A_Index% := 1 
Gosub, SetSpeed
If Rainbow = 2
{
Gosub GetColor
Snow%A_Index% = 0x%SnowOpacity%%a1%%a2%%a3%
LayerColor%A_Index% = 0xFF%a1%%a2%%a3%
}

} 
} 
Gdip_GraphicsClear(G) 
Loop, %Total% 
{
x%A_Index% += x%A_Index%Speed 
y%A_Index% += y%A_Index%Speed 
If Rainbow = 0
{
Snow = 0x%SnowOpacity%%SnowColor% 
LayerColor = 0xFF%SnowColor% 
}
If Rainbow = 1 
{ 
Gosub GetColor
Snow = 0x%SnowOpacity%%a1%%a2%%a3%
LayerColor = 0xFF%a1%%a2%%a3%
}
If Rainbow = 2
pBrush := Gdip_BrushCreateSolid(Snow%A_Index%)   
else
pBrush := Gdip_BrushCreateSolid(Snow)
if tidbitMode = 1
SnowWidth := SnowHeight := Snow%A_Index%Size
Gdip_FillEllipse(G, pBrush, x%A_Index%, y%A_Index%, SnowWidth, SnowHeight) 
If (aliMode and grow_layer and (A_Index = Total))
{
	If Rainbow = 2
		pLayerBrush := Gdip_BrushCreateSolid(LayerColor%A_Index%)   
	else
		pLayerBrush := Gdip_BrushCreateSolid(LayerColor)
	layer := 1
	layerheight += growth_speed
	layer_y := A_ScreenHeight - layerheight
	Gdip_FillRectangle(G, pLayerBrush, 0, layer_y, A_ScreenWidth, layerheight)
	If (layercounter < aliLayerQuality)
	{
		layercounter ++
		Random, layertopsize, %tidbitMinSize%, %layerMaxSize%
		Random, rel_width, 5, 20
		Random, rel_xpos, 0, 24
		xpos := layertile * rel_xpos
		ypos := layer_y - (layertopsize / 2)
		layerwidth := layertile * (rel_width / 10)
		layers.Insert(Object("lts", layertopsize, "lw", layerwidth, "xpos", xpos, "ypos", ypos))
	}
	If layer
	{
		For index, object in layers
		{
			If (object["ypos"] < (A_ScreenHeight - layerheight))
			{
				Gdip_FillEllipse(G, pLayerBrush, object["xpos"], object["ypos"], object["lw"], object["lts"])
			}
			else
			{
				layercounter --
				layers.Remove(index)
			}
		}
	}
}
Gdip_DeleteBrush(pBrush) 
} 
UpdateLayeredWindow(hwnd1, hdc, 0, 0, Width, Height) 
return 

SetSpeed:
if tidbitMode = 0
{
Random, x%A_Index%Speed, XSpeedMin, XSpeedMax 
Random, y%A_Index%Speed, YSpeedMin, YSpeedMax 
}
if tidbitMode = 1
{
Random, Snow%A_Index%Size, %tidbitMinSize%, %tidbitMaxSize%
Random, x%A_Index%Speed, XSpeedMin, XSpeedMax
y%A_Index%Speed := Round((YSpeedMin+(Snow%A_Index%Size*((YSpeedMax-YSpeedMin)/((tidbitMaxSize-tidbitMinSize)+1))))/1.1,2)

}
return 

esc::        ; Press esc to exit 
Exit: 
SelectObject(hdc, obm) 
DeleteObject(hbm) 
DeleteDC(hdc) 
Gdip_DeleteGraphics(G) 
Gdip_Shutdown(pToken) 
ExitApp 
Return 

Color(N) {                ; Function borrowed from Wicked (http://www.autohotkey.com/forum/viewtopic.php?t=57368&postdays=0&postorder=asc&start=0) 
   SetFormat, Integer, Hex 
   N += 0 
   SetFormat, Integer, D 
   StringTrimLeft, N, N, 2 
   If(StrLen(N) < 2) 
      N = 0%N% 
   Return N 
}

GetColor:
max = 255
Random, aa, 1, 300
n := Round(255/50,0) 
if aa between 1 and 50 
{ 
a1 := Color(max) 
ab := aa*n 
a2 := Color(ab) 
a3 := Color(0) 
} 
if aa between 51 and 100 
{ 
a2 := Color(max) 
ab := (max-aa)*n 
a1 := Color(ab) 
a3 := Color(0) 
} 
if aa between 101 and 150 
{ 
a2 := Color(max) 
ab := (aa-100)*n 
a3 := Color(ab) 
a1 := Color(0) 
} 
if aa between 151 and 200 
{ 
a3 := Color(max) 
ab := (max-(aa-150))*n 
a2 := Color(ab) 
a1 := Color(0) 
} 
if aa between 201 and 250 
{ 
a3 := Color(max) 
ab := (aa-200)*n 
a1 := Color(ab) 
a2 := Color(0) 
} 
if aa between 251 and 300 
{ 
a1 := Color(max) 
ab := (max-(aa-250))*n 
a3 := Color(ab) 
a2 := Color(0) 
}
return

;screensaver function
Check:
IF (A_TimeIdlePhysical < lastTIP)
	ExitApp
lastTIP := A_TimeIdlePhysical
Return

How do you like it?

[tomoe_uehara]

Oh wow it's now even prettier than before, thanks Alibaba!
Actually I want to make the snow to grow on top of current active window and clear them when the window being dragged/inactive, but I don't know how

[nnnik]

Now I want real snow

[sTrolling]

Greek salad

[joedf]

it doesnt work for me... ive included gdip.ahk, but nothing... no errors appear..

[Alibaba]

it doesnt work for me... ive included gdip.ahk, but nothing... no errors appear..

[Alibaba]

Actually I want to make the snow to grow on top of current active window and clear them when the window being dragged/inactive, but I don't know how

It hink that's not impossible.
But what should happen, if you move a window with snow on its top?

[tomoe_uehara]

it doesnt work for me... ive included gdip.ahk, but nothing... no errors appear..

Have you put the gdip.ahk on your lib folder?

But what should happen, if you move a window with snow on its top?

The snow should be cleared or fall on the bottom

[joedf]

i copied gdip.ahk and pasted it directly into the script..
-------------------------------------------------------------------------------------------------------------------
EDIT: Whoops! i didnt realize! post #400!! yay!