English
Forum

verbesserungsvorschläge

 

diimool25

CompileMarkSeparation
Declare button_ende%, button_löschen%,Rahmen%[10], text%[10],RadionButton%[50], Ende%, Knopf%, time%, i% ,  button_weiter1%, Richtige_antworten% , f% , Richtige% ,  button_geschichte% , button_erde%
Declare button_auswerten1% , button_auswerten2% , button_auswerten3%
Declare komma_zahlen!, preise!
Declare text$
'x = richtig

Proc hauptprogramm_skin

    Knopf% = @MessageBox ("Willst Du das Quiz starten?", "",292)

    if knopf% = 6

    else

        end

    endif

    window 0,0 - %maxx,%maxy
    UseBrush 5,@RGB(30,30 ,255)
    UsePen 2,50,@RGB(0,0,0)
    Rectangle 0,0 - %maxx-20, %maxy-100
    Fill 0, 1000, @RGB(0,0,31)
    button_ende% = @Create("Button",%HWnd,"E N D E", %maxx -180,%maxy - 180,145,50)
    button_löschen% = @Create("Button",%HWnd,"Löschen", %maxx -330,%maxy - 180, 150,50)
    button_weiter1% = @Create("Button",%HWnd,"Allgemein", 50,%maxy - 180, 150,50)
    button_geschichte% = @Create("Button",%HWnd,"Geschichte", 200,%maxy - 180, 150,50)
    button_erde% = @Create("Button",%HWnd,"Erdkunde", 350,%maxy - 180, 150,50)
    button_auswerten1% = @Create("Button",%HWnd,"Auswerten", 90,%maxy - 130, 80,20)
    button_auswerten2% = @Create("Button",%HWnd,"Auswerten", 230,%maxy - 130, 80,20)
    button_auswerten3% = @Create("Button",%HWnd,"Auswerten", 380,%maxy - 130, 80,20)
    Rahmen%[1] = @Create("GroupBox",%HWnd,"",20,10,800,250)
    Rahmen%[2] = @Create("GroupBox",%HWnd,"",20,300,800,250)
    Rahmen%[3] = @Create("GroupBox",%HWnd,"",20,600,800,250)
    Rahmen%[4] = @Create("GroupBox",%HWnd,"",900,10,800,250)
    Rahmen%[5] = @Create("GroupBox",%HWnd,"",900,300,800,250)
    Rahmen%[6] = @Create("GroupBox",%HWnd,"",900,600,800,250)
    RadionButton%[1] = @Create("RadioButton",Rahmen%[1],"",10,75,500,18)
    RadionButton%[2] = @Create("RadioButton",Rahmen%[1],"",10,110,500,18)
    RadionButton%[3] = @Create("RadioButton",Rahmen%[1],"",10,145,500,18)'x
    RadionButton%[4] = @Create("RadioButton",Rahmen%[2],"",10,50,500,18)
    RadionButton%[5] = @Create("RadioButton",Rahmen%[2],"",10,90,500,18)
    RadionButton%[6] = @Create("RadioButton",Rahmen%[2],"",10,130,500,18)'x
    RadionButton%[7] = @Create("RadioButton",Rahmen%[3],"",10,50,500,18)
    RadionButton%[8] = @Create("RadioButton",Rahmen%[3],"",10,90,500,18)'x
    RadionButton%[9] = @Create("RadioButton",Rahmen%[3],"",10,130,500,18)
    RadionButton%[10] = @Create("RadioButton",Rahmen%[4],"",10,50,500,18)'x
    RadionButton%[11] = @Create("RadioButton",Rahmen%[4],"",10,90,500,18)
    RadionButton%[12] = @Create("RadioButton",Rahmen%[4],"",10,130,500,18)
    RadionButton%[13] = @Create("RadioButton",Rahmen%[5],"",10,50,500,18)
    RadionButton%[14] = @Create("RadioButton",Rahmen%[5],"",10,90,500,18)
    RadionButton%[15] = @Create("RadioButton",Rahmen%[5],"",10,130,500,18)
    RadionButton%[16] = @Create("RadioButton",Rahmen%[6],"",10,50,500,18)
    RadionButton%[17] = @Create("RadioButton",Rahmen%[6],"",10,90,500,18)
    RadionButton%[18] = @Create("RadioButton",Rahmen%[6],"",10,130,500,18)

Endproc

proc geschichte

    WhileLoop  18

        EnableWindow RadionButton%[&LOOP], 1
        SetCheck RadionButton%[&LOOP], 0
        EnableWindow Rahmen%[1], 1
        EnableWindow Rahmen%[2], 1
        EnableWindow Rahmen%[3], 1
        EnableWindow Rahmen%[4], 1
        EnableWindow Rahmen%[5], 1
        EnableWindow Rahmen%[6], 1

    EndWhile

    Settext Rahmen%[1] , "1)Wo beschlossen die vier Siegermächte des Zweiten Weltkrieges, Deutschland in vier Besatzungszonen aufzuteilen?"
    Settext Rahmen%[2] , "2)Wann wurde die DDR offiziell gegründet??"
    Settext Rahmen%[3] , "3)Wie kam es zu Ulbrichts berühmtem Satz ''Niemand hat die Absicht, eine Mauer zu bauen''?"
    Settext Rahmen%[4] , "4)Mit welchem Begriff bezeichnete die DDR die Mauer?"
    Settext Rahmen%[5] , "5)Wie viele Menschen flohen 1961 noch kurz vor dem Mauerbau?"
    Settext Rahmen%[6] , "6)Über welche Länge erstreckte sich die Berliner Mauer?"
    Settext RadionButton%[1] , "Auf der Potsdamer Konferenz"
    Settext RadionButton%[2] , "Auf der Casablanca-Konferenz"
    Settext RadionButton%[3] , "Auf der Konferenz von Jalta"'x
    Settext RadionButton%[4] , "7. Oktober 1949"
    Settext RadionButton%[5] , "3. Oktober 1919"
    Settext RadionButton%[6] , "23. Mai 1949"'x
    Settext RadionButton%[7] , "Ulbricht sagte den Satz im Rahmen einer Rede"
    Settext RadionButton%[8] , "Er war die Antwort auf eine Frage in einer Pressekonferenz"'x
    Settext RadionButton%[9] , "Er stammt aus einem Brief an den damaligen Bundeskanzler"
    Settext RadionButton%[10] , "Antifaschistischer Schutzwall"'x
    Settext RadionButton%[11] , "Antiföderalistischer Schutzwall"
    Settext RadionButton%[12] , "Antikapitalistischer Schutzwall"
    Settext RadionButton%[13] , "Unter 100.000"
    Settext RadionButton%[14] , "Mehr als 300.000"
    Settext RadionButton%[15] , "Mehr als 200.000"'x
    Settext RadionButton%[16] , "70 Km"
    Settext RadionButton%[17] , "270 Km"
    Settext RadionButton%[18] , "170Km"'x
    count2

endproc

proc Allgemein

    WhileLoop  18

        EnableWindow RadionButton%[&LOOP], 1
        SetCheck RadionButton%[&LOOP], 0
        EnableWindow Rahmen%[1], 1
        EnableWindow Rahmen%[2], 1
        EnableWindow Rahmen%[3], 1
        EnableWindow Rahmen%[4], 1
        EnableWindow Rahmen%[5], 1
        EnableWindow Rahmen%[6], 1

    EndWhile

    Settext Rahmen%[1] , "1. Zum Aufwärmen: Welches Fitnessangebot findet sich heute in vielen Studios?"
    Settext Rahmen%[2] , "2. Wem wird das Bundesverdienstkreuz bei Amtsantritt verliehen?"
    Settext Rahmen%[3] , "3. Wie viel Kakaobutter ist in etwa 100 g weißer Schokolade enthalten?"
    Settext Rahmen%[4] , "4. Was ist ein ''Undercut''?"
    Settext Rahmen%[5] , "5. In welchem Ort schuf der Geigenbauer Antonio Stradivari seine wertvollen Instrumente?"
    Settext Rahmen%[6] , "6. Was berechnet der Pearl-Index?"
    Settext RadionButton%[1] , "Samba"
    Settext RadionButton%[2] , "Zumba"'x
    Settext RadionButton%[3] , "Sumba"
    Settext RadionButton%[4] , "dem Bundestagspräsidenten"
    Settext RadionButton%[5] , "dem Bundespräsidenten"'x
    Settext RadionButton%[6] , "dem Bundeskanzler"
    Settext RadionButton%[7] , "0 g"
    Settext RadionButton%[8] , "28 g"'x
    Settext RadionButton%[9] , "38 g"
    Settext RadionButton%[10] , "eine Methode des Buchsbaumtrimmens"
    Settext RadionButton%[11] , "ein Haarschnitt"'x
    Settext RadionButton%[12] , "eine Operationsmethode"
    Settext RadionButton%[13] , "Rom"
    Settext RadionButton%[14] , "Cremona"'x
    Settext RadionButton%[15] , "Pisa"
    Settext RadionButton%[16] , "den Wert von Zuchtperlen"
    Settext RadionButton%[17] , "die Sicherheit von Empfängnisverhütungsmethoden"'x
    Settext RadionButton%[18] , "die Lautstärke eines Schlagzeugs"
    count

endproc

proc erdkunde

    WhileLoop  18

        EnableWindow RadionButton%[&LOOP], 1
        SetCheck RadionButton%[&LOOP], 0
        EnableWindow Rahmen%[1], 1
        EnableWindow Rahmen%[2], 1
        EnableWindow Rahmen%[3], 1
        EnableWindow Rahmen%[4], 1
        EnableWindow Rahmen%[5], 1
        EnableWindow Rahmen%[6], 1

    EndWhile

    Settext Rahmen%[1] , "1) Welche US-amerikanische Stadt trägt den Beinamen ''Big Apple'' ?"
    Settext Rahmen%[2] , "2)Wie nennt man diejenige der Gezeiten, bei der das Wasser sich zurückzieht?"
    Settext Rahmen%[3] , "3) An welchem Fluss liegt München?"
    Settext Rahmen%[4] , "4)Wie nennt man den verzweigten Mündungsbereich eines Flusses??"
    Settext Rahmen%[5] , "5)Wie heißt die Insel Ceylon heute?"
    Settext Rahmen%[6] , "6) Wie heißt der Stoff, der flüssig aus einem Vulkan tritt?"
    Settext RadionButton%[1] , "Dallas "
    Settext RadionButton%[2] , "New York "'x
    Settext RadionButton%[3] , "Los Angeles "
    Settext RadionButton%[4] , "Elba "
    Settext RadionButton%[5] , "Erle "
    Settext RadionButton%[6] , "Ebbe"'x
    Settext RadionButton%[7] , "Neckar"
    Settext RadionButton%[8] , "Pegnitz "
    Settext RadionButton%[9] , "Isar "'x
    Settext RadionButton%[10] , "Einfluss "
    Settext RadionButton%[11] , "Einströmgebiet "
    Settext RadionButton%[12] , "Delta "'x
    Settext RadionButton%[13] , "Goa "
    Settext RadionButton%[14] , "Srinagar "
    Settext RadionButton%[15] , "Sri Lanka "'x
    Settext RadionButton%[16] , "Lama "
    Settext RadionButton%[17] , "Lava "'x
    Settext RadionButton%[18] , "Lada"
    count3

endproc

proc count

    Set("Decimals",1)
    var time%=&GetTickCount
    var text&=Create("Text",%hwnd,"", 850,%maxy - 180,120,20)

    while @xor(&GetTickCount-time%<60000, @getfocus(button_auswerten1%))

        Case &GetTickCount-time%<60000 : Settext text&,Str$((60000-(&GetTickCount-time%))/1000) + "  Sekunden"

    Endwhile

    EnableWindow Rahmen%[1], 0
    EnableWindow Rahmen%[2], 0
    EnableWindow Rahmen%[3], 0
    EnableWindow Rahmen%[4], 0
    EnableWindow Rahmen%[5], 0
    EnableWindow Rahmen%[6], 0
    auswerten1

Endproc

proc count2

    Set("Decimals",1)
    var time%=&GetTickCount
    var text&=Create("Text",%hwnd,"", 850,%maxy - 180,120,20)

    while @xor(&GetTickCount-time%<60000, @getfocus(button_auswerten2%))

        Case &GetTickCount-time%<60000 : Settext text&,Str$((60000-(&GetTickCount-time%))/1000) + "  Sekunden"

    Endwhile

    EnableWindow Rahmen%[1], 0
    EnableWindow Rahmen%[2], 0
    EnableWindow Rahmen%[3], 0
    EnableWindow Rahmen%[4], 0
    EnableWindow Rahmen%[5], 0
    EnableWindow Rahmen%[6], 0
    auswerten2

Endproc

proc count3

    Set("Decimals",1)
    var time%=&GetTickCount
    var text&=Create("Text",%hwnd,"", 850,%maxy - 180,120,20)

    while @xor(&GetTickCount-time%<60000, @getfocus(button_auswerten3%))

        Case &GetTickCount-time%<60000 : Settext text&,Str$((60000-(&GetTickCount-time%))/1000) + "  Sekunden"

    Endwhile

    EnableWindow Rahmen%[1], 0
    EnableWindow Rahmen%[2], 0
    EnableWindow Rahmen%[3], 0
    EnableWindow Rahmen%[4], 0
    EnableWindow Rahmen%[5], 0
    EnableWindow Rahmen%[6], 0
    auswerten3

Endproc

proc auswerten1

    If GetCheck(RadionButton%[2]) = 1

        EnableWindow RadionButton%[1], 0
        EnableWindow RadionButton%[3], 0

    EndIf

    If GetCheck(RadionButton%[5]) = 1

        EnableWindow RadionButton%[4], 0
        EnableWindow RadionButton%[6], 0

    EndIf

    If GetCheck(RadionButton%[8]) = 1

        EnableWindow RadionButton%[7], 0
        EnableWindow RadionButton%[9], 0

    EndIf

    If GetCheck(RadionButton%[11]) = 1

        EnableWindow RadionButton%[10], 0
        EnableWindow RadionButton%[12], 0

    EndIf

    If GetCheck(RadionButton%[14]) = 1

        EnableWindow RadionButton%[13], 0
        EnableWindow RadionButton%[15], 0

    EndIf

    If GetCheck(RadionButton%[17]) = 1

        EnableWindow RadionButton%[16], 0
        EnableWindow RadionButton%[18], 0

    EndIf

    Richtige% = 0

    If GetCheck(RadionButton%[2]) , (Richtige% + 1)

        Inc Richtige%

    EndIf

    If GetCheck(RadionButton%[5]) , (Richtige% + 1)

        Inc Richtige%

    EndIf

    If GetCheck(RadionButton%[8]) , (Richtige% + 1)

        Inc Richtige%

    EndIf

    If GetCheck(RadionButton%[11]) , (Richtige% + 1)

        Inc Richtige%

    EndIf

    If GetCheck(RadionButton%[14]) , (Richtige% + 1)

        Inc Richtige%

    EndIf

    If GetCheck(RadionButton%[17]) , (Richtige% + 1)

        Inc Richtige%

    EndIf

    If Richtige% = 0

        @MessageBox("Du hast 0 von 6 richtig !","", 0)

    endif

    If Richtige% = 1

        @MessageBox("Du hast 1 von 6 richtig !","", 0)

    endif

    If Richtige% = 2

        @MessageBox("Du hast 2 von 6 richtig !","", 0)

    endif

    If Richtige% = 3

        @MessageBox("Du hast 3 von 6 richtig !","", 0)

    endif

    If Richtige% = 4

        @MessageBox("Du hast 4 von 6 richtig !","", 0)

    endif

    If Richtige% = 5

        @MessageBox("Du hast 5 von 6 richtig !","", 0)

    endif

    If Richtige% = 6

        @MessageBox("Du hast 6 von 6 richtig !","", 0)

    endif

endproc

proc auswerten2

    Richtige% = 0

    If GetCheck(RadionButton%[3]) = 1

        EnableWindow RadionButton%[1], 0
        EnableWindow RadionButton%[2], 0

    EndIf

    If GetCheck(RadionButton%[6]) = 1

        EnableWindow RadionButton%[4], 0
        EnableWindow RadionButton%[5], 0

    EndIf

    If GetCheck(RadionButton%[8]) = 1

        EnableWindow RadionButton%[7], 0
        EnableWindow RadionButton%[9], 0

    EndIf

    If GetCheck(RadionButton%[10]) = 1

        EnableWindow RadionButton%[11], 0
        EnableWindow RadionButton%[12], 0

    EndIf

    If GetCheck(RadionButton%[15]) = 1

        EnableWindow RadionButton%[13], 0
        EnableWindow RadionButton%[14], 0

    EndIf

    If GetCheck(RadionButton%[18]) = 1

        EnableWindow RadionButton%[16], 0
        EnableWindow RadionButton%[17], 0

    EndIf

    If GetCheck(RadionButton%[3]) , (Richtige% + 1)

        Inc Richtige%

    EndIf

    If GetCheck(RadionButton%[6]) , (Richtige% + 1)

        Inc Richtige%

    EndIf

    If GetCheck(RadionButton%[8]) , (Richtige% + 1)

        Inc Richtige%

    EndIf

    If GetCheck(RadionButton%[10]) , (Richtige% + 1)

        Inc Richtige%

    EndIf

    If GetCheck(RadionButton%[15]) , (Richtige% + 1)

        Inc Richtige%

    EndIf

    If GetCheck(RadionButton%[18]) , (Richtige% + 1)

        Inc Richtige%

    EndIf

    If Richtige% = 0

        @MessageBox("Du hast 0 von 6 richtig !","", 0)

    endif

    If Richtige% = 1

        @MessageBox("Du hast 1 von 6 richtig !","", 0)

    endif

    If Richtige% = 2

        @MessageBox("Du hast 2 von 6 richtig !","", 0)

    endif

    If Richtige% = 3

        @MessageBox("Du hast 3 von 6 richtig !","", 0)

    endif

    If Richtige% = 4

        @MessageBox("Du hast 4 von 6 richtig !","", 0)

    endif

    If Richtige% = 5

        @MessageBox("Du hast 5 von 6 richtig !","", 0)

    endif

    If Richtige% = 6

        @MessageBox("Du hast 6 von 6 richtig !","", 0)

    endif

endproc

proc auswerten3

    Richtige% = 0

    If GetCheck(RadionButton%[2]) = 1

        EnableWindow RadionButton%[1], 0
        EnableWindow RadionButton%[3], 0

    EndIf

    If GetCheck(RadionButton%[6]) = 1

        EnableWindow RadionButton%[4], 0
        EnableWindow RadionButton%[5], 0

    EndIf

    If GetCheck(RadionButton%[9]) = 1

        EnableWindow RadionButton%[7], 0
        EnableWindow RadionButton%[8], 0

    EndIf

    If GetCheck(RadionButton%[12]) = 1

        EnableWindow RadionButton%[11], 0
        EnableWindow RadionButton%[10], 0

    EndIf

    If GetCheck(RadionButton%[15]) = 1

        EnableWindow RadionButton%[13], 0
        EnableWindow RadionButton%[14], 0

    EndIf

    If GetCheck(RadionButton%[17]) = 1

        EnableWindow RadionButton%[16], 0
        EnableWindow RadionButton%[18], 0

    EndIf

    If GetCheck(RadionButton%[2]) , (Richtige% + 1)

        Inc Richtige%

    EndIf

    If GetCheck(RadionButton%[6]) , (Richtige% + 1)

        Inc Richtige%

    EndIf

    If GetCheck(RadionButton%[9]) , (Richtige% + 1)

        Inc Richtige%

    EndIf

    If GetCheck(RadionButton%[12]) , (Richtige% + 1)

        Inc Richtige%

    EndIf

    If GetCheck(RadionButton%[15]) , (Richtige% + 1)

        Inc Richtige%

    EndIf

    If GetCheck(RadionButton%[17]) , (Richtige% + 1)

        Inc Richtige%

    EndIf

    If Richtige% = 0

        @MessageBox("Du hast 0 von 6 richtig !","", 0)

    endif

    If Richtige% = 1

        @MessageBox("Du hast 1 von 6 richtig !","", 0)

    endif

    If Richtige% = 2

        @MessageBox("Du hast 2 von 6 richtig !","", 0)

    endif

    If Richtige% = 3

        @MessageBox("Du hast 3 von 6 richtig !","", 0)

    endif

    If Richtige% = 4

        @MessageBox("Du hast 4 von 6 richtig !","", 0)

    endif

    If Richtige% = 5

        @MessageBox("Du hast 5 von 6 richtig !","", 0)

    endif

    If Richtige% = 6

        @MessageBox("Du hast 6 von 6 richtig !","", 0)

    endif

endproc

proc hauptprogramm_run

    Repeat

        waitinput

        if @Clicked(button_auswerten2%)

            auswerten2

        endif

        if @Clicked(button_auswerten1%)

            auswerten1

        endif

        if @Clicked(button_auswerten3%)

            auswerten3

        endif

        If @Clicked (button_erde%)

            erdkunde

        endif

        If @Clicked(button_weiter1%)

            Allgemein

        endif

        If @Clicked(button_geschichte%)

            geschichte

        endif

        If @Clicked(button_löschen%)

            WhileLoop  18

                EnableWindow RadionButton%[&LOOP], 1
                SetCheck RadionButton%[&LOOP], 0
                EnableWindow Rahmen%[1], 1
                EnableWindow Rahmen%[2], 1
                EnableWindow Rahmen%[3], 1
                EnableWindow Rahmen%[4], 1
                EnableWindow Rahmen%[5], 1
                EnableWindow Rahmen%[6], 1

            EndWhile

        endif

    until @XOR(@Clicked(button_ende%), %scankey = 27)

endproc

proc hautprgramm_end

    @DestroyWindow(%hwnd)

endproc

hauptprogramm_skin
hauptprogramm_run
hautprgramm_end
end

has Perhaps someone verbässerungsvorschläge or what I Change ought to ?
 
04/07/14  
 




Julian
Schmidt
always creep use. Z.B. instead of
CompileMarkSeparation
EnableWindow Rahmen%[1], 1
EnableWindow Rahmen%[2], 1
EnableWindow Rahmen%[3], 1
EnableWindow Rahmen%[4], 1
EnableWindow Rahmen%[5], 1
EnableWindow Rahmen%[6], 1

just...
CompileMarkSeparation
 
XProfan X2
Win7 Professional, SP1, AMD FX(tm)-8350 Eight-Core Processor

˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...] 
04/07/14  
 




E.T.
Hm, is the for 'ne Monster-dissolution geproggt ??
with Standart 1024x786 fit nothing More in's Window:



there missing The Anpassung on The dissolution.
The Radiobuttons are already activate.
here another Shot with Texten (whom background find I anyhow savage):



and one missfällt me gänzlich:
The "dumme" question on the Start: would I the Progg not started want,
had I not klicked

The Texts würd I in a .INI or 'ne .DLL auslagern...

101 kB
Hochgeladen:04/08/14
Downloadcounter126
Download
108 kB
Hochgeladen:04/08/14
Downloadcounter161
Download
 
Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...
04/08/14  
 




Nico
Madysa
diimool25 (07.04.14)

has Perhaps someone verbässerungsvorschläge or what I Change ought to ?


Please schließe your View source always in CODE- instead of QUOTE-Blöcken one. for your Posting here have I me allows, the already time To make.
 
04/08/14  
 



Answer


Topictitle, max. 100 characters.
 

Systemprofile:

no Systemprofil laid out. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Please register circa a Posting To verfassen.
 

Topic-Options

5.484 Views

Untitledvor 0 min.
Peter Max Müller06/09/15
Heinz Bernhard12/12/14
Andre Rohland09/26/14
iF07/09/14
More...

Themeninformationen



Admins  |  AGB  |  Applications  |  Authors  |  Chat  |  Privacy Policy  |  Download  |  Entrance  |  Help  |  Merchantportal  |  Imprint  |  Mart  |  Interfaces  |  SDK  |  Services  |  Games  |  Search  |  Support

One proposition all XProfan, The there's!


My XProfan
Private Messages
Own Storage Forum
Topics-Remember-List
Own Posts
Own Topics
Clipboard
Log off
 Deutsch English Français Español Italia
Translations

Privacy Policy


we use Cookies only as Session-Cookies because of the technical necessity and with us there no Cookies of Drittanbietern.

If you here on our Website click or navigate, stimmst You ours registration of Information in our Cookies on XProfan.Net To.

further Information To our Cookies and moreover, How You The control above keep, find You in ours nachfolgenden Datenschutzerklärung.


all rightDatenschutzerklärung
i want none Cookie