Sha256: 5782b5afa59989f526277fcb43760f73374aac4f5016986227021d8c11bacdf2
Contents?: true
Size: 1.23 KB
Versions: 10
Compression:
Stored size: 1.23 KB
Contents
procedure Before() { x := 0 y := 0 while(puedeMover(Sur)) { x := x + 1 Mover(Sur) } while(puedeMover(Oeste)) { y := y + 1 Mover(Oeste) } NextStage() while(x > 0) { x := x - 1 Mover(Norte) } while(y > 0) { y := y - 1 Mover(Este) } } procedure After() { GoToOrigin() NextStage() } procedure NextStage() { while(puedeMover(Norte)) { NextRowStage() Mover(Norte) } NextRowStage() GoToOrigin() } procedure NextRowStage() { while(puedeMover(Este)) { Poner(Verde) Mover(Este) } Poner(Verde) IrAlBorde(Oeste) } procedure ShiftLeft() { ShiftTo(Oeste) } procedure ShiftRight() { ShiftTo(Este) } procedure ShiftUp() { ShiftTo(Norte) } procedure ShiftDown() { ShiftTo(Sur) } function one() { return (1); } function two() { return (2); } function three() { return (3); } function four() { return (4); } function five() { return (5); } procedure ShiftTo(dir) { if (puedeMover(dir)) { Sacar(Rojo) Mover(dir) Poner(Rojo) CheckCollision() } } procedure CheckCollision() { if (hayBolitas(Azul) && nroBolitas(Azul) mod 2 == 0) { After(); BOOM("Colision") } } procedure GoToOrigin() { IrAlBorde(Sur) IrAlBorde(Oeste) }
Version data entries
10 entries across 10 versions & 1 rubygems