.Das ist ein Problem, ich will das Teil in ein (aufgemotztes) PingPong-Spiel einbauen, und durch Zufall erscheint eine Kanone und schießt den Ball zurück (dafür bräuchte ich den Winkel dann). Leider wird die Kanone nichtmal falschrum angezeigt...
Hiermal der Code- Es ist erst mein 2. Programm, also habt bitte Nachsicht
Code: Alles auswählen
MP = MessageRequester("WasDuWolle?", "2-Spieler", #PB_MessageRequester_YesNo)
MP = MP - 5
If MP = 1
MessageRequester("Achtung:", "Steuerung Spieler 2: Keypad 8 & 2", 0)
EndIf
If InitSprite() = 0
MessageRequester("!", "Fehler beim Sprite-Initialisieren^^", 0)
End
EndIf
If OpenScreen(640, 480, 16, "Paddle") = 0
MessageRequester("!", "Fehler beim Screen-Loaden^^", 0)
End
EndIf
Speed = 5
CatchSprite(0, ?Paddle)
CatchSprite(1, ?Ball)
CatchSprite(2, ?Kanone,#PB_Sprite_Texture)
InitSprite3D()
CreateSprite3D(0,2)
Global Start, x_ball, y_ball, Waagerecht_Ball, Paddle_1 , Paddle_2, ShowPaddle1, ShowPaddle2, ShowGun, Winkel, Gun_x, Gun_Y, Quadrat
ShowPaddle2=1
ShowPaddle1=1
x_Ball = 30
y_Ball = 10
Waagerecht_Ball = 1
Senkrecht_Ball = 1
Paddle_1 = 200
Paddle_2 = 200
If InitSound() = 0
MessageRequester("!!!", "Der Sound konnte nicht geladen werden! Was soll denn das???", 0)
End
EndIf
CatchSound(0, ?Sound)
If InitKeyboard() = 0
MessageRequester("!", "Fehler beim Keyboard-Initialisieren^^", 0)
End
EndIf
Procedure Kanone(Bob)
Starta:
End=0
Repeat
Delay(50)
Until Start=1
If Waagerecht_Ball=1
ShowPaddle2=0
Gun_x=620
Else
ShowPaddle1=0
Gun_x=1
EndIf
Repeat
If Waagerecht_Ball=1
If y_Ball>paddle_2
quadrat=4
Else
quadrat=3
EndIf
Else
If y_Ball>paddle_1
quadrat=2
Else
quadrat=1
EndIf
EndIf
If Waagerecht_Ball=1
Gun_y=Paddle_2
GK=(Sqr(y_ball-paddle_2))²
AK=(Sqr(x_ball-625))²
Else
Gun_y=Paddle_1
GK=(Sqr(y_ball-paddle_1))²
AK=(Sqr(x_ball-1))²
EndIf
Winkel=ATan(GK/AK)
If Showgun=0
ShowGun=1
EndIf
End=End+1
Delay(60)
Until End=200
Start=0
ShowGun=0
ShowPaddle1=1
ShowPaddle2=1
Waagerecht_Ball*-1=Waagerecht_Ball
Goto Starta
EndProcedure
CreateThread(@Kanone(), 0)
Repeat
Delay(60)
x_Ball = x_Ball + (Waagerecht_Ball * Speed)
y_Ball = y_Ball + Senkrecht_Ball
ExamineKeyboard()
If KeyboardPushed(#PB_Key_Up) And Paddle_1 > 1
Paddle_1 = Paddle_1 - 10
EndIf
If KeyboardPushed(#PB_Key_Down) And Paddle_1 < 430
Paddle_1 = Paddle_1 + 10
EndIf
If y_Ball < 2 Or y_Ball > 449
Senkrecht_Ball = Senkrecht_Ball - (2 * Senkrecht_Ball)
EndIf
ClearScreen(0,0,0)
If ShowPaddle1=1
DisplaySprite(0, 1, Paddle_1)
EndIf
If ShowPaddle2=1
DisplaySprite(0, 625, Paddle_2)
EndIf
DisplaySprite(1, x_Ball, y_Ball)
If ShowGun=1
Start3D()
RotateSprite3D(0, (360-quadrat*90+Winkel),0)
DisplaySprite3D(0, Gun_x,Gun_y)
Stop3D()
EndIf
FlipBuffers()
If MP = 2
If Waagerecht_Ball = 1
If Paddle_2+20 > y_Ball
Paddle_2 = Paddle_2 - 3
EndIf
If Paddle_2+20 < y_Ball
Paddle_2 = Paddle_2 + 3
EndIf
EndIf
EndIf
If Mp = 1
ExamineKeyboard()
If KeyboardPushed(#PB_Key_Pad8) And Paddle_2 > 1
Paddle_2 = Paddle_2 - 10
EndIf
If KeyboardPushed(#PB_Key_Pad2) And Paddle_2 < 430
Paddle_2 = Paddle_2 + 10
EndIf
EndIf
If x_Ball < 21
If Paddle_1 + 49 > y_Ball And Paddle_1 < y_Ball + 20
Waagerecht_Ball = Waagerecht_Ball - (2 * Waagerecht_Ball)
Speed = Speed + 1
PlaySound(0)
If MP = 2
HS = HS + 100
EndIf
Else
CloseScreen()
If MP = 2
MessageRequester("=(", "Verloren... "+Str(HS)+" Punkte", 0)
Else
MessageRequester("={", "Spieler 2 gewinnt!!!!!", 0)
EndIf
End
EndIf
EndIf
If x_Ball > 600
If Paddle_2 + 49 > y_Ball And Paddle_2 < y_Ball+20
Waagerecht_Ball = Waagerecht_Ball - (2 * Waagerecht_Ball)
Speed = Speed + 1
PlaySound(0)
Else
CloseScreen()
If Mp = 2
MessageRequester(":)", "Gewonnen!!!... "+Str(HS)+" Punkte", 0)
Else
MessageRequester(":{", "Spieler 1 gewinnt!!!!!", 0)
EndIf
End
EndIf
EndIf
ExamineKeyboard()
If KeyboardPushed(#PB_Key_Escape)
CloseScreen()
MessageRequester("Ciaobella^^", "Auf Wiedersehen geehrter Spieler!", 0)
End
EndIf
If KeyboardPushed(#PB_key_Add)
Speed = Speed +1
EndIf
If KeyboardPushed(#PB_Key_PadEnter)
Senkrecht_Ball+1
EndIf
If KeyboardPushed(#PB_Key_C)
MessageRequester("Hallöle", "C) David F^^ Cool wa?", 0)
EndIf
If Int(Random(300))>50 And Start=0
If Waagerecht_Ball=1 And x_Ball<400 And Speed<15 Or Waagerecht_Ball=-1 And x_Ball>150 And Speed<15
Start=1
EndIf
EndIf
ForEver
Paddle:
IncludeBinary "paddle.bmp"
Ball:
IncludeBinary "ball.bmp"
Sound:
IncludeBinary "chop.wav"
Kanone:
IncludeBinary "gun.bmp"
Die Zufälligkeit hab ich extra so hoch, weil ich das ja testen will.
Code-Tags ergänzt - Andesdaf
