Hallo,
kleiner Code, der in der Abgabefrist erweitert wird:
[Blockierte Grafik: http://s13.postimage.org/upwwgf65f/Screen_08_03_2013_14_Uhr_25_26_Sek.jpg]
Code
Window 0,0-500,500
WindowStyle 31
WindowTitle "Wer wird PPF Profi?"
Declare antwortnummer%,level%,antwort%,Ende%
CLS RGB(276,102,293)
var button1&=CREATE("Button",%HWND,"1",50,50,100,100)
var button2&=CREATE("Button",%HWND,"2",50,150,100,100)
var button3&=CREATE("Button",%HWND,"3",50,250,100,100)
While 1
CLS RGB(100,200,300)
antwortnummer%=0
If level%=0
DrawText 0,00,"Wie heissen die beiden Admins des PPF Forums"
DrawText 0,20,"1:Schwappi und Schobbi 2:Schotti und Schwabi 3:Schatti und Schwatti"
antwort%=2
ElseIf level%=1
DrawText 0,00,"Wer trägt eine Brille, ist cool drauf und ist Hobby-Programmierer?"
DrawText 0,20, "1: Frabbing 2:PCHSWS 3:Der Leo"
antwort%=1
ElseIf level%=2
DrawText 0,00,"Wer ist 71 Jahre alt und liebt Software?"
DrawText 0,20,"1: True29 2: guepewi 3: WhiteKnight"
antwort%=2
ElseIf level%=3
DrawText 0,00,"Wie heißen die Programmierer des PPF Scanners?"
DrawText 0,20,"1: AHT und Mopao 2: TS Soft und Schotti 3: Der Leo und PCHSWS"
antwort%=1
ELseIf level%=4
DrawText 0,00,"Wer ist Foren-Maskottchen und ist dem PPF am 28.12.2008 beigetreten?"
DrawText 0,20,"1: Lassiter 2: Schwarzbart 3: lisa1"
antwort%=3
ElseIf level%=5
DrawText 0,00,"Wer weiß worum es geht und ist XPROFAN Fan?"
DrawText 0,20,"1: Chris_S 2: Horsthorn 3: PCHSWS"
antwort%=1
ElseIf level%=6
DrawText 0,00,"Wer ist am 24.08.1966 geboren?"
DrawText 0,20,"1: guepewi 2: buena_vista2 3: Martin"
antwort%=2
EndIf
WaitInput
If clicked(button1&)
antwortnummer%=1
ElseIf clicked(button2&)
antwortnummer%=2
ElseIf clicked(button3&)
antwortnummer%=3
Else
antwortnummer%=0
EndIf
Ifnot antwortnummer%=0
If antwortnummer%=antwort%
MESSAGEBOX("Das war eine richtige Antwort","Hui",0)
level%=level%+1
Else
MESSAGEBOX("Das war eine falsche Antwort","Ouh",0)
End
EndIf
EndIf
EndWhile
Alles anzeigen
Viel Spaß!
Thema soll auf Wunsch von mir bitte geschlossen werden. Danke.