Jaaaa, also ich würde dir ja so unwahrscheinlich schrecklich gerne helfen, das glaubst du ja gar nicht, aber leider.... nunja.... meine Glaskugel ist etwas trübe, weil meine Mutti sie vor 3 tagen versehentlich mit dem falschen Putzmittel saubergemacht/gescheuert hat. Deshalb kann ich leider den Quellcode von deinem Programm nicht sehen. Ich hab nichtmal in der Glaskugel gesehen, dass sich hinter diesem Thread ein komplett anderer Inhalt verbirgt, als du ihn im Thread-Titel angegeben hast. Demnach kann ich dich nur bitten: habe Mitleid mit all den Menschen, die keine funktionierende Glaskugel ihr Eigen nennen, und drück sich zukünftig bitte konkreter aus.
Code: Alles auswählen
InitSprite()
InitKeyboard()
InitMovie()
Global kopfx.w
Global kopfy.w
Global wanzx.w
Global wanzy.w
Global speedx.w
Global speedy.w
kopfx = 400
kopfy = 300
; Du brauchst nur einen Geschwindigkeitswert, und der sollte dann auch verwendet werden,
; wenn du die entsprechende Variable schon deklarierst... ;)
speed = 2
OpenScreen(800,600,32,"Snake")
;Das hier solltest du machen, um zu verhindern, dass die Spielgeschwindigkeit "eiert" (der PC kann die Schleife ja
; unterschiedlich schnell durchlaufen, je nachdem wie er ausgelastet ist, sodass er sie zu oft pro Sekunde durchläuft)
SetFrameRate(60)
SetRefreshRate(60)
Repeat
ExamineKeyboard()
ClearScreen(0,0,0)
StartDrawing(ScreenOutput())
DrawingMode(1)
FrontColor(255,15,0)
Box(kopfx,kopfy,10,10)
StopDrawing()
FlipBuffers()
If kopfx = 0
Break
ElseIf kopfx = 790
Break
EndIf
If kopfy = 0
Break
ElseIf kopfy = 590
Break
EndIf
If richtung = 1
kopfx + speed
ElseIf richtung = 2
kopfx - speed
ElseIf richtung = 3
kopfy + speed
ElseIf richtung = 4
kopfy - speed
EndIf
If KeyboardPushed(#PB_Key_Right)
richtung = 1
ElseIf KeyboardPushed(#PB_Key_Left)
richtung = 2
ElseIf KeyboardPushed(#PB_Key_Down)
richtung = 3
ElseIf KeyboardPushed(#PB_Key_Up)
richtung = 4
EndIf
;Falls der Spieler keinen Bock mehr auf Snake hat
If KeyboardPushed(#PB_Key_Escape)
Break
EndIf
;Windows entscheidet selbst, wie lange es Pause macht je nach CPU-Auslastung, und wir krallen uns nicht
; die gesamte CPU-Power ;)
Delay(0)
ForEver
CloseScreen()
MessageRequester("Snake","Game over!"+Chr(10)+"Bis zum nächsten Mal! :)")
Code: Alles auswählen
-Tags störte... :lol:
)