MS Small Basic: jugar al paddle (código)


 

a1

  1. GraphicsWindow.BackgroundColor      = “Darkblue”
  2. paddle =      Shapes.AddRectangle(120, 12)
  3. bola = Shapes.AddEllipse(16,      16)
  4. GraphicsWindow.MouseMove =      OnMouseMove
  1. x =      0
  2. y =      0
  3. deltaX      = 1
  4. deltaY      = 1
  1. EjecutarBucle:
  2. x =      x + deltaX
  3. y =      y + deltaY
  1. gw = GraphicsWindow.Width
  2. gh = GraphicsWindow.Height
  3. If (x >= gw – 16 Or x <=      0) Then
  4. deltaX = – deltaX
  5. EndIf
  6. If (y <= 0) Then
  7. deltaY = -deltaY
  8. EndIf
  1. padX = Shapes.GetLeft(paddle)
  2. If (y = gh – 28 And x >=      padX And x <= padX + 120) Then
  3. deltaY      = – deltaY
  4. EndIf
  1. Shapes.Move(bola,      x, y)
  2. Program.Delay(5)
  1. If (y < gh) Then
  2. Goto EjecutarBucle
  3. EndIf
  1. GraphicsWindow.ShowMessage(“Ha      perdido” , “Paddle”)
  1. Sub OnMouseMove
  2. paddleX = GraphicsWindow.MouseX
  3. Shapes.Move(paddle, paddleX –      60, GraphicsWindow.Height – 12)
  4. EndSub

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s