Spiel erstellen

[autoit]

$hGUI = GUICreate("Titel",300,300);Erstellt ein Fenster welches noch unsichtbar ist
$Ball = GUICtrlCreateCheckbox("",10,10,10,10,1);Erstellt eine Checkbox welche fast wie ein Ball aussieht
$Spieler = GUICtrlCreateButton("",10,175,20,50);Erstellt ein Button mit dem der Spieler den Ball abwehrt
$Gegner = GUICtrlCreateButton("",270,175,20,50);Erstellt ein Button mit dem der NPC(Nicht-Spieler-Charakter) den Ball abwehrt
Global $SpielerPos = 175;Dort ist der Schläger des Spielers
$NPCPos = 175;Und hier der des NPC's
$Ball_Pos_X = 145;Hier ist die Breiten Koordinate des Balles, welche möglicht in der Mitte sein sollte
$Ball_Pos_Y = 145;Hier ist die höhen Koordinate des Balles, welche möglicht in der Mitte sein sollte
;Die mitte von 300 (den so breit und hoch ist die GUI) wäre natürlich 150 aber wir müssen noch die hälfte des Balles abziehen(10/2=5)(300/2-5=145)

[/autoit] [autoit][/autoit] [autoit]

$Ball_X_Bewegung = (Random(0,1,1)-0.5)*10; Gibt dem Ball schwung in eine beliebige richtung
;Die Funktion Random gibt einen "Zufälligen wert zwischen den ersten beiden Parametern aus(0 und 1) dieser wert ist auf eine Ggnze Zahl gerundet...
;weil der Dritte Parameter eine 1 ist aber vergiss den dritten Parameter erstmal, der ist zimlich egal. Zumindest wirde eine 0 oder eine 1 -0.5 genommen (=-0.5 o. =0.5)...
; und dan mal 10 damit der Ball gut schwung kriegt (=-5 o. =5). Der schwung wird dem Ball später in jeden Schleifen durchgang zur höhen oder breiten Koordinate hinzugefügt.
;Beispiel: ein Schleifen durchgang dauert 0.2 sekunden und der Ball hat eine Geschwindigkeit von (X:5 ,Y:2) dann würde er in einer sekunde sich 25 Koordinaten nach Rechts...
;Bewegt haben( 1/0.2*5) und 10 nach unten( 1/0.2*2 )
$Ball_Y_Bewegung = Random(-5,5,1); wird genause festgelegt nur dass es dieses mal sich nicht zwingend bewegen muss sondern einen Beliebigen wert zwischen -5 und 5 haben kann
GUISetState(1,$hGUI); Macht das Fenster sichtbar damit der Spieler etwas sehen kann^^
HotKeySet("{Down}","Spieler_bewegt_nach_unten");Wenn der Spieler auf Down(Steuerkreuz) drückt wird die Funktion "Spieler_bewegt_nach_unten" aufgerufen
HotKeySet("{Up}","Spieler_bewegt_nach_oben");Wenn der Spieler auf Up(Steuerkreuz) drückt wird die Funktion "Spieler_bewegt_nach_oben" aufgerufen
While 1;Hier beginnt das Spiel
;Hier wird die Position des Balles neu berechnet (wie oben erklärt)
$Ball_Pos_X = $Ball_Pos_X+$Ball_X_Bewegung
$Ball_Pos_Y = $Ball_Pos_Y+$Ball_Y_Bewegung
GUICtrlSetPos($Ball,$Ball_Pos_X,$Ball_Pos_Y);Hier wird der Ball(Checkbox) an die neue Position gesetzt

;Hier wird überprüft ob der Ball den schläger des Spielers berührt

If $Ball_Pos_X < 30 Then; Ist der Ball nah genug an deiner Seite um deinen Schläger berühren zu können
If $Ball_Pos_Y+10 > $SpielerPos Then ;Ist dein Schläger hoch genug um den Ball zu erwischen
If $Ball_Pos_Y < $SpielerPos+50 Then ;Ist dein Schläger tief genug um den Ball zu erwischen
$Ball_Pos_X = 30 ; Setzt den Ball vor den Schläger um zu verhindern das dieser im schläger hängen bleibt
$Ball_X_Bewegung = $Ball_X_Bewegung * -1;Dreht die Bewegung um
$Ball_X_Bewegung = $Ball_X_Bewegung * 1.3;macht den Ball etwas schneller
EndIf
EndIf
EndIf

;Hier wird überprüft ob der Ball den schläger des NPCs berührt

If $Ball_Pos_X > 260 Then
If $Ball_Pos_Y+10 > $NPCPos Then
If $Ball_Pos_Y < $NPCPos+50 Then
$Ball_Pos_X = 260
$Ball_X_Bewegung = $Ball_X_Bewegung * -1
EndIf
EndIf
EndIf

;Hier kommt der extem Intelligente NPC^^
If $Ball_Pos_Y < $NPCPos +25 Then ;ist der Ball höher als der Mittelpunkt des Schlägers
$NPCPos = $NPCPos - 5
GUICtrlSetPos($Gegner,270,$NPCPos)
EndIf

If $Ball_Pos_Y > $NPCPos +25 Then ;ist der Ball tiefer als der Mittelpunkt des Schlägers
$NPCPos = $NPCPos + 5
GUICtrlSetPos($Gegner,270,$NPCPos)
EndIf

If $Ball_Pos_Y <0 Then ; Wenn der Ball oben gegen den Rand stößt, prallt er ab
$Ball_Pos_Y = 0
$Ball_Y_Bewegung = $Ball_Y_Bewegung * -1
EndIf

If $Ball_Pos_Y > 290 Then ; Wenn der Ball unten gegen den Rand stößt, prallt er ab
$Ball_Pos_Y = 290
$Ball_Y_Bewegung = $Ball_Y_Bewegung * -1
EndIf

If $Ball_Pos_X < 0 Then ; Wenn der Ball bei deiner Seite den Rand berührt dann...
HotKeySet("{Down}")
HotKeySet("{Up}");Dardurch wird verhindert dass du den Schläger(Button) immernoch bewegen kannst, ist natürlich nicht zwingend nötig sieht aber besser aus
msgbox(0,"","Du hast Verloren.")
exit;Beendet das Script
EndIf

If $Ball_Pos_X > 290 Then ; Wenn der Ball bei deiner Seite den Rand berührt dann...
HotKeySet("{Down}")
HotKeySet("{Up}");Dardurch wird verhindert dass du den Schläger(Button) immernoch bewegen kannst, ist natürlich nicht zwingend nötig sieht aber besser aus
msgbox(0,"","Du hast Gewonnen.")
exit;Beendet das Script
EndIf


sleep(100)
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func Spieler_bewegt_nach_unten()
$SpielerPos = $SpielerPos+5;Der Button des Spielers bewegt sich 5 Pixel nach unten
GUICtrlSetPos($Spieler,10,$SpielerPos);Dies neue Position wurde zwar bestimmt aber davon hat der Butten nichts gemerkt, wir müssen ihn erst darauf hinweisen^^
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func Spieler_bewegt_nach_oben()
$SpielerPos =$SpielerPos-5;Der Button des Spielers bewegt sich 5 Pixel nach oben
GUICtrlSetPos($Spieler,10,$SpielerPos);Dass selbe wie oben
EndFunc

[/autoit]