gobstones.gbs

procedure PonerLinea(){
	IrAlOrigen()
	Mover(Norte)
	Linea()
	IrAlComienzo()
}

procedure Linea(){
	while( puedeMover(Este)){
		PonerN(2, Rojo)
		Mover(Este)
	}
	PonerN(Rojo)
}

//falta Volver al lugar de donde salió
procedure ActualizarContadorBanderasYVolver(){ 
	Marcar()
	ActualizarContadorBanderas()
	IrAMarca()
	SacarMarca()
}

procedure PonerOSacarBandera(){
	if(hayBandera()){
		SacarBandera()
	} else {
		PonerBandera()
	}
}