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)
ShowPaddle2=1
ShowPaddle1=1
quadrat = 0
x_Ball = 30
y_Ball = 10
Ende=0
Waagerecht_Ball = 1
Senkrecht_Ball = 1
Paddle_1 = 200
Paddle_2 = 200
Hs = 0
Start=0
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
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(RGB(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 Start=1
If Waagerecht_Ball=1
ShowPaddle2=0
Gun_x=620
Else
ShowPaddle1=0
Gun_x=1
EndIf
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=Abs(y_ball-paddle_2)
AK=Abs(x_ball-625)
Else
Gun_y=Paddle_1
GK=Abs(y_ball-paddle_1)
AK=Abs(x_ball-1)
EndIf
Winkel=ATan(GK/AK)
If Showgun=0
ShowGun=1
EndIf
Ende=Ende+1
If Ende=200
Ende=0
Start=0
ShowPaddle1=1
ShowPaddle2=1
Waagerecht_Ball*-1=Waagerecht_Ball
EndIf
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
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
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(100))>60 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 "C:\paddle.bmp"
Ball:
IncludeBinary "C:\ball.bmp"
Sound:
IncludeBinary "C:\chop.wav"
Kanone:
IncludeBinary "C:\gun.bmp"
jemand zu hause?
