Problem z pongiem

[Davka]

Witajcie. Mam problem z Pongiem w Basicu o to kod zrodlowy:

 

Graphics 640,480,16,w
SetBuffer BackBuffer()

czcionka=LoadFont("Calaveras",100,True)
czcionka2=LoadFont("Arial")
czcionka3=LoadFont("Kat Skratch",60,True)


SetFont czcionka
Text 110,110,"PONG V.1.1."

SetFont czcionka2
Text 10,10,"BY DAVKA_14"

SetFont czcionka3
Text 110,280,"PRESS ENTER"

Global y=240
Global y2=240

While Not KeyHit(1)

If KeyDown(28) Then 
Graphics 640,480,16,w
Rect 10,y,5,40,2
Rect 620,y2,5,40,2
Line 320,0,320,480
Rect ballx,bally,10,10,1
EndIf 


Flip
Wend
End

 

i tera nie wiem jak zrobic poruszanie tej paletki bo jak zrobie

 

if keydown(200) y=y+4

to tez nie dziala

za pomoc z gory dzieki

[Ranmus]

Nie sprecyzowałeś jaki to Basic, bo interpreterów są od groma.

[Davka]

Nie sprecyzowałeś jaki to Basic, bo interpreterów są od groma.

 

Ja pisze w Blitz3d

[adam014]

Blitz3D=syf. Lepszy Emergence Basic :P

[Lord Vayaa]

Graphics 640,480,16
SetBuffer BackBuffer()

czcionka=LoadFont("Calaveras",100,True)
czcionka2=LoadFont("Arial")
czcionka3=LoadFont("Kat Skratch",60,True)



SetFont czcionka
Text 110,110,"PONG V.1.1."

SetFont czcionka2
Text 10,10,"BY DAVKA_14"

SetFont czcionka3
Text 110,280,"PRESS ENTER"

WaitKey()
Global y=240
Global y2=240

While Not KeyHit(1)
Cls

If KeyDown(200) Then y=y-4
If KeyDown(208) Then y=y+4
If KeyDown(17) Then y2=y2-4
If KeyDown(31) Then y2=y2+4

Rect 10,y,5,40,2
Rect 620,y2,5,40,2
Line 320,0,320,480
Rect ballx,bally,10,10,1



Flip
Wend
End

Uproscilem troszeczke :D Pozdro. Nastepnym razem pisz do mnie na gg pomoge ci od razu. Up nie odzywaj sie jak nie wiesz jakie ladne rzeczy mozna zrobic

[Davka]

dzieki