PureBoard

Verfasst: **14.04.2021 14:52**

Ahja, so funktioniert's. Die Steuerung ist etwas hakelig und reagiert nicht so schnell wie ich es gerne hätte, aber es funktioniert. Witzige Idee übrigens die Schlange kacken zu lassen, sodass neue Hindernisse entstehen. Das habe ich so auch noch nicht gesehen. Ich dachte erst ich kann das einsammeln.

Verfasst: **14.04.2021 22:18**

Wirklich sehr cooles Spiel (und vor allem cooler Code).

Bin beim ersten Mal nur bis 28 Segmente gekommen, da geht noch mehr!

Verfasst: **23.01.2022 21:00**

Hier, nur so Spaß - eine etwas komprimiertere Version

Code: Alles auswählen

InitKeyboard():InitSprite():Macro K(a,u,v):If KeyboardPushed(a):dx=u:dy=v; SNAKE 
EndIf:EndMacro:w=29:h=19:s=25:g=#Green:b=#Gray:Dim f(w,h):m=10:n=10;  _____|  _
OpenWindowedScreen(OpenWindow(0,0,0,w*s+s,h*s+s,""),0,0,w*s+s,h*s+s);|__   __| |
Repeat:ExamineKeyboard():K(200,0,-1):K(208,0,1):K(203,-1,0):K(205,1,0); |_| __ |
e=ElapsedMilliseconds():If e>t:t=e+200-lv*10:StartDrawing(ScreenOutput()); |___|
x+dx:y+dy:For v=0 To h:f(0,v)=b:f(w,v)=b:For u=0 To w:f(u,1)=b:f(u,h)=b:c=f(u,v)
d=Bool(u=x And v=y):If c:If c=g:If d:l+1:m=Random(w-2,1):n=Random(h-2,2); _2022_
If(l%5)=0:k=b:lv+1:EndIf:EndIf:ElseIf c=b:z=d:Else:z=d:f(u,v)-1:If c=1:f(u,v)=k;
k=0:EndIf:c=200+Cos(c)*55:EndIf:EndIf:If z:z=0:l=5:x=1:y=2:dx=1:dy=0:lv=1:EndIf;
Box(u*s,v*s,s-2,s-2,c):Next:Next:DrawText(s+2,2,"Size: "+Str(l)+"  Level: "+; _
Str(lv),#White):StopDrawing():FlipBuffers():f(x,y)=l:f(m,n)=g:EndIf:Delay(5);| |
Until WindowEvent()=#PB_Event_CloseWindow; MR.L______________________________| |

Verfasst: **23.01.2022 22:46**

Wow cool. Sehr gut, du hast die Listen wegrationalisiert.
Erstaunlich, dass die Dynamik trotzdem erhalten blieb.

Aber ich denke da geht noch was, da ist so viel Platz in deinen oberen Zeilen :-P
Hier deine Version noch eine Zeile kürzer und Linux-Kompatible (ohne Farbkonstanten)^^

Code: Alles auswählen

InitKeyboard():InitSprite():Macro K(a,u,v):If KeyboardPushed(a):dx=u:dy=v: EndIf
EndMacro:w=29:h=19:s=25:OpenWindowedScreen(OpenWindow(0,0,0,w*s+s,h*s+s,""),0,0,
w*s+s,h*s+s):g=$FF00: Dim f(w,h):m=10:n=10: Repeat:ExamineKeyboard():K(200,0,-1)
K(208,0,1):K(203,-1,0):K(205,1,0): e=ElapsedMilliseconds(): If e>t:t=e+200-lv*10
StartDrawing(ScreenOutput()):b=$808080:x+dx:y+dy: For v=0 To h:f(0,v)=b:f(w,v)=b
For u=0 To w:f(u,1)=b:f(u,h)=b:c=f(u,v):d=Bool(u=x And v=y):If c:If c=g:If d:l+1
m=Random(w-2,1):n=Random(h-2,2): If(l%5)=0:k=b:lv+1:EndIf: EndIf: ElseIf c=b:z=d
Else:z=d:f(u,v)-1:If c=1:f(u,v)=k:k=0:EndIf:c=200+Cos(c)*55:EndIf:EndIf:If z:z=0
l=5:x=1:y=2:dx=1:dy=0:lv=1:EndIf:Box(u*s,v*s,s-2,s-2,c):Next:Next: DrawText(s+2,
2,"Size: "+Str(l)+"  Level: "+Str(lv),$FFFFFF): StopDrawing():FlipBuffers():f(x,
y)=l:f(m,n)=g:EndIf:Delay(5) : Until WindowEvent()=#PB_Event_CloseWindow ;-MR.L-

Verfasst: **24.01.2022 00:04**

Blöde Frage sicherlich, aber wie kann ich steuern? Er läuft immer nur nach rechts durch Bild, aber ich scheine keinen Fokus darauf kriegen zu können. Weder Pfeiltasten, noch WASD funktionieren.

Verfasst: **24.01.2022 00:44**

NicTheQuick hat geschrieben: 24.01.2022 00:04 Blöde Frage sicherlich, aber wie kann ich steuern? Er läuft immer nur nach rechts durch Bild, aber ich scheine keinen Fokus darauf kriegen zu können. Weder Pfeiltasten, noch WASD funktionieren.

Kann es sein, dass bei dir die Konstanten für die Pfeiltasten anders sind, als bei mir?

Meine Werte (Windows 10) lauten:
#PB_Key_Up = 200
#PB_Key_Down = 208
#PB_Key_Left = 203
#PB_Key_Right = 205

Zeile 3 bis 4:

Code: Alles auswählen

K(200,0,-1):K(208,0,1):K(203,-1,0):K(205,1,0)

Verfasst: **24.01.2022 10:05**

Für die Linux keys siehe mein code auf Seite 1:

Code: Alles auswählen

K(273,0,-1)
:K(274,0,1):K(276,-1,0):K(275,1,0)

Leider sehe ich nur einen schwarzen Bildschrim. Ich glaube unter Linux reicht es nicht, nur ein Event pro FlipBuffers zu verarbeiten.

Verfasst: **24.01.2022 10:53**

#NULL hat geschrieben: 24.01.2022 10:05 Leider sehe ich nur einen schwarzen Bildschrim

Vielleicht liegt es auch an den unterschiedlichen Farbkonstanten unter Windows/Linux.
Versuchs mal mit dieser Version:

Code: Alles auswählen

InitKeyboard():InitSprite():Macro K(a,u,v):If KeyboardPushed(a):dx=u:dy=v: EndIf
EndMacro:w=29:h=19:s=25:OpenWindowedScreen(OpenWindow(0,0,0,w*s+s,h*s+s,""),0,0,
w*s+s,h*s+s):g=#Green:Dim f(w,h):m=10:n=10: Repeat:ExamineKeyboard():K(273,0,-1)
K(274,0,1):K(276,-1,0):K(275,1,0): e=ElapsedMilliseconds(): If e>t:t=e+200-lv*10
StartDrawing(ScreenOutput()):b=#Gray: x+dx:y+dy: For v=0 To h: f(0,v)=b:f(w,v)=b
For u=0 To w:f(u,1)=b:f(u,h)=b:c=f(u,v):d=Bool(u=x And v=y):If c:If c=g:If d:l+1
m=Random(w-2,1):n=Random(h-2,2): If(l%5)=0:k=b:lv+1:EndIf: EndIf: ElseIf c=b:z=d
Else:z=d:f(u,v)-1:If c=1:f(u,v)=k:k=0:EndIf:c=RGB(0,0,200+Cos(c)*55):EndIf:EndIf
If z:z=0:l=5:x=1:y=2:dx=1:dy=0:lv=1: EndIf:Box(u*s,v*s,s-2,s-2,c):Next:Next:f(m,
n)=g : DrawText(s+2,2,"Size: "+Str(l)+"  Level: "+Str(lv),#White): StopDrawing()
f(x,y)=l:FlipBuffers():EndIf:Delay(25):Until WindowEvent()=#PB_Event_CloseWindow

Verfasst: **24.01.2022 11:28**

Code: Alles auswählen

.. While WindowEvent():Wend:Until KeyboardPushed(27)

Auch mit hex farben und dem obigen Ende sehe ich leider trotzdem nichts. Weiß nicht woran es liegt.

Verfasst: **24.01.2022 11:34**

Scheinbar ist ein ClearScreen() notwendig.

Code: Alles auswählen

InitKeyboard():InitSprite():Macro K(a,u,v):If KeyboardPushed(a):dx=u:dy=v: EndIf
EndMacro:w=29:h=19:s=25:OpenWindowedScreen(OpenWindow(0,0,0,w*s+s,h*s+s,""),0,0,
w*s+s,h*s+s):g=$FF00: Dim f(w,h):m=10:n=10: Repeat:ExamineKeyboard():K(273,0,-1)
:K(274,0,1):K(276,-1,0):K(275,1,0): e=ElapsedMilliseconds(): If e>t:t=e+200-lv*10:ClearScreen(0)
StartDrawing(ScreenOutput()):b=$808080:x+dx:y+dy: For v=0 To h:f(0,v)=b:f(w,v)=b
For u=0 To w:f(u,1)=b:f(u,h)=b:c=f(u,v):d=Bool(u=x And v=y):If c:If c=g:If d:l+1
m=Random(w-2,1):n=Random(h-2,2): If(l%5)=0:k=b:lv+1:EndIf: EndIf: ElseIf c=b:z=d
Else:z=d:f(u,v)-1:If c=1:f(u,v)=k:k=0:EndIf:c=200+Cos(c)*55:EndIf:EndIf:If z:z=0
l=5:x=1:y=2:dx=1:dy=0:lv=1:EndIf:Box(u*s,v*s,s-2,s-2,c):Next:Next: DrawText(s+2,
2,"Size: "+Str(l)+"  Level: "+Str(lv),$FFFFFF): StopDrawing():FlipBuffers():f(x,
y)=l:f(m,n)=g:EndIf:Delay(5) :Debug "aa":While WindowEvent():Wend:Until KeyboardPushed(27)

PureBoard

PurePunch Contest #4 - Snake in 20 Zeilen

Re: PurePunch Contest #4 - Snake in 20 Zeilen

Re: PurePunch Contest #4 - Snake in 20 Zeilen

Re: PurePunch Contest #4 - Snake in 20 Zeilen

Re: PurePunch Contest #4 - Snake in 20 Zeilen

Re: PurePunch Contest #4 - Snake in 20 Zeilen

Re: PurePunch Contest #4 - Snake in 20 Zeilen

Re: PurePunch Contest #4 - Snake in 20 Zeilen

Re: PurePunch Contest #4 - Snake in 20 Zeilen

Re: PurePunch Contest #4 - Snake in 20 Zeilen

Re: PurePunch Contest #4 - Snake in 20 Zeilen