XProfan

Fenêtre Style 512+16:Fenêtre 200,100 - 390,241:Déclarer ib&[35,3],im%,s%,i%,t%,b%,r%,z%,sf%,ai%,at%,AR%,wz%,qp$,fm%,fr!,kt%,wt$,ti%
wt$=" JörgG's 4k-SystemMemory -- Klick toi fit...  ":Titre de la fenêtre wt$:Def GetSysColor(1) !"User32","GetSysColor":sf% = GetSysColor(15)

Proc tb

    s%=5:z%=5:t%=1:ib&[0,1]=Créer("hIcon",Par$(0),0)

    WhileLoop 1,at%:ib&[&loop]=Créer("IconButton",%hwnd,ib&[0,1],s%,z%,50,50):ib&[&loop,2]=s%+7:ib&[&loop,3]=z%+7:Inc t%:Si t%>ar%:t%=1:s%=5:Inc z%,52:D'autre:Inc s%,52:EndIf:Endwhile

        ib&[27]=Créer("Button",%hwnd,"Neu",325,170,55,40):ib&[34]=Créer("text",%hwnd,»,337,145,43,25)

    ENDPROC

    Proc level

        var f$="$400080":Cls sf%:MAT ib&[]=1
        ib&[26]=Créer("Button",%hwnd,"Ende",325,5,55,20):ib&[28]=Créer(Bouton Radio ",%hwnd,"16x",325,146,55,20):ib&[29]=Créer(Bouton Radio ",%hwnd,"20x",325,166,55,20)
        ib&[30]=Créer(Bouton Radio ",%hwnd,"24x",325,186,55,20):ib&[31]=Créer("text",%hwnd,"Anzeigedauer chez ungleichen Pärchen:",50,43,265,25)
        ib&[32]=Créer("choicebox",%hwnd,1,310,35,70,90):@AddStrings(ib&[32],"0.5 sek"):AddStrings(ib&[32],"1.0 sek"):AddStrings(ib&[32],"1.5 sek"):Sélectionnez String(ib&[32],-1,"1.0 sek")
        ib&[34]=Créer("text",%hwnd,"Zeitlimit dans Sekunden pro Runde mettons:",38,105,265,25)
        ib&[35]=Créer("choicebox",%hwnd,0,310,105,70,110):AddStrings(ib&[35],"kein's"):WhileLoop 15,180,15:AddStrings(ib&[35],Str$(&loop)):Endwhile:Sélectionnez String(ib&[35],-1,"kein's")
        Couleur du texte $00FF,-1:DrawText 50,145,"Mit welchem Level":DrawText 50,170,"möchtest du spielen?":SetTimer 10

        Tandis que 1

            WaitInput
            cas (Clicked(ib&[28])) Or (Clicked(ib&[29])) Or (Clicked(ib&[30])):BREAK

            Si Clicked(ib&[26]):KillTimer:Fin:EndIf

                Inc ai%,30:usepen 0,3,f$:Line ai%,80-ai%,83:Si ai%>330:ai%=0:Si f$="$400080":f$="$FF":D'autre:f$="$400080":EndIf:EndIf

            Endwhile

            Si GetCheck(ib&[28])=1:ai%=8:at%=16:AR%=4:ElseIf GetCheck(ib&[29])=1:ai%=10:at%=20:AR%=5:D'autre:ai%=12:at%=24:AR%=6:EndIf

                wz%=GetCurSel(ib&[32]):Si wz%=0:wz%=500:elseif wz%=1:wz%=1000:D'autre:wz%=1500:EndIf
                fm%=GetCurSel(ib&[35]):Si fm%=0:fm%=301:D'autre:fm%=fm%*15:Titre de la fenêtre wt$+"--  Zeitlimit: "+Str$(fm%)+" Sek":EndIf:fr!=fm%
                KillTimer:DestroyWindow(ib&[31]):DestroyWindow(ib&[32]):DestroyWindow(ib&[33]):DestroyWindow(ib&[34]):DestroyWindow(ib&[35])
                ShowWindow(ib&[28],0):ShowWindow(ib&[29],0):ShowWindow(ib&[30],0)

            ENDPROC

            Proc récente

                Déclarer h%[im%]:WhileLoop 1,at%:ShowWindow(ib&[&loop],1):DeleteObject ib&[&loop,1]:ib&[&loop,1]=1:Endwhile:cls sf%:s%=0:Randomiser

                Tandis que s%<ai%:t%=Tour(im%)+1:si h%[t%]=0:h%[t%]=Créer("hIcon",qp$,t%):Inc s%:z%=0:Tandis que z%<2:i%=Tour(at%)+1:Si ib&[i%,1]=1:ib&[i%,1]=h%[t%]:Inc z%:EndIf:Endwhile:EndIf:Endwhile:s%=0:t%=0:r%=0:anz:Play 75;80,16,1:Si fm%<301:SetTimer 500:kt%=1:EndIf:fr!=fm%

                ENDPROC

                Proc ausgabe

                    Paramètres ix%:ShowWindow(ib&[ix%],0):DrawIcon ib&[ix%,1],ib&[ix%,2],ib&[ix%,3]:Si s%=0:i%=ix%:inc s%:D'autre:Si ib&[ix%,1]<>ib&[i%,1]:sleep wz%:ShowWindow(ib&[ix%],1):ShowWindow(ib&[i%],1)

                    Si fr!<301:fr!=fr!-wz%/1000:ti%=%wmtimer:SetTimer 500:EndIf:D'autre:Inc r%:EndIf:s%=0:EndIf

                        Si r%=ai%:Play 19;19;19,-1,0:Play 25;27;29,0,0:Si fm%<301:KillTimer:kt%=0:Couleur du texte $400080,-1:DrawText 330,110,Str$(fm%-fr!)+ "s":EndIf:sleep 1000:Play -25;-27;-29,0,0:Si (b% > t%) Or (b% = 0):MUSIC "C#2 F-8 G4.":b%=t%:anz:EndIf:EndIf

                        ENDPROC

                        Proc anz

                            rectangle 325,32-380,97:Couleur du texte $00FF,-1:DrawText 335,33,Str$(b%):Couleur du texte $8000,-1:DrawText 335,68,Str$(t%)

                        ENDPROC

                        qp$=$syspath+"\\shell32.dll":im%=@IconCount(qp$)-1:UseFont "courier new",30,12,1,0,0:set("NumWidth",3):set("Décimal",0):level:usepen 0,0,$FF0000:tb:récente:b%=0

                        Tandis que 1

                            WaitInput

                            Si %wmtimer:fr!=fr!-.5:SetText ib&[34],Str$(fr!):Si fr!<.5:Play 29;35,2,1:MessageBox("Die Zeit pour qui neue Runde fonctionne, sobald du OK drückst...","Schade - qui "+Str$(fm%)+" Sek sommes malheureusement abgelaufen...",262640):SetFocus((ib&[27])):récente:EndIf

                            ElseIf Clicked(ib&[26]):WhileLoop 0,at%:DeleteObject ib&[&loop,1]:Endwhile:Cas kt%=1:KillTimer:end:ElseIf Clicked(ib&[27]):récente:Endif

                                WhileLoop 1,at%:Si %getfocus=ib&[&loop]:Inc t%:anz:ausgabe &loop:BREAK:EndIf:Endwhile:Endwhile