PONGna razie mam tyle i nie wiem co dalej ;p pomózcie nie mam już do tego głowy ;pwindow_width = 640window_height = 480player_height = 80player_width = 10ball_diameter = 10player_speed = 0.3ball_speed = 0.1player_left_x = player_widthplayer_right_x = GraphicsWindow.Width - player_widthCenterPlayers()player_left_move = 0player_right_move = 0ball_vertical_move = 1ball_horizontal_move = 0GraphicsWindow.Width = window_widthGraphicsWindow.Height = window_heightGraphicsWindow.Title = "Pong"GraphicsWindow.Show()player_left = Shapes.AddRectangle(player_width, player_height)player_right = Shapes.AddRectangle(player_width, player_height)ball = Shapes.AddEllipse(ball_diameter, ball_diameter)GraphicsWindow.KeyDown = OnKeyDownGraphicsWindow.KeyUp = OnKeyUpbegin: player_left_y = player_left_y + player_speed * player_left_move player_right_y = player_right_y + player_speed * player_right_move ball_x = ball_x + ball_speed * ball_vertical_move ball_y = ball_y + ball_speed * ball_horizontal_move Shapes.Move(player_left, player_left_x, player_left_y) Shapes.Move(player_right, player_right_x, player_right_y) Shapes.Move(ball, ball_x, ball_y)Goto beginSub OnKeyDown Key = GraphicsWindow.LastKey If(Key = "W") Then player_left_move = - 1 ElseIf(Key = "S") Then player_left_move = 1 ElseIf(Key = "Up") Then player_right_move = - 1 ElseIf(Key = "Down") Then player_right_move = 1 EndIfEndSubSub OnKeyUp Key = GraphicsWindow.LastKey If(Key = "W") Then player_left_move = 0 ElseIf(Key = "S") Then player_left_move = 0 ElseIf(Key = "Up") Then player_right_move = 0 ElseIf(Key = "Down") Then player_right_move = 0 EndIfEndSubSub CenterPlayers player_left_y = (GraphicsWindow.Height - player_height) / 2 player_right_y = (GraphicsWindow.Height - player_height) / 2 ball_y = (GraphicsWindow.Height - ball_diameter) / 2 ball_x = (GraphicsWindow.Width - ball_diameter) / 2EndSub
