X360 Andy hat geschrieben:Bekomme ne Virus meldung ?
Win32:KdCrypt [Cryp]
Virus/Wurm
echt?
naja ist definitiv kein Virus ... wenn du mir nicht traust dann kannst du den Code selbst kompilieren und testen:
Code: Alles auswählen
; ************************************
; SPRING-BALL - Projekt
; ************************************
If OpenWindow(0, 100, 100, 300, 300, "Spring Ball - by Dare Devil") = 0
MessageRequester("Laufzeit - Fehler", "Konnte Spiel nicht starten. Programm wird beendet.")
End
EndIf
If InitSprite() = 0
MessageRequester("Laufzeit - Fehler", "Konnte Spiel nicht starten. Programm wird beendet.")
End
EndIf
If OpenWindowedScreen(WindowID(0), 0, 0, 300, 300, 0, 0, 0) = 0
MessageRequester("Laufzeit - Fehler", "Konnte Spiel nicht starten. Programm wird beendet.")
End
EndIf
If InitKeyboard() = 0
MessageRequester("Laufzeit - Fehler", "Konnte Tastatur nicht finden. Programm wird beendet.")
End
EndIf
wandx.l = 100
wandy.l = 250
wandwidth.l = 50
wandheight.l = 10
ballx.l = 100
bally.l = 10
ballg.l = 1
ballgx.l = 0
punkte.l = 0
zufallx.l = Random(270)
zufally.l = Random(50)
CreateSprite(1, 5, 5)
CreateSprite(2, wandwidth, wandheight)
CreateSprite(3, 30, 10)
Repeat
ExamineKeyboard()
ClearScreen(0)
If StartDrawing(ScreenOutput()) = 0
MessageRequester("Laufzeit - Fehler", "Konnte Spiel nicht starten. Programm wird beendet.")
End
EndIf
Box(wandx, wandy, wandwidth, wandheight, RGB(0, 0, 255))
Box(zufallx, zufally, 30, 10, RGB(0, 255, 0))
Circle(ballx, bally, 5, RGB(255, 0, 0))
DrawText(220, 270, "Punkte: " + Str(punkte), RGB(255, 255, 255), 0)
StopDrawing()
FlipBuffers()
If KeyboardPushed(#PB_Key_Left) And wandx > 0
wandx - 5
ElseIf KeyboardPushed(#PB_Key_Right) And wandx < 250
wandx + 5
EndIf
If ballg = 1
bally + 1
ElseIf ballg = 0
bally - 1
EndIf
If SpriteCollision(1, ballx, bally, 2, wandx, wandy)
ballg = 0
If ballx < wandx + (wandwidth / 2)
ballgx = 2
ElseIf ballx > wandx + (wandwidth / 2)
ballgx = 1
ElseIf ballx = wandx + (wandwidth / 2)
ballgx = 0
EndIf
ElseIf bally <= 0
ballg = 1
EndIf
If ballgx = 1
ballx + 1
ElseIf ballgx = 2
ballx - 1
EndIf
If ballx >= 300
ballgx = 2
ElseIf ballx <= 0
ballgx = 1
EndIf
If SpriteCollision(1, ballx, bally, 3, zufallx, zufally)
punkte + 5
zufallx.l = Random(270)
zufally.l = Random(50)
If ballgx = 1
ballgx = 2
ElseIf ballgx = 2
ballgx = 1
EndIf
EndIf
If bally > wandy
but = MessageRequester("Verloren!", "Sie haben leider verloren! Moechten Sie erneut spielen?", #PB_MessageRequester_YesNo)
If but = #PB_MessageRequester_Yes
ballx = 100
bally = 10
ballg = 1
ballgx = 0
punkte = 0
zufallx = Random(270)
zufally = Random(50)
ElseIf but = #PB_MessageRequester_No
End
EndIf
EndIf
If WindowEvent() = #PB_Event_CloseWindow
Break
EndIf
Delay(10)
ForEver
Dann koennt ihr auch gleich noch ueber mein Coding-Stil meckern
STARGÅTE hat geschrieben:läuft problemlos.
ein Paar anmerkungen:
- Manchem prallt der Bild vom Grünen Balken falsch ab.
- Es wäre gut wenn man mit dem Schläger den ball noch ein bisschen besser steuern könnte, sodass er nicht immer genau mit 45° oder -45° durch den Raum fliegt ...
Zum ersteren: hab ich schon bemerkt, weiss auch nicht woran es liegt, muss noch guckn
Zum zweiteren: Das ist im Prinzip kein Problem ... werde mich darum kuemmern
