AutoHotkey Community

RUNIE wrote:Prettiest and most functional version of tetris written in AHK I think there is! Ghost piece is awesome.

SKAN wrote:Awesome!

My score was like 4300 when my game ended and it simply began afresh... I couldn't see my final score.

SpeedMaster wrote:Beautiful.
Thanks for sharing !

Suggestion:
Please can you insert this tag [Game] as a prefix in your title ?
this will make the search easier

kczx3 wrote:12,900
Lines: 117

joefiesta wrote: ↑

27 May 2020, 19:16

interesting. but, many of the pieces are near impossible to see. they are too dark against the black background.

maestrith wrote: ↑

27 May 2020, 19:20

joefiesta wrote: ↑

27 May 2020, 19:16

interesting. but, many of the pieces are near impossible to see. they are too dark against the black background.

Yea, I just did random colors...

ColorARGB := "0xFF" ColorHLSToRGB(i > 240 ? mod(i, 240) : i, 120, 240)  ; i is an integer, e.g. A_Index

; Reference: https://docs.microsoft.com/en-us/windows/win32/api/shlwapi/nf-shlwapi-colorhlstorgb - ColorHLSToRGB function

ColorHLSToRGB(Hue, Luminance, Saturation) {
   BGR := DllCall("shlwapi.dll\ColorHLSToRGB", "UShort", Hue, "UShort", Luminance, "UShort", Saturation, "UInt")
   Return Format("{:06X}", ((BGR & 0xFF) << 16) | (BGR & 0xFF00) | ((BGR >> 16) & 0xFF))
}

joefiesta wrote: ↑

30 May 2020, 14:55

@iPhilip - what does your code have to do with Tetris? And, what does it do? The variables you define aren't used in the Tetris script.

joefiesta wrote: ↑

27 May 2020, 19:16

... but, many of the pieces are near impossible to see. they are too dark against the black background.

#NoEnv

Gui, Color, Black
Gui, Add, Progress, x100 y100 w100 h100 cBlue BackgroundBlack vMyProgress, 100
Gui, Show, w300 h300, Colors

Loop
{
   Random, Index, 0, 240
   Color := ColorHLSToRGB(Index, 120, 240)
   ; Random, Color, 222222, 999999  ; Uncomment to see current color scheme in Tetris
   GuiControl, % "+c" Color, MyProgress
   Sleep 1000
}

; Reference: https://docs.microsoft.com/en-us/windows/win32/api/shlwapi/nf-shlwapi-colorhlstorgb - ColorHLSToRGB function

ColorHLSToRGB(Hue, Luminance, Saturation) {
   BGR := DllCall("shlwapi.dll\ColorHLSToRGB", "UShort", Hue, "UShort", Luminance, "UShort", Saturation, "UInt")
   Return Format("{:06X}", ((BGR & 0xFF) << 16) | (BGR & 0xFF00) | ((BGR >> 16) & 0xFF))
}

GuiClose:
GuiEscape:
   ExitApp

joefiesta wrote: ↑

01 Jun 2020, 07:55

@iPhilip - Thanks. I didn't mean to be disrespectful. I thought you meant I could drop your code into Tetris. I'm sure I can figure out what you're doing and can figure out revising tetris on my own even though it is very complicated, what with so many objects and such I know little about. But, considering this forum entry got almost no interest, I suspect nobody even uses the script. So, I doubt the author has much concern at this point. He was probably just working on his game writing skills.

joefiesta wrote: ↑

01 Jun 2020, 07:55

@iPhilip - Thanks. I didn't mean to be disrespectful. I thought you meant I could drop your code into Tetris. I'm sure I can figure out what you're doing and can figure out revising tetris on my own even though it is very complicated, what with so many objects and such I know little about. But, considering this forum entry got almost no interest, I suspect nobody even uses the script. So, I doubt the author has much concern at this point. He was probably just working on his game writing skills.