AutoHotkey Community

[SKAN]

Dingbat Flipper 45L - A Memory and Concentration based Game.

Snapshot: DF45L_SS01.png 26.7Kb

The Game:
The GUI contains 36 pairs of identical Dingbats. You have to flip open each of them and find the pairs. Consecutive flips on an identical pair earns you them. The catch: No more than two Dingbats will be open at a given time. You have to fully rely on your memory and concentration to play this Game. To finish the game, you will have to find all the 36 pairs.


• Some of the Dingbats might look similar ( especially Monalisa ).
  
• The Game Timer stops if the GUI is not active ( or is Minimised ).
  Credit: It was adapted from an example given in the AHK Documentation : FormatTime
  
• F2 Reloads the Script.




Code:

Gui, +AlwaysOnTop Gui,Font,s28, Webdings Loop 36                               Ix:=A_Index, Ch.=Chr(158+Ix) "|" Chr(158+Ix) ((Ix<36) ? "|" : "") Sort,Ch,D| Random X:=10, Y:=10, R:=1, C:=1, Ix:=1 Loop,Parse,Ch,|                         {                            Gui,Add,Button,x%X% y%Y% w46 h46 vB%Ix% gMainProcedure                            X:=X+50, C:=C+1, Ix:=Ix+1                            If (C>9)                               R:=R+1, C:=1, Y:=Y+50, X:=10                         } Gui,Font,S8 Bold,Tahoma Gui,Margin,10,10 Gui,Add,StatusBar e:=SB_SetParts(75,75,250), CL:=0, FL:=0, A_Time:=SubStr(A_Now,1,8)  Gui,Show,,Dingbat Flipper 45L SetTimer,GameTimer,1000 Return ;                                                   [ End of Auto-Execute Section ] F2::ReLoad MainProcedure: ;                                                        [ Main Procedure ]   iNo:=Substr(A_GuiControl,2,2)   If (iNo!=S1 and iNo!=S2 and AR!=1) {   e:=GuiC(N,"B" iNo,GetF(Ch,iNo)),   S0:=S1, S1:=S2, S2:=iNo,     e:=GuiC(N,"B" S0), AR:=1   If ( GetF(Ch,S1) == GetF(Ch,S2) ) ;               == is used for case sensitive matching      e:=GuiC("Disable","B" S1),      e:=GuiC("Disable","B" S2),     S1:=0, S2:=0, FL:=FL+1   CL:=CL+1, AR:=0,     SB_SetText("`tClicks: " CL,1),   SB_SetText("`tFlips: " FL "/36",2)   IfEqual,FL,36, Gui,Show,,GAME OVER!       Press <F2> to play again } Return GameTimer: ;                                                                [ Game Timer ]   If (WinActive("Dingbat Flipper 45L") And CL>0) {   A_Time+=1,S   FormatTime,MMSS,%A_Time%,mm:ss   SB_SetText("`t" MMSS,4) } Return GetF(Str="",Fld=1)        { ;                                                   GetField()   Loop,Parse,Str,|     IfEqual,A_Index,%Fld%, Return,A_LoopField } GuiC(P1="",P2="",P3="")   { ;                                                 GuiControl()   GuiControl,%P1%, %P2%,%P3% } GuiClose:   ExitApp



If you have a Memory of GoldFish ( like me! ), you may try Auto-Solver which I wrote for debugging this game.

Thank you for trying this Game.

Edit1: Gui,Font,s28 Bold, Webdings changed to Gui,Font,s28, Webdings

[PhiLho]

I love this kind of game! Impressive that you made it with so little code (although you abused of the multiple expressions per line).
It is quite hard, you should allow add a little GUI to choose the size. Also changing the color of the icons might help too.
_________________
vPhiLho := RegExReplace("Philippe Lhoste", "^(\w{3})\w*\s+\b(\w{3})\w*$", "$1$2")

[SKAN]

[Rabiator]

@Skan
Your game is brilliant!
I tried out the solver, too, it works very well. Watching it radiates some mysticism, I'll need a closer look at the source.

__________________________________________
Created with BBCodeWriter 7.0 - the one and only

[SKAN]

Thanks for trying it Rabiator.

[Elevator_Hazard]

I'm on the linux computer, but it looks great! Beats mine by a lot, I used images; it never occurred to me that I could use that font instead of images (I only used 8 images because I got tired of extracting the icons from programs). And the only reason I really made it was to try and show my parents I'm not messing with stuff

Haven't tried it, I might when I'm not on linux, but it looks great, so does the code.
_________________
Changed siggy at request of ahklerner

[Titan]

Nice one. Why don't you make it show all the pics for a second or two at the beginning so we can use our memory instead of randomly clicking.
_________________

RegExReplace("irc.freenode.net/autohotkey", "^(?=(.(?=[\0-r\[]*((?<=\.).))))(?:[c-\x73]{2,8}(\S))+((2)|\b[^\2-]){2}\D++$", "$u3$1$3$4$2")

[PhiLho]

Well, this way, it is a bit like MineSweeper...

Side note: most Memory programs I played with hide the previous pair of card when flipping a new one. You choose to always have a pair of card displayed, which is a bit easier. It is an interesting variant.
_________________
vPhiLho := RegExReplace("Philippe Lhoste", "^(\w{3})\w*\s+\b(\w{3})\w*$", "$1$2")

[SKAN]

[Sean]

Hi Skan,

Looks great. One thing though.
If I understood it correctly, you used the portion (>158) of the extended characters (>127).
Then, I'm afraid it might not work for the systems using the double-byte character sets, i.e., CJK characters.
I don't know if there is other choices, though. I just thought better let you be aware of it.

[SKAN]

Dear Sean,

[Elevator_Hazard]

How? Because they just look like Verdana characters to me
_________________
Changed siggy at request of ahklerner

[PhiLho]

I am not too sure of who you answer, but if you see regular (accented?) letters instead of images, check that you have the Webdings characters installed on your computer. It should come with IE, IIRC, and it is available for free on Microsoft site.
I tried with Wingdings, but with similar clock faces, it is even harder! Wingdings 2 and Wingdings 3 are not better.
But you can explore the world of graphical fonts, I have one with cats, for example...
_________________
vPhiLho := RegExReplace("Philippe Lhoste", "^(\w{3})\w*\s+\b(\w{3})\w*$", "$1$2")

[Elevator_Hazard]

I have Webdings... Oh well I don't know I've also tried the Wingdings but to no avail...

Skan you should add this to the script listing on the autohotkey wiki page under game section.
_________________
Changed siggy at request of ahklerner

[SKAN]